Forensic Net Tools

Publicado por Felipe 13/01/2009

[ Hits: 6.757 ]

Homepage: www.dr4k3.co.cc

Download tool.pl




Traceroute e whois em Perl.

  



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

Scripts recomendados

Servidor remoto de ps aux

Instalação automatizada do Squid 2.5 STABLE14

R4tz - Portscan basicão

Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)

Script para Detectar rede Wireless


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts