Algoritmo Encryptacion de String

Iniciado por Expermicid, Junio 22, 2012, 11:07:44 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Junio 22, 2012, 11:07:44 PM Ultima modificación: Mayo 12, 2014, 03:35:40 PM por Expermicid
Hola a todos, encontre estas funciones para encryptar y desencryptar una cadena en Opensc.

Aqui el codigo :)

Código: vb
Public Function EnCrypt(tSource As String, tPassword As String) As String
    Dim iPassword As Integer
    Dim iCrypt As Integer
    Dim X As Integer
    For X = 1 To Len(tPassword)
        iPassword = iPassword + Asc(Mid$(tPassword, X, 1))
    Next X
    For X = 1 To Len(tSource)
        iCrypt = Asc(Mid$(tSource, X, 1)) + iPassword + X
        Do Until iCrypt <= 255
            iCrypt = iCrypt - 255
        Loop
        EnCrypt = EnCrypt & Chr(iCrypt)
    Next X
End Function

Public Function DeCrypt(tSource As String, tKey As String) As String
    Dim iPassword As Integer
    Dim iCrypt As Integer
    Dim X As Integer
    For X = 1 To Len(tKey)
        iPassword = iPassword + Asc(Mid$(tKey, X, 1))
    Next X
    For X = 1 To Len(tSource)
        iCrypt = Asc(Mid$(tSource, X, 1)) - iPassword - X
        Do Until iCrypt > 0
            iCrypt = iCrypt + 255
        Loop
        DeCrypt = DeCrypt & Chr(iCrypt)
    Next X
End Function


Saludos