Как закодировать конкретную строку Caesar Cipher vb10

Question

Я создаю программу с функцией шифрования и дешифрования. Проблема в том, что он должен работать только с статической строкой кода. Он должен зацикливаться, когда входной текст является последним. Например, String является «ABCDE ... Z1234567890», когда я вводил 0, а ключ - 2, текст Cipher должен быть B. У меня есть четыре текстовых поля для ключа, ввода, открытого текста и зашифрованного текста. Вот мой код.

Public Class Form1 
     Dim key As Integer 
Const Intext As String = "abcdefghijklmnopqrstuvwxyz1234567890" 
Private Sub btCipher_Click(sender As Object, e As EventArgs) Handles btCipher.Click 

    Dim plain, s, r As String 
    Dim i, j As Long 
    key = Val(txtKey.Text) 
    plain = txtInput.Text 
    For i = 1 To Len(plain) 
     r = Mid$(plain, i, 1) 
     j = (InStr(1, Intext, r)) 
     If key > 36 Then 
      s = s & Mid$(Intext, j + (key - 36), 1) 
     Else 
      s = s & Mid$(Intext, j + key, 1) 
     End If 

    Next i 

    txtResult.Text = s 
End Sub 

Private Sub btDecipher_Click(sender As Object, e As EventArgs) Handles btDecipher.Click 

    Dim plain, s, r As String 
    Dim i, j As Long 
    key = Val(txtKey.Text) 
    plain = txtResult.Text 
    For i = 1 To Len(plain) 
     r = Mid$(plain, i, 1) 
     j = (InStr(1, Intext, r)) 
     If key > 36 Then 
      s = s & Mid$(Intext, j + (key - 36), 1) 
     Else 
      s = s & Mid$(Intext, j - key, 1) 
     End If 
    Next i 

    txtText.Text = s 
End Sub End Class 

Моя проблема в том, что она не зацикливается. Может, кто-то может помочь. Спасибо.

Answer 1

Я не уверен, почему ваш код не работает, но попробуйте этот код вместо:

Public Class Form1 

    Const Intext As String = "abcdefghijklmnopqrstuvwxyz1234567890" 

    Private Function Transcode(text As String, map As Dictionary(Of Char, Char)) As String 
     Return New String(text.Select(Function(x) If(map.ContainsKey(x), map(x), x)).ToArray()) 
    End Function 

    Private Sub btCipher_Click(sender As Object, e As EventArgs) Handles btCipher.Click 
     Dim key = Val(txtKey.Text) 
     Dim map = _ 
      Intext _ 
       .Zip(Intext.ToCharArray().Concat(Intext.ToCharArray()).Skip(key), Function(f, t) New With {f, t}) _ 
       .ToDictionary(Function(x) x.f, Function(x) x.t) 
     txtResult.Text = Transcode(txtInput.Text, map) 
    End Sub 

    Private Sub btDecipher_Click(sender As Object, e As EventArgs) Handles btDecipher.Click 
     Dim key = Val(txtKey.Text) 
     Dim map = _ 
      Intext _ 
       .Zip(Intext.ToCharArray().Concat(Intext.ToCharArray()).Skip(key), Function(f, t) New With {f, t}) _ 
       .ToDictionary(Function(x) x.t, Function(x) x.f) 
     txtText.Text = Transcode(txtResult.Text, map) 
    End Sub 

End Class 

Я проверил алгоритм и он работает отлично.