ZDog Obfuscation Part 2

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;
[download]

-- zdog (Zenon Zabinski)
Go Bells!

Comment on ZDog Obfuscation Part 2 Download Code

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!	[reply]
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;` [download] to `$_ = eval '$a';tr;[!@#$%^&()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n;g;` [download] 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; [download]	[reply] [d/l] [select]
RE: ZDog Obfuscation Part 2 by verbal (Initiate) on Jun 16, 2000 at 05:19 UTC
I think this is pretty rad! -verbal	[reply]
RE: ZDog Obfuscation Part 2 by LeGo (Chaplain) on Jun 20, 2000 at 23:45 UTC
I would say it is real sweet.	[reply]