Generador de Contraseña o Caracteres

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.

Moderator: Flipeador

User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Generador de Contraseña o Caracteres

28 May 2018, 04:58

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
No me burlo de los novatos,porque de ellos vengo
User avatar
Flipeador
Posts: 1204
Joined: 15 Nov 2014, 21:31
Location: Argentina
Contact:

Re: Generador de Contraseña o Caracteres

28 May 2018, 08:36

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.
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

28 May 2018, 09:03

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
No me burlo de los novatos,porque de ellos vengo
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

28 May 2018, 11:14

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

No me burlo de los novatos,porque de ellos vengo
User avatar
Flipeador
Posts: 1204
Joined: 15 Nov 2014, 21:31
Location: Argentina
Contact:

Re: Generador de Contraseña o Caracteres

28 May 2018, 11:27

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
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

28 May 2018, 11:42

Flipeador wrote:

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
Bertini ---> Esba casi apunto de descibir de tantos intos que hice pero no se me ocurrio ese :lol: y tengo la venta habierta del link antes que me lo pasaras :lol:

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
No me burlo de los novatos,porque de ellos vengo
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

28 May 2018, 11:56

Bertini wrote:
Flipeador wrote:

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
Bertini ---> Esba casi apunto de descibir de tantos intos que hice pero no se me ocurrio ese :lol: y tengo la venta habierta del link antes que me lo pasaras :lol:

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.
No me burlo de los novatos,porque de ellos vengo
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

28 May 2018, 16:53

Flipeador wrote:

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
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


No me burlo de los novatos,porque de ellos vengo
User avatar
Flipeador
Posts: 1204
Joined: 15 Nov 2014, 21:31
Location: Argentina
Contact:

Re: Generador de Contraseña o Caracteres

28 May 2018, 17:58

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.
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

29 May 2018, 00:08

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]
error1.png
Caracter de la primera fila no está incluido en el codigo
error1.png (9.64 KiB) Viewed 2793 times
[/img]
2.- [img]
error1.png
Caracter de la primera fila no está incluido en el codigo
error1.png (9.64 KiB) Viewed 2793 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

Attachments
error2.png
Caracter que no está en el codigo
error2.png (8.53 KiB) Viewed 3134 times
No me burlo de los novatos,porque de ellos vengo
User avatar
Flipeador
Posts: 1204
Joined: 15 Nov 2014, 21:31
Location: Argentina
Contact:

Re: Generador de Contraseña o Caracteres

29 May 2018, 00:18

Como ya te he dicho, prueba quitando Chr(3) en tu código.
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

29 May 2018, 05:41

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

No me burlo de los novatos,porque de ellos vengo
User avatar
Bertini
Posts: 86
Joined: 23 May 2018, 10:11

Re: Generador de Contraseña o Caracteres

29 May 2018, 08:21

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

No me burlo de los novatos,porque de ellos vengo

Return to “Pedir Ayuda”

Who is online

Users browsing this forum: No registered users and 39 guests