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

SiteCheckSMS - Monitore seu website e receba alertas por SMS

UDP flood em Perl!

CRIAR CBQ

Carregando automaticamente wireless via ndiswrapper

Servidor remoto de ps aux

Nenhum comentário foi encontrado.