4 # This program is copyright Alec Muffett 1997. The author disclaims all
5 # responsibility or liability with respect to it's usage or its effect
6 # upon hardware or computer systems, and maintains copyright as set out
7 # in the "LICENCE" document which accompanies distributions of Crack v5.0
22 for ($i = 0; $i <= $#set; $i++)
24 $stack[$depth] = $set[$i];
33 $perm = join(" ", sort(keys(%output)));
43 @maps = ([ '/$s$s', '/0s0o', '/2s2a', '/3s3e', '/5s5s', '/1s1i', '/4s4a' ],
44 [ '/$s$s', '/0s0o', '/2s2a', '/3s3e', '/5s5s', '/1s1i', '/4s4h' ],
45 [ '/$s$s', '/0s0o', '/2s2a', '/3s3e', '/5s5s', '/1s1l', '/4s4a' ],
46 [ '/$s$s', '/0s0o', '/2s2a', '/3s3e', '/5s5s', '/1s1l', '/4s4h' ]);
50 # why be elegant when you can use brute force? moreover, it's easier
51 # to think brute-force at 1am in the morning, and leaves you with time
56 foreach $perm (sort(keys(%perms)))
60 foreach $i (split(" ", $perm))