?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "BMP圖像加密和解密"
ClientHeight = 6705
ClientLeft = 60
ClientTop = 450
ClientWidth = 6975
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6705
ScaleWidth = 6975
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture3
AutoSize = -1 'True
Height = 2295
Left = 7200
ScaleHeight = 149
ScaleMode = 3 'Pixel
ScaleWidth = 109
TabIndex = 7
Top = 240
Width = 1695
End
Begin VB.FileListBox File1
Height = 3690
Left = 120
Pattern = "*.bmp"
TabIndex = 6
Top = 2160
Width = 3495
End
Begin VB.DirListBox Dir1
Appearance = 0 'Flat
Height = 1560
Left = 120
TabIndex = 5
Top = 480
Width = 3495
End
Begin VB.DriveListBox Drive1
Appearance = 0 'Flat
Height = 300
Left = 120
TabIndex = 4
Top = 120
Width = 3495
End
Begin VB.CommandButton Command2
Caption = "解密 "
Height = 495
Left = 3600
TabIndex = 3
Top = 6120
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "加密"
Height = 495
Left = 1440
TabIndex = 2
Top = 6120
Width = 2055
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 2895
Left = 3720
ScaleHeight = 143.25
ScaleMode = 2 'Point
ScaleWidth = 155.25
TabIndex = 1
Top = 3000
Width = 3135
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 2775
Left = 3720
ScaleHeight = 183
ScaleMode = 0 'User
ScaleWidth = 207
TabIndex = 0
Top = 120
Width = 3135
End
Begin VB.Label Label1
Caption = "Label1"
Height = 375
Left = 120
TabIndex = 8
Top = 5880
Width = 2775
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************************************************************
'BMP圖片的加密和解密
'設計編制:田草
'聯系方式:caotian1001@sohu.com
'***********************************************************************************************************
Dim ByteArray() As Byte '加密前圖片的二進制數組
Dim JiaMiByte() As Byte '加密后圖片的二進制數組
'加密圖片
Private Sub Command1_Click()
Dim FileName1 As String, FileName2 As String
Dim FileHead As Long
FileName1 = File1.Path + "\" + File1.FileName
FileName2 = App.Path + "\" + File1.FileName + ".bmp"
Open FileName1 For Binary As #1
sizeoffile = LOF(1)
Close #1
xx = InputBox("請輸入除去文件頭后文件的大小:", "文件大小")
On Error GoTo errhandle:
FileHead = sizeoffile - xx
i = JiaMi_or_JieMi(FileName1, FileName2, 111, FileHead)
Picture3.Picture = LoadPicture(FileName2)
Picture2.PaintPicture Picture3.Picture, 0, 0, Picture2.Width, Picture2.Height, 0, 0, Picture3.Width, Picture3.Height
Picture3.Picture = Nothing
errhandle:
End Sub
Function JiaMi_or_JieMi(FileName1 As String, FileName2 As String, JiaMiKey As Long, FileHead As Long) As Long
Dim szieoffile As Long
On Error GoTo errorhandle:
Open FileName1 For Binary As #1
sizeoffile = LOF(1)
ReDim JiaMiByte(1 To sizeoffile) As Byte
ReDim ByteArray(1 To sizeoffile) As Byte
Get #1, , ByteArray
Close #1
For i = 1 To FileHead
JiaMiByte(i) = ByteArray(i)
Next i
For i = FileHead + 1 To sizeoffile
JiaMiByte(i) = ByteArray(i) Xor (i Mod 255)
Next i
Open FileName2 For Binary As #2
Put #2, , JiaMiByte
Close #2
errorhandle:
End Function
Private Sub Command2_Click()
Dim FileName1 As String, FileName2 As String
Dim FileHead As Long
FileName1 = File1.Path + "\" + File1.FileName
FileName2 = App.Path + "\" + File1.FileName + ".bmp"
Open FileName1 For Binary As #1
sizeoffile = LOF(1)
Close #1
xx = InputBox("請輸入除去文件頭后文件的大小:", "文件大小")
On Error GoTo errhandle:
FileHead = sizeoffile - xx
i = JiaMi_or_JieMi(FileName1, FileName2, 111, FileHead)
Picture3.Picture = LoadPicture(FileName2)
Picture2.PaintPicture Picture3.Picture, 0, 0, Picture2.Width, Picture2.Height, 0, 0, Picture3.Width, Picture3.Height
Picture3.Picture = Nothing
errhandle:
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Picture1.Cls
Picture3.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
Label1.Caption = fso.GetFile(File1.Path + "\" + File1.FileName).Size - 54
Picture1.PaintPicture Picture3.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture3.Width, Picture3.Height
Picture3.Picture = Nothing
End Sub
Private Sub Form_Load()
Picture3.Visible = False
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -