VB 實現字符串加密 解密

'如果是將text1中每個字符的asc碼值轉化為16進制實現加密解密可以這樣：復制粘貼下段代碼

'加密數據

Private Sub Command1_Click()

Text2.Tag = "" '清空text2.tag用來存儲加密後數據

Text2.Text = "" '清空text2用來顯示加密後數據

For i = 1 To Len(Text1.Text) '將text1中每個字符的asc碼值轉化為十六進制以軟回車chr(13)分隔並存儲在text2.tag中

Text2.Tag = Text2.Tag & Hex(Asc(Mid(Text1.Text, i, 1))) & Chr(13) '

Next

Text2.Text = Text2.Tag '顯示加密後數據

End Sub

'解密數據

Private Sub Command2_Click()

Text1.Tag = ""

Text1.Text = ""

Dim b() As String '定義數組用來存儲由text1中每個字符轉化來的十六進制數

b = Split(Text2.Text, Chr(13)) '以軟回車符chr(13)分隔text2中文本並存儲在數組b中

For i = 0 To UBound(b) '將text2中每個十六進制數轉化為十進制的asc碼值後轉化為字符

Text1.Tag = Text1.Tag & Chr(Val("&h" & b(i)))

Next

Text1.Text = Text1.Tag '顯示原始數據

End Sub

上一篇:蘋果手機充電可以用安卓的充電頭嗎

下一篇:老師放在騰訊教室的作業文檔怎麽辦？