Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: |SMT| en 7 Septiembre 2013, 01:34 am



Título: [+] mCesar - Cifrado Cesar
Publicado por: |SMT| en 7 Septiembre 2013, 01:34 am
Buenas, aquí les dejo un pequeño code que realice cuando estaba comenzando a programar y estaba interesado en la parte de criptografia.
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.


Título: Re: [+] mCesar - Cifrado Cesar
Publicado por: noele1995 en 8 Septiembre 2013, 16:09 pm
Deberias usar DoEvents para que no se trabe si encriptas cadenas muy largas