Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse. - Mayo 16, 2008, 06:26:56
Boton Buscar
Inicio Ayuda Calendario Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Perl (Moderador: OzX)  |  Tema: Este script utilizando para la búsqueda RFI (Remote inclusión de archivo) en sit 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Este script utilizando para la búsqueda RFI (Remote inclusión de archivo) en sit  (Leído 49 veces)
S_e_YM_e_N
Visitante
« en: Abril 23, 2008, 02:59:33 »

i suprimido porque sólo quiero compartir con usted sólo para que le ayude a usted, sino sólo de hablar demasiado y hablando de cosas vacías i se suprime mi cuenta demasiado bye
« Última modificación: Abril 25, 2008, 08:26:42 por S_e_YM_e_N » En línea
OzX
Moderadores
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2013


foro.new-bytes.net


Ver Perfil WWW
« Respuesta #1 en: Abril 23, 2008, 07:39:06 »

Hi Bro.

Nuevamente, una opinion costructiva hacia tus Scripts.

- Parte del Script que Realmente hace el scan.

Citar
print "Scan Dir you want?\nDir= ";
$input = <stdin>;
chop ($input);
$dir = "/*";
$deep = 0;
while($deep != $taranacakdizin){
 @dosyalar = <$input$dir>;

foreach $dosya ( @dosyalar) {
if(-f $dosya){
print "Checking: " .$dosya . "\n";
open(MYINPUTFILE, "$dosya");
while(<MYINPUTFILE>)
 {

 my($line) = $_;

 chomp($line);
if(($line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) ||  ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
{
if(($line =~ /\$_GET/) || ($line =~ /\$_POST/) || ($line =~ /\$_REQUEST/)){

open(DAT,">>$sonucdosyasi") || die("File Can not Opened");
print DAT "<td>$dosya</td><td><b><font color=red>$line</b></font></td><tr>";
close(DAT);
} elsif($line =~ /^\/\//){
open(DAT,">>$sonucdosyasi") || die("File Can not Opened");
print DAT "<td>$dosya</td><td><font color=grey>$line</font></td><tr>";
close(DAT);
}
else {
open(DAT,">>$sonucdosyasi") || die("File Can not Opened");
print DAT "<td>$dosya</td><td>$line</td><tr>";
close(DAT);
}



Al Parte Mas Importante por lo que veo.

Citar
if(($line =~ m/include_once \$/i)
|| ($line =~ m/require_once \$/i)
|| ($line =~ m/include_once\(\$/i)
|| ($line =~ m/require_once\(\$/i)
|| ($line =~ m/require \$/i)
|| ($line =~ m/require\(\$/i)
||  ($line =~ m/require \$/i)
|| ($line =~ m/include \$/i)
||  ($line =~ m/include\(\$/i))

- Tipos de Peticion...
Citar
if(($line =~ /\$_GET/) || ($line =~ /\$_POST/) || ($line =~ /\$_REQUEST/)){


- De partida veo que es Local, osea si tu escribes un script y lo kieres revisar por "posibles" RFI:
buscando en sus lineas la lista de require...include.. y de los tipos de peticiones.

- Porque dificilmente sirve para Scanear una Web online, porque no tiene ningun nexo hacia internet, ningun modulo lwp, etc. o Socket Inclusive.

En lo Personal encuentro que sirve para ver las url que tienen include.. y te entrega la Url. y Nada mas.


- Pero¡ Podes mejorarlo totalmente.
. Sancando Tanto Code que realmente no sirve.
.Haciendo una Especie de dirccionario con todas los rfi conocidos, como los tipicos RFI SCAN.
----------------------------------------------------------------------------------------------------------------
.Podes Tambien hacer un Test de COnexion, provano con alguna shell.
Me explico.

Vos te conectas a la web, revisas el code, parsear todos los include..require_once que tenga,. y luego vas provando con la shell. si este te da 200 OK Cheesy es posible que pueda tener RFI.
pero lo logras, haciendole un Get a la web con la shell incluida, si este por ej en el <head> de la SHell pusiste tu Nick. nada mas lo buscar =~/, y si esta Cheesy , RFI; si no sigue provando con las otras Url.

Saludos¡



En línea


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Perl (Moderador: OzX)  |  Tema: Este script utilizando para la búsqueda RFI (Remote inclusión de archivo) en sit « anterior próximo »
Ir a:  
Novedades, Dudas, Comentarios Y Sugerencias, Top 100, Off-Topic, Revista E-Zine, Revista E-Zine, Sistemas operativos libres. , HacK GeneraL, Phreaking, Bug y Exploits, Networking & Wireless, Overclocking, Refrigeracion y demas, Hardware, Electronica Y Robotica, Hack para newbies, Todo Messenger, Troyanos y virus, Programacion, Programacion para webmasters, Software, Cracks & Serialz, P2p, Bittorrent, Elinks, Diseño Grafico, Juegos PC, Mp3, Multimedia, Peliculas Divx, Juegos, Humor y Adultos. (Diversion), Paginas Webs Recomendadas, Videos,


Zona-Musical Juegos online Juego Gratis10 Solucion Hosting Videos De Musica 1juegogratis Dragonjar
Noticias
 Juegos De Coche juegos gratis online juegos Los Foros De Sexe Gratuit Sexo Duro Tierra Messenger Trucos
Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC