Blog Evidalia

La funcion para encriptar es la siguiente:
Function Encripta(Pass As String) As String
 Dim Clave As String, i As Integer, Pass2 As String
 Dim CAR As String, Codigo As String
 Clave = ”%ü&/@#$A”
 Pass2 = ”"
 For i = 1 To Len(Pass)
  CAR = Mid(Pass, i, 1)
  Codigo = Mid(Clave, ((i - 1) Mod Len(Clave)) + 1, 1)
  Pass2 = Pass2 & Right(”0″ & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
 Next i
 Encripta = Pass2
End Function


Para utilizarla simplemente escribimos
Clave=Encripta(”Clave Muy Secreta”)
Y despues de eso, Clave contendrá la cadena “66904759250369345CDC754A2351413544″.

seguir leyendo ….