Übersetzungsprogramm

[Dr4g00n]

hallo,
ich hab da ein problem:
ich will ein einfaches programm zum übersetzen von ganzen texten in eine art "geheimschrift" erstellen, dass folgendes schaffen soll: z.B.: auf knopfdruck den text in text1 auf den text in text2 wiederspiegeln, unswar nach folgenden schema:
A=2010
B=1838
C=6969
...
aber ich kriegs irgenwie nur mit einzelnen buchstaben hin
könnett ihr mir vielleicht helfen?
danke im voraus,
Dr4g00n

 

[tombe]

Hi,

mach doch bei dem Button folgendes :

Dim a% 'für die For Next Schleife
Dim x$ 'zum Speichern/Umwandeln eines einzelnen Zeichens aus Text1

For a% = 1 To Len(Text1.Text)
  x$ = Mid(Text1.Text, a%, 1)
  'x$ enthält bei jedem Durchlauf der Schleife ein Zeichen nach dem anderen
  'Du musst halt noch das so ermittelte Zeichen entsprechend umwandeln
  Text2.Text = Text2.Text & x$
Next a%

Hoffe mal das war es was Du wolltest.

 

[Dr4g00n]

Hab zwar verstanden worum es geht, aber ich weiß leider nich in welche zeile ich die "original" und wo die "übersetzten" zeichen reinsetzten soll^^

Danke für die Hilfe

 

[tombe]

Dafür versteh ich jetzt nicht was Du damit meinst.

Du hast doch 2 Textfelder.
Das eine hat den Namen Text1 und in diesen gibst Du den unverschlüßelten Text ein.
Das andere hat den Namen Text2 und in diesem soll der verschlüßelte Text erscheinen.

Somit kannst Du doch mein Beispiel genau so übernehmen. Du mußt nur noch in der Zeile :

x$ = Mid(Text1.Text, a%, 1)

die Verschlüßelung anfügen.

Das hier scheint auch zu klappen :

Dim a(3), b(3), c%
a(0) = "2010"
a(1) = "1838"
a(2) = "6969"

b(0) = "A"
b(1) = "B"
b(2) = "C"

Text2.Text = Text1.Text

For c% = 0 To UBound(a)
    Text2.Text = Replace(Text2.Text, b(c%), a(c%))
Next c%

Die Arrays "a" und "b" müssen natürlich noch erweitert werden.

 

[Dr4g00n]

Vielleicht bin ich einfach zu dumm dafür, ich hab mir nähmlich alles was ich
über VB weiß (und das ist wirklich nicht viel) selbst "beigebracht"
Hab nähmlich fast garnix kapiert^^
Jedenfalls, da sind noch die restlichen übersetzungen:

A = 2010
B = 1838
C = 6969
D = 4757
E = 3546
F = 5324
G = 7705
H = 9973
I = 8192
J = 0201
K = 0102
L = 8381
M = 9696
N = 7574
O = 6453
P = 4235
Q = 3799
R = 5077
S = 1467
T = 9897
U = 1576
V = 3208
W = 1140
X = 6778
Y = 9740
Z = 9999

wenn ich mich bei VB wirklich gut auskennen würde,
wär ich hier nich angemeldet ^^^^

 

[Dr4g00n]

Wenn du willst kann ich dir das programm schicken,
die Funktion einen verschlüsselten Text normal anzuzeigen
ist natürlich noch nich vorhanden, aber vielleicht verstehst du
was genau ich meine
Meine E-Mail:
Drag00n@hotmail.de

Gib mir einfach deine E-Mail falls du willst das ich dir die
Anwendung schicke

 

[tombe]

Meine Version für das Übersetzungsprogramm

Hi,

hab bis jetzt noch nix von Dir bekommen. Darum hab ich jetzt mal ein kleines Programm entworfen.

Beim Ver- bzw. Entschlüsseln werden hier die Buchstaben A - Z, a - z, Ä, Ö, Ü, ä, ö, ü, die Zahlen 0 - 9 sowie Leerzeichen, Punkt, Komma, Ausrufezeichen und Fragezeichen berücksichtigt.

Man kann entweder in das Textfeld 1 einen "normalen" Text eingeben und diesen laut Deiner numerischen Tabelle verschlüsseln lassen oder aber in das Textfeld 2 einen verschlüsselten Text eingeben und diesen dann in einen lesbaren Text entschlüsseln.

Schaus Dir mal an und melde Dich ob es das ist was Du wolltest.

 

[Norbert Eder]

Ich mische mich ja nur ungern ein, aber bei dieser Verschlüsselung (Cäsar läßt grüßen) genügt ein Blick auf die verschlüsselten Daten und ein halbwegs intelligenter Informatiker weiß was er zu tun hat.
Warum nicht eine Verschlüsselungsbibliothek verwenden? Sollten doch durchaus auch für VB6 entsprechende Libraries verfügbar sein.

 

[tombe]

Ave Cäsar bzw. Hallo Norbert,

ich glaub nicht das es ihm um die "perfekte" Verschlüsselung geht. Sonst hätte er ja nicht gleich die Lösung ins Forum geschrieben.

Vielleicht geht es ihm ja nur ums Prinzip wie man das Vorhaben lösen könnte.

P.S. Bitte steinigt mich nicht wenn ihr euch den Quellcode von mir anschaut. Ist bestimmt nicht die beste Art so was zu programmieren.