Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

ZDog Obfuscation Part 2

by zdog (Priest)
on Jun 08, 2000 at 23:04 UTC ( [id://17174]=obfuscated: print w/replies, xml ) Need Help??

Here's my second obfuscation. Tell me what you think.

#!/usr/bin/perl $a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$%^%^ &^%&#^&(*s%*(&#@%^@^@$%^@%$*#^&#^%&@$%^#$56^@%^@$^%t^(34^$%^%^#$%^# $% #$%^$%^ B%^n%($ %^$# %^$#% ^#$ %^ $%^$#^ #$%^#$ %^$ #%^*o %@& t^&*^h* ^#$%^&&e@ ^ #$%^& $%^&* #$% ^&$%^ $r% ^$%% Q$ %&%&^%*& *$@ ^%*& ^%&^% %^^ $%^&^ ^%% ^e$*&^& ^*&^(*^ #%*%# ^%& ^%^&% &%% &%* %&^%*&% r%^%*&$ %^% ^*& &*^ *&^*&lI *%&*^%* &^% %*&% ^(&*& *(( a^ 2 *(&)(*& @$^*) )(* &)(!@#$%@#!& )(*)( *&c &* (&)(*&) %^&*( (&( *&)(*&(&k(*& ^*(&^ *&% $%^ &(&%&$e# !@#$% $%^ &#@$%^&r@#$% ^&*@# $'; $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s; ; ;g; tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;print;


-- zdog (Zenon Zabinski)
   Go Bells!

Replies are listed 'Best First'.
RE: ZDog Obfuscation Part 2
by Anonymous Monk on Jun 18, 2000 at 23:37 UTC
    That is pretty cool!
RE: ZDog Obfuscation Part 2
by Alokito (Novice) on Jun 22, 2000 at 03:57 UTC
    Pretty cool ZDog, but it doesn't look so nice on a unix box because there's no newline- my prompt overwrites half the output. Fortunately, there's a simple fix, just change the second to last line
    $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s; ; ;g;
    to
    $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n;g;
    to get:
    #!/usr/bin/perl $a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$% +^%^ &^%&#^&(*s%*(&#@%^@^@$%^@%$*#^&#^%&@$%^#$56^@%^@$^%t^(34^$%^%^#$ +%^# $% #$%^$%^ B%^n%($ %^$# %^$#% +^#$ %^ $%^$#^ #$%^#$ %^$ #%^*o +%@& t^&*^h* ^#$%^&&e@ ^ #$%^& $%^&* #$% ^&$%^ +$r% ^$%% Q$ %&%&^%*& *$@ ^%*& ^%&^% %^^ $%^&^ +^%% ^e$*&^& ^*&^(*^ #%*%# ^%& ^%^&% &%% +&%* %&^%*&% r%^%*&$ %^% ^*& +&*^ *&^*&lI *%&*^%* &^% %*&% ^(&*& +*(( a^ 2 *(&)(*& @$^*) )(* &)(!@#$%@#!& )(*)( +*&c &* (&)(*&) %^&*( (&( *&)(*&(&k(*& ^*(&^ +*&% $%^ &(&%&$e# !@#$% $%^ &#@$%^&r@#$% ^&*@# +$'; $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n +;g; tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;pri +nt;
RE: ZDog Obfuscation Part 2
by verbal (Initiate) on Jun 16, 2000 at 05:19 UTC
    I think this is pretty rad! -verbal
RE: ZDog Obfuscation Part 2
by LeGo (Chaplain) on Jun 20, 2000 at 23:45 UTC
    I would say it is real sweet.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://17174]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2024-03-19 09:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found