“Conocimientos Programación>Perl Programming

Cómo hacer un script Flood

2016/5/26
Inundaciones, o ataques de denegación de servicio , tratar de abrumar a los recursos del equipo y hacer que no estén disponibles para los usuarios. Por lo general , los ataques de los recursos de destino bombardear con solicitudes de comunicación a fin de que no pueden responder al tráfico auténtico o responder tan lentamente que parecen no disponible . Sin embargo , es posible que desee crear un script en Perl que genera una inundación a prueba los recursos bajo estrés. Usted puede inundar un Protocolo de datagramas (UDP ) puerto específico del usuario en un recurso de destino , ya sea con tamaños de paquetes fijos o variables . También puede generar un flujo constante controlada por lo que indica un ancho de banda de destino o el retraso entre paquetes . Cosas que necesitará editor de texto
Mostrar más instrucciones
1

Definir los parámetros de línea de comandos que desea utilizar. Por ejemplo , podría usar un parámetro de tiempo para especificar la duración de la inundación. Si se omite el parámetro , la inundación puede ser continua. Un ejemplo del uso de la secuencia de comandos Perl en la línea de comando podría ser el siguiente :

flood.pl - port puerto - size bytes - time segundos - kbps de ancho de banda - retardo ms

2

Incluir el " zócalo ", " Getopt :: Long" y "Time :: HiRes " módulos Perl en el script . El módulo de " Socket " carga el C socket.h define y estructura manipuladores . El " Getopt :: Long" módulo implementa la función getOptions (). La función lee la línea de comandos del programa, busca argumentos a juego , y si lo encuentra, establece la opción correspondiente en true . El "Time :: HiRes " módulo proporciona tiempo y contadores de tiempo de alta resolución, como la llamada al sistema " gettimeofday " . Por ejemplo :

uso Getopt :: Largo ;

Socket uso ;

Tiempo de servicio :: HiRes ;
3

Declarar las variables . Por ejemplo :

nuestra $ port = 0 ;

nuestra $ size = 0 ;

nuestra $ tiempo = 0 ;

nuestra $ pc = 0 ;

nuestra $ delay = 0 ;
4

Definir el tipo de las variables declaradas. Por ejemplo :
getOptions

(
" port = i"

= > \\ $ puerto , # puerto UDP utilizar

" size = i" = > \\ $ tamaño, tamaño #

"ancho de banda = i" paquete = > \\ $ bw, # cuánto ancho de banda que consumen

" tiempo = i" = > \\ $ , tiempo de ejecución #

" delay = f " = > \\ $ retardo , retardo #
5

código de comando por defecto de parámetros de línea entre paquetes y el uso. Por ejemplo , usted puede configurar el tamaño del paquete 256 bytes si el parámetro "ancho de banda " se utiliza sin el parámetro "tamaño" :

$ size = 256 si $ && $ bw tamaño ;
6

incluyen la impresión a la pantalla de lo que el guión está haciendo , por ejemplo : .

print " Inundación $ IP " . ( $ port $ port : "al azar ") . "puerto "

( $ size . ? . "$ size- byte ": " tamaño al azar ") "paquetes" ($ time " por $ tiempo segundos ": " "). " \\ n " ;
. < ? br>

Perl Programming
Cómo mantener una ventana enfocada en Perl /Tk
Cómo construir un módulo RPM Perl
Cómo incluir una PerlScript en un documento HTML
Cómo hacer un directorio en Perl con una secuencia
Cómo encontrar el Directorio de Perl en un servidor
PHP vs. Perl Performance
¿Cómo se instala Vix 1.5 Perl
Cómo eliminar un archivo en Perl
Conocimientos Informáticos © http://www.ordenador.online