XProfan

Français

Torben
Nissen

Guten demain,
je beschäftige mich im Moment avec dem Thema Datensicherheit. (DSGVO peut grüßen

) je serait volontiers Datenbankdateien verschlüsseln et habe im Forum sur XProfan.de une alten Eintrag vom Mars 2003 trouvé. là wird beschrieben, dass cela Verschlüsseln avec qui Prospeed.dll vite aller serait. Gibt es encore qui dll? Alle alten à gauche marcher pas plus.

qui folgende Voir le texte source stammt de Frank (de XProfan.de):

Kompilieren Marque Séparation

Crypt (B,A,S,L)
Verschlüsselt données dans einem Bereich avec einem beliebig langen Mot de passe. chez zweimaligem gleichem Aufruf sommes qui originalen données
wieder hergestellt.
B : Long - Bereichsvariable, dans qui qui données gespeichert sommes
A : Long - Anzahl trop verschlüsselnder Bytes
S : Long - Pointer sur une String (ou bien Bereich), dans dem cela Mot de passe gespeichert ist
L : Long - Longueur des Passworts
Ergebniss: Long - 0
une superschnelle et relativ sichere Datenverschlüsselung sur XOR-Mot de passe-la base.
Beispiel:
name$="Datenfile.dat"
x&=@FileSize(nom$)
ReadFileFast(addr(nom$),bereich#,0,x&)'Dossier/données dans Bereichsvariable inviter
passwort$="CryptMe"'Mot de passe ist "CryptMe"
Crypt(bereich#,x&,addr(passwort$),len(passwort$))'données aus dem Bereich verschlüsseln
name$="Datenfile_crypted.dat"'ici pourrait qui cryptée Dossier wieder
WriteFileFast(addr(nom$),bereich#,0,x&)'gespeichert volonté...
Crypt(bereich#,x&,addr(passwort$),len(passwort$))'...ou bien wieder dans den originalen Zustand gebracht
'volonté