pues eso, haciendo pruebas con estas funciones para un programa, termine un pequeño modulo haciendo varias operaciones con funciones logicas (not, xor, and....).
el codigo del modulo es:
' esta funcion nos devuelve el valor en milisegundos desde la ultima vez que se encendio el sistema (hasta 49 dias)
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Public Function logicOp(ByVal text As String) As String
Dim temp As String
Dim op1 As Integer, op2 As Integer
Randomize
For x = 1 To Len(text)
op1 = Not (Asc(Mid(text, x, 1)))
op2 = (GetTickCount And Rnd())
temp = temp & Chr(Asc(Mid(text, x, 1)) Xor (CInt(Int((255 * Rnd()) + 1))) And (op2 Or op1 Xor Len(text)))
Next x
logicOp = temp
End Function
codigo de prueba:
Private Sub Form_Load()
MsgBox (logicOp("texto"))
End Sub
un ejemplo:
[texto de prueba, que original xD] -> [Ý}[þO~ÆG#R_wGjÔî#WöÅ÷ïS[ßÉOsüÜ_G]
no es como el pgp, pero bueno xD
nos leemos :P