VB文本加密解密算法实现_hawkol_新浪博客

'加密函数

Private Function JiaMi(ByVal varPass As String) As String

    '参数varPass是需要加密的文本内容

    Dim varJiaMi As String * 20

    Dim varTmp As Double

    Dim strJiaMi As String

    Dim I

        For I = 1 To Len(varPass)

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

            varJiaMi = Str$(((((varTmp * 2.5) / 5.8) * 1.2) * I)) '加密

            strJiaMi = strJiaMi & varJiaMi

        Next I

    JiaMi = strJiaMi

End Function

'解密函数

Private Function JieMi(ByVal varPass As String) As String

    '参数varPass是需要解密的密文内容

    Dim varReturn As String * 20

    Dim varConvert As Double

    Dim varFinalPass As String

    Dim varKey As Integer

    Dim varPasslenth As Long

    varPasslenth = Len(varPass)

    For I = 1 To varPasslenth / 20

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

    varConvert = Val(Trim(varReturn))

    varConvert = ((((varConvert / 2.5) * 5.8) / 1.2) / I) '解密

    varFinalPass = varFinalPass & ChrW(Val(varConvert))

    Next I

    JieMi = varFinalPass

End Function

Private Sub Command1_Click()

    Text2.Text = JiaMi(Text1.Text)

End Sub

Private Sub Command2_Click()

    Text3.Text = JieMi(Text2.Text)

End Sub