Quote:
|
Originally Posted by borked
Well, I never said it was hard....  |
I finshed dinner so now:
Like I said; I only need one guess for a 3 char encrypted password.
Go here and create passwords or use crypt($passwd, $salt).
http://www.htaccesstools.com/htpasswd-generator/
Run script:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$alphadata = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ";
@one = split(//, $alphadata);
@two = @one;
@three = @one;
$passencrypted = "QVK7qHfRnSw3M";
$salt = substr($passencrypted, 0, 2);
print "salt = $salt<br>";
$a = 0;
foreach (@one) {
if ($a >= 80) {
print "abort<br>";
exit;
}
$b=0;
foreach(@two) {
$c = 0;
foreach (@three) {
$pw = "$one[$a]$two[$b]$three[$c]";
$check = crypt($pw, $salt);
if ($check eq $passencrypted) {
print "$pw - is a possible password<br>";
}
$c++;
}
$b++;
}
$a++;
}
print "Ended OK";
exit;
So much for encryption!