Generador de claves numericas con todas las combinaciones posibles??? (RESUELTO)

Iniciado por SuperDraco, 28 Junio 2010, 12:55 PM

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

Imprimir
Ir Abajo Páginas 1 2
Acciones del Usuario

Novlucker

#10
29 Junio 2010, 13:48 PM
Citarno se si me estaré liando un poco pero creo que con el metodo que deciis, no estarian estos numeros por ejemplo:

000900
Pero es que eso es problema de lógica :rolleyes: ... por ejemplo:
Código (vb) [Seleccionar]
For i=wscript.arguments(0) to wscript.arguments(1)
n = 0
Do Until Len(cstr(n+1)) > i
n = n+1
sn = cstr(n)
Do While Len(sn) < i
sn = "0" & sn
Loop
wscript.echo sn
Loop
Next

Va con dos parámetros, mínimo y máximo de caracteres
Código (bat) [Seleccionar]
c:\>cscript/nologo script.vbs 3 6 > diccionario.txt

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

SuperDraco

#11
29 Junio 2010, 14:27 PM Ultima modificación: 29 Junio 2010, 14:29 PM por pitoloko
Cita de: Novlucker en 29 Junio 2010, 13:48 PM
Citarno se si me estaré liando un poco pero creo que con el metodo que deciis, no estarian estos numeros por ejemplo:

000900
Pero es que eso es problema de lógica :rolleyes: ... por ejemplo:
Código (vb) [Seleccionar]
For i=wscript.arguments(0) to wscript.arguments(1)
n = 0
Do Until Len(cstr(n+1)) > i
n = n+1
sn = cstr(n)
Do While Len(sn) < i
sn = "0" & sn
Loop
wscript.echo sn
Loop
Next

Va con dos parámetros, mínimo y máximo de caracteres
Código (bat) [Seleccionar]
c:\>cscript/nologo script.vbs 3 6 > diccionario.txt

Saludos


siempre me salvas nov xD aunque un amigo me dijo otra forma y es la que intento usar:

Código (dos) [Seleccionar]

:Abrir

Set position=nircmd setcursor 860 750
set aceptar=nircmd setcursor 650 620
set aceptar2=nircmd setcursor 650 580


set /a cont=0
set /a cont1=0
set /a cont2=0
set /a cont3=0
set /a cont4=0
set /a cont5=0
set /a cont6=0
set /a cont7=0


set  NUM=9
:BUCLE1
:cont=0
sleep 1
sendkeys %cont7%
sendkeys %cont6%
sendkeys %cont5%
sendkeys %cont4%
sendkeys %cont3%
sendkeys %cont2%
sendkeys %cont1%
sendkeys %cont%
%position% & mouse leftclick
sleep 1
%aceptar% & mouse leftclick
sleep 1
%aceptar2% & mouse leftclick
sleep 1
%position% & mouse leftclick
set /a cont=cont+1
if %cont%==%NUM% (pause&goto:BUCLE2) ELSE (goto BUCLE1)


:BUCLE2
:cont1=0
set /a cont1=cont1+1
set /a cont=0
goto :BUCLE1
if %cont1%==%NUM% (pause&goto:BUCLE3) ELSE (goto BUCLE2)


:BUCLE3
:cont2=0
set /a cont2=cont2+1
set /a cont=0
set /a cont1=0
goto :BUCLE1
if %cont2%==%NUM% (pause&goto:BUCLE4) ELSE (goto BUCLE3)


:BUCLE4
:cont3=0
set /a cont3=cont3+1
set /a cont=0
set /a cont1=0
set /a cont2=0
goto :BUCLE1
if %cont3%==%NUM% (pause&goto:BUCLE5) ELSE (goto BUCLE4)

:BUCLE5
:cont4=0
set /a cont4=cont4+1
set /a cont=0
set /a cont1=0
set /a cont2=0
set /a cont3=0
goto :BUCLE1
if %cont4%==%NUM% (pause&goto:BUCLE6) ELSE (goto BUCLE5)

:BUCLE6
:cont5=0
set /a cont5=cont5+1
set /a cont=0
set /a cont1=0
set /a cont2=0
set /a cont3=0
set /a cont4=0
goto :BUCLE1
if %cont5%==%NUM% (pause&goto:BUCLE7) ELSE (goto BUCLE6)

:BUCLE7
:cont6=0
set /a cont6=cont6+1
set /a cont=0
set /a cont1=0
set /a cont2=0
set /a cont3=0
set /a cont4=0
set /a cont5=0
goto :BUCLE1
if %cont6%==%NUM% (pause&goto:BUCLE8) ELSE (goto BUCLE7)


:BUCLE8
:cont7=0
set /a cont7=cont7+1
set /a cont=0
set /a cont1=0
set /a cont2=0
set /a cont3=0
set /a cont4=0
set /a cont5=0
set /a cont6=0
goto :BUCLE1
if %cont7%==%NUM% (pause&goto:FINAL) ELSE (goto BUCLE8)


messagebox.exe "AbrePuertas" "Fin del proceso...  :)"


el problema es q solo escribe hasta 00000007, es como q no llega al bucle 8 y no sigue con las cifras :/ que hay mal?
No he vuelto, solo estoy de paso.

SuperDraco

#12
1 Julio 2010, 23:14 PM
Ya he pillado yo el tema de los bucles :D sería algo así, hasta llegar al bucle 8, así que tema RESUELTO:


Código (dos) [Seleccionar]





:Abrir
cls
Set log=".\log.txt"
Set position=nircmd setcursor 860 750
set aceptar=nircmd setcursor 650 620
set aceptar2=nircmd setcursor 650 580





:Celda1
set /a cont=0
set NUM=9

:bucleCelda1
sendkeys %cont%
echo "%cont%" >> %log%
%position% & mouse leftclick
%aceptar% & mouse leftclick
%aceptar2% & mouse leftclick
%position% & mouse leftclick

set /a cont=cont+1
if %cont%==%NUM% (goto:Final_celda_1) ELSE (goto bucleCelda1)


:Final_celda_1
sendkeys 9
echo "9" >> %log%
VER | date /T > date.BAT
TIME  [/T > time.BAT
ECHO SET TIME=%%3>CURRENT.BAT
CALL time.BAT
ECHO SET date=%%3>CURRENT2.BAT
DEL Time.BAT
DEL date.BAT
DEL CURRENT.BAT
DEL CURRENT2.BAT
ECHO+  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO Fin de la celda numero 1, a las %TIME% Del día %DATE%. Comenzando la siguiente celda...  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO+  >> %log%
Echo+
Goto:Celda2
__________________________________________________________________________________________________________________________________________________________



:Celda2
set /a cont=0
set /a cont1=0




set NUM=10
Set NUMFINAL=99

:bucleCelda2
sendkeys %cont1%
sendkeys %cont%
echo "%cont1%%cont%" >> %log%
set /a cont=cont+1
if %cont1%%cont%==%NUMFINAL% (goto:Final_celda_2)
if %cont%==%NUM% (goto:BUCLE2) ELSE (goto bucleCelda2)


:BUCLE2
set /a cont1=cont1+1
set /a cont=0
goto:bucleCelda2

:Final_celda_2
sendkeys 99
echo "99" >> %log%
VER | date /T > date.BAT
TIME  [/T > time.BAT
ECHO SET TIME=%%3>CURRENT.BAT
CALL time.BAT
ECHO SET date=%%3>CURRENT2.BAT
DEL Time.BAT
DEL date.BAT
DEL CURRENT.BAT
DEL CURRENT2.BAT
ECHO+  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO Fin de la celda numero 2, a las %TIME% Del día %DATE%. Comenzando la siguiente celda...  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO+  >> %log%
Echo+
Goto:Celda3
__________________________________________________________________________________________________________________________________________________________





sleep 3

Set log=".\log.txt"
Set position=nircmd setcursor 860 750
set aceptar=nircmd setcursor 650 620
set aceptar2=nircmd setcursor 650 580



set /a cont=0
set /a cont1=0
set /a cont2=0


set NUM=10
Set NUMFINAL=999
:bucleCelda3

sendkeys %cont2%
sendkeys %cont1%
sendkeys %cont%

echo "%cont2%%cont1%%cont%" >> %log%


set /a cont=cont+1
if %cont2%%cont1%%cont%==%NUMFINAL% (goto:Final_celda_3)
if %cont%==%NUM% (goto:BUCLE2) ELSE (goto :bucleCelda3)


:BUCLE2
set /a cont1=cont1+1
set /a cont=0
if %cont1%==%NUM% (goto:BUCLE3) ELSE (goto bucleCelda3)


:BUCLE3
set /a cont2=cont2+1
set /a cont=0
set /a cont1=0
if %cont2%==%NUM% (goto:BUCLE4) ELSE (goto bucleCelda3)

:Final_celda_3
sendkeys 999
echo "999" >> %log%
VER | date /T > date.BAT
TIME  [/T > time.BAT
ECHO SET TIME=%%3>CURRENT.BAT
CALL time.BAT
ECHO SET date=%%3>CURRENT2.BAT
DEL Time.BAT
DEL date.BAT
DEL CURRENT.BAT
DEL CURRENT2.BAT
ECHO+  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO Fin de la celda numero 3, a las %TIME% Del día %DATE%. Comenzando la siguiente celda...  >> %log%
ECHO ==========================================================================================================================================  >> %log%
ECHO+  >> %log%
Echo+
Goto:Celda4
__________________________________________________________________________________________________________________________________________________________



No he vuelto, solo estoy de paso.
Imprimir
Ir Arriba Páginas 1 2
Acciones del Usuario