[Visual Basic 6.0] 利用 ASCII Codes 進行文字加密與解密 (英文、數字)

2013-11-01

摘要:[Visual Basic 6.0] 利用 ASCII Codes 進行文字加密與解密 (英文、數字)

加密 Function：


Function AscCodePassWord(Txt)
    Out = ""
    For i = 1 To Len(Txt)
        Out = Out & Format(Asc(Mid(Txt, i, 1)), "00000000")
    Next i
    AscCodePassWord = Out
End Function

解密 Function：


Function ChAscCodePassWord(Txt)
    Out = ""
    For i = 1 To Len(Txt) Step 8
        Out = Out & Chr(Val(Mid(Txt, i, 8)))
    Next i
    ChAscCodePassWord = Out
End Function

加密操作說明：

假設將字串 "I Love You" 加密


Debug.Print AscCodePassWord("I Love You")

會得到密文


00000073000000320000007600000111000001180000010100000032000000890000011100000117

解密操作說明：

假設將密文 "00000048000001200000006800000101" 解密


Debug.Print ChAscCodePassWord("00000048000001200000006800000101")

會得到明文


0xDe

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁