Hướng dẫn Khóa File ảnh có định dạng .BMP

Các thủ thuật về âm thanh, đồ họa, truyền thông đa phương tiện...
Đăng trả lời
Hình đại diện của thành viên
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 492
Ngày tham gia: Thứ 4 05/02/2014 3:43 pm
Đến từ: Đồng Tháp,Việt Nam
Has thanked: 20 times
Been thanked: 7 times
Tiếp xúc:

Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bài by NTN »

Thủ thuật: Khóa File ảnh có định dạng .BMP
Tác giả: Sưu tầm
Mô tả: Hướng dẫn Khóa File ảnh có định dạng .BMP
Đầu tiên các bạn chuẩn bị :
- 3 Command tên lần lượt là Command1,Command2,Command3
- 1 Text tên là Text1
- 1 CommonDialog1 tên là CommonDialog1

Ở phần Form_Load các bạn thêm code sau :
  1. Private Sub Form_Load()
  2. Command1.Caption = "khoa file anh"
  3. Command2.Caption = "Mo file anh"
  4. End Sub


Để có thể Khóa ảnh các bạn thêm code sau :
  1. Function MoKhoa(File)
  2. A = FreeFile
  3. Open File For Binary As #A
  4. B$ = Chr(0)
  5. Put #A, 17, B$
  6. Close #A
  7. End Function
  8.  
  9. Function KhoaAnh(File)
  10. A = FreeFile
  11. Open File For Binary As #A
  12. B$ = "X"
  13. Put #A, 17, B$
  14. Close #A
  15. End Function


Và phần còn lại là thêm code sau cho Command 1 2 3:
  1. Private Sub Command1_Click()
  2. KhoaAnh Text1.Text
  3. End Sub
  4.  
  5. Private Sub Command2_Click()
  6. MoKhoa Text1.Text
  7. End Sub
  8.  
  9. Private Sub Command3_Click()
  10. CommonDialog1.ShowOpen
  11. Text1.Text = CommonDialog1.FileName
  12. End Sub


Nếu các bạn sợ không đúng thì coppy toàn bộ code sau :
  1. Function MoKhoa(File)
  2. A = FreeFile
  3. Open File For Binary As #A
  4. B$ = Chr(0)
  5. Put #A, 17, B$
  6. Close #A
  7. End Function
  8.  
  9. Function KhoaAnh(File)
  10. A = FreeFile
  11. Open File For Binary As #A
  12. B$ = "X"
  13. Put #A, 17, B$
  14. Close #A
  15. End Function
  16.  
  17. Private Sub Command1_Click()
  18. KhoaAnh Text1.Text
  19. End Sub
  20.  
  21. Private Sub Command2_Click()
  22. MoKhoa Text1.Text
  23. End Sub
  24.  
  25. Private Sub Command3_Click()
  26. CommonDialog1.ShowOpen
  27. Text1.Text = CommonDialog1.FileName
  28. End Sub
  29.  
  30. Private Sub Form_Load()
  31. Command1.Caption = "khoa file anh"
  32. Command2.Caption = "Mo file anh"
  33. End Sub


Vậy là xong ! :-"
Hình đại diện của thành viên
phanthequang4101987
Thành viên danh dự
Thành viên danh dự
Bài viết: 116
Ngày tham gia: Thứ 3 01/04/2008 6:39 am
Đến từ: Nghi Xuân - Hà Tĩnh
Has thanked: 4 times
Been thanked: 21 times
Tiếp xúc:

Re: Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bài by phanthequang4101987 »

Cái này có bài trong vblib rồi . hình như cách đây 4-5 năm gì rồi bạn #TNT à :) . nếu bạn mở các tệp bằng notepad bạn sẽ thấy những tệp *.dll;.exe;.com;.ocx;.scr;.h1s sẽ được bắt đầu bằng ký tự "MZ" . các file ảnh như *.gif là "gif89", *.png là "%PNG", của *.bmp là "BM" bạn chỉ cần viết code đổi các ký tự khác là các files này không còn mở được nữa , kết hợp đổi đuôi tập tin thành tên khác thì càng tốt . khi muốn mở ra thì thay ký tự đó về ban đầu :) . mấy chương trình chưa dùng ảnh ngay như trò "bắt chữ" có thể làm như vậy để bảo vệ data của mình :)
†™_Çøø£_™†.......♥.......†™_U††»ñhøç_™†
Đưa người ta chưa đưa qua sông
mà sao nghe tiếng sóng trong lòng
.(¯`v´¯)_______ÎÎ_____ÎÎ________(¯`v´¯)
Hình đại diện của thành viên
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 492
Ngày tham gia: Thứ 4 05/02/2014 3:43 pm
Đến từ: Đồng Tháp,Việt Nam
Has thanked: 20 times
Been thanked: 7 times
Tiếp xúc:

Re: Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bài by NTN »

Cám ơn bạn !
Đăng trả lời

Quay về