VB - Caesar Cipherエミュレーション

Question

私はCaesar Cipher暗号化をエミュレートしようとしています。問題は、 "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より大きくならないことを確認する必要があります。その点を超えると、句読点、記号、そのようなものが得られます。 Googleの "ASCIIテーブル"とあなたは簡単に自分のためにそれを見ることができます。

あなたの問題を解決するには、シフト後に取得するAsciiコードが122より大きい場合は、「a」のアスキーである97に戻ります。これに代えので

、：

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

あなたはshiftが26より大きい場合、これは安定するだろうとはありませんかなり確実

  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 

ような何かを行う必要がありますが、とにかくあなたはすでにをチェックそれがうまくいくはずです。