Yo esto también lo preguntaba por esto. Mirad este ejemplo de cifrado de strings XOR dependiente de un número aleatorio, dependiendo de la semilla que le pases el resultado será uno u otro y siempre será el mismo si utilizas el mismo valor de semilla:
Public Function encriptacion(ByVal texto As String, ByVal semilla As Byte)
Dim contador As Long
Dim caracter As Long
Dim paso As Long
'Inicializacion del Random
Rnd (-1)
Randomize (semilla)
For contador = 1 To Len(texto)
paso = CInt(semilla * Rnd())
caracter = Asc(Mid(texto, contador, 1))
encriptacion = encriptacion & Chr(caracter Xor paso)
Next
End Function
La cifrado es muy sencilla, es una cifrado de 8 bits (XOR-8bits VS AES-256bits
) pero que puede ser util si el interceptor no sabe el algorítmo
Saludos