Ok, i've been hanging out here almost two months, and I
guess sooner or later I have to do a JAPH obfu, right?
Is there any tradition of writing these when there's more
pressing, productive things to do? If so, I've been true
to tradition...
#!/usr/bin/perl -w use strict;my% g = ('D\J{N]QRR\&S.HAy7z9 r['=>' => got perl ? <= ');my@ o = keys%g;my@ t = split"",(shift@o);my$ p = pack'c',74;my$ e = sub{while(@_){my$ r = shift;$!=unpack'c',$r;my$ l = shift;$p.=substr$!,(unpack'c',$l)/10, (unpack'c',$l)%10;}}; &$e(@t);print$p,$/;
Despite use strict, it may not work on versions of perl with drastically different error messages ;)
Update: As chipmunk has pointed out, this code relies on system error messages, not Perl error messages. As a result, it will only run properly on a FreeBSD 4.x system. (By pure luck, it's been tested on 4.1 and 4.3, but only because I happened to upgrade my system between printing out the error messages and actually writing the code.)
So consider my first JAPH a real learning experience, and a bit more obfuscated than planned - even when it runs, one does not know what it did ;-)
Maybe I should have called it "Got FreeBSD?"
Thanks, chipmunk!
Back to
Obfuscated Code