VB技巧—：简单的将保存的数值加密

只是在自己的项目中使用到了，所以在此整理

Private Sub Command1_Click()
 Open "C:\aaa.txt" For Output As #1
   Print #1, Encode(Text1.Text)
   Close #1
End Sub

Private Function Encode(ByVal sCode As String) As String
    Dim I As Integer
    Dim sTemp As String
    Dim sTemp1 As String
    
    sTemp = ""
    For I = 1 To Len(sCode)
        sTemp1 = Hex(Asc(Mid(sCode, I, 1)))
        sTemp = sTemp + sTemp1
    Next
    Encode = sTemp
End Function

Private Function Decode(ByVal sCode As String) As String
    Dim I As Integer
    Dim sTemp As String
    Dim sTemp1 As String
    
    sTemp = ""
    For I = 1 To Len(sCode) / 2
        sTemp1 = Mid(sCode, (I - 1) * 2 + 1, 2)
        sTemp = sTemp + Chr(Int("&H" + sTemp1))
    Next
    Decode = sTemp
End Function

Private Sub Command2_Click()
Dim A As String
Open "C:\aaa.txt" For Input As #1
   Input #1, A
  
   Close #1
  MsgBox Decode(A)
End Sub

解释说明：

For I = 1 To Len(sCode)  ：得到字串sCODE的长度

Mid（a,b,c） ： 在a字串中，取出第b个后的c个字符

Asc(a)  ：将a转化为ASC码   （ASC码为两位）

Hex（a）  ：转化为16进制数

Int("&H" + sTemp1)   ：将sTemp1转化为16进制，然后转化为10进制