#!/usr/bin/perl @z=('')x11;$k='5397969880949610291891037060746998929510499113';while($ +k=~m m(102|103|104|113|..)mg) {push(@l, $1);}@z=('')x eval($#z*2+1);for(0..scalar(@z)){$f.=chr(eval( +"$#z+1-$_+$l[$_]"));} $f=~s s(.{4})(.{7})(.{4})(.{6})s$1 $2 $3 $4sg;print$f;
SpaceAce
In reply to My first obf/JAPH by SpaceAce
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |