Phương pháp mã hóa và giải mã

Select Between/Not between

Một phương pháp mã hoá và giải mã văn bản dạng text

Võ Công Chương

Phương pháp mã hoá văn bản mà tôi sắp nêu ra sau dây cũng là một trong những

phương pháp mã hoá thông thường, hy vọng nó sẽ là một phương pháp mới trong sổ tay lập trình của các bạn yêu Tin học

Trong phương pháp này, văn bản cần mã hoá hay giải mã của chúng ta là một dãy kí tự

Tuỳ thuộc vào khoá (keyID: là một số nguyên kiểu longInt) do chúng ta đưa vào mà kết

quả của phương pháp sẽ khác nhau Điều này nghĩa là nếu văn bản được mã hoá theo một khoá nào đó thì khi giải mã ta cũng phải dùng lại ngay chính khoá đó Do vậy, mặc dầu phương pháp mã hoá này ai cũng biết nhưng họ chỉ giải mã được văn bản đã được mã hoá một khi họ biết được khoá dùng để mã hoá văn bản ấy Mô hình mã hoá và giải mã được biểu diễn như hình 1

Nhận xét: Ta cũng có thể mã hoá văn bản của ta qua N lần bởi N khoá khác nhau Khi

đó, công việc giải mã phải làm ngược lại, nghĩa là phải giải mã N lần với N khoá tương ứng đã dùng Biểu diễn quá trình này ở hình 2

Như vậy, ta phải có hai hàm, hàm thứ nhất dùng để mã hoá, hàm thứ hai dùng để giải mã Tuy nhiên, trong hàm mà tôi cài đặt sau đây nó đảm nhận cả hai chức năng trên (Bạn hãy

để ý toán tử Xor trong giải thuật) Giải thuật trong hàm này không có gì phức tạp Toàn

bộ mã nguồn của hàm được cài đặt trong VB như sau:

Function MyEncrypt(MyStr As String, keyID As Long) As String

′Vào: MyStr là văn bản cần mã hoá hay giải mã

′ keyID là khoá dùng cho việc mã hoá hay giải mã

′Ra: Trả lại văn bản đã được mã hoá/giải mã

Dim i As Integer

Dim stepNum As Integer

Dim keyIDtmp As Integer

Dim tmp As String

Dim ch As String

Dim byteArray() As Byte

tmp = Trim$(Str(keyID))

keyID = 0

For i = 1 To Len(tmp)

keyID = keyID + CLng(Mid(tmp, i, 1))

Next i

While (keyID > 255)

keyID = -1 + (keyID - 255)

Wend

ReDim Preserve byteArray(Len(MyStr))

For i = 1 To Len(MyStr)

byteArray(i) = Asc(Mid(MyStr, i, 1))

stepNum = keyID + i

While (stepNum > 255)

stepNum = -1 + (stepNum - 255)

Wend

byteArray(i) = byteArray(i) Xor CByte(stepNum)

Next i

tmp = ″ ″

For i = 1 To Len(MyStr)

tmp = tmp & Chr(byteArray(i))

Next i

MyEncrypt = tmp

End Function

Từ nay, sau khi có được phương pháp mã hoá này, chúng ta sẽ trao đổi tài liệu mật cho nhau mà không sợ bị người khác đọc được Tất nhiên, hai người trao đổi tài liệu đó phải qui định khoá dùng cho cho công việc mã hoá và giải mã tài liệu của mình