Foros del Web » Programación para mayores de 30 ;) » Programación General »

modificar codigo perl para conexion https

Estas en el tema de modificar codigo perl para conexion https en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 20/01/2018, 08:21
 
Fecha de Ingreso: enero-2011
Mensajes: 1.133
Antigüedad: 7 años, 4 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.
  #2 (permalink)  
Antiguo 20/01/2018, 12:30
Colaborador
 
Fecha de Ingreso: mayo-2006
Ubicación: Valladolid
Mensajes: 509
Antigüedad: 12 años
Puntos: 9
Respuesta: modificar codigo perl para conexion https

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

Código perl:
Ver original
  1. #!/usr/bin/perl
  2. #
  3. # Prueba de carga de peticiones SSL a un mismo host, que se pasa como argumento.
  4. #
  5. # Joaquín Ferrero. 20180120
  6. #
  7. use v5.10;
  8. use strict;
  9. use warnings;
  10.  
  11. use Net::SSLeay 'get_https';
  12.  
  13. my $host = $ARGV[0] // 'localhost';
  14.  
  15. for my $intento (1..100) {
  16.     my ($pagina, $respuesta, %cabeceras_respuesta) = get_https($host, 443, '/');
  17.  
  18.     #say "[$pagina]";
  19.  
  20.     say "Intento $intento: $respuesta";
  21.  
  22.     #use Data::Dumper;
  23.     #say Dumper \%cabeceras_respuesta;
  24. }
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
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 20/01/2018 a las 12:39



La zona horaria es GMT -6. Ahora son las 12:15.