VB - Caesar Cipher 에뮬레이션

Question

시저 암호를 에뮬레이트하려고합니다. 문제는 "wxyz"를 입력 할 때마다
(시프트 3) 출력이 "z {|}"입니다. 그러나 예상되는 출력은 "zabc"여야합니다.

누구에게 추가 할 항목이 있습니까?

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
      Dim plaintext As String = TextBox1.Text 
      Dim charArray() As Char = plaintext.ToCharArray 
      Dim shift = TextBox2.Text 
      Dim character As String 
      Dim temp As String 
      TextBox3.Text = "" 



      If shift <> "" And IsNumeric(shift) Then 
       If plaintext = "" Then 
        MsgBox("Please input some plain text") 
        Exit Sub 
       End If 
       If shift > 26 Then 
        MsgBox("Maximum shifts reached. Limit is 26!!") 
        Exit Sub 
       End If 
       For loope = 0 To charArray.Length - 1 Step +1 
        temp = charArray(loope) 

        character = Chr(Asc(temp) + shift) 

        TextBox3.Text += character 


       Next 
       Exit Sub 
      Else 
       MsgBox("Input numbers only!!") 
      End If 


     End Sub 

Answer 1

Ascii 코드를 이동할 때 문자 "z"에 대한 Ascii 코드 인 122보다 크지 않은지 확인해야합니다. 그 점을 넘어 서면 구두점, 기호 및 그 물건을 얻을 수 있습니다. 구글 "ASCII 테이블"그리고 당신은 쉽게 그것을 직접 볼 수 있습니다.

문제를 해결하기 위해 이동 후 얻는 Ascii 코드가 122보다 큰 경우 돌아가서 "a"에 대한 ascii 인 97에서 다시 시작해야합니다. 대신이의 그래서

:

  For loope = 0 To charArray.Length - 1 Step +1 
       temp = charArray(loope) 
       character = Chr(Asc(temp) + shift) 
       TextBox3.Text += character 
      Next 

당신이해야 할 일

같은

  For loope = 0 To charArray.Length - 1 Step +1 
       temp = charArray(loope) 
       character = Chr(Asc(temp) + shift) 
       ' You substract 26, the whole length of the alphabet 
       If character > 122 Then 
        character = character - 26 
       End If 
       TextBox3.Text += character 
      Next 

shift 26보다 큰 경우이 안정 될 것이지만, 어쨌든 당신은 이미 확인하는 것이

어떤 확신하지의 가치 그래서 그것을 작동합니다.