El codigo de yeicos es muy parecido al que iba a poner yo, pero estoy seguro de que tambien funciona bien, y añadir que tal y como esta en el textbox solo se podrian escribir 20 caracteres, si escribes menos quedarian espacios en blanco que no pasa nada.
Y otra cosa, si abres el exe con el block de notas veras al final el texto k as escrito, te aconsejo que uses alguna funcion para encriptarlo como por ejemplo.
Function Cypher(Str As Variant) As String 'Función que cifra una cadena
Dim Temp As String, PwdChr As Integer
Dim EncryptKey As Integer
EncryptKey = Int(Sqr(Len(Str) * 100)) + 200
For PwdChr = 1 To Len(Str)
Temp = Temp + Chr(Asc(Mid(Str, PwdChr, 1)) Xor EncryptKey)
Next PwdChr
Cypher = Temp
End Function
Es muy facil de usar pero tienes que usarla al escribir y al leer los datos por ejemplo:
variable = Cypher(Text1.Text)
Text2.Text = Cypher(var)
Esta claro que e modificado el codigo de yeikos
Salu2 ejoy it!
Mostrar Mensajes
