vb6.0 ¡Vamos, velocidad!

Le daré dos funciones de cifrado y descifrado, una para cifrado y otra para descifrado, que se corresponden entre sí. Solo necesita copiar estas dos funciones en el código del formulario que debe cifrarse y descifrarse, y podrá llamarlas. El código fuente es el siguiente:

'Función de cifrado

Función privada JiaMi(ByVal varPass As String) As String 'El parámetro varPass es el contenido del texto a cifrar

DimvarJiaMi como cadena * 20

Dim varTmp como doble

Dim strJiaMi como cadena

Dim I

Para I = 1 To Len(varPass)

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I) )

strJiaMi = strJiaMi &varJiaMi

Siguiente I

JiaMi = strJiaMi

Función final

' Función de descifrado

Función privada JieMi(ByVal varPass As String) As String 'El parámetro varPass es el contenido del texto cifrado a descifrar

Dim varReturnAs String * 20

Dim varConvert As Double

Dim varFinalPass As String

Dim varKey As Integer

Dim varPasslenth As Long

varPasslenth = Len(varPass )

Para I = 1 a varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)

varConvert = Val(Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass & ChrW (Val(varConvert) )

Siguiente I

JieMi = varFinalPass

Función final