Почему это дешифрование не работает?

Question

Код, представленный в пределах звезд, не работает. Я пытаюсь расшифровать зашифрованную форму, но неудачно.

Dim SmpleFile As String ' the encrypted text 
    Dim tf As String = "" 
    Dim plaintext As String = "" 
    Dim Factor As Integer = Val(lblOffsetFac.Text) 
    Dim cyphertextch As Integer 

    SmpleFile = lblEncdText.Text 

    For Each ch As Char In SmpleFile 
     'This means the spaces wont change 
     If ch = " " Then 
      cyphertextch = 32 
     Else 'If the character doesnt = " " 
      'This means that if the number is less 
      'than 33, 94 will be added to make the 
      'character convertable and correct. 

      cyphertextch = Asc(ch) 
      cyphertextch = cyphertextch + Factor 

      If cyphertextch < 33 Then 
       cyphertextch = cyphertextch + 94 

      End If 

     End If 
     **plaintext += Chr(cyphertextch)** 

    Next 
    'This displays the newly decyped textfile which is the same as sample.txt 
    lblDecdText.Text = plaintext 
    lblDecdText.Visible = True 
End Sub 

Мне сказали, что я не был допущен кричать, но если бы я мог, это все будет в столицах, чтобы выразить мое отчаяние

Answer 1

Вы должны либо использовать plaintext = plaintext & Chr(cyphertextch). & is an operator in VB.NET to perform string concatenation. В качестве альтернативы вы также можете использовать StringBuilder.append.