【文件属性】:
文件名称: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)
网友评论
- 符合描述,我觉得还是有用的。
- 写的太繁琐,新手不容易看懂
- 这个一点也不实用。。。