ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
09:12:28 16/09/2019
¿No estas registrado?
Login: Clave:
3 Usuarios en línea: 0 registrados, 3 invitados.
Conéctate y verás los usuarios en línea
Tema: reverse-dns
    Responder
Todos Los Foros -> Perl / Phyton -> reverse-dns
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Ver último Post
reverse-dns

buenas, ps, este es bien entendible ya con el title xd. A mirar =D

CÓDIGO
#!/usr/bin/perl
#c0dex by s3cure _ hslteam.com

# Reverse DNS #

# Libs:
use strict;
use Net::DNS;
use Net::IP;

my $network=$ARGV[0> || die "[!> Usage: $0 ip\n";
my $res = Net::DNS::Resolver->new;
my $IP= new Net::IP($network) or die("[!> $network is valid?");

do
{
   my $target = join('.', reverse split(/\./, $IP->ip())).".in-addr.arpa";

   my $q = $res->query("$target", "response");

   if($q)
   {
      my $r = ($q->answer)[0>;
      if($r->type ne "[+> Response") { die "[!> Not response!"; }
      print $r->rdatastr."\n";
   }
} while (++$IP);
print "[+> .end\n";
$out=<STDIN>;



un salu2.


Creer que todo es genial para luego ver realidad.
07/01/2010 08:08:20 
kili4n
Maestro Nivel 2
Arreglando las imágenes

Mensajes: 459
Registrad@:
22/07/2008
Estado: Desconectad@
Ir Arriba
RE: reverse-dns

Podrias dar explicacion paso a paso del codigo? please :)


>>> SpazeMonkys! <<<
11/03/2010 23:29:52 
k!NgS0@d
Usuario espontáneo
Sin Imagen

Mensajes: 2
Registrad@:
18/08/2010
Estado: Desconectad@
Ir Arriba
RE: reverse-dns

Sii explica el codigo porfa man!! :D
18/08/2010 02:47:03 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com