Forensic Net Tools
Publicado por Felipe 13/01/2009
[ Hits: 6.669 ]
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
Importação de IPs do Whatsapp como Objeto do Zentyal
Enviando notificações do Nagios para o MSN
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Servidor Samba 4.15.13 AD-DC (3)
Não consigo atualizar minha GPU (0)
Sistema da Coréia do Norte - Red Star OS (56)