sub h { $_ = $_[0] = pack b208, 0 . unpack b362, $_[0]; tr/\0-\c?/\0/; tr/\0/\377/c; $_ } for (split //, "k6sNP2B}({ambrusLB%Ox)Z]n0*zf\0I3") { $y = $r; $v = join $r = '', a .. z; $r ^= h($r) & "\217" x 26 ^ h($v) & $y for 0 .. 6; $r ^= $_ x 26; } print $r;