encripta y desencripta

ENCRIPTA Y DESENCRIPTA

El siguiente artículo se trata de un algoritmo que permite encriptar y desencriptar texto, cadenas a través de una clave personal de un usuario. Este algoritmo puedeutilizarse para cifrar datos para una base de datos, un archivo o fichero, contraseñas, etc. En breve hago un detalle del mismo.
El Algoritmo y su Origen
El siguiente código realiza los dos procesos deEncriptación y Desencriptación. Existe un parámetro en la función que se encarga de controlar este comportamiento. La función se encuentra dentro de una clase, la cual, he llamado ClsEcrypt. Elalgoritmo es que se muestra a continuación:
Public Function Encrypt(ByVal Word As String, ByVal Key As String, _
Optional ByVal Mode As Boolean = False) As String
Dim w As Long, k As Long, p As Long,j As Long, NuChr As Long
Dim Cd As String, Kd As String, Rd As String
w = Len(Word)
k = Len(Key)
' Modalidad de Encripción...
If Mode = False Then
For j = 1 To wCd = Mid(Word, j, 1)
If p = k Then p = 0
p = p + 1
Kd = Mid(Key, p, 1)
NuChr = Asc(Cd) + Asc(Kd)
If NuChr > 255 ThenNuChr = NuChr - 255
End If
Rd = Rd & Chr(NuChr)
Next
Encrypt = Rd
Exit Function
End If
' Modalidad de Dencripción...
If Mode= True Then
For j = 1 To w
Cd = Mid(Word, j, 1)
If p = k Then p = 0
p = p + 1
Kd = Mid(Key, p, 1)
NuChr = Asc(Cd) - Asc(Kd)If NuChr < 0 Then
NuChr = NuChr + 255
End If
Rd = Rd & Chr(NuChr)
Next
Encrypt = Rd
Exit Function
End If
EndFunction
¿Cómo Funciona?
El parámetro Mode, según sea True o False, es utilizado para optar por el modo de Encriptación y Desencriptación. Los dos siguientes parámetros, Word y Key, son utilizados...