Verschlüsselung 2

Question

 

Hallo Leute!!

Ich bin gerade dabei eine Verschlüsselungsmaschiene zu bauen habe aber ein Problem. Eigentlich sollte das prog z.b aus allen eingegebenen A´s ein k machen das würe jetzt im Quellcode so aus sehen.

 

Code Snippet

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

RichTextBox1.Text = RichTextBox1.Text.Replace("A", "K")

RichTextBox1.Text = RichTextBox1.Text.Replace("a", "K")

RichTextBox1.Text = RichTextBox1.Text.Replace("B", "L")

RichTextBox1.Text = RichTextBox1.Text.Replace("b", "L")

RichTextBox1.Text = RichTextBox1.Text.Replace("C", "M")

RichTextBox1.Text = RichTextBox1.Text.Replace("c", "M")

RichTextBox1.Text = RichTextBox1.Text.Replace("D", "N")

RichTextBox1.Text = RichTextBox1.Text.Replace("d", "N")

RichTextBox1.Text = RichTextBox1.Text.Replace("E", "O")

RichTextBox1.Text = RichTextBox1.Text.Replace("e", "O")

RichTextBox1.Text = RichTextBox1.Text.Replace("F", "P")

RichTextBox1.Text = RichTextBox1.Text.Replace("f", "P")

RichTextBox1.Text = RichTextBox1.Text.Replace("G", "Q")

RichTextBox1.Text = RichTextBox1.Text.Replace("g", "Q")

RichTextBox1.Text = RichTextBox1.Text.Replace("H", "R")

RichTextBox1.Text = RichTextBox1.Text.Replace("h", "R")

RichTextBox1.Text = RichTextBox1.Text.Replace("I", "S")

RichTextBox1.Text = RichTextBox1.Text.Replace("i", "S")

RichTextBox1.Text = RichTextBox1.Text.Replace("J", "T")

RichTextBox1.Text = RichTextBox1.Text.Replace("j", "T")

RichTextBox1.Text = RichTextBox1.Text.Replace("K", "U")

RichTextBox1.Text = RichTextBox1.Text.Replace("k", "U")

RichTextBox1.Text = RichTextBox1.Text.Replace("L", "V")

RichTextBox1.Text = RichTextBox1.Text.Replace("l", "V")

RichTextBox1.Text = RichTextBox1.Text.Replace("M", "W")

RichTextBox1.Text = RichTextBox1.Text.Replace("m", "W")

RichTextBox1.Text = RichTextBox1.Text.Replace("N", "X")

RichTextBox1.Text = RichTextBox1.Text.Replace("n", "X")

RichTextBox1.Text = RichTextBox1.Text.Replace("O", "Y")

RichTextBox1.Text = RichTextBox1.Text.Replace("o", "Y")

RichTextBox1.Text = RichTextBox1.Text.Replace("P", "Z")

RichTextBox1.Text = RichTextBox1.Text.Replace("p", "Z")

RichTextBox1.Text = RichTextBox1.Text.Replace("Q", "A")

RichTextBox1.Text = RichTextBox1.Text.Replace("q", "A")

RichTextBox1.Text = RichTextBox1.Text.Replace("R", "B")

RichTextBox1.Text = RichTextBox1.Text.Replace("r", "B")

RichTextBox1.Text = RichTextBox1.Text.Replace("S", "C")

RichTextBox1.Text = RichTextBox1.Text.Replace("s", "C")

RichTextBox1.Text = RichTextBox1.Text.Replace("T", "D")

RichTextBox1.Text = RichTextBox1.Text.Replace("t", "D")

RichTextBox1.Text = RichTextBox1.Text.Replace("U", "E")

RichTextBox1.Text = RichTextBox1.Text.Replace("u", "E")

RichTextBox1.Text = RichTextBox1.Text.Replace("V", "F")

RichTextBox1.Text = RichTextBox1.Text.Replace("v", "F")

RichTextBox1.Text = RichTextBox1.Text.Replace("W", "G")

RichTextBox1.Text = RichTextBox1.Text.Replace("w", "G")

RichTextBox1.Text = RichTextBox1.Text.Replace("X", "H")

RichTextBox1.Text = RichTextBox1.Text.Replace("x", "H")

RichTextBox1.Text = RichTextBox1.Text.Replace("Y", "I")

RichTextBox1.Text = RichTextBox1.Text.Replace("y", "I")

RichTextBox1.Text = RichTextBox1.Text.Replace("Z", "J")

RichTextBox1.Text = RichTextBox1.Text.Replace("z", "J")

 

End Sub

End Class

 

 

Aber wenn ich jetzt zum Beispiel Hallo umwandeln will kommt "BEFFI" raus!! Ich binn jetzt schon seit 1 Stunde am überlegen aber ich finde keine Antwort! Könnt ihr mir helfen?

ichr könnt ja mal den Quellqode in ein neues Project einfügen mit nem Button1. Da könn t ihr es euch selber mal angucken!!!

 

 

Danke schonmal im vorraus!

 

Answer 1

Das ganze funktioniert nicht weil du z. b. Aus A ein K machst. Später werden aber aus den K's Us gemacht. Aus den Us werden am ebde E's. Ich weis ja nicht ob das beabsichtigt ist, dass du schon etwas geändertes wieder und wieder änderst.

Answer 2

Naja eigentlich sollte das nicht sein aber wie kann ich das verhindern?

Hast du da eine Ahnung oder geht das gar net?

 

 

Danke schonmal im vorraus=)!

Answer 3

Naja ich glaube das hatte ich schon mal in einem anderen Thread gesagt, dass ich das ganze mit einer Schleife machen würde und nicht mir StringReplace. Der Vorteil der schleife ist, dass immer nur ein Zeichen ersetzt werden würde und diese Ersetzung auch Endgültig wäre.

Dein System so zu ändern, dass nichts mehrfach verändert wird dürfte recht schwer sein.

Answer 4

 

S_A_S Ich kann nur über dich staunen! So schell und genau wie du immer Antwortest=)

 

DANKE!!!

 

mfg. bigGermanBomber

Answer 5

 

warum benutzt Du nicht einen char[20] oder einen String?

Und dann richTextbox1.Text = ...

Das ist doch viel weniger Code. Du kannst dieselbe Variable immer neu laden.

 

mfg

[e-mail]