Page 1 of 1
Generador de Contraseña o Caracteres
Posted: 28 May 2018, 04:58
by Bertini
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
Re: Generador de Contraseña o Caracteres
Posted: 28 May 2018, 08:36
by Flipeador
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
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
Comandos y funciones que deberías leer:
Chr,
Ord,
Random,
SubStr,
Loop's,
InputBox...
Y
Ternary operator.
Re: Generador de Contraseña o Caracteres
Posted: 28 May 2018, 09:03
by Bertini
Flipeador 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
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
Comandos y funciones que deberías leer:
Chr,
Ord,
Random,
SubStr,
Loop's,
InputBox...
Y
Ternary operator.
Bertini ----> Me parece muy bien ahora estoy intentando que me envie a un documento con
FileAppend pero tengo este problema que no me lo envia
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
">" Pensaba que a quí la redireción funcionaba
Re: Generador de Contraseña o Caracteres
Posted: 28 May 2018, 11:14
by Bertini
Bertini wrote:Flipeador 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
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
Comandos y funciones que deberías leer:
Chr,
Ord,
Random,
SubStr,
Loop's,
InputBox...
Y
Ternary operator.
Bertini ----> Me parece muy bien ahora estoy intentando que me envie a un documento con
FileAppend pero tengo este problema que no me lo envia
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
">" Pensaba que a quí la redireción funcionaba
Bertini ---> Consegui una interfaz para añadir numero pero ahora no funciona el numero
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
Posted: 28 May 2018, 11:27
by Flipeador
Code: Select all
InputBox Longitud, Introduzca un número, Introduca un numero., , 340, 280
; Longitud := UserInput
Contraseña := ""
https://autohotkey.com/docs/Variables.htm#Expressions
Re: Generador de Contraseña o Caracteres
Posted: 28 May 2018, 11:42
by Bertini
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 pasaras
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
Bertini ---> Ahora tengo que mirar con introducir la variable en un documento
Re: Generador de Contraseña o Caracteres
Posted: 28 May 2018, 11:56
by Bertini
Bertini 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 pasaras
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
Bertini ---> Ahora tengo que mirar con introducir la variable en un documento
Bertini ---> Este si funciona como quiero 100% funcionable
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 ----> La unica pega que tengo a ese es cuando en vía la contraseña al archivo en la primera posición deja un espacio.
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
Posted: 28 May 2018, 16:53
by Bertini
Bertini ---> Ahora me sale esto siempre
o este "" en mi codigo sale siempre
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
Posted: 28 May 2018, 17:58
by Flipeador
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.
Re: Generador de Contraseña o Caracteres
Posted: 29 May 2018, 00:08
by Bertini
Flipeador 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.
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 esto
1.- [img]
- Caracter de la primera fila no está incluido en el codigo
- error1.png (9.64 KiB) Viewed 2840 times
[/img]
2.- [img]
- Caracter de la primera fila no está incluido en el codigo
- error1.png (9.64 KiB) Viewed 2840 times
[/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
Re: Generador de Contraseña o Caracteres
Posted: 29 May 2018, 00:18
by Flipeador
Como ya te he dicho, prueba quitando Chr(3) en tu código.
Re: Generador de Contraseña o Caracteres
Posted: 29 May 2018, 05:41
by Bertini
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
Posted: 29 May 2018, 08:21
by Bertini
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