Forensic Net Tools
Publicado por Felipe 13/01/2009
[ Hits: 6.909 ]
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
Instalação automatizada do Squid 2.5 STABLE14
Carregando automaticamente wireless via ndiswrapper
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (9)
Problema ao atualizar archlinux nvidia [RESOLVIDO] (3)