Select Code to Download

@uchar = split(//,$ucrypt);

my @vals = unpack('C*', $ucrypt);

my $mask = 0x80808080;
...
my @vals = map { $_ & $mask } unpack('N*', $ucrypt);