more useful options | |
PerlMonks |
very very simple...by smokemachine (Hermit) |
on Jan 05, 2006 at 01:18 UTC ( [id://521077]=obfuscated: print w/replies, xml ) | Need Help?? |
perl -e '$,.=sprintf "%.5b", $_ foreach @ARGV;print chr oct "0b$1" while $,=~s/^([0|1]{7})//' 18 23 11 25 30 17 0 24 14 29 23 30 19 8 25 15 4 16 10 3 5 28 22 24 16 9 3 1 24 30 23 18 30 8 10
Back to
Obfuscated Code
|
|