prueba de cifrado con operaciones logicas

[b10s_0v3rr1d3]

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:

Código (vb) [Seleccionar] Expandir


' 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:

Código (vb) [Seleccionar] Expandir


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