Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/01/2018, 09:21
azaz
 
Fecha de Ingreso: enero-2011
Mensajes: 1.150
Antigüedad: 13 años, 3 meses
Puntos: 10
modificar codigo perl para conexion https

acabo de instalar mod_evasive pero no puedo probar el codigo perl de ejemplo ya que la conexion a mi sitio web es por https y el codigo perl para probar evasive es con el puerto 80, no tengo ni idea de perl alguien me podria decir como poder conectarme a https.

#!/usr/bin/perl

Código perl:
Ver original
  1. # test.pl: small script to test mod_dosevasive's effectiveness
  2.  
  3. use IO::Socket;
  4. use strict;
  5.  
  6. for(0..100) {
  7.   my($response);
  8.   my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
  9.                                       PeerAddr=> "dominio.com:80");
  10.   if (! defined $SOCKET) { die $!; }
  11.   print $SOCKET "GET /?$_ HTTP/1.0\n\n";
  12.   $response = <$SOCKET>;
  13.   print $response;
  14.   close($SOCKET);
  15. }

de esta forma solo me aparece que se movio de http a https pero no se si realmente funciona.