Утилита для проверки сокс5-серверов

держи бесплатно:

my %SOCKS5_METHODS = (
        0 => "no authentication required",
        1 => "GSSAPI",
        2 => "username/password",
        255 => "no acceptable methods",
);

my %SOCKS5_CONNECT_RESPONSES = (
        0 => "succeeded",
        1 => "general SOCKS server failure",
        2 => "connection not allowed by ruleset",
        3 => "Network unreachable",
        4 => "Host unreachable",
        5 => "Connection refused",
        6 => "TTL expired",
        7 => "Command not supported",
        8 => "Address type not supported",
);

sub proxy_test_socks5 {
        my $sock = shift;
        my $server = shift;
        my($mssg, $repcode, $repmssg);
        $mssg = pack("CCC", 5, 1, 0);
        wrsock($sock, $mssg);
        $mssg = rdsock($sock, -nbytes => 2)
                or return 0;
        $repcode = (unpack("C*", $mssg))[1];
        $repmssg = $SOCKS5_METHODS{$repcode}
                || "unknown or reserved method type";
        return 0 unless ($repcode == 0);
        $mssg = pack("CCCCa4n", 5, 1, 0, 1, inet_aton($server), $port);
        wrsock($sock, $mssg);
        $mssg = rdsock($sock, -nbytes => 10)
                or return 0;
        $repcode = (unpack("C*", $mssg))[1];
        $repmssg = $SOCKS5_CONNECT_RESPONSES{$repcode}
                || "unknown or reserved reply code";
        return 0 unless ($repcode == 0);
        search_for_some_message($sock);
        return 1;
}

Барисыч! В натуре, не сбивай рынок! Можно ведь было и продать!

Да Борисыч нехорошо ты поступил. Может кто из регионов удалённо 2 зарплаты срубить мог. А так у его детей вместо ананаса на новый год будут апельсины, а у жены вместо дикой орхидеи китайская хрень.

Виндузятники в этом смысле отличаютя большей ушлостью. И за пиво не работают.

И вообще пора держать марку !!!