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

[Sesa_Mina]

Aufruf:

Dim codiert as String, decodiert as String
codiert = EncodeStr64(XORCrypt(textbox.text))
decodiert = XORCrypt(DecodeStr64(codiert))

Statt textbox.text kannst du auch eine beliebige Variable vom Typ
String, welche beliebigen Text enthalten kann, verwenden.


Hierbei wird der Text zuerst mit einem Schlüssel codiert und danach
noch base64 drübergejagt um nur Buchstaben von A-Z zu bekommen oder
so. Funktioniert ganz gut und in Verbindung mit dem Schlüssel wird
das ganze auch recht sicher.
Beim Decodieren wird das ganze umgekehrt gemacht wobei natürlich der
selbe Schlüssel verwendet werden muss.