資料加解密函數

這是一個以前在網路上找到的加解密函數，簡單好用，給需要的人參考

程式執行畫面


透過即時運算，可以清楚的看到字串已經被編碼成一串無意義的數字了

程式原始碼

'加密函數
Private Function Encrypt(varPass As String) 
    If Dir("C:\加密檔.qwe") <> "" Then: Kill "C:\加密檔.qwe"
    Dim varEncrypt As String * 50
    Dim varTmp As Double
    Open "C:\加密檔.qwe" For Random As #1 Len = 50
    For I = 1 To Len(varPass)
        varTmp = Asc(Mid$(varPass, I, 1))
        varEncrypt = Str$(((((varTmp * 1.5) / 2.1113) * 1.111119) * I))
        Put #1, I, varEncrypt
        Debug.Print varEncrypt
    Next I
    Close #1
End Function 


'解密函數
Private Function Decrypt() As String
    Open "C:\加密檔.qwe" For Random As #1 Len = 50
    Dim varReturn As String * 50
    Dim varConvert As Double
    Dim varFinalPass As String
    Dim varKey As Integer
    For I = 1 To LOF(1) / 50
       Get #1, I, varReturn
        varConvert = Val(Trim(varReturn))
        varConvert = ((((varConvert / 1.5) * 2.1113) / 1.111119) / I)
        varFinalPass = varFinalPass & Chr(varConvert)
    Next I
    Decrypt = varFinalPass
    Close #1
End Function


'解密按鈕
Private Sub cmdDecrypt_Click()
txtSource = Decrypt
End Sub


'加密按鈕
Private Sub cmdEncrypt_Click()
Encrypt (txtSource.Text)
txtSource.Text = ""
End Sub