Forensic Net Tools
Publicado por Felipe 13/01/2009
[ Hits: 6.652 ]
Homepage: www.dr4k3.co.cc
Traceroute e whois em Perl.
#!/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
Enviando notificações do Nagios para o MSN
Script para Detectar rede Wireless
SiteCheckSMS - Monitore seu website e receba alertas por SMS
Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (1)
Criar um script para testar pen drive (5)
Problema com alias usando locate (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba