Mensajes

Cierto cierto, en este code estan bien...pero en otros pones cosas como cirrosis xDDD...

xD xD xD no es cirrosis, es zirrosis, un grupo punk español...simplemente pongo esto para no poner los tipicos a,b,c,d....ademas, no son variabvles, eso eran puntos de error....

Salu2

Estaba aburrido, y, ahora que se Perl, me e puesto a buscar codigos en C y e enkontrado uno de Rojodos, de fuerza bruta, y e decidido pasarlo a Perl. Aki esta el resultado:

Código [Seleccionar] Expandir

system ("cls");
system ("color 18");
print "Script de Brute Force en Perl\n";
print "Inicialmente escrito en Java por CrashCool\n";
print "Luego traducido a C por Rojodos\n";
print "Y finalmente traducido a Perl por Hendrix\n";
print " \n";
print "El programa trata de encontrar 911ooo secuencialmente\n";
print "Se puede cambiar en el Codigo Fuente\n";
print " \n";
print "Pulsa intro para iniciar el proceso\n";
$res = <STDIN>;



@cadena = ("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
$longitud = @cadena;

@pass = ("9","1","1","o","o","o");

@bucle = ("","","","","","");

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

$timeini = "$hour:$min:$sec";

print " \n";
print "Proceso iniciado a las $timeini\n";
print " \n";
print "Crackeando...\n";


for ($a=0;$a<=$longitud;$a++) {
@bucle[0]= @cadena[a];
for ($b=0;$b<=$longitud;$b++) {
@bucle[1]= @cadena[b];
for ($c=0;$c<=$longitud;$c++) {
@bucle[2]= @cadena[d];
for ($d=0;$d<=$longitud;$d++) {
@bucle[3]= @cadena[d];
for ($e=0;$e<=$longitud;$e++) {
@bucle[4]= @cadena[e];
for ($f=0;$f<=$longitud;$f++) {
@bucle[5]= @cadena[b];
$comp = comparar(\@bucle, \@pass);
if ($comp ==1) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timefini = "$hour:$min:$sec";
print "Pass encontrada!! Proceso iniciado a las $timeini y terminado a las $timefini\n";
last;
last;
last;
last;
last;
last;
sleep 2;
}
}
}
}
}
}
}


sub comparar {
my ($primero, $segundo) = @_;
local $^W = 0;
return 0 unless @$primero == @$segundo;
for (my $i = 0; $i < @$primero; $i++) {
return 0 if $primero->[$i] ne $segundo->[$i];
}
return 1;
}



Lo e compilado y no da error....lo que pasa es que esto te viola la RAM..xD xD xD

Miradlo por encima y postear si enkontrais errores, ya que no e terminado de crackear la palabra....

Salu2

Te recomiendo que el nombre de las variables pongas nombres que tengan que ver con la funcion que desempeñan...no con cosas al hacer como wini, pini, chipiwini xD

desde mi parecer si le pone los nombres correctos
p = puerto
ini = inicial
pini = puerto inicial

p = puerto
fin = final
pfin = puerto final



salu2

xD xD xD xD exacto, es asi....

PD: muy bueno el tuto de ddiego xD

Seps, me base en esto, aunke komo dice Benru, ya hice uno en Batch y lo "traduci" a Perl.

Salu2 y Gracias....

tambien puedes usar la API

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long

kon el ejemplo anterior puedes ahcer otro archivo y seleccione la ruta del mp3 y luego haga esto:

Código [Seleccionar] Expandir

Shell "C:\tuarchivo.exe " & cd.filename

Si no sabes resolver le de la API mandame un IM y te pasare el kode de mi "PerlStart" (estaba cansado de tener que ejecutar mis archivos en perl kon la CMD y me hice esto, ejecuta la CMD y le pasa lso aprametros por mi....).

Salu2

[Editado:]

Ayer empece kon este lenguaje y me enganche.....es facilisimo de aprender, miren lo que e echo hoy:

Código [Seleccionar] Expandir

#Script escrito integramente por Hendrix  *
#******************************************
#
#
use IO::Socket;

system("cls");
system ("color 18");
system ("title Escaner de IP's aleatorias by Hendrix");
print "Bienvenidos al escaneador de IP's de Hendrix\n";
print " \n";
sleep 3;

#*************** Menu *********************************

menu:;
system("cls");
print "Elige una opcion:\n";
print " \n";
print "1. Escanear una IP con rango de puertos\n";
print "2. Escanear una IP aleatoria con rango de puertos\n";
print "3. Escanear Netbios\n";
print "4. Ver tu IP\n";
print "5. Salir\n";
$opcion=<STDIN>;
if ($opcion!=1 && $opcion!=2 && $opcion!=3 && $opcion!=4 && $opcion!=5) {
print "Introduce un valor que este entre lso numeros que hay en el menu\n";
print " \n";
print "Pulsa intro para continuar\n";
$res=<STDIN>;
goto menu;
}
if ($opcion==1) {
&primero
}
if ($opcion==2) {
&dos
}
if ($opcion==3) {
&tres
}
if ($opcion==4) {
&cinco
}
if ($opcion==5) {
&sis
}

#*************** Sub Primero *********************************

sub primero {
print "Introduce la IP: ";
$ip=<STDIN>;
chop $ip;
@ver = split(/\./,$ip);
if ($ver[0]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[1]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[2]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[3]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
print "Introduce el puerto de inicio: ";
$pini=<STDIN>;
chop $pipi;
print "Introduce el puerto final: ";
$pfin=<STDIN>;
chop $pfin;
print " \n";
&scaner;
}

#*************** Sub Cinco *********************************

sub cinco {
system("ipconfig > ip.txt");
open (doc, "ip.txt");
@lineas = <doc>;
$var=join("\n", grep { /Direcci/  }  @lineas);
@ver= split(":", $var);
print "Tu direccion IP:$ver[1]\n";
close(doc);
system ("del /F /Q ip.txt");
print "Pulsa intro para continuar\n";
$res=<STDIN>;
goto menu;
}

#*************** Sub Dos *********************************

sub dos {
system ("cls");
$ip1=int(rand(255));
$ip2=int(rand(255));
$ip3=int(rand(255));
$ip4=int(rand(255));
$ip="$ip1.$ip2.$ip3.$ip4\n";
chomp $ip;
print "Se escaneara esta IP: $ip\n";
print " \n";
print "Introduce el puerto de inicio: ";
$pini=<STDIN>;
chop $pipi;
print "Introduce el puerto final: ";
$pfin=<STDIN>;
chop $pfin;
print " \n";
&scaner;
}

#*************** Sub Scaner *********************************

sub scaner {
for ($poberts=$pini;$poberts<=$pfin;$poberts++)
{
print "Escaneando puerto $poberts\n";
print " \n";
$sock = IO::Socket::INET->new(PeerAddr => $ip, PeerPort => "$poberts", Proto => 'tcp');
if ($sock)   {
chomp $poberts;
print "- La IP $ip tiene el Puerto $poberts Abierto\n";
print " \n";
}
}
print "Finalizada la busqueda, pulsa intro para salir\n";
$res=<STDIN>;
goto menu;
}

#*************** Sub Tres *********************************

sub tres {
print "Introduce la IP: ";
$ip=<STDIN>;
chop $ip;
@ver = split(/\./,$ip);
if ($ver[0]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[1]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[2]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
if ($ver[3]>255) {
print "Los numeros de la IP no pueden superar el numero 255\n";
sleep 2;
goto menu;
}
print " \n";
print "Intentando NetBios\n";
system ("nbtstat -A $ip");
print " \n";
print "Pulsa intro para volver al menu\n";
$res=<STDIN>;
goto menu;
}

#*************** Sub Sis *********************************

sub sis {
system ("cls");
system ("color 0C");
print " \n";
print " \n";
print " \n";
print " \n";
print " \n";
print " \n";
print " \n";
print " \n";
print "       *************************************************************\n";
print "       *                                                           *\n";
print "       *                                                           *\n";
print "       *       Escaner de IP's escrito en Perl por Hendrix         *\n";
print "       *                                                           *\n";
print "       *                                                           *\n";
print "       *************************************************************\n";
sleep 3;
}

que els parece???

Funciona bastatne bien, yo tengo router y me detecto unos kuantos agujeros....xD xD xD voy a cerrar puertos....

Agur!!

Editado:

Alguien me puede dar algun soft para pasar los scripts de Perl a .exe???

Los modulos (yo e usado el de Sockets) se tienen que incluir en el ejectuable o ya vienen con Win???

Si ya vienen me are yo el compilador....

Salu2

Bien, hoy mismo e empezado kon este lenguaje y sinceramente me aprece facil puesto que "entra bien".

Tengo una duda, komo ago interactuar los scripts en Perl con el registro de Windows??? se que se hace kon algun komando, pero no se kual....

Gracais adelantadas....

Salu2

Es la primera vez que uso este comando, asi que kerria saber si hay alguna manera de contar las lineas que tiene un richtextbox.

Thank's.

Salu2

prueba asi:

Código [Seleccionar] Expandir

If IsNumeric(Text1.Text) = True Then
timer1.Enabled = True
Else
MsgBox "Introduce solo numeros"
End If

Salu2

Una manera de ahcer FW Bypass es la inyeccion de DLL's en otros procesos (procesos komo el IExplorer...). En VB lo veo chungo.

Lo de los servicios esta en el foro.

Salu2

Te lo postee aki: http://foro.elhacker.net/index.php/topic,138646.msg650845.html#msg650845

Hendrix., desde mi punto de vista no es de mala educación dar el código, ya que gracias a que me lo dieron lo entendí,

Cierto, pero se aprende mas buscandolo y kurrandotelo por ti mismo que no que te lo plasemn y ya, ademas, lo dije ironikamente....

Salu2