Các chiêu thức trong lập trình Khoá một file ảnh định dạng

Khoá một file ảnh định dạng .bmp home
Xuất xứ : Lê Nguyên Dũng (dungcoi2005) sửa lại từ www.pscode.com
Binh khí sử dụng : 2 nút ấn (CommandButton)
Nói qua : Chiêu này rất hay các bạn ạ nó giúp bạn không cho người khác xem những tấm ảnh bạn
muốn và quan trọng hơn bạn có thể dễ dành viết một phần mềm bảo mật ảnh.
Nguyên tắc : Rất đơn giản các bạn ạ, chương trình sẽ phá vỡ Byte kết thúc của File =>> File sẽ không
thể đúng định dạng chuẩn của ảnh Bitmap =>> Đố phần mềm nghe nhạc nào mà mở nổi . Cần nói
them là vì nguyên tắc quá đơn giản thì cũng rất dễ bị người khác tìm cách phá vỡ(Tất nhiên họ phải có
kiến thức kha khá )
Đoạn mã :
Function MoKhoa(File)
A = FreeFile
Open File For Binary As #A
B$ = Chr(0)
Put #A, 17, B$
Close #A
End Function
Function KhoaAnh(File)
A = FreeFile
Open File For Binary As #A
B$ = "X"
Put #A, 17, B$
Close #A
End Function
Private Sub Command1_Click()
KhoaAnh ("d:\hinh anh.bmp")
End Sub
Private Sub Command2_Click()
MoKhoa ("d:\hinh anh.bmp")
End Sub
Private Sub Form_Load()

Command1.Caption = " Khoa file anh"
Command2.Caption = " Mo khoa file anh"
End Sub