Foro - Perl en Español

por **jlopezn** » 2013-09-25 20:03 @877

Hola.

Tengo el siguiente problema, agradeceré cualquier cooperación.

Descripción del entorno:

+ Windows 7 Pro 64
+ StrawberryPerl

Al Perl he agregado los siguientes módulos:

+ Net::DNS
+ PAR::Packer

Tengo un script que al ejecutarlo directamente con perl efectúa la labor sin inconvenientes.

Lamentablemente, después de compilarlo con pp, el ejecutable resultante no actúa tal como al ejecutarlo con Perl.

Este es el script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl -w
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->udp_timeout(5);
my $problems = "";
my $incalol  = 0;
my $listaips = "";
@blacklists = (
    "b.barracudacentral.org",           "bl.spamcop.net",
    "ips.backscatterer.org",            "rhsbl.ahbl.org",
    "backscatter.spameatingmonkey.net", "bl.spameatingmonkey.net",
    "uribl.spameatingmonkey.net",       "urired.spameatingmonkey.net",
    "fresh.spameatingmonkey.net",       "badconf.rhsbl.sorbs.net",
    "new.spam.dnsbl.sorbs.net",         "cbl.abuseat.org",
    "pbl.spamhaus.org"
);
for $arg (@ARGV) {
    $arg =~ m/(\d+)\.(\d+)\.(\d+)\.(\d+)/;
    $arginv = $4 . "." . $3 . "." . $2 . "." . $1;
    $listaips .= " " . $arg;
    for $bl (@blacklists) {
        my $query = $res->search( $arginv . "." . $bl );
 
        if ($query) {
 
            $reason = $res->query( $arginv . "." . $bl, 'TXT' );
            $problems .= "FOUND $arg in " . $bl . "!! (reason: ";
            for $txt ( $reason->answer ) {
                $problems .= $txt->rdatastr if ( $txt->type eq "TXT" );
            }
            $problems .= ");; ";
            $incalol++;
        }
    }
}
if ( $incalol != 0 ) {
    print $problems. "\n";
    exit 2;
}
print "OK - $listaips checked, is not blacklisted\n";
exit 0;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Utilizo la siguiente instrucción para compilar:

pp -v -o c:\Temp\BL\check_bl.exe c:\Temp\BL\check_bl

Con Perl:

Esta instrucción para ejecutarlo con perl:

perl c:\temp\bl\check_bl 37.215.241.150

Y arroja el siguiente resultado:

FOUND 37.215.241.150 in ips.backscatterer.org!! (reason: "Sorry 37.215.241.150 is blacklisted at http://www.backscattere
r.org/?ip=37.215.241.150");; FOUND 37.215.241.150 in cbl.abuseat.org!! (reason: "Blocked - see http://cbl.abuseat.org/lo
okup.cgi?ip=37.215.241.150");; FOUND 88.165.118.202 in b.barracudacentral.org!! (reason: "http://www.barracudanetworks.c
om/reputation/?pr=1&ip=88.165.118.202");; FOUND 88.165.118.202 in bl.spamcop.net!! (reason: "Blocked - see http://www.sp
amcop.net/bl.shtml?88.165.118.202");; FOUND 88.165.118.202 in new.spam.dnsbl.sorbs.net!! (reason: "Currently Sending Spa
m See: http://www.sorbs.net/lookup.shtml?88.165.118.202");; FOUND 88.165.118.202 in cbl.abuseat.org!! (reason: "Blocked
- see http://cbl.abuseat.org/lookup.cgi?ip=88.165.118.202");;

Al ejecutar el .exe resultado de compilar:

OK - 37.215.241.150 checked, is not blacklisted

La idea es utilizar este ejecutable desde una máquina Windows 32 Bits sin la necesidad de utilizar perl directamente, de ahí la necesidad del ejecutable.

Agradeceré cualquier orientación.

Javier.

Bienvenido a los foros de Perl en Español, jlopezn.

El método search() devuelve undef en caso de no obtener respuesta. Por eso no te devuelve ningún dato: no ha conseguido ejecutar Net::DNS::Resolver en ningún caso. El porqué lo hace así, lo desconozco.

Quizás, el Windows 7 está impidiendo el acceso a la red, de ese ejecutable.

Un detalle más: Net::DNS::Resolve depende de unos módulos principales, y según el manual de pp, se puede usar -M para indicar módulos extra que deben ser incluidos. Se supone que pp ya calcula las dependencias por sí mismo, pero a lo mejor algún módulo no lo carga.

por **jlopezn** » 2013-09-26 13:58 @624

Gracias, explorer, por responder tan pronto.

El problema se produce al compilarlo entonces.

Seguí tu consejo y compilé nuevamente, esta vez con la siguiente instrucción:

pp -v -o c:\Temp\BL\check_bl.exe c:\Temp\BL\check_bl -MNet:DNS -MNet:DNS:Resolver

y el ejecutable resultante nuevamente no devuelve el resultado esperado.

Entonces el problema se da al utilizar el resolver compilado puesto que al ejecutarlo con Perl directamente sí funciona.

¿¿¿Alguna idea adicional???

Otra vez, agradezco tu ayuda.

por **explorer** » 2013-09-26 14:08 @630

Pues... no sé... no uso Windows desde hace muchos años, pero en otros casos, el problema ha venido del cortafuegos de Windows, que impide el acceso externo del ejecutable.

Como tienes las fuentes disponibles, puedes poner print() para saber qué está haciendo, paso a paso.

Foro - Perl en Español

Ejecutable hecho con pp falla

Ejecutable hecho con pp falla

Publicidad

Re: Ejecutable hecho con pp falla

Re: Ejecutable hecho con pp falla

Re: Ejecutable hecho con pp falla

¿Quién está conectado?