modificar codigo perl para conexion https

[azaz]

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:

# test.pl: small script to test mod_dosevasive's effectiveness
 
use IO::Socket;
use strict;
 
for(0..100) {
  my($response);
  my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
                                      PeerAddr=> "dominio.com:80");
  if (! defined $SOCKET) { die $!; }
  print $SOCKET "GET /?$_ HTTP/1.0\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}
 

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

[jferrero]

Prueba con este código, que es más sencillo:

Código perl:

#!/usr/bin/perl
#
# Prueba de carga de peticiones SSL a un mismo host, que se pasa como argumento.
#
# Joaquín Ferrero. 20180120
#
use v5.10;
use strict;
use warnings;
 
use Net::SSLeay 'get_https';
 
my $host = $ARGV[0] // 'localhost';
 
for my $intento (1..100) {
    my ($pagina, $respuesta, %cabeceras_respuesta) = get_https($host, 443, '/');
 
    #say "[$pagina]";
 
    say "Intento $intento: $respuesta";
 
    #use Data::Dumper;
    #say Dumper \%cabeceras_respuesta;
}
 

Puedes ejecutarlo de forma directa, y entonces probará 'localhost', o puedes pasarle el nombre del dominio como primer argumento:

./test_SSL.PL mi.dominio.com