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

1 472 0
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

Đang tải... (xem toàn văn)

Thông tin tài liệu

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 . 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. 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

Ngày đăng: 24/10/2013, 14:20

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan