Weblog Navigation

First Previous Index Next Last

Just Another Perl Hacker

Tuesday, 1st March 2005

My first JAPH:

#!/usr/bin/perl
for $a(1,46){for $b(0..7){$c=0;$_?hex substr(q), "ef7fa1866706ca",
Just another Perl Hacker, ("eff02289402844"),2*$_+$a,2)&2**(7-$b):
/..phroggy../ and $c+=2**(7-$_)for(0..7);$d.=chr $c;}}print"$d\n";

Weblog Navigation

First Previous Index Next Last