#!/usr/bin/perl $_=q{*{$Just =bless{},'$another ';"\$Perl \::$hacker"}=sub{print$%[$.+ ++];$,,$ ;$_[0]},eval join v45.62,('$z')x6};s/(?<=\$)([a-z\n]+ ?)/push@%,$+;f/e +gi;eval
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: JAPH
by Juerd (Abbot) on Mar 08, 2002 at 18:12 UTC | |
by Adze (Acolyte) on Mar 18, 2002 at 14:23 UTC | |
by Juerd (Abbot) on Mar 18, 2002 at 17:12 UTC | |
by Adze (Acolyte) on Apr 23, 2002 at 17:26 UTC |
Back to
Obfuscated Code