# ad-hoc stolen from dsniff or something.

my @xor2 = (0xf3, 0x26, 0x81, 0xc4, 0x39, 0x86, 0xdb, 0x92,
            0x71, 0xa3, 0xb9, 0xe6, 0x53, 0x7a, 0x95, 0x7c);

my @p = map ord, split//, "binary 'roasted' password here";

for (my $i = 0; $i < @p; $i++) {
  $p[$i] = $p[$i] ^ $xor2[$i % @xor2];
}

print map chr, @p;