Autor
El code es basado en el "cifrado por desplazamiento", "desplazamiento de Cesar", etc... como su mismo nombre lo indica lo que hace es "desplazar" los caracteres X cantidad de veces a la izquierda o derecha.
El code es bastante viejo puede ser fácilmente corregido, simplificado y mejorado lo coloco para aquellos que se inicien en la parte de Criptografia orientada a VB6.
Código:
Public Function mCesar_Encrypt(ByVal d As String) As String ' Funcion de cifrado.
Dim c As Long
Dim k As String
If d <> "" Then
For i = 1 To Len(d)
c = Asc(Mid(d, i, 1)) + 1
k = k & Chr$(c)
Next i
mCesar_Encrypt = k
End If
End Function
Public Function mCesar_Decrypt(ByVal d As String) As String ' Funcion de Descifrado
Dim c As Long
Dim k As String
If d <> "" Then
For i = 1 To Len(d)
c = Asc(Mid(d, i, 1)) - 1
k = k & Chr$(c)
Next i
End If
mCesar_Decrypt = k
End Function
Saludos.
En línea
