Các chiêu thức trong lập trình Mã hoá dữ liệu dạng text home

Mã hoá dữ liệu dạng text home
Nói qua : Phần này rất hay các bạn nên chú ý trong thực tế ứng dụng nên sử dụng một file trung gian
để chứa dữ liệu được mã hoá
Xuất xứ : www.vbcode.com
Binh khí sử dụng : 2 Nút ấn với tên lần lượt là cmdEncode và cmdDecode, 3 TextBox với tên lần lượt là
txtDulieu , txtKetQua và txtGiaiMa (Để test thì vậy là đủ còn tôi tất nhiên phải “Màu mè” hơn rồi)
Nguyên tắc : “Băm nhỏ” từng ký tự trong chuỗi sau đó phân tích chúng ra mã Ascii, sau đó cộng thêm
với mã Ascii này một hằng số (Ở đây chính là “Khóa mã”), rồi chuyển số Ascii vừa tìm được ra lại dạng
ký tự, cuối cùng tiến hành “Ghép” lại các ký tự tạo thành chuỗi dữ liệu bị mã hóa.
Đoạn mã :
Public Function Encode(Data As String, Optional Depth As Integer) As String
Dim TempChar As String
Dim TempAsc As Integer
Dim NewData As String
Dim vChar As Integer
For vChar = 1 To Len(Data)
TempChar = Mid$(Data, vChar, 1)
TempAsc = Asc(TempChar)
If Depth = 0 Then Depth = 40
If Depth > 254 Then Depth = 254
TempAsc = TempAsc + Depth
If TempAsc > 255 Then TempAsc = TempAsc - 255
TempChar = Chr(TempAsc)
NewData = NewData & TempChar
Next vChar
Encode = NewData
End Function
Public Function Decode(Data As String, Optional Depth As Integer) As String
Dim TempChar As String
Dim TempAsc As Integer
Dim NewData As String

Dim vChar As Integer
For vChar = 1 To Len(Data)
TempChar = Mid$(Data, vChar, 1)
TempAsc = Asc(TempChar)
If Depth = 0 Then Depth = 40
If Depth > 254 Then Depth = 254
TempAsc = TempAsc - Depth
If TempAsc < 0 Then TempAsc = TempAsc + 255
TempChar = Chr(TempAsc)
NewData = NewData & TempChar
Next vChar
Decode = NewData
End Function
Private Sub CmdEncode_Click()
TxtKetqua.Text = Encode(txtDulieu.Text, 9)
End Sub
Private Sub cmdDecode_Click()
txtGiaiMa.Text = Decode(TxtKetqua.Text, 9)
End Sub
‘ Chú ý : Ở chỗ số 9 chính là số ta cần để lựa chọn kiểu Mã hoá hay Giải mã