Foro - Perl en Español

por **BigBear** » 2014-01-06 16:00 @708

Hola, estoy haciendo un script en Perl que se conecta a un canal IRC por socket, el tema es que todo anda bien pero cuando quiero leer las líneas del canal cuando se habla es cuando me da problemas. El tema es que la expresión regular funciona pero es como si deformara la variable; simplemente se muestra doblada o en blanco. El código es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 print $soquete "NICK $nick\r\n";
    print $soquete "USER $nick 1 1 1 1\r\n";
    print $soquete "JOIN $canal\r\n";
 
    print "[+] Online\n\n";
 
    while ( my $log = <$soquete> ) {
     chomp($log);
 
     if ( $log =~ m/:!crackit (.*)$/g ) {
     my $pagina = $1;
     print $pagina;
     }
 
    }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como ven, solo leo un comando pero el argumento tiene espacios raros que no sé cómo eliminar. Probé con chomp y reemplacé los \r\n de la variable $pagina, pero sigue dando errores.

¿ Alguien me puede ayudar ?

use strict;
use IO::Socket;
 
my $sock = IO::Socket::INET->new(
        PeerAddr => 'irc.freenode.net',
        PeerPort => '6667',
        Proto => 'tcp'
) or die "No se ha podido conectar con el servidor.";
 
 
print $sock "NICK Aceitunas\r\n";
print $sock "USER Aceitunas 1 1 1 1\r\n";
print $sock "JOIN #canal \r\n";
 
while (<$sock>)
{
        if (m/PRIVMSG/)
        {
                /:(.*)!(.*)\sPRIVMSG(.*)\s:(.*)/;
                print "$1 en canal $3 dice: $4\n";
        }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Probado en Freenode.net

por **BigBear** » 2014-01-07 09:25 @434

Mira esta porción de código. El tema es que crackit tiene que recibir un hash md5 y el segundo una URL pero por más que intente, crackit nunca recibe nada. Probé usando \/ como lo hice con panel y también con $ al final, pero no funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            if ( $log =~ m/:!crackit (.*)$/) {
 
                my $hash = $1;
 
                print $soquete "PRIVMSG $canal : [+] Working ...\r\n";
 
                my $re = crackit($hash);
                unless ( $re =~ /false01/ ) {
                    print $soquete "PRIVMSG $canal : [+] MD5 : $re\r\n";
                }
                else {
                    print $soquete "PRIVMSG $canal : [-] Hash not Found\r\n";
                }
 
 
            }
 
            if ( $log =~ m/:!panel (.*)\// ) {
 
                my $page = $1;
                chomp $page;
                print $soquete "PRIVMSG $canal : [+] Working ...\r\n";
                scan($page);
                print $soquete "PRIVMSG $canal : [+] Scan Finished\r\n";
                
            }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Como lo arreglo ?

por **explorer** » 2014-01-07 10:05 @462

¿Puedes poner un ejemplo de lo que contiene $log?

por **BigBear** » 2014-01-07 10:19 @471

Ya lo revisé un montón de veces y debería funcionar según el ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

:Doddy!Doddy@localhost PRIVMSG #locos :!help

:Doddy!Doddy@localhost PRIVMSG #locos :!crackit 098f6bcd4621d373cade4e832627b4f6Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **Aceitunas** » 2014-01-07 10:39 @485

Es muy parecido a lo que te deje arriba...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
 
my $var = ":[email protected] PRIVMSG #canal :!crackit XXX www.google.es";
 
$var =~ /:(.*)!(.*)\sPRIVMSG\s(.*)\s:(.*)\s(.*)\s(.*)/;
 
if ($4 == "!crackit") # $4 = comando enviado
{
    print "param1: $5\nparam2: $6\n"; # parametros pasados 
}
 
exit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2014-01-07 10:56 @497

Genial, ahora anda. Gracias, aceitunas.

Hablando de una conexión IRC tengo otra duda: tengo pensado usar un thread cada 60 segundos para que manda un mensaje al canal. El tema es que la función de thread va a perder la variable $soquete para la conexión y si lo hago en el while() mismo del código mostrado voy a atrasar todo el programa 60 segundos.

¿ Qué tendría que hacer ?

por **Aceitunas** » 2014-01-07 11:48 @533

¿Y por qué se va a perder la variable $sockete?

Yo haría algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# creo un hilo que cada 60 segundo envíe el mensaje
while (<$sockete>) # while que comprueba la conexión
{
    # Aquí compruebo que el socket esté conectado; si no, cierro el hilo que...
    # ...envía los mensajes y reconecto al canal irc
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es solo una idea.

Foro - Perl en Español

Duda con conexión con IRC

Duda con conexión con IRC

Publicidad

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

¿Quién está conectado?