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". |