Proxy exporter — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

12.05.2006, 00:09

jagga_man

Новичок

Регистрация: 31.03.2006

Сообщений: 5

Провел на форуме:
18298

Репутация: 0

Возможно тебя заинтересует реализация этой же идеи грабера проксей под Никсы на перле.

PHP код:


		
			
#!/usr/bin/perl -w



# Declare modules

use LWP::Simple;

use HTML::TableExtract;



# Local Variables

my $url_file   = "url.list";

my $proxy_file = "proxy.list";





open URL,  "<$url_file";

while (<URL>) {

foreach ($_) {

print "[+] Downloading raw proxy list: $_";

@html_string = get("$_");

}

foreach $html_string (@html_string) {

&parse_data($html_string);

}

}

close URL;



sub parse_data {

open OUT,  ">>$proxy_file";

($html_string) = @_;

print "[+] Parsing data...\n";

$te = new HTML::TableExtract( headers => [qw(Name Port)] );

$te->parse($html_string);

foreach $row ($te->rows($table)) {

 my ($addr, $port) = @$row;

 $addr =~ s/\s+//g;

 $port =~ s/\s+//g;

 if ($port =~ /\d+/) {

 print OUT "$addr:$port\n";

 }

} close OUT;

#$table = "null";

}