Xor加密 1.0 VB源代码
Dim TempTime As String Private Sub Command1_Click() Dim Ret As String If Trim(Text3.Text) = "" Then Text3.Text = 0 End If TempTime = Timer Ret = EncryptFile(Trim(Text1.Text), Trim(Text2.Text), Trim(Text3.Text)) Debug.Print Timer - TempTime Me.Caption = "Xor 1.0" '加密完成标题 MsgBox Ret, vbInformation, "Xor 1.0" End Sub Private Sub Command2_Click() Dim Ret As String If Trim(Text3.Text) = "" Then Text3.Text = 0 End If Ret = UnEncryptFile(Trim(Text1.Text), Trim(Text2.Text), Trim(Text3.Text)) Me.Caption = "Xor 1.0" '解密成功标题 MsgBox Ret, vbInformation, "Xor 1.0" End Sub Private Sub Command3_Click() 原文网址:http://www.upx8.com/article.asp?id=509