RE:contraseña en codigo ascii
Hola amigo, una posible solución a esto es la siguiente.
suponemos que la contraseña es una variable del tipo String.
podriamos hacer:
dim contraseña as string
dim ContraseñaAscii as string
contraseña = "Hola"
ContraseñaAscii = asc(mid(contraseña,1,1))
ContraseñaAscii = ContraseñaAscii & asc(mid(contraseña,2,1))
ContraseñaAscii = ContraseñaAscii & asc(mid(contraseña,3,1))
ContraseñaAscii = ContraseñaAscii & asc(mid(contraseña,4,1))
el valor final de contraseñaAscii será "7211110897"
Igualmente te lo puedes montar mejor para poder volver después al texto inicial. Yo crearia un formato al crear el ascci de cada letra, por ejemplo format(asc(mid(contraseña,x,1)),"00#") para después poder hacer la conversión sin problemas. Para volver al estado original unicamente debes utilizar 'Chr(codigo_ascii)'
funciónes interesantes y que yo uso mucho son:
Hex(Valor_decimal) -> devuelve el valor hexadecimal de un decimal
Char(codigo_ascii) -> devuelve el caracter del valor en la tabla ascci.
asc(caracter)-> devuelve el asci (decimal) del carácter
cbyte(valor)-> convierte a byte un valor. Recuerda que el valor no puede pasar de 255(decimal) o &HFF (Hexadecimal) ya que serian mas de un byte.
Espero que te sirva de ayuda. Un saludo.