Algoritmo

[pkj]

El método más sencillo (aunque fácilmente desencriptable) es usar un XOR

Código vb:

Function EncDec(ByVal txtEntrada As String, ByVal bytePass As Byte) As String
  Dim F As Long
  For F = 1 To Len(txtEntrada)
    EncDec = EncDec & Chr$(Asc(Mid$(txtEntrada, F, 1)) Xor Asc(bytePass))
  Next F
End Function
 

Esta función encripta una cadena segun un valor que incluyes.
Para desencriptarla solo hay que volver a pasarla por la funcion usando el mismo valor:

Código vb:

Private Sub Command1_Click()
  Dim Cadena As String
  Cadena = "abcdefghijklmnopqrst"
 
  'La encriptamos
  Cadena = EncDec(Cadena, 34)
  MsgBox Cadena
 
  'y despues la desencriptamos
  Cadena = EncDec(Cadena, 34)
  MsgBox Cadena
 
End Sub
 

Saludos