Encriptar y Dencriptar

Introducción

El siguiente artículo se trata de un algoritmo que permite encriptar y dencriptar 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.

Algunas Puntualizaciones

Antes de comenzar a detallar este algoritmo, he revisado en la Web con el objeto de hallar algún algoritmo que fuere fácil de interpretar y desarrollar. Lamentablemente, la mayoría de los algoritmos que alcance a ver, resultaron muy complejos. De hecho, opte por descartarlos, aunque quiero puntualizar que estos eran excelentes desarrollos. Quizá para un nivel más avanzado.

De tanto revisar, encontré casi por azar, un artículo del indiscutido Harvey Triana que hacía mención de este tema y cómo él acopió un material antiguo escrito por otro desarrollador, el cual, no pudo identificar su tutoría. No obstante, publico el artículo y lo corrigió, según él, algunos errores que presentaban puesto que, supongo, hizo una migración del Basic tradicional a Visual Basic, cosa que resulta en toda una tarea casi artesanal.

Respecto a mi trabajo, yo he analizado el código de Harvey Triana y me propuse a optimizarlo y, dicho del paso, lograr que este fuera menos complejo puesto que el autor utiliza muchos vectores. A mi juicio, el uso de vectores y redimensionamiento como él utilizó en este ejemplo, no me convencen demasiado puesto que consumen muchos recursos en la memoria. El uso abusivo de ReDim puede ser perjudicial. Yo particularmente, evado este tipo de técnicas, las cuales, no son objeto de este artículo que en otra oportunidad podría dar a conocer con muchísimo gusto.

El Algoritmo y su Origen

El siguiente código que he desarrollado realiza los dos procesos de Encripción y Dencripsió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 = Rd & Chr(NuChr)
        Next
        Encrypt = Rd
        Exit Function
    End If
End Function

¿Cómo Funciona?