[gelöst] String 'verschlüsseln'
Verfasst: Mi, 28.07.2010 16:29
Hallo,
Thomas hat in seinem Buch ein Beispiel für eine einfache Verschlüsselung von Text in einem WriterDokument.
Dieses Beispiel wollte ich jetzt soweit abändern, dass ich lediglich einen String 'codiere'. Der Hintergrund ist der, dass man die HSQLDB ja nicht per Passwort verschlüsseln kann. Ich möchte das Öffnen der DB nun etwas per Marko und Passwortabfragedialog erschweren und das entsprechende Passwort aber nicht im Klartext abspeichern.
Hier das Beispiel:
Könnt ihr mal dabei helfen, das auf eine einfach Stingvariable anzuwenden?
Danke schon mal.
Thomas hat in seinem Buch ein Beispiel für eine einfache Verschlüsselung von Text in einem WriterDokument.
Dieses Beispiel wollte ich jetzt soweit abändern, dass ich lediglich einen String 'codiere'. Der Hintergrund ist der, dass man die HSQLDB ja nicht per Passwort verschlüsseln kann. Ich möchte das Öffnen der DB nun etwas per Marko und Passwortabfragedialog erschweren und das entsprechende Passwort aber nicht im Klartext abspeichern.
Hier das Beispiel:
Code: Alles auswählen
Sub crypON
Dim oDoc as object, oSuche as object
oDoc = ThisComponent
oSuche = oDoc.createReplaceDescriptor
for iZeichen = 40 to 122
oSuche.setSearchString(CHR(iZeichen))
oSuche.setReplaceString(CHR(iZeichen-5))
oSuche.SearchCaseSensitive = True
oDoc.ReplaceAll(oSuche)
next
End Sub
Sub crypOFF
Dim oDoc as object, oSuche as object
oDoc = ThisComponent
oSuche = oDoc.createReplaceDescriptor
for iZeichen = 117 to 35 step -1
oSuche.setSearchString(CHR(iZeichen))
oSuche.setReplaceString(CHR(iZeichen+5))
oSuche.SearchCaseSensitive = True
oDoc.ReplaceAll(oSuche)
next
End Sub
Danke schon mal.