Quiero crear un generador de contraseñas usando VB.
Para ello puedes utilizar las funciones ASC y CHR.
Permítanme decir algunas palabras. Vea usted mismo. Si no funciona llámame.
Primero crea un nuevo programa VB. Agregue cuadros de texto y etiquetas. Luego agregue el siguiente código en el evento de cambio del cuadro de texto:
etiqueta 1 = etiqueta 1. "Carácter: "&text1" El código ASC es "&ASC(text1.text)&" "
Así que puedes copiar los caracteres de tu programa de creación de palabras en el cuadro de texto y obtener el código ASC correspondiente. (Solo puede obtener el código ASC del primer carácter del cuadro de texto. Para obtener el código ASC de todo el carácter del cuadro de texto, ¡debe reescribir el código!)
Luego cree varios formularios (este es la generación que desea (lo anterior es solo para obtener el código ASC)
Agregue dos cuadros de texto y un botón
Botón, ingrese:
Establezca I en un número entero, b Establecer en número entero
para I = 1 a len(texto 1. texto)
b = chr(mid(texto 1. texto, I, 1)
text2.text=text2.text&ConvertCharacter(b)
Siguiente yo
Sin embargo, copie el siguiente proceso en el cuadro de código.
Carácter de subconversión privado (el número es un número entero)
Seleccione el número de caso
Caso 65, 97
Convertir carácter = Chr (ingrese su El código ASC del personaje creado por el programa de personajes) 'El código ASC correspondiente de tu personaje cuando el texto cifrado es A o A
Caso 66, 98
Convertir carácter = Chr (Ingresa el código ASC del carácter que creó con el programa de creación de palabras) 'Cuando el texto cifrado es B o B, el código ASC correspondiente de su carácter
Caso 67, 99
Convierte. = Chr (ingresa el código ASC del personaje que creaste con el programa de creación de personajes) 'Cuando el texto cifrado sea C o C, el código ASC correspondiente de tu personaje
El siguiente autocomplementario... es el caso 67, 99, caso 68, 100, caso 69, 101, etc. Hasta el caso 90, 122, el texto cifrado es z.
¡Cambie el código usted mismo! Da muchas ideas.