Hola se puede hacer un generador de caracteres + numericos + unicode y puedas decidir un largo de caracteres con varias filas de digitos generados
Caracteres me refiero a carcteres del abecedario ---> ABCDEFGHIJKLMNÑOPQRSTUVWXYZ
Numericos me refiero a carcteres SOLO numeros ----> 0123456789 o 9876543210 o 9876543210
Unicode me refiero a carcteres ascii solo estos ---> +><=?!|"@#~€¬()'{}[]¿¡,.-_*
ejemplo:
Bertini ---> Que pregunte eso o otra cosa parecida -----> Que longitud de X ? y después pida si quiere poner Unicode o no ? ---> Después que genere un archivo con varias contraseñas
Generador de Contraseña o Caracteres
Moderator: Flipeador
Generador de Contraseña o Caracteres
Re: Generador de Contraseña o Caracteres
Ejemplo básico:
Comandos y funciones que deberías leer: Chr, Ord, Random, SubStr, Loop's, InputBox...
Y Ternary operator.
Code: Select all
Longitud := 50
Contraseña := ""
Letras := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
MsgBox % Contraseña
Code: Select all
Longitud := 50
Contraseña := ""
Caracteres := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
. "0123456789"
. "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34)
Loop % Longitud
{
Random R, 1, % StrLen(Caracteres)
Contraseña .= SubStr(Caracteres, R, 1)
}
MsgBox % Contraseña
Y Ternary operator.
Re: Generador de Contraseña o Caracteres
Bertini ----> Me parece muy bien ahora estoy intentando que me envie a un documento con FileAppend pero tengo este problema que no me lo enviaFlipeador wrote:Ejemplo básico:Code: Select all
Longitud := 50 Contraseña := "" Letras := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" Digitos := "0123456789" Otros := "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34) Loop % Longitud { Random R, 0, 2 Str := R == 2 ? Letras : R ? Digitos : Otros Random R, 1, % StrLen(Str) Contraseña .= SubStr(Str, R, 1) } MsgBox % Contraseña
Comandos y funciones que deberías leer: Chr, Ord, Random, SubStr, Loop's, InputBox...Code: Select all
Longitud := 50 Contraseña := "" Caracteres := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" . "0123456789" . "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34) Loop % Longitud { Random R, 1, % StrLen(Caracteres) Contraseña .= SubStr(Caracteres, R, 1) } MsgBox % Contraseña
Y Ternary operator.
Code: Select all
Longitud := 50
Contraseña := ""
Caracteres := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
. "0123456789"
. "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34)
Loop % Longitud
{
Random R, 1, % StrLen(Caracteres)
Contraseña .= SubStr(Caracteres, R, 1)
}
MsgBox % Contraseña
FileAppend,`r`n, C:\Users\%username%\Desktop\Contraseñas.txt
Re: Generador de Contraseña o Caracteres
Bertini ---> Consegui una interfaz para añadir numero pero ahora no funciona el numeroBertini wrote:Bertini ----> Me parece muy bien ahora estoy intentando que me envie a un documento con FileAppend pero tengo este problema que no me lo enviaFlipeador wrote:Ejemplo básico:Code: Select all
Longitud := 50 Contraseña := "" Letras := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" Digitos := "0123456789" Otros := "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34) Loop % Longitud { Random R, 0, 2 Str := R == 2 ? Letras : R ? Digitos : Otros Random R, 1, % StrLen(Str) Contraseña .= SubStr(Str, R, 1) } MsgBox % Contraseña
Comandos y funciones que deberías leer: Chr, Ord, Random, SubStr, Loop's, InputBox...Code: Select all
Longitud := 50 Contraseña := "" Caracteres := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" . "0123456789" . "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34) Loop % Longitud { Random R, 1, % StrLen(Caracteres) Contraseña .= SubStr(Caracteres, R, 1) } MsgBox % Contraseña
Y Ternary operator.
">" Pensaba que a quí la redireción funcionabaCode: Select all
Longitud := 50 Contraseña := "" Caracteres := "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" . "0123456789" . "+><=?!|@#~€¬()'{}[]¿¡,.-_*" . Chr(34) Loop % Longitud { Random R, 1, % StrLen(Caracteres) Contraseña .= SubStr(Caracteres, R, 1) } MsgBox % Contraseña FileAppend,`r`n, C:\Users\%username%\Desktop\Contraseñas.txt
Code: Select all
InputBox, UserInput, Introduzca un número, Introduca un numero., , 340, 280
UserInput = Longitud
Longitud := 0 ;<----- No añade el numero que introduco
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := "+=|@#€(){}[],.-_*" . Chr(16)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
MsgBox % Contraseña
FileAppend, %Contraseña%,`r`n, C:\Users\%username%\Desktop\Contraseñas.txt > Contraseña <--- Esto sigue sin funcionar XD
Re: Generador de Contraseña o Caracteres
Code: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
Re: Generador de Contraseña o Caracteres
Bertini ---> Esba casi apunto de descibir de tantos intos que hice pero no se me ocurrio ese y tengo la venta habierta del link antes que me lo pasarasFlipeador wrote:https://autohotkey.com/docs/Variables.htm#ExpressionsCode: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280 ; Longitud := UserInput Contraseña := ""
Code: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := "+=|@#€(){}[],.-_*" . Chr(16)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
MsgBox % Contraseña
FileAppend, %Contraseña%,`r`n, C:\Users\%username%\Desktop\Contraseñas.txt > Contraseña <--- variable
Re: Generador de Contraseña o Caracteres
Bertini ---> Este si funciona como quiero 100% funcionableBertini wrote:Bertini ---> Esba casi apunto de descibir de tantos intos que hice pero no se me ocurrio ese y tengo la venta habierta del link antes que me lo pasarasFlipeador wrote:https://autohotkey.com/docs/Variables.htm#ExpressionsCode: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280 ; Longitud := UserInput Contraseña := ""
Bertini ---> Ahora tengo que mirar con introducir la variable en un documentoCode: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280 ; Longitud := UserInput Contraseña := "" Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ" Digitos := "0123456789" Otros := "+=|@#€(){}[],.-_*" . Chr(16) Loop % Longitud { Random R, 0, 2 Str := R == 2 ? Letras : R ? Digitos : Otros Random R, 1, % StrLen(Str) Contraseña .= SubStr(Str, R, 1) } MsgBox % Contraseña FileAppend, %Contraseña%,`r`n, C:\Users\%username%\Desktop\Contraseñas.txt > Contraseña <--- variable
Code: Select all
InputBox Longitud, Introduzca un numero, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := "+=|@#€(){}[],.-_*" . Chr(16)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
MsgBox % Contraseña
FileAppend, %Contraseña%, C:\Users\%username%\Desktop\Contraseñas.txt
FileAppend, `n, C:\Users\%username%\Desktop\Contraseñas.txt
Bertini ----> Ahora si se podria hacer en vez de solo generar una generara una 15 con el mismo tamaño escogido anterior mente.
Re: Generador de Contraseña o Caracteres
Bertini ---> Ahora me sale esto siempreFlipeador wrote:https://autohotkey.com/docs/Variables.htm#ExpressionsCode: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280 ; Longitud := UserInput Contraseña := ""
Code: Select all
NO SE PUEDE VER ESE CARACTER --> <--
Code: Select all
InputBox Longitud, Introduzca un numero, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := ".-*" . Chr(3)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
;MsgBox % Contraseña
FileAppend, %Contraseña%, C:\Users\%username%\Desktop\Contraseñas.txt , UTF-16
FileAppend, `n, C:\Users\%username%\Desktop\Contraseñas.txt , UTF-16
Re: Generador de Contraseña o Caracteres
No estoy en casa hasta el viernes asi que no puedo probar nada. ¿Que estas queriendo hacer con la función Chr?. Si no quieres el espacio simplemente quita esa función.
No es necesario poner dos FileAppend, puedes poner todo en uno, entones no tienes que abrir y cerrar el archivo dos veces para escritura.
También hay una variable A_Desktop incorporada para el escritorio, no es necesario que especifiques ls ruta de esa manera. La variable que estas usando username es una variable del sistema, establecida en el registro, no es de AHK, de hecho, si utilizas la directiva #NoEnv, esa variable estará en blanco (cadena vacía), debes usar A_UserName, que está incorporada.
No es necesario poner dos FileAppend, puedes poner todo en uno, entones no tienes que abrir y cerrar el archivo dos veces para escritura.
También hay una variable A_Desktop incorporada para el escritorio, no es necesario que especifiques ls ruta de esa manera. La variable que estas usando username es una variable del sistema, establecida en el registro, no es de AHK, de hecho, si utilizas la directiva #NoEnv, esa variable estará en blanco (cadena vacía), debes usar A_UserName, que está incorporada.
Re: Generador de Contraseña o Caracteres
Bertini ---> lo que te digo es que ese simbolo cuando lo escribo aca me sale en blanco y si lo habló con sumblime text me parece estoFlipeador wrote:No estoy en casa hasta el viernes asi que no puedo probar nada. ¿Que estas queriendo hacer con la función Chr?. Si no quieres el espacio simplemente quita esa función.
No es necesario poner dos FileAppend, puedes poner todo en uno, entones no tienes que abrir y cerrar el archivo dos veces para escritura.
También hay una variable A_Desktop incorporada para el escritorio, no es necesario que especifiques ls ruta de esa manera. La variable que estas usando username es una variable del sistema, establecida en el registro, no es de AHK, de hecho, si utilizas la directiva #NoEnv, esa variable estará en blanco (cadena vacía), debes usar A_UserName, que está incorporada.
1.- [img] [/img]
2.- [img] [/img]
Bertini ----> Ves lo que me sale ese caracter raror que está al principio de la primera fila y no lo pongo yo se pone solo
Code: Select all
InputBox Longitud, Introduzca un numero, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := ".-*" . Chr(3)
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
;MsgBox % Contraseña
FileAppend, %Contraseña%, A_Desktop\Contraseñas.txt , UTF-16 ; E puesto UTF-16 , UTF-8 y clusive llegado a poner 1250 que son los caracteres de windows en mi region y si ge igual
FileAppend, `n, A_Desktop\Contraseñas.txt , UTF-16
- Attachments
-
- Caracter que no está en el codigo
- error2.png (8.53 KiB) Viewed 3253 times
Re: Generador de Contraseña o Caracteres
Como ya te he dicho, prueba quitando Chr(3) en tu código.
Re: Generador de Contraseña o Caracteres
Flipeador wrote:Como ya te he dicho, prueba quitando Chr(3) en tu código.
Bertini ---> Lo equitado Chr(3)
Code: Select all
InputBox Longitud, Introduzca un numero, Introduca un numero., , 340, 280
;Longitud := UserInput
Contraseña := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Digitos := "0123456789"
Otros := "-*"
Loop % Longitud
{
Random R, 0, 2
Str := R == 2 ? Letras : R ? Digitos : Otros
Random R, 1, % StrLen(Str)
Contraseña .= SubStr(Str, R, 1)
}
;MsgBox % Contraseña
FileAppend, %Contraseña%, A_Desktop\Contraseñas.txt
FileAppend, `n, A_Desktop\Contraseñas.txt
Re: Generador de Contraseña o Caracteres
Bertini --> Ya lo conseguido
Code: Select all
Loop, 100
{
Longitud := 16
VarNombre := ""
Letras := "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Loop % Longitud
{
String := Letras
Random R, -1, % StrLen(String)
StrLen(String=Longitud)
VarNombre .= SubStr(String, R, 1)
}
;MsgBox % VarNombre
FileAppend, `r`n, C:\Users\%username%\Desktop\Nombres.txt
FileAppend, %VarNombre%, C:\Users\%username%\Desktop\Nombres.txt
}
return
Who is online
Users browsing this forum: No registered users and 23 guests