การเข้ารหัส และ ถอดรหัส ด้วยตรรกศาสตร์ XOR (eXclusive OR) - ภาค 2

Option Explicit

' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' American Standard Code for Information Interchange - ASCII (แอสกี้)
' http://www.ascii.ca/cp874.htm
' http://en.wikipedia.org/wiki/ASCII
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()

    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    txtData.Text = "This is a book"
    txtKey.Text = "+-*/"	' KEY
    txtEncrypt.Text = ""
    txtDecrypt.Text = ""
    
End Sub

' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' เริ่มต้นการเข้ารหัส และ ถอดรหัส
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdRun_Click()

    If Trim(txtData.Text) = "" Or Len(Trim$(txtData.Text)) = 0 Then Exit Sub
    If Trim(txtKey.Text) = "" Or Len(Trim$(txtKey.Text)) = 0 Then Exit Sub
    
    txtEncrypt.Text = ""
    txtDecrypt.Text = ""

    ' ให้เข้ารหัสด้วยการ eXclusive OR - XOR พร้อมกับตัวเข้ารหัส
    ' ตัวเข้ารหัส หรือ กุญแจ (txtKey.Text)
    txtEncrypt.Text = Encrypt(txtData.Text, txtKey.Text)
    ' อ่านวิธีการแปลงเลขฐาน 10 เป็นเลขฐาน 2 ประกอบด้วยครับ
    ' http://www.g2gnet.com/News/activenews_view.asp?articleID=129
    
    ' ถอดรหัสด้วยการ eXclusive OR - XOR พร้อมกับตัวถอดรหัส
    txtDecrypt.Text = Decrypt(txtEncrypt.Text, txtKey.Text)
    
End Sub

' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' การเข้ารหัสแบบง่ายๆอาศัยหลักการของ XOR - บิตใดเหมือนกันจะได้ 0 บิตใดที่ต่างกันจะได้ 1
' ให้ MyData รับค่าชุดข้อความเพื่อเข้ารหัส
' XORvalue รับค่าตัวเข้ารหัส หรือ กุญแจ
' และคืนค่ากลับจากฟังค์ชั่นไปด้วย
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Encrypt(MyData As String, KEY As String) As String
    Dim i As Integer
    
    ' ตัวแปรเพื่อหาตำแหน่งของ KEY ที่จะนำไป XOR
    Dim PositionKEY As Integer

    ' วนรอบเพื่อเข้ารหัสตามจำนวนความยาวของข้อมูล (txtData.Text)
    For i = 1 To Len(MyData)
    
        ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Mod คือ การหารเอาเศษ
        ' การ Mod  ค่าสูงสุดที่ได้จะมีจำนวนน้อยกว่าตัวหาร - 1 เสมอ เช่น
        ' X Mod 3  คำตอบที่เป็นไปได้ คือ 0, 1, 2
        ' X Mod 7  คำตอบที่เป็นไปได้ คือ 0, 1, 2, 3, 4, 5, 6
        ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        ' ชุดคำสั่งนี้ คือ การหาตำแหน่งของ KEY ซึ่งจะวนรอบตามความยาวของ MyData
        PositionKEY = ((i - 1) Mod Len(KEY)) + 1
        ' สมมุติตัวอย่าง
        ' ให้ MyData = "ABCDE" ... ความยาว 5 ตัว
        ' Key = "123" ... ความยาว 3 ตัว
        ' การคำนวณ ((i - 1) Mod Len(KEY)) + 1 ... จะเริ่มต้นหลักที่ 1 เสมอ (เพราะมี +1 ตามหลัง)
        ' โดยที่หากสิ้นสุดค่า Key แล้วก็จะเริ่มต้นกลับไปที่หลักที่ 1 ของ Key ใหม่อีกรอบ (เราใช้ Mod มาช่วยไงล่ะครับ)
        ' จะทำให้ได้ตำแหน่งของ Key เป็นดังนี้
        ' ตัวที่ 1, 2, 3, 1, 2 ... ครบ 5 รอบพอดี
        
        ' การเข้ารหัสตัวอักขระ (Character) เข้ากับ KEY ทีละตัว โดยค่า KEY มีการเปลี่ยนแปลงไปตามตำแหน่ง
        Encrypt = Encrypt + Chr$(Asc(Mid$(MyData, i, 1)) Xor Asc(Mid$(KEY, PositionKEY, 1)))
    
    Next
    

End Function

' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' การถอดรหัส (Decrypt) ก็แค่ทำย้อนกลับด้วยวิธีการเดิม ค่าเดิม ...
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Decrypt(MyData As String, KEY As String) As String
    Dim i As Integer
    Dim PositionKEY As Integer
    
    ' วนรอบเพื่อเข้ารหัสตามจำนวนความยาวของข้อมูล (txtData.Text)
    For i = 1 To Len(MyData)
    
        PositionKEY = ((i - 1) Mod Len(KEY)) + 1
        
        Decrypt = Decrypt + Chr$(Asc(Mid$(MyData, i, 1)) Xor Asc(Mid$(KEY, PositionKEY, 1)))
    
    Next
 
End Function