This one may not (will definately not?) run on all perl installations. I'm running mine on stock debian installs and it works, but YMMV. But it is fun anyway. If anyone likes I can provide the code I used to generate this, and then it can be re-created for any platform.

I would just like to add that the obfu's I do tend to be based on some concept or algorithm which is the heart of the thing... so I invite discussion on that or improvements on the snippet as a whole!

$"='314747"7"84561"12"277057"10"53708"12"2466"25"'
;sub _{$;.=chr(rand(24)+64)}while($"){srand$";$"=~
s/.*?"//;rand(24)for(1.."$\"");$"=~s/.*?"//;_()for
(1..5)}$;=~y/BV/ ./;$;=~s/\w+/\u\L$&/g;print$;.$/

[download]

Replies are listed 'Best First'.
Re: JAPH randomness
by jdalbec (Deacon) on Jan 30, 2005 at 21:14 UTC
    It works fine on perl 5.8.1-RC3/Mac OS X 10.3/PPC G4 and perl 5.8.4/Debian Sarge/AMD K6 MMX, so endianness does not appear to be an issue. It fails on perl 5.6.1/Red Hat Linux 7.3/Intel 486DX because the string passed to srand() is not entirely numeric and therefore is interpreted as 0. The following modification works around this: 
    $"='314747"7"84561"12"277057"10"53708"12"2466"25"';
sub _{$;.=chr(rand(24)+64)}while($"){$"=~s/(.*?)"//
;srand$1;rand(24)for(1.."$\"");$"=~s/.*?"//;_()for(
1..5)}$;=~y/BV/ ./;$;=~s/\w+/\u\L$&/g;print$;.$/

    [download]
[reply]
[d/l]
[select]

      Cool, thanks. I didn't even expect it to break because of that... It should really break (and require significant alteration of $') if someone were to use a perl which had a different rand() library call compiled in.

[reply]
Re: JAPH randomness
by wolfger (Deacon) on Feb 01, 2005 at 14:11 UTC

    Looks like a great JAPH, but it doesn't work on my work laptop. I will try at home later.
    This is perl, v5.8.0 built for MSWin32-x86-multi-thread:

    ∟Nhsk.Mio Pnfowrkajfwfkwg

    --
    Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
    perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'
[reply]
[d/l]

      So the issue, as I mentioned previously, is whether your perl and my perl have the same random number generator. Heres one way to check:

      perl -e 'srand(0);print rand(100)."\n"'

      [download]

      When I run this I get 17.082803610629. What do you get?

      Let us know if it works at home! :)

[reply]
[d/l]

        I get 0.115966796875 on my laptop. I forgot to try at home.
        So let me get this straight... We can "initialize" the random number generator such that the numbers are not random whatsoever, but rather completely predictable? Very interesting.


        --
        Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
        perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'
[reply]
[d/l]

Back to Obfuscated Code