Generador de Contraseña o Caracteres

Post by **Bertini** » 29 May 2018, 08:21

Bertini --> Ya lo conseguido


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

Post by **Bertini** » 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

Post by **Flipeador** » 29 May 2018, 00:18

Como ya te he dicho, prueba quitando Chr(3) en tu código.

Post by **Bertini** » 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]

: Caracter de la primera fila no está incluido en el codigo; error1.png (9.64 KiB) Viewed 2815 times

[/img]
2.- [img]

: Caracter de la primera fila no está incluido en el codigo; error1.png (9.64 KiB) Viewed 2815 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

Post by **Flipeador** » 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.

Post by **Bertini** » 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

Code: Select all

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

Post by **Bertini** » 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 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.

Post by **Bertini** » 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

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

Post by **Flipeador** » 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

Post by **Bertini** » 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

Post by **Bertini** » 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

Post by **Flipeador** » 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.

Post by **Bertini** » 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

Generador de Contraseña o Caracteres

Post a reply

Expand view Topic review: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Re: Generador de Contraseña o Caracteres

Generador de Contraseña o Caracteres