Encripta Y Desencripta
Enviado por amiguis140286 • 2 de Agosto de 2014 • 1.025 Palabras (5 Páginas) • 134 Visitas
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 puede utilizarse 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 de Encriptació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. El algoritmo 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 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 > 255 Then
NuChr = 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
...