Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Easier than it seems

by Hue-Bond (Priest)
on May 07, 2006 at 16:22 UTC ( #547911=obfuscated: print w/ replies, xml ) Need Help??

use warnings; use strict; "ad space +available" =~/(.){6}\S+ a(.){6}/;%}=($=/=($=/$+[++$|]),$.=($;=$=/($,=++$|+$|))-$, +,$;,$=,$,, $;,$.,$,,$=+$.,$|--);sub e{my($s,$w,$x,$y,$z,$c)=((join'',map{chr}$}{$ +;}*$}{$;}* $}{$}{$.}}+$}{$}{$}{$.}}}+$}{$=},$}{$}{$,}}*$}{$}{$,}}*$}{$}{$.}}+$}{$ +;}+$}{$=}- $}{$}{$.}},$}{$;}*$=*$}{$,}+$}{$;}+$}{$=}-$}{$}{$.}}+$}{$.},$}{$;}*$}{ +$;}*$}{$,} -$}{$}{$.}},$=*$}{$;}*$}{$,}-$}{$,}+$}{$}{$.}}+$}{$.},$}{$;}*$}{$;}*$} +{$,}+$,*$} {$,}+$}{$.},$}{$}{$,}}*$}{$;}*$}{$,}-$}{$}{$,}},$}{$;}*$}{$}{$,}}-$}{$ +.}-$}{$.}, $}{$}{$,}}*$}{$;}*$}{$,}+$}{$}{$,}}-$}{$=},$}{$.}**($}{$;}+$}{$=})-$}{ +$,}-$}{$=} ,$}{$;}*$}{$}{$,}}+$}{$=},$}{$;}*$}{$}{$,}}*$}{$,}+$}{$}{$,}}+$}{$=},$ +}{$}{$,}}* $}{$;}+$}{$=},$}{$;}*$}{$}{$,}}*$}{$,}+$}{$}{$,}}+$}{$=},$}{$;}*$}{$}{ +$,}}+$}{$= },$}{$;}*$}{$}{$,}}*$}{$,}+$}{$}{$,}}+$}{$=},$}{$.}**($}{$;}+$}{$=})-$ +}{$}{$.}}- $}{$=},$}{$;}*$}{$}{$,}}+$}{$.}**$}{$,},$}{$}{$,}}*$}{$}{$,}},$}{$;}*$ +}{$}{$,}}* $}{$,}+$}{$}{$=}}*$}{$,}+$}{$.}*$}{$}{$.}},$}{$}{$,}}*$}{$;}+$}{$.}**$ +}{$}{$.}}, $}{$}{$,}}*$}{$;}*$}{$,}+$}{$;}-$}{$=},$}{$.}**($}{$}{$,}}+$}{$=})-$}{ +$,}-$}{$=} ,$}{$;}*$}{$}{$,}}*$}{$,}-$}{$,}-$}{$.}-$}{$.},$}{$.}**($}{$;}+$}{$=}) +-$}{$}{$.} }-$}{$=},$}{$;}*$}{$;}+$}{$.}**$}{$,},$}{$}{$,}}*$}{$;},$=*$}{$;}*$}{$ +,}+$}{$.}* $}{$,}+$}{$.}*$}{$}{$.}}+$}{$=}),@_);$s=~s/(.+)/$1/ee;0+$s}print chr f +or(join'', do{$}{$}{$;}}^$}{$=}},do{$-=e$;+$}{$=},$=+$.,$}{$,}+$.,$=+$}{$=},$}{$. +};$-+=e$}{ $}{$;}}^$}{$}{$;}},$;+$.,$}{$,},$=+$,,$=+$}{$.};$-+=e$}{$}{$}{$,}}}^$} +{$=},$}{$= },$,,$=*$;+$,*$}{$.},$}{$;}+$;;$-+=e rand,$}{$;}*$,+$=-$.,$}{$}{$}{$,} +}}^$}{$=}, $}{$}{$;}}^$}{$=},$}{$}{$=}}+$}{$}{$,}}*$}{$.}-$}{$}{$;}};$-},do{$-=e +rand,$}{$= },$}{$,}+$.,$}{$,}+$}{$;}*$}{$}{$=}},$}{$;}*$}{$}{$.}}-$}{$,};$-+=e$}{ +$}{$}{$,}} }^$}{$=},$}{$=},$}{$,},$}{$;}*$}{$}{$.}}*$}{$;}+$}{$=},$}{$,}+$.;$-+=e +$}{$}{$;}} ^$}{$}{$;}},$=-$.,$,,$=-$}{$=},$}{$,}*$}{$;}*$}{$}{$.}}+$}{$,};$-+=e r +and,$}{$=} ,$}{$=},$}{$,},$}{$}{$,}}+$}{$;}*$}{$}{$.}}-$}{$}{$;}};$-+=e$}{$}{$;}} +^$}{$=},$} {$=},$}{$}{$}{$,}}}^$}{$=},$,;$-},do{$}{$.}*$}{$;}*$}{$,}*$}{$.}-$}{$; +}*$}{$}{$= }}},do{$-=e$}{$}{$}{$,}}}^$}{$=},$}{$;}**$}{$}{$.}}+$}{$;}**$}{$.}*$}{ +$,}-$}{$.} **$}{$}{$}{$;}}},$,,$}{$.}+$}{$=}+$}{$}{$,}}*$}{$}{$.}};$-+=e rand,$}{ +$;}**$}{$. }-$}{$,}+$}{$,}**($}{$}{$=}}*$}{$.})-$}{$}{$.}}*$}{$,}*$}{$.}+$}{$=},$ +}{$}{$;}}^ $}{$=},$}{$}{$}{$,}}}^$}{$=},$}{$}{$;}}^$}{$}{$;}};$-},do{$-=e$}{$}{$; +}}^$}{$=}, $}{$=},$}{$,},$=,$,;$-+=$}{$.}**$}{$;}+$}{$;}**$}{$.}+$}{$}{$.}}-$}{$} +{$=}};$-}, do{$}{$.}+$}{$.}**$}{$}{$,}}+$}{$;}**$}{$}{$=}}+$}{$,}**$}{$.};},do{$} +{$=};},do{ $}{$}{$}{$.}}};},do{$-=e$}{$;}*$}{$}{$,}}-$}{$.},-$}{$=}+$}{$,}**($}{$ +}{$=}}*$}{ $.})+$}{$}{$.}}*$}{$;}+$}{$;},$}{$,},$=*$,+$=-$.,$}{$}{$.}}**$}{$}{$=} +}**$}{$.}+ $}{$}{$,}};$-+=$}{$;}*$}{$,}+$}{$.}+$}{$,}**$}{$}{$}{$;}}}**$}{$.};$-} +,do{$-=e$} {$}{$;}}^$}{$=},$}{$}{$,}}**$}{$}{$.}}-$}{$,}**($}{$.}*$}{$}{$=}})-$}{ +$}{$=}}**( $}{$.}*$}{$}{$=}})-$}{$,}*$}{$}{$=}}+$}{$=},$}{$.},$}{$.}**$}{$;}+$}{$ +=},$}{$,}* $}{$,}*$}{$}{$.}}+$}{$}{$}{$;}}}*$}{$.}*$}{$.};$-+=$}{$,};$-;},do{$}{$ +;}*$}{$,}* $}{$}{$,}}*$}{$}{$.}}*$}{$;}-$}{$}{$,}}**($}{$}{$=}}*$}{$.})+$}{$=}+$} +{$}{$.}}** $}{$}{$,}}+$}{$}{$,}}*$}{$}{$=}}*$}{$;}-$}{$,}*$}{$}{$.}}*$}{$}{$=}}+$ +}{$}{$,}}* $}{$;}*$}{$,}*$}{$;}},do{-$}{$}{$,}}+$}{$;}*$}{$;}*$}{$,}-$}{$=};},do{ +$-=e$}{$}{ $,}}+$}{$}{$.}}+$}{$.},$}{$.}+$}{$,}+$}{$;},$}{$,},$}{$}{$=}}+$}{$;}+$ +}{$}{$.}}, $}{$,}+$}{$}{$,}}+$}{$.};$-+=e rand,$}{$;}*$}{$;}+$}{$,}+$}{$.},$}{$}{ +$;}},$}{$; }+$}{$,},$}{$}{$=}}**$}{$;}-$}{$}{$=}}**$}{$}{$.}}*$}{$.}**$}{$}{$=}}; +$-},do{$-= e rand,0-$}{$;}+$}{$}{$,}}**$}{$,}*($}{$.}*$}{$.})+$}{$=}-$}{$}{$=}}-$ +}{$,}**$}{ $}{$.}}*$}{$.},$}{$=};$-+=$,;$-},do{$-=e$,,-$}{$.}*$}{$}{$}{$;}}}+$}{$ +}{$.}}*$}{ $,}*$}{$.}*$}{$,}*$}{$.},$}{$.},$}{$}{$=}}**($}{$.}*$}{$.})*$}{$;}-$}{ +$}{$=}}**( $}{$.}*$}{$.}),-($}{$}{$=}}*$}{$.})-$}{$.}**($}{$}{$=}}*$}{$.})+$}{$;} +*$}{$.}**( $}{$}{$=}}*$}{$.});$-+=$}{$;}+$}{$,};$-},do{$-=e$}{$,},$}{$,}*$}{$}{$. +}}*$}{$;}+ $}{$.}**($}{$}{$=}}*$}{$.}),$=-$.,$}{$}{$=}}+$}{$,}*$}{$=}*$}{$.}*$}{$ +,}+$}{$.}* $}{$}{$.}},$}{$,};$-+=e$}{$=}+$}{$,}**($}{$}{$}{$;}}}*$}{$.})+$}{$.}** +($}{$}{$=} }*$}{$.})+$}{$=},$}{$.}**$}{$;}-$}{$=}+$}{$}{$=}}*$}{$}{$.}}*$}{$}{$.} +}+$}{$}{$, }}*$}{$,},$}{$}{$.}},$}{$.}*$}{$;}*$}{$;}+$}{$}{$,}}*$}{$.}+$}{$=},-$} +{$;}+$}{$} {$}{$;}}}*$}{$;}+$}{$.}*$}{$}{$,}}*$}{$;}+$}{$=};$-+=e$}{$=},$}{$}{$;} +},$,,$}{$; }*$}{$}{$,}}-$}{$=},$=+$.;$-+=e$}{$;}+$}{$=},$=+$.,$}{$}{$;}}^$}{$=},$ +}{$.}**($} {$,}+$}{$}{$=}})+$}{$;}*$}{$}{$.}}-$}{$=},$}{$}{$,}}*$}{$,}+$}{$.}*$}{ +$,};$-},do {-$}{$;}*$}{$.}-$}{$}{$;}}+$}{$}{$=}}**$}{$}{$.}}**$}{$.}*$}{$.};},do{ +$-=e$}{$}{ $;}}^$}{$=},$}{$=},$}{$,}+$}{$=},-$}{$=}+$}{$.}*$}{$,}**$}{$,}-$}{$}{$ +;}},$}{$.} *$}{$}{$.}}*$}{$}{$=}};$-+=e$}{$;}*$}{$;}+$}{$.}+$}{$.},$}{$}{$=}}+$}{ +$.}+$}{$}{ $,}}*$}{$;},$,,$}{$=}+$}{$.}*$}{$,}*$}{$}{$=}},$}{$}{$.}}*$}{$;}+$}{$. +};$-+=e$}{ $}{$,}}*$}{$.}+$}{$;}-$}{$}{$;}},$}{$;}*$}{$}{$,}}+$}{$;}+$}{$}{$=}},$ +}{$}{$}{$, }}}^$}{$}{$;}},rand,$=+$}{$=};$-+$}{$}{$;}}^$}{$=}})=~m$.{\$}{\$}{\$}{ +\$=}}}}$g;

--
David Serrano

Comment on Easier than it seems
Download Code
Re: Easier than it seems
by turo (Friar) on May 08, 2006 at 12:39 UTC

    is a new ciphering method?, you made it at hand or was another script of yours who made it?

    oh my god! is chaotic!

    perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'
Re: Easier than it seems
by teamster_jr (Curate) on May 08, 2006 at 13:11 UTC
    I couldn't sleep last night and started deobfuscating this. This is very rough and i haven't investigated too closely how it actually does stuff - just ran perltidy, then dropped some basic substitutions and dropped prints in certain places but of course i could be wrong :)
    a
      (ie the third and fourth arguments with "e" in the middle)

      Yes. I wanted to insert some dummy code that used the other variables but forgot it :^). Now I think it was a good thing because otherwise that code would stand out among the rest. I also wanted to give the code a dollar shape, but didn't (and don't) know how.

      As for the generation of the code, turo, it wasn't automatic. Just search and replace here and there.

      --
      David Serrano

        no automation? ... umm, maybe you're the automated machine :-P
        good obfuscation though!

        cheers

        perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2014-12-28 22:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (183 votes), past polls