Почему брутфорс на перле глохнет не пробрутив весь список мыл?

Файлик на 1 гб... большинство софта умрет от таких объемов, да пожалуй лучше было бы открывать хендл и читать построчно

 

Как это включить или куда вставить???

 

>> Как это включить или куда вставить???

Скачивешь модуль http://search.cpan.org/src/REATMON/IO-Socket-Socks-0.1/lib/IO/Socket/Socks.pm и помещаешь в ./lib/IO/Socket/ в дире, где установлен Perl. Затем переписываешь скрипт:
- добавляешь считывание соксов из файла в массив (этот модуль работает с socks5 только).
- заменяешь в скрипте "IO::Socket::INET" на "IO::Socket::Socks".
- там где создается объект сокета ("new IO::Socket::INET"), добавляешь еще параметры сокса - хост и порт:

Code:

Заместо:
          my $sock = new IO::Socket::INET
          (
          PeerAddr => 'vkontakte.ru',
             PeerPort => 80,
             PeerProto => 'tcp',
             TimeOut => 20
          ) or die "Can't connect\n";

делаем примерно так:

my $sock = new IO::Socket::Socks(ProxyAddr=>'proxy host',
                                  ProxyPort=>'proxy port',
                                  ConnectAddr=>'vkontakte.ru',
                                  ConnectPort=>80) or [тут_обработчик_отсутствия_коннекта];

http или https прокси реализовать можно легко и без дополнительных модулей - Kaimi написал уже...