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";
[download]

What does anybody think?

Comment on My first JAPH Download Code

Replies are listed 'Best First'.
Re: My first JAPH by K_M_McMahon (Hermit) on Mar 02, 2005 at 05:19 UTC
Normally I don't like obfu's that have JAPH visibly included in the code, but the concept you used was VERY cool. -Kevin `my $a='62696c6c77667269656e6440676d61696c2e636f6d'; while ($a=~m/(^.{2})/s) {print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}` [download]	[reply] [d/l]