clone4 has asked for the wisdom of the Perl Monks concerning the following question:
function Check(checksum) { var tab = " azertyuiopqsdfghjklmwxcvbnAZERTYUIOP +QSDFGHJKLMWXCVBN0123456789_$&#@"; var entry = document.forms[1].elements[0].value; var n = entry.length; var sum = 1; for(var i=0;i<n;i++) { var index = tab.indexOf(entry.substring(i,i+1)); sum = sum+(index*n*i)*(index*i*i); } if(sum==checksum) { window.location = entry+".php"; } else { alert("Wrong Pass!! Try Again."); } return false; }
$a = '@'; $b = '@'; $c = '@'; $e = '@'; $f = '@'; $g = '@'; $h = '@'; $j = '@'; $k = '@'; $l = '@'; $m = '@'; $p = '@'; $o = '@'; $r = '@'; $s = '@'; $t = '@'; $u = '@'; foreach $r ('a'..'z','A'..'Z','1'..'9','_','$','&','$','#','@',' ') { foreach $s ('a'..'z','A'..'Z','1'..'9','_','$','&','$','#','@',' ' +) { foreach $t ('a'..'z','A'..'Z','1'..'9','_','$','&','$','#','@' +,' ') { $tab = " azertyuiopqsdfghjkl +mwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN0123456789_\$\&\#\@"; $entry = $a . $b . $c . $o . $r . $s . $t; $n = length $entry; $sum = 1; $checksum = 88692589; for($i = 0; $i<$n; $i++) { $index1 = index ( $tab, $sub = su +bstr($entry, $i, 1)); $sum = $sum+($index1 * $n * $i)*($ +index1 * $i * $i); } print "$entry $sum $checksum\n"; if ($sum == $checksum) { print "Got one!\n"; print "password == $entry\n"; die; } } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Simple Bruteforcer not working
by samtregar (Abbot) on Mar 20, 2008 at 19:26 UTC | |
|
Re: Simple Bruteforcer not working
by grizzley (Chaplain) on Mar 20, 2008 at 19:37 UTC | |
|
Re: Simple Bruteforcer not working
by starbolin (Hermit) on Mar 20, 2008 at 20:35 UTC | |
by clone4 (Sexton) on Mar 25, 2008 at 11:29 UTC |