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 . 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. Khoá một file ảnh định dạng .bmp home Xuất xứ : Lê Nguyên Dũng (dungcoi2005) sửa lại từ