Forensic Net Tools
Publicado por Felipe 13/01/2009
[ Hits: 6.757 ]
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
Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)
Script para Detectar rede Wireless
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Wifi não funciona no Aspire ES 15 com o Debian (9)
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta