Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

eval from heck

by krisahoch (Deacon)
on Aug 08, 2003 at 21:04 UTC ( #282313=obfuscated: print w/replies, xml ) Need Help??

$J=qw,34+40;117;79+36;(116);32;,;$s=sub{eval(shift())};#This is my eva +l @u=('a'..'z');$J.=qw:97;110;111;(116-0);104;101;114;(16*2);:;#from hel +l $s=sub{eval(shift())};$J.=qw:;112;101;114;108;32:;#JAPH. It isn't very $t=sub{my@e=@u;my$u=16;$t_=sub{"$e[$u+2]$e[$u]$e[++$u]$e[++$u+1] $_[0] +"} ;&$s(&$t_(shift()))};$e=sub{$t_=sub{"$u[&$t(4)]$u[7]$u[17] $_[0]"};#ha +- &$s(&$t_(shift()));};$J.=qw:;104;97;99;107;101;114:;$f=sub{$t_=sub#-rd {"$u[15]$u[17]$u[8]$u[13]$u[19]($_[0])"};&$s(&$t_(shift()));};#to figu +- $_=$g+=$s;$g=sub{$t_=sub{"$u[5]$u[14]$u[17](@_)"};&$s(&$t_(eval@_));} ;print (&$e(&$s($_)))for(split(/;/,$J));print "\n";#-re out at all;-)

Kristofer Hoch

Si vos can lego is, vos es super erudio

Replies are listed 'Best First'.
Re: eval from heck
by deliria (Chaplain) on Aug 10, 2003 at 14:22 UTC

    This japh made me curious, so well.. i just couldn't resist breaking it apart..

    !!! SPOILER !!!

      deliria,

      Well done! The second definition of $s was merely to throw a person off. Good job on the deobfuscation. You will get a ++ when I get more votes tomorrow.

      Kristofer Hoch

      Si vos can lego is, vos es super erudio

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (2)
As of 2022-05-19 03:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (71 votes). Check out past polls.

    Notices?