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 va txtContains.. Hai command button dat tén lần lượt là
Trang 1Dấ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 va txtContains Hai command button dat 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ù
Đoan 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()
Tf txtPath <> "" And txtContains <> "" Then
Dat Thong Diep Trim$(txtPath), Trims (txtContains)
End If —
End Sub
Private Sub CmdDecrypt Click()
txtContains = ""
Tf txtPath <> "" Then
txtContains = Lay Thong Diep(Trim$ (txtPath) )
End If