The obfuscation may be trivial to the resident experts, but the way it turns out when run was worth the fun of writing this JAPH.
Here it is:
@l=split??,q?Kvtu bopuifs Qfsm ibdlfs.?;while(!$s){for($s=0;$s< @l;$s++){if(!$m[$s]){$y=$c[$s]=chr int rand(92)+28;$y=~ y?A-Za-z?B-ZAb-za?;$m[$s]=$l[$s]eq$y?$i:0}}print++$i,qq?\t?,@c,$/; $s=$_?$s:0for@m}
Enjoy!!!
Dave
"If I had my life to do over again, I'd be a plumber." -- Albert Einstein
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Brute Force JAPH
by ambrus (Abbot) on Oct 09, 2012 at 20:40 UTC |