008
19.03.2006, 11:51 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Also eigentlich dachte ich, es gibt einen VB eigenen Ersetzungsbefehl, damit ginge es sehr einfach, hatte auchmal ein Programm von FlAsH von sXene Software, das genau das konnte, mit dem Ersetzen der Zahlen.
Also, so wie FloSoft es beschrieben hatte sieht es für mich so aus...
Am nennst du die beiden Textboxen "txtVorher" für das eingeben des Wortes und "txtNachher" als Textbox für das verschlüsselte Wort. Der CommandButton heißt "cmdVerschluesseln". Nebenbei ist diese von Reyx angedeutete Caesar Verschlüsselung ziemlich unsicher... Aber naja, ich glaube nicht, dass zu z.b. firmeneigene hochsichere Daten damit verschlüsseln willst ^^ also schreiten wir zum Werk:
| Visual Basic: |
Option Explicit
'Du machst erstmal eine Funktion, die Ersetzungsfunktion für dein Programm.
Private Function Ersetzen()
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "A", "E")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "a", "e")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "B", "P")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "b", "p")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "C", "S")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "c", "s")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "D", "T")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "d", "t")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "E", "I")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "e", "i")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "F", "W")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "f", "w")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "G", "K")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "g", "k")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "H", "N")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "h", "n")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "I", "U")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "i", "u")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "J", "V")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "j", "v")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "K", "G")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "k", "g")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "L", "C")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "l", "c")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "M", "L")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "m", "l")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "N", "R")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "n", "r")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "O", "J")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "o", "j")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "P", "B")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "p", "b")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "Q", "X")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "q", "x")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "R", "H")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "r", "h")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "S", "M")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "s", "m")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "T", "D")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "t", "d")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "U", "O")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "u", "o")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "V", "F")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "v", "f")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "W", "Z")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "w", "z")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "X", "Q")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "x", "q")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "Y", "A")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "y", "a")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "Z", "J")
txtNachher.Text = txtNachher.Text & Replace(txtVorher.Text, "z", "j")
End Function
Private Sub cmdVerschluesseln_Click()
Call Ersetzen
End Sub
|
Die Funktion Ersetzen überprüft nun of in txtVorher ein bestimmter String ist und ersetzt diesen.
Dies ist weitaus nicht die elleganteste Lösung, weil ich für jeden Buchstaben eine eigene Funktion angesetzt hab. Aber so geht es auf jeden Fall.
| Bearbeitung: |
ACHTUNG!
So wie ich mir das oben gedacht habe, klappt es doch nicht! Eigentlich klar, wenn man sich z.b. anguckt wie er Test übersetzt, komme ich auf:
"TestTestTestTestTestTestTestTestTestTistTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTemtDestTesdTestTestTestTestTestTestTestTestTestTestTestTest"
Da sind nun einige Wörter drin wie "Tist", "Temt", "Dest" und "Tesd" die unserer Verschlüsselung schon näherkommen... Aber meine Funktion ist nicht ganz ausgereift... Ich bleibe an dem Thema auf jeden Fall dran und versuche, bald ein Ergebnis zu liefern 
Bis dann, Audron
|
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
Dieser Post wurde am 19.03.2006 um 11:53 Uhr von Audron-AT-www editiert. |
