This is my first japh ever, so comments are very welcome :)

#!/usr/bin/perl
$/=undef;open(O,$0);$_=
<O>;s;[^a-z ];;g;$/=q;;
;@;=split//;@_=(hk,2,7,
31,45,20,30,22,9,8,7,6,
22,2,13,30,29,15,5,20,+
22,29,1,j,32);for(0..23
){print$;[pop@_];}#octo

[download]

-octo

Replies are listed 'Best First'.
Re: Yet another japh
by LAI (Hermit) on Jul 10, 2002 at 21:11 UTC
    I'd say, not bad. My favourite obf code is always the kind that can't be immediately figured out, and any time I see something that looks like a string of character codes I figure there's some packing going on, so I was pleasantly surprised when I deconstructed yours. I like your approach, because you fool the casual reader into thinking that you're using overdone techniques. (++)

    LAI
    :eof
[reply]

Back to Obfuscated Code