文件名称：Xor加密 1.0 VB源代码
文件大小：14KB
文件格式：RAR
更新时间：2012-07-29 10:35:01
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
【文件预览】：
xor加密1.0源代码
----xor加密1.0.exe(36KB)
----Log Off.ico(2KB)
----FileEncrypter.vbp(768B)
----MSSCCPRJ.SCC(198B)
----1.txt(3KB)
----Encrypt.bas(5KB)
----FileEncrypter.frx(2KB)
----FileEncrypter.vbw(85B)
----FileEncrypter.frm(5KB)