$_="4a57a5522162a382a22514813154142a393a27a326a22172138417a326a2216221 +422243a251472352a35a326a221";$_=~s/a(.)/'1'x$1 /ge;@i=split(//,$_);$s=0;foreach(@i){($s==0)?{eval'$f=0 ;$m=0;for($n=2;$n<$_;$n++){$f=(!($_%$n))?1:$f} $l="";$s=($f==1)?1:2'}:{eval'($s==1)?{eval\'$l="0"x$_.$l; $s=2;$m=$m+$_;\'}:{eval\'($s==2)?{eval\\\'$l="1"x$_.$l;$s=1; $m=$m+$_\\\'}:japh\'}'};($m==5)?{eval'$s=0;print(pack("B8", "011".$l))'}:{eval'($m>5)?{eval\'$s=0;print(" ")\'}:japh'}}
In reply to Obsfucation with primes by Redaba
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |