Ganz einfache Dateiverschlüsselung

[S2B]

Hi @all,
wie kann ich ganz einfach eine Datei verschlüsseln und nachher wieder entschlüsseln? Ich hab zwar schon ein paar Codes mit der Suche gefunden, aber das blick ich irgendwie nicht ganz... :stupid:

[Luckie]

Was hast du gefunden und was "blickst" du nicht?

[S2B]

Zitat:

Zitat von Luckie

Was hast du gefunden und was "blickst" du nicht?

z.B. hab ich DEC von Hagen gefunden, aber ich weiß nicht so recht, wie ich die Komponente einstetzen soll...

[MrKnogge]

ganz einfach ?

z.B. XOR

[HeikoDD]

wenn du dec schon hast schau dir doch bitte das sample davon an, da ist alles enthalten was du brauchst, aber ein tip: die klassen unterstützen TStream -> TFileStream :-)

[S2B]

Zitat:

Zitat von MrKnogge

z.B. XOR

Also, ich hab jetzt ne XOR-Verschlüsselung gefunden! Ich schau sie mir mal an. Danke für den Tip!

Zitat:

Zitat von HeikoDD

wenn du dec schon hast schau dir doch bitte das sample davon an, da ist alles enthalten was du brauchst, aber ein tip: die klassen unterstützen TStream -> TFileStream

Soo, womit ich nicht mehr weiß wie vorher! :wink: Ich weiß noch nicht mal, mit welchem Button man die datei decodieren kann... :?

[negaH]

Delphi-Quellcode:

uses Cipher;

with TCipher_Rijndael.Create('Passwort', nil) do
try
  EncodeFile('c:\test.txt', 'c:\test.bin');
finally
  Free;
end;

Einfacher gehts ja garnicht mehr mit. Allerdings auf Grund dieser Einfachheit ist natürlich auch die Flexibilität und erreichbare Sicherheit eingeschränkt. Soll heissen das man es um einiges besser machen könnte, dafür aber dann ausgefeilterte und komplexere Techniken anwenden muß.

Obiger Vorschlag ist also eine Minimallösung die aber bei WEITEM sicherer ist als eine XOR Verschlüsselung oder andere nicht anerkannte Verfahren.

Gruß hagen

[S2B]

Vielen Dank für den Code! :thuimb: Werd ihn gleich ausprobieren!

[S2B]

Irgendwie funzt der Code nicht ganz! Der Compiler will irgendwie den Typ TCipher_Rijndael nicht erkennen! Den Pfad, wo die Units liegen, hab ich in den Bibliothekspfaden drin und ich hab die Units vorher auch so umgeschrieben, wie Hagen es in diesem Beitrag geschrieben hat. Kann mir da jemand weiterhelfen?

[negaH]

Delphi-Quellcode:

uses Cipher;

???

Gruß Hagen