Hola!

Dejo este cifrado

Cada vez que algo es cifrado es diferente....

Encriptar:

Function NinfroCrypt_Encrypt(Str As String)
Dim Rn As String
Dim op As String
Dim i As Long
For i = 1 To Len(Str)
Randomize
Rn = Right(Rnd, 1)
op = op & Chr(Asc(Mid(Str, i, 1)) + Rn) & Chr(Rn)
Next i
NinfroCrypt_Encrypt = op
End Function

Desencriptar:

Function NinfroCrypt_Decrypt(Str As String)
Dim op As String
Dim i As Long
For i = 1 To Len(Str) Step 2
op = op & Chr(Asc(Mid(Str, i, 1)) - Asc(Mid(Str, i + 1, 1)))
Next i
NinfroCrypt_Decrypt = op
End Function

Saludos!

Esta muy guapo, creo que para eso se usa la Rotación y el IV, mirate este Post que hicimos un reto y salierón cosas muy guapas, gracias a 0verfl0w que fue el que nos explico el metodo a todos xD.

http://indetectables.net/viewtopic.php?f=10&t=50048

//Regards.