3. [Perl Tk] Fuzz DNS
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl Tk] Fuzz DNS

  • 0 Respuestas
  • 1322 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl Tk] Fuzz DNS

  • 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",-y=>"10");
  26. my $target = $new->Entry(-width=>30)->place(-x=>"70",-y=>"14");
  27. $new->Label(-text=>"Output",-font=>"Impact1")->place(-x=>140,-y=>60);
  28.  
  29. my $console = $new->ROText(-width=>43,-height=>15)->place(-x=>15,-y=>100);
  30.  
  31. $new->Button(-text=>"Scan",-command=>\&buscar,-width=><img src="https://underc0de.org/foro/Smileys/default/cool.gif" alt="8&#41;" title="Cool" class="smiley" />->place(-x=>260,-y=>11);
  32.  
  33. MainLoop;
  34.  
  35. sub buscar {
  36. $console->delete("0.1","end");
  37. my $host = $target->get;
  38.  
  39. $console->insert("end","\n<ul class="bbc_list"><li type="disc"> Searching DNS to ".$host.".....\n\n");[/li][/list]
  40. for my $path(@dns) {
  41. $new->update;
  42. $code = toma("http://".$path.".".$host);
  43. if ($code->is_success) {
  44. push(@found,"http://".$path.".".$host);
  45. }
  46. }
  47. $total = int(@found);
  48. if ($total eq "0") {
  49. $console->insert("end","[-] No found any dns");
  50. } else {
  51. $console->insert("end","</li><li type="square"> DNS found : ".int(@found)."\n\n"); [/li][/list]
  52. for(@found) {
  53. $console->insert("end","[Link] : ".$_."\n");
  54. savefile("dns-found.txt",$_);
  55. }
  56. }
  57. $console->insert("end","\n\n</li><li type="square"> Finish\n\n");[/li][/list]
  58. }
  59.  
  60. sub salir { exit 1;}
  61.  
  62. sub toma {
  63. return $nave->get($_[0]);
  64. }
  65.  
  66. sub savefile {
  67. open (SAVE,">>logs/".$_[0]);
  68. print SAVE $_[1]."\n";
  69. close SAVE;
  70. }
  71.  
  72. # ¿ The End ?
  73.  
« Última modificación: Julio 17, 2011, 03:43:41 am por Sthefano02 »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 5358 		Ú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: 3488 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

 Respuestas: 0
Vistas: 4410 		Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 2623 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 2611 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX