perl -Mstrict -we 'my$x="\n,rekcaH lreP rehtona tsuJ";*_=*&;print whil
+e $x=~s&.$&&s'

[download]
Alas, I find no way of using just the "2" variables.

Replies are listed 'Best First'.
(crazyinsomniac: !ocatT) Re: HPAJ
by crazyinsomniac (Prior) on Nov 29, 2001 at 16:59 UTC
    Heh, I like it 
    perl -Mstrict -we"my$x=qq&\n,!ooooooocaT !ocaT  !ocaT&;*_=$\=*&;print,
+,while $x=~s&.$&&s"

#or

perl -Mstrict -we'my$x=qq&\n,!ooooooocaT !ocaT  !ocaT&;*_=*\=*&;print,
+,while $x=~s&.$&&s'

    [download]

     
    ___crazyinsomniac_______________________________________
    Disclaimer: Don't blame. It came from inside the void
    perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]
[d/l]

Back to Obfuscated Code