Variabeln einfach und schnell verschlüsseln bzw. entschlüsseln

[ReiAngel2k]

jaja ich weiss ich stelle viele fragen, aber ich bin halt ein noob, außerdem denk ich mal das es viele andere gibt die dieselben fragen haben ;)

Also: wie kann ich meine Variabeln ganz einfach verschlüsseln? Also z.B. Buchstaben vertauschen, oder in Zahlen umtauschen?

bzw. wie kann ich diese wieder entschlüsseln?

Übrigens: Wie öffne ich eine "Form" per CmdButton ... :rolleyes: ??

Vielen Dank für eine Antwort.. Wenn mein Programm fertig ist, werd ich es euch zeigen ;)

[Mimo]

Text zu verschlüsseln kann aufwendig werden. Aber Du hast ja das Wort "einfach" verwendet. :D

Also...

Am einfachsten ist simple eine XOR-Verknüpfung. Beispiel:

Dim s As String
Dim i As Integer

s = "the quick brown fox..."

For i = 1 To Len(s)
Mid$(s, i, 1) =Chr$( Asc(Mid$(s,i,1)) Xor 255)
Next i

Beim ersten Mal wird verschlüsselt, beim zweiten Aufruf wird entschlüsselt.



Eine Form anzeigen geschieht so:

Form2.Show vbModal

oder

Form2.Show vbModeless

wobei vbModeless weggelassen werden kann, da dies die Defaulteinstellung ist.

Gruss,
Mimo

[ReiAngel2k]

Jo beides hat wunderbar geklappt! danke nochmal! :D

[Bibolorean]

@ Mimo

Ich weiss ja eigentlich was XOR bedeutet.. aber das versteh ich doch nicht ganz.. :(

Kannst du mir vielleicht erklären, wie das funktioniert? ;(


Danke im Voraus!! :D

Greetz Bìbòlorean

[Mimo]

Was verstehst Du nicht so ganz? Meinst Du jetzt rein das mit dem XOR?

Also Generell:

0 XOR 0 = 0
1 XOR 0 = 1
0 XOR 1 = 1
1 XOR 1 = 0

d.h. wenn man ein Byte aus dem zu verschlüsselnden Text mit 255 verXORt, dann sieht das halt so aus:

01011010 <- ein Zeichen aus dem String
11111111 <- die XOR-Maske
-------------
10100101 <- Ergebnis!

Wenn man das Ergebnis wiederum mit 255 verXORt, dann bekommt man den ursprünglichen Wert zurück.

Mimo