두 개씩 묶어서 암호화, 해독화

암호화 구간

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("평문을 영어소문자로 입력하고 버튼을 누르세요", "경고 1")
            TextBox1.Focus()
        End If

        Dim iMunjang_length As Integer
        iMunjang_length = Len(TextBox1.Text)

        Dim sMunjang(iMunjang_length) As String

        For i = 0 To iMunjang_length - 1
            sMunjang(i) = Mid(TextBox1.Text, i + 1, 1)
        Next

        TextBox2.Text = ""
        For i = 0 To iMunjang_length - 1 Step 2
            TextBox2.Text += sMunjang(i + 1) & sMunjang(i)
        Next
    End Sub

해독화 구간

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox2.Text = "" Then
            MessageBox.Show("평문을 영어소문자로 입력하고 버튼을 누르세요", "경고 1")
            TextBox2.Focus()
        End If

        Dim iMunjang_length As Integer
        iMunjang_length = Len(TextBox2.Text)

        Dim sMunjang(iMunjang_length) As String
        For i = 0 To iMunjang_length - 1
            sMunjang(i) = Mid(TextBox2.Text, i + 1, 1)
        Next

        TextBox3.Text = ""
        For i = 0 To iMunjang_length - 1 Step 2
            TextBox3.Text += sMunjang(i + 1) & sMunjang(i)
        Next
    End Sub

그럼 두문자 앞뒤로 말고 세 문자는 어떻게 만들 수 있을까

간단하다.

암호화 구간

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("평문을 영어소문자로 입력하고 버튼을 누르세요", "경고 1")
            TextBox1.Focus()
        End If

        Dim iMunjang_length As Integer
        iMunjang_length = Len(TextBox1.Text)

        Dim sMunjang(iMunjang_length) As String

        For i = 0 To iMunjang_length - 1
            sMunjang(i) = Mid(TextBox1.Text, i + 1, 1)
        Next

        TextBox2.Text = ""
        For i = 0 To iMunjang_length - 1 Step 3
            TextBox2.Text += sMunjang(i + 2) & sMunjang(i + 1) & sMunjang(i)
        Next
    End Sub

해독화 구간