Programación de cifrado de caracteres chinos
¿Hay algún error? Debería convertirse de wxyz a abcd, ¿verdad?
Subtexto privado 1 _ KeyPress(KeyAscii es un número entero)
Dim ckey es un número entero
Si KeyAscii gt= Asc("a ") y KeyAscii lt= Asc("z ") entonces
ckey = KeyAscii 4
Si ckey gtAsc("z ") entonces ckey = ckey-Asc(" z ") Asc(" a ") -1
KeyAscii = ckey
Terminará si...
Si KeyAscii gt= Asc("A ") y KeyAscii lt= Asc ("Z " ) entonces
ckey = KeyAscii 4
Si ckey gtAsc("Z ") entonces ckey = ckey-Asc(" Z ") Asc(" A ")- 1
KeyAscii = ckey
Terminará si...
Finalizar conector