Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

ninja-joe's scratchpad

by ninja-joe (Monk)
on Jun 02, 2004 at 19:54 UTC ( #359691=scratchpad: print w/ replies, xml ) Need Help??

Okay guys, here's my first ever JAPH; got any tips for an obfuscation novice?
######################################## $f="73xx 42xxx12 x162xxxx 145x 153x 143x xx xx 141 x150 xxxx 40xx 154x 162xxxx 145x160 x40xxxx162 x145 xx 150 xxx 164x 157x 156 x141 xx 40x xxx x164 x163 x165xxxx 152 x42 x40 x164 x156 x151x162 xxx 160 ";; $e=~ s$^$ ######################################## chr(oct)$eg foreach(split(/\s?x+\s?/,$f) );eval($e);
Here is the newest obfuscation as of 05/06/04
###################################################################### +########## ########################## Digital Clock v1.0 ######################## +########## ###################################################################### +########## $m[0]='521122211132111132115111421142521132111142';$m[1]='153115211521 +133114133' .'114153115134113414113153115133115';$m[2]='15311521152131131131121315 +321515421' .'542311'. +'31115321' .'514321'. +'5';;$m[3] ='153115'. ''. ''. +'2115212'# .'113214'. ''. ''. +'1144115'# .'411515'. ''. ''. +'3115211'# .'321153'. +'11'.'54'# .'115';//; +;;;;$m[4]= '153215221522111332143213411542131432131113311532154115';//;;;$r=q$ _/ +\|$;$s=5;; for($k=0;$k<$s;$k++){$x=length($m[$k]);for($i=0;$i<$x;$i=$i+2){$n=subs +tr($m[$k], $i,1);$c=substr($m[$k],$i+1,1);$~[$k].=substr($r,$c-1,1)x$n;;;}}do{$_= +localtime( time);/.*(\d)(\d):(\d)(\d):(\d)(\d).*/;for($i=0;$i<5;$i++){print"\ec", +,qq$\075$x 45,qq{\012}if($i==0);print"\174\040",substr($~[$i],$1*5,5),"\040",subs +tr($~[$i], $2*5,5),(($i==2)?"\157\040":"\040"x2),(($i==3)?"\157\040":"\040"x2),su +bstr($~[$i ],$3*5,5),"\040",substr($~[$i],$4*5,5),,(($i==2)?"\157\040":"\040"x2), +,(($i==3)? qq{\157\040}:qq{\040}x2),(substr($~[$i],$5*5,5)),qq{\040},substr($~[$i +],$6*5,5), "\040\174","\012";print"\174\040","\040"x41,"\040\174","\012","\075"x4 +5,qq{\012} if($i==4);}}while(sleep(1.5));
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2014-10-21 19:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (106 votes), past polls