• Publicidad

Múltiples sockets simultáneos

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Notapor explorer » 2007-10-20 23:41 @028

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl
# getservertype2.pl - a forking version
use IO::Socket;
use strict;
use warnings;

$|=1;

my $sitio = '127.0.0.1';
my $n = 5;

my @hosts = map { $sitio } 1 .. $n;

print "Iniciando...\n";

sub doit {

    my $server = shift;
    print "Conectado al $server\n";

    my $sock
        =  new IO::Socket::INET(
               PeerAddr => $server,
               PeerPort => 80,
               Proto    => 'tcp',
           )
        or die "$!\n"
        ;

    print $sock "Prueba";

    while ( <$sock> ) {
        if (/^Server:\s*(.*)/) {
            print "$server: $1\n";
            last;
        }
    }
}

for ( @hosts ) {

    next if my $kid = fork;  # el padre sigue

    die "fork: $!" unless defined $kid;

    doit $_;

    exit;   # el hijo muere
}

"muerte!" while wait != -1;  # esperamos a todos los muertos

print "Terminado.\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Publicidad

Notapor zkizzik » 2007-10-21 15:41 @695

Me ha resultado todo muy bién... ahora quiero implementarle un spoof de ip source :P

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  use Net::RawIP;
  $n = Net::RawIP->new;
  $n->set({
            ip  => {
                    saddr => '200.200.200.200',
                    daddr => '127.0.0.1',
                    },
            tcp => {
                    source => 200,
                    dest   => 80,
                    psh    => 1,
                    syn    => 1,
                    },
         });
  $n->send;
  $n->ethnew("eth0");
  $n->ethset(source => '200.200.200.200', dest =>'127.0.0.1');    
  $n->ethsend;
  $p = $n->pcapinit("eth0", "dst port 21", 1500, 30);
  $f = dump_open($p, "/home/yan/log");
  loop($p, 10, \&dump, $f);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Me dice que necesito la librería RawIP.pm
Código: Seleccionar todo
yan@Lola:~/Desktop$ perl ./spoof.pl
Can't locate Net/RawIP.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./spoof.pl line 1.
BEGIN failed--compilation aborted at ./spoof.pl line 1.
yan@Lola:~/Desktop$


La descargué pero no pude importarla porque no me deja cambiar los permisos :oops: Ojalá que sea la última ves que los molesto porque es muy vergonzoso no saber mucho del tema.

Lo tengo descargado junto a un directorio con el mismo nombre de la librería.
zkizzik
Perlero nuevo
Perlero nuevo
 
Mensajes: 18
Registrado: 2007-10-15 18:26 @810

Notapor explorer » 2007-10-21 20:06 @879

¿Qué significa eso de que no pudiste importarla porque no te deja cambiar los permisos?

¿Puedes volcar el error aquí?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor zkizzik » 2007-10-21 21:25 @934

Error durante la copia a «/usr/lib/perl/5.8.8».
No tiene permisos para escribir en esta carpeta.

Intento dar permisos de sobreescritura al grupo root pero no se puede, por defecto no te da permisos aún desde root ni subiendo de directorio.
zkizzik
Perlero nuevo
Perlero nuevo
 
Mensajes: 18
Registrado: 2007-10-15 18:26 @810

Notapor explorer » 2007-10-22 03:23 @182

¿Y la carpeta /usr/lib/perl/5.8.8 existe? Porque es el único fallo que se me ocurre, salvo que tenga activado algún acl en ese directorio.

Siendo root, debería dejar hacer 'casi' todo.

¿Usas el comando cpan para instalarlo?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Anterior

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados

cron