Ich würde mir einen pseudozufälligen Text bauen, der auf einen geheimen Hashwert basiert
Verschlüsseln vorbereiten:
secret = "meingeheimis"
doc = new NotesDocument()
random = doc.universalID ' erzeugt einen 32stelligen Zufallswert, damit nicht alle Textfiles mit dem gleichen XOR-Stream verschlüsselt werden
xorstream = random ' Startwert, dieser darf noch nicht zur Verschlüsselung verwendet werden
xorstream = @Passwort( xorstream + secret) ' erster 32 stelliger Wert (=16 Byte, 8 Uni-Zeichen!), mit dem du deinen Text verschlüsseln kannst.
Durch wiederholte Anwendung von "xorstream = @Passwort( xorstream + secret)" bekommst du einen pseudozufälligen Stream.
diesen kannst du mit Hilfe von UNI + MID auf deinen Klartext los lassen (also mit MID jeweils einen Buchstaben raus schneiden)
In dein Textfile musst du dann den Wert von "random" (ersten 32 Zeichen) und von deinem XOR-Stream rein schreiben.
Das "secret" muss über einen sicheren Kanal an die Gegenseite übergeben werden
Die Gegenseite kann daraus den selben XOR-Stream ableiten und den Text wieder herstellen.
Dieses Verfahren sollte, sofern das Secret geheim bleibt, schwer knackbar sein.
Gruß
Roland
/edit: würde aber auch "was richtiges" vorziehen, für Twofish scheint es ja schon eine VB-Implementierung zu geben.