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));
|