XProfan

Italia

Torben
Nissen

Guten Morgen,
ich beschäftige mich im Moment mit dem Thema Datensicherheit. (DSGVO lässt grüßen

) Ich würde gerne Datenbankdateien verschlüsseln und habe im Foro auf xprofan.de einen alten Eintrag vom März 2003 gefunden. Dort wird beschrieben, dass das Verschlüsseln mit der Prospeed.dll schnell gehen würde. Gibt es noch die dll? Alle alten Links funktionieren nicht mehr.

Der folgende Quelltext stammt von Frank (von xprofan.de):

Kompilieren Markieren Separieren

Crypt (B,A,S,L)
Verschlüsselt Daten in einem Bereich mit einem beliebig langen Password. Bei zweimaligem gleichem Aufruf sind die originalen Daten
wieder hergestellt.
B : Long - Bereichsvariable, in der die Daten gespeichert sind
A : Long - Anzahl zu verschlüsselnder Bytes
S : Long - Pointer auf einen String (oder Bereich), in dem das Password gespeichert ist
L : Long - Länge des Passworts
Ergebniss: Long - 0
Eine superschnelle und relativ sichere Datenverschlüsselung auf XOR-Password-Basis.
Beispiel:
name$="Datenfile.dat"
x&=@FileSize(name$)
ReadFileFast(addr(name$),bereich#,0,x&)'File/Daten in Bereichsvariable einladen
passwort$="CryptMe"'Password ist "CryptMe"
Crypt(bereich#,x&,addr(passwort$),len(passwort$))'Daten aus dem Bereich verschlüsseln
name$="Datenfile_crypted.dat"'Hier potuto die verschlüsselte File wieder
WriteFileFast(addr(name$),bereich#,0,x&)'gespeichert werden...
Crypt(bereich#,x&,addr(passwort$),len(passwort$))'...oder wieder in den originalen Zustand gebracht
'werden