VB源代码文本防窥探工具.docVIP

文本防窥探工具VB源代码 本软件的VB源代码包括两个窗体，两个模块，具体如下： ‘Form1’Code Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 声明 Private Sub Command3_Click() Form2.Show End Sub Private Sub Form_Load() If Dir(App.Path \skin.urf) Then Dim bRes As Boolean bRes = SkinStart(App.Path \skin.urf, 2, RQPJNW0N0V2QRMAP1KXVBHHDUVVQGUXR, 1, 0, 0) End If Command2.Enabled = False End Sub Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) If Data.Files.Count 1 Then Exit Sub Dim tFile As String tFile = Data.Files.Item(1) If UCase(Right(tFile, 4)) .TXT Then MsgBox 拖放的文件不是 TXT 文件, , 提示 Exit Sub End If Dim sA As String * 65400 Open Data.Files(1) For Binary As #1 Get #1, , sA Close #1 Text1.Text = sA End Sub Private Sub Command1_Click() Text2.Text = DeCrypt(Text1.Text, zihao2012) Open App.Path \ 已加密 .txt For Output As #1 Print #1, Text2.Text Close #1 MsgBox 已保存在“已加密.txt”中, , 提示 End Sub Private Sub Command2_Click() Text2.Text = Crypt(Text1.Text, zihao2012) Open App.Path \ 已解密 .txt For Output As #1 Print #1, Mid(Text2.Text, 1, Len(Text1.Text) - 2) Close #1 MsgBox 已保存在“已解密.txt”中, , 提示 End Sub Private Sub Label2_Click() ShellExecute 0, open, /s/blog_92b6d74d01012s3r.html, vbNullString, vbNullString, 3 End Sub Private Sub Text1_Change() If Text1.Text Then Command2.Enabled = True End If End Sub Private Sub Timer1_Timer() Static c As Integer c = c + 1 Select Case c Case 1 Label2.ForeColor = vbGreen Case 2 Label2.ForeColor = vbYellow Case 3 Label2.ForeColor = vbBlue Case 4 Label2.ForeColor = HFF00 c = 0 End Select End Sub ‘Form2’Code(只有一个图片) ‘modCrypt(模块) Public Function Crypt(texti, salasana) As String On Error Resume Next For T = 1 To Len(salasana) sana =