perl -e '$,.=sprintf "%.5b", $_ foreach @ARGV;print chr oct "0b$1" while $,=~s/^([0|1]{7})//' 18 23 11 25 30 17 0 24 14 29 23 30 19 8 25 15 4 16 10 3 5 28 22 24 16 9 3 1 24 30 23 18 30 8 10

Replies are listed 'Best First'.
Re: very very simple...
by mk. (Friar) on Jan 05, 2006 at 12:26 UTC
    i love your obfuscated codes, even though i always know what you've written even before running it.
    =)

    *will you surprise me this one time?! hehehe*


    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    grrr.... argh!
[reply]
      thanks... and... always is "Just another Perl hacker"!!! if you looked 5 minutes ago... was printing just another perl hEker... but now is correctly...
[reply]
        oh, then you were really gonna suprise me this time?!
        damn it, and i was late! hehe


        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        grrr.... argh!
[reply]

Back to Obfuscated Code