Select Code to Download

  use MIME::Base64 qw( decode_base64 );

...
  my @scrambled = unpack('C*', $scrambled) ;
  my @orig      = map { $scrambled[$_-1] ^ $scrambled[$_] } 1..$#scram
+bled;
  my $orig      = pack('C*', @orig) ;

  my $b = "123\xC4" ;
  my $u = "a\xC4\x{107}\x{1C4}" ;
...
  sub show {
    print join(", ", map(sprintf("0x%02X", $_), @_)), "\n" ;
  } ;

  my $u = "a\xC4\x{107}\x{1C4}" ;

...
    use bytes ;
    print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- 
+$w\n" ;
  } ;