Traceroute e whois em Perl.

• Download tool.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
# Forensic Net Tools Public edition
# Version: 1.0
# By: Dr4k3 - c00kies crew
# irc.got2think.org #c00kies
# http://c0d3rs.tk
# http://botecounix.com.br
# Gretz: C00L3R (http://botecounix.com.br)
# for modules: http://cpan.org

use Net::Traceroute::PurePerl;
use Net::Whois::Raw;

sub regex_os(){$sis="$^O";
if ($sis eq "MSwin32"){ $cmd="cls"; system("$cmd");}
else { $cmd="clear"; system("$cmd"); }}


if(@ARGV < "2"){
regex_os();
print "Forensic Net Tools Public\n\n";
print "-t              traceroute  use: [-t] [host]\n";
print "-w              whois use: [-w] [host]\n\n";
print "-Simple forensic tool\n\n";
sleep 1; exit;}

$net_tool = @ARGV[0];
$host_ini = @ARGV[1];

if($net_tool eq "-t"){
$host= $host_ini;
regex_os();
header();
print "Tool:             [-t] Traceroute\n";
print "Host:             $host\n\n";   
    my $t = new Net::Traceroute::PurePerl(
             backend        => 'PurePerl',
             host           => $host,
             debug          => 0,
             max_ttl        => 48,
             query_timeout  => 10,
             packetlen      => 40,
             protocol       => 'icmp', # Or icmp,udp
        );
        $t->traceroute;
        $t->pretty_print;
     exit;
}

if($net_tool eq "-w"){
$site= $host_ini;
header();
print "Tool:             [-w] Whois\n";
print "Host:             $site\n\n";   
      $dominfo = whois($site);
    print "$dominfo\n";
    exit;
}

sub header(){
print q{
--------------------[FNT]----------------------
----------Forensic-Net-Tools-Public------------
-----------By:-Dr4k3---c00kies-Crew------------
----------------Gretz:C00L3R-------------------

};
}

# END
# c00kies crew

Web Fuzzer em Perl

Carregando automaticamente wireless via ndiswrapper

Instalação automatizada do Squid 2.5 STABLE14

Importação de IPs do Whatsapp como Objeto do Zentyal

Script para Detectar rede Wireless

Nenhum comentário foi encontrado.