No se puede llamar a VB al cifrar caracteres en inglés. Informe a los expertos sobre el siguiente código y diagrama de interfaz.
Función Cifrado(inStrl?As?String)?As?String
For?i?=?1?To?Len(inStrl)
t?=?Asc(Mid(inStrl) ,?i,?1))
Seleccione Caso? a 122
Si?t?+?6?>?122?Entonces
t?= ?t?+?6?-?26
Else
t?=?t?+?6
Fin?Si
Caso?65?A?90
Si?t?+?6?>?90?Entonces
t?=?t?+?6?-?26
Else
t?=?t?+?6
¿Fin?Si ¿Fin?Select Encryp?=?Encryp?+?Chr (t)
¿Siguiente?i
Fin?Cuadro de texto de contraseña
'Comando1?=?Botón de cifrar
¿Privado?Sub?Command1_Click()Text2?= ?Encryp(Text1)
End?Sub
'¡Consulte y adopte! ¡Gracias!