#!/usr/bin/perl

$what = $ARGV[0];
@xor = (0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b);

print "WHAT = $what\n";

for (pos=0; $pos < length($what); $pos+=2) {
  $char = substr($what, $pos, 2);
  $int = hex($char);
  $res = $int ^ $xor[$pos/2];

  print chr($res);
}

print "\n";