Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
 » 

[Perl] LocateIP 0.3


Páginas: [1]   Ir Abajo

Autor Tema: [Perl] LocateIP 0.3  (Leído 14 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Perl] LocateIP 0.3
« en: Enero 19, 2012, 05:27:40 pm »
La nueva version de este programa para buscar informacion sobre un ip.

Código: No puedes ver links Registrate o Login
#!usr/bin/perl
#LocateIP 0.3 (C) Doddy Hackman 2012

use LWP::UserAgent;
use IO::Socket;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

head();
if ( $ARGV[0] ) {
    start( $ARGV[0] );
}
else {
    sintax();
}
copyright();

sub start {
    print "\n[+] Target :  $_[0]\n";
    infocon( $_[0] );
}

sub sintax {
    print "\n[+] sintax : $0 <web>\n";
}

sub head {
    print q(



 @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@
 @     @    @  @    @   @      @    @         @  @    @
 @     @    @  @       @ @     @    @         @  @    @
 @     @    @  @       @ @     @    @         @  @    @
 @     @    @  @      @   @    @    @@@@      @  @@@@@
 @     @    @  @      @   @    @    @         @  @     
 @     @    @  @      @@@@@    @    @         @  @     
 @     @    @  @    @@     @   @    @         @  @     
 @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @     



);
}

sub copyright {
    print "\n\n== --(C) Doddy Hackman 2012 -- ==\n\n";
    exit(1);
}

sub infocon {
    my $target = shift;

    my $get    = gethostbyname($target);
    my $target = inet_ntoa($get);

    print "\n\n[+] Getting info\n\n\n";
    $total =
      "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
    $re = toma($total);

    if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] City : $2\n";
    }
    else {
        print "[-] Not Found\n";
        copyright();
    }
    if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] Country : $2\n";
    }
    if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] State or Region : $2\n";
    }

    print "\n\n[+] Getting Hosts\n\n\n";

    my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target );

    while ( $code =~ /whois\/(.*?)\">Whois/g ) {
        my $dns = $1;
        chomp $dns;
        print "[DNS] : $dns\n";
    }
}

sub toma {
    return $nave->get( $_[0] )->content;
}

# ¿ The End ?
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
2 Respuestas
442 Vistas 		Último mensaje Mayo 09, 2011, 10:18:35 am
por scout
0 Respuestas
219 Vistas 		Último mensaje Noviembre 03, 2010, 04:15:45 am
por zolo
0 Respuestas
28 Vistas 		Último mensaje Agosto 20, 2011, 12:37:11 am
por Doddy
0 Respuestas
19 Vistas 		Último mensaje Marzo 24, 2012, 07:53:18 pm
por Doddy


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal