VB6.0: ROT13 verschlüsselung für zahlen und sonderzeichen.

Sesa_Mina · 05.09.2003, 23:36

In deinem Fall mit den 2 buttons würde ich das so machen:

Code:

Private Sub btnCodieren_Click()
   Textbox.text = EncodeStr64(XORCrypt(textbox.text))
End Sub

Private Sub btnDEcodieren_Click()
   Textbox.text = XORCrypt(DecodeStr64(Textbox.text))
End Sub

Somit wird der Text codiert bzw. decodiert.

Zweimaliges Anklicken des Selben buttons wird höchstwahrscheinlich
eine Fehlermeldung hervorrufen. Aber du kannst es ausprobieren.
"codiere" den Text einfach mal mehrfach hintereinander.
Du wirst ihn dann genauso oft "decodieren" müssen um wieder den
Originaltext zu erhalten.

05.09.2003, 23:36	#9
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	In deinem Fall mit den 2 buttons würde ich das so machen: Code: Private Sub btnCodieren_Click() Textbox.text = EncodeStr64(XORCrypt(textbox.text)) End Sub Private Sub btnDEcodieren_Click() Textbox.text = XORCrypt(DecodeStr64(Textbox.text)) End Sub Somit wird der Text codiert bzw. decodiert. Zweimaliges Anklicken des Selben buttons wird höchstwahrscheinlich eine Fehlermeldung hervorrufen. Aber du kannst es ausprobieren. "codiere" den Text einfach mal mehrfach hintereinander. Du wirst ihn dann genauso oft "decodieren" müssen um wieder den Originaltext zu erhalten. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)