Greetings!!
This is my first attempt at obfuscated perl. Sorry about the extra long line... I couldn't figure out a way to put whitespace in there for readability without breaking the pack apart.
Update:
Thanks for the help, jynx. I have reworked it a bit base upon your advice...
-Daruma
This is my first attempt at obfuscated perl. Sorry about the extra long line... I couldn't figure out a way to put whitespace in there for readability without breaking the pack apart.
$_=pack"B416","0111000001110010011010010110111001110100001000000111000 +001100001011000110110101100100000001000100100001000110011001100100010 +001000101100001000000010001000110000001100010011000100110000001100010 +011000000110001001100000011000000110001001100010011000000110000001100 +000011000000110001001100000011000100110001001100010011000000110000001 +100000011000000110000001100010011000100110000001100010011000000110000 +0011000000100010";eval$_;
Update:
Thanks for the help, jynx. I have reworked it a bit base upon your advice...
Thanks for your support, Ovid. I hope this version is a wee more obfuscated. (Just looking at binary long enough makes my eyes cross...)$_='&&&011100&&&&&&&000&&&&&&111001001101001011&&&&011&&&&&&&&&&&&100 &&&&&&&&111&&&&&&&010&000&&&&100&&&&&&&&&&&&&&000&&011&&&&&&&&&&&&100 &&&&&&&&000&&&&&110&&&&&000&&101&&&&&&&&&&&&&&100&&011&&&&&&&&&&&&011 &&&&&&&&010&&&&110&&&&&&&010&000&&&&&&&&&&&&&&000&&100&&&&&&&&&&&&010 &&&&&&&&010&&&&000&&&&&&&100&011&&&&&&&&&&&&&&001&&100&&&&&&&&&&&&110 &&&&&&&&010&&&&001&&&&&&&000&100&&&&&&&&&&&&&&010&&110&&&&&&&&&&&&000 &&&&&&&&100&&&&0000010001000&110000001100010011&&&&000100110000001100 &&&&&&&&010&&&&0110000001100&0100110000001100&&&&&&000011000100110001 &&&&&&&&001&&&&100&&&&&&&000&011&&&&&&&&&&&&&&&&&&&000&&&&&&&&&&&&000 &&&&&&&&110&&&&000&&&&&&&001&100&&&&&&&&&&&&&&&&&&&000&&&&&&&&&&&&011 &&&0&&&&001&&&&001&&&&&&&100&000&&&&&&&&&&&&&&&&&&&011&&&&&&&&&&&&000 &&10&&&&011&&&&000&&&&&&&100&110&&&&&&&&&&&&&&&&&&&001&&&&&&&&&&&&001 &&100&&&000&&&&011&&&&&&&000&000&&&&&&&&&&&&&&&&&&&110&&&&&&&&&&&&000 &&&&001100&&&&&000&&&&&&&011&000&&&&&&&&&&&&&&&&&&&000&&&&&&&&&&&&110 &&&&001001&&&&&100&&&&&&&010&011&&&&&&&&&&&&&&&&&&&000&&&&&&&&&&&&000 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 11000100110000001100000011000000100010';s^\s|&^^g;eval pack"B416",$_;
-Daruma
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: My first Obfuscated Perl Attempt
by Ovid (Cardinal) on Aug 07, 2002 at 00:26 UTC | |
Re: My first Obfuscated Perl Attempt
by mtve (Deacon) on Aug 07, 2002 at 07:50 UTC | |
Re: My first Obfuscated Perl Attempt
by jynx (Priest) on Aug 06, 2002 at 19:19 UTC |
Back to
Obfuscated Code