Oder eine "praktikable" schnelle Lösung anbieten?

Hier die einfachste Lösung in Visual Basic.

Hier die "einfachen" (für wen einfach?) Ereignisbehandlungsroutinen in Visual Basic

Private Sub Command1_Click()    'Verschlüsseln
   t = Text1.Text
  neuertext = ""
  for i = 1 To Len(t)
       zeichen = Mid$(t, i, 1)
       ascii = Asc(zeichen)
       asciineu = ascii + 1
       neuertext = neuertext + Chr(asciineu)
   Next
   Text1.Text = neuertext
End Sub

Private Sub Command3_Click()    'Entschlüsseln
   t = Text1.Text
   neuertext = ""
   For i = 1 To Len(t)
        zeichen = Mid$(t, i, 1)
        ascii = Asc(zeichen)
        asciineu = ascii - 1
        neuertext = neuertext + Chr(asciineu)
    Next
    Text1.Text = neuertext
End Sub

Private Sub Command2_Click()
    End
End Sub

< ZURÜCK