Select Code to Download

sub h {
        $_ = $_[0] = pack b208, 0 . unpack b362, $_[0];
...
        $r ^= $_ x 26;
}
print $r;

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