An script I wrote, which outputs Japh. It decrypts $x by multiplying 2 integers and the act like it is a binary number. The code isn't really exciting, but the way I encoded 'Japh' is kinda interesting.
$x = '3336703366667337000033670003' ;$d=sub {chr unpack('N',pack ( 'B32',substr(('0'x32).((shift) * (shift)),-32) )) ;};print ${ dx( $d, $x) }; sub dx{ while ( $_[1]=~/(\d{6})(\d{1})/g){$out .= &{ $_[0]}($1 ,$2); }\$out;}
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Play with numbers
by Daniel Mantovani (Novice) on Jul 06, 2009 at 03:13 UTC | |
by Anonymous Monk on Jul 06, 2009 at 13:53 UTC |
Back to
Obfuscated Code