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