Các chiêu thức trong lập trình Dấu dữ liệu dạng text vào 1 file bất kỳ home

Dấu dữ liệu dạng text vào 1 file bất kỳ home
Xuất xứ : www.ttvnol.com
Binh khí sử dụng : Hai textbox đặt tên lần lượt là txtPath và txtContains. Hai command button đặt tên
lần lượt là CmdEncrypt và CmdDecrypt
Nguyên tắc : Chèn vào cuối File thông điệp muốn đặt sau đó đặt lại Byte chót cùng cho “Nó” và “Thả”
nó ra. Vì nguyên tắc đơn giản nên bạn cần kết hợp với chiêu “Mã hóa dữ liệu dạng Text” mới có “Cơ
may” qua mặt kẻ thù.
Đoạn mã : (Khi Runtime nhớ nhập đường dẫn và nội dung)
Public Function Dat_Thong_Diep(DuongDan As String, ThongDiep As String) As
String
Open DuongDan For Binary As #1
Dim BoDem As String
BoDem = Space(LOF(1))
Get #1, , BoDem
Close #1
Dim Message As String
Open DuongDan For Binary As #2
Message = BoDem & ThongDiep & Chr(Len(ThongDiep))
Put #2, , Message
End Function
Public Function Lay_Thong_Diep(DuongDan As String) As String
Open DuongDan For Binary As #1
Dim BoDem As String
BoDem = Space(LOF(1))
Get #1, , BoDem
Close #1
Dim Message As String
Dim LuuC As String
LuuC = Right(BoDem, 1)
Message = Right(BoDem, Asc(LuuC) + 1)
Message = Left(Message, Len(Message) - 1)

Lay_Thong_Diep = Message
End Function
Private Sub CmdEncrypt_Click()
If txtPath <> "" And txtContains <> "" Then
Dat_Thong_Diep Trim$(txtPath), Trim$(txtContains)
End If
End Sub
Private Sub CmdDecrypt_Click()
txtContains = ""
If txtPath <> "" Then
txtContains = Lay_Thong_Diep(Trim$(txtPath))
End If
End Sub