Categoría: .NET
 Función para Encriptar y Desencriptar una cadena de Texto
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". |
