comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl Tk] Fuzz DNS

  • 0 Respuestas
  • 940 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:00:56 pm »
Hola a todos , aca les dejo un programa en tk para poder buscar las
dns de un host , todos los resultados se guardan en un archivo de texto

Imagen del programa en accion



Código: Perl
  1. #!usr/bin/perl
  2. #Brute DNS (C) Doddy Hackman 2011
  3.  
  4.  
  5. @dns = ('www','www1','www2','www3','ftp','ns','mail','3com','aix','apache','back','bind','boreder','bsd','business','chains','cisco','content','corporate','cpv','dns','domino','dominoserver','download','e-mail','e-safe','email','esafe','external','extranet','firebox','firewall','front','fw','fw0','fwe','fw-1','firew','gate','gatekeeper','gateway','gauntlet','group','help','hop','hp','hpjet','hpux','http','https','hub','ibm','ids','info','inside','internal','internet','intranet','ipfw','irix','jet','list','lotus','lotusdomino','lotusnotes','lotusserver','mailfeed','mailgate','mailgateway','mailgroup','mailhost','maillist','mailpop','mailrelay','mimesweeper','ms','msproxy','mx','nameserver','news','newsdesk','newsfeed','newsgroup','newsroom','newsserver','nntp','notes','noteserver','notesserver','nt','outside','pix','pop','pop3','pophost','popmail','popserver','print','printer','private','proxy','proxyserver','public','qpop','raptor','read','redcreek','redhat','route','router','scanner','screen','screening','secure','seek','smail','smap','smtp','smtpgateway','smtpgw','solaris','sonic','spool','squid','sun','sunos','suse','switch','transfer','trend','trendmicro','vlan','vpn','wall','web','webmail','webserver','webswitch','win2000','win2k','upload','file','fileserver','storage','backup','share','core','gw','wingate','main','noc','home','radius','security','access','dmz','domain','sql','mysql','mssql','postgres','db','database','imail','imap','exchange','sendmail','louts','test','logs','stage','staging','dev','devel','ppp','chat','irc','eng','admin','unix','linux','windows','apple','hp-ux','bigip','pc');
  6.  
  7. use Tk;
  8. use Tk::ROText;
  9. use LWP::UserAgent;
  10.  
  11. if ($^O eq 'MSWin32') {
  12. use Win32::Console;
  13. Win32::Console::Free();
  14. }
  15.  
  16. my $nave = LWP::UserAgent->new;
  17. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  18. $nave->timeout(5);
  19.  
  20. my $new = MainWindow->new();
  21. $new->geometry("337x330+50+50");
  22. $new->title("Brute DNS (C) Doddy Hackman 2011");
  23. $new->resizable(0,0);
  24.  
  25. $new->Label(-text=>"Page : ",-font=>"Impact2")->place(-x=>"10",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"10");
  26. my $target = $new->Entry(-width=>30)->place(-x=>"70",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"14");
  27. $new->Label(-text=>"Output",-font=>"Impact1")->place(-x=>140,-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>60);
  28.  
  29. my $console = $new->ROText(-width=>43,-height=>15)->place(-x=>15,-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>100);
  30.  
  31. $new->Button(-text=>"Scan",-command=>\&buscar,-width=>8)->place(-x=>260,-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>11);
  32.  
  33. MainLoop;
  34.  
  35. sub buscar {
  36. $console->No tienes permisos para ver links. Registrate o Entra con tu cuenta("0.1","end");
  37. my $host = $target->get;
  38.  
  39. $console->insert("end","\n[*] Searching DNS to ".$host.".....\n\n");
  40. for my $path(@dns) {
  41. $new->update;
  42. $code = toma("http://".$path.".".$host);
  43. if ($code->is_success) {
  44. No tienes permisos para ver links. Registrate o Entra con tu cuenta(@found,"http://".$path.".".$host);
  45. }
  46. }
  47. $total = No tienes permisos para ver links. Registrate o Entra con tu cuenta(@found);
  48. if ($total eq "0") {
  49. $console->insert("end","[-] No found any dns");
  50. } else {
  51. $console->insert("end","[+] DNS found : ".No tienes permisos para ver links. Registrate o Entra con tu cuenta(@found)."\n\n");
  52. for(@found) {
  53. $console->insert("end","[Link] : ".$_."\n");
  54. savefile("dns-found.txt",$_);
  55. }
  56. }
  57. $console->insert("end","\n\n[+] Finish\n\n");
  58. }
  59.  
  60. sub salir { No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;}
  61.  
  62. sub toma {
  63. No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get($_[0]);
  64. }
  65.  
  66. sub savefile {
  67. No tienes permisos para ver links. Registrate o Entra con tu cuenta (SAVE,">>logs/".$_[0]);
  68. No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1]."\n";
  69. No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  70. }
  71.  
  72. # ¿ The End ?
  73.  
« Última modificación: Julio 17, 2011, 03:43:41 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3236
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1140
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1667
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d