Ecco un semplice bruter scrittoin perl che fa uso dei socket. Ovviamente by me

N.B.: funziona con un dizionario

fox91@debian:~$ cat dev/url_bruter.pl

#!/usr/bin/perl -w
#author:fox91
#20/03/2008
#simple url bruter
use IO::Socket;

$server = shift or die (“Usage: url_bruter.pl <website> <dictionary> \nExample: url_bruter.pl blacklight.gotdns.org diz.txt\n”);
$diz = shift or die (“Usage: url_bruter.pl <website> <dictionary> \nExample: url_bruter.pl blacklight.gotdns.org diz.txt\n”);

open (FILE, $diz);

while (my $line = <FILE>) {
my $sock = new IO::Socket::INET(
PeerHost => $server,
PeerPort => ‘80′,
Proto => ‘tcp’,
);
die “Socket not created: $!\n” unless $sock;
chomp $line;
$req=”GET /$line HTTP/1.0\n\n”;
print $sock $req;
$response=<$sock>;
if ($response=~ /200/) {
push(@found, “http://$server/$line\n”);
}
close($sock);
}

close (FILE);

if (@found) {
print “:D I’ve found these urls:\n @found”;
}
else {
print “Sorry! I’ve found nothing”;
}