En castellano se dice
cifrar, no
encriptarNo parece que tengas mucha idea sobre cifrados... No estoy seguro de lo que quieres... pero te pongo este ejemplo:
Option Explicit
' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
Private Sub Command1_Click()
Text1.Text = XorFF(Text1.Text)
End Sub
Public Function XorFF(ByVal sData As String) As String
Dim i As Long
XorFF = sData
For i = 1 To Len(XorFF)
Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF)
Next i
End Function
Sí, eso era lo que quería hacer! Grx
Pero una cosa... Al cifrar me dan unos carácteres muy raros, me gustaría algo más "normal" Como letras y números
Y si, tienes razón, no se mucho sobre cifrados xD, Grx