DEC 5.2 Delphi2009 TMemoryStream

[stOrM]

Hallo,
ich bin grad über ein paar alte Sourcecodes geflogen, wobei sich mir grad die Frage gestellt hat, wie ich das mit der DEC 5.2. nun unter Delphi 2009 realisieren könnte, vor allem, suche ich aber auch eine wesentlich sicherere Lösung mit einem Paßwort zu Ent/Verschlüsselung nicht unbedingt in den Quellcode mit einzubauen, dann kann ichs ja direkt in die Form Caption mit reinschreiben Wobei das Passwort vielleicht auch nicht fest, sondern vielleicht Random generiert wird? Also quasi automatisch, vielleicht jedesmal aufs neue? Sorry ich hab 0 Ahnung von Verschlüsselungen, also ich bitte um Nachsicht

Delphi-Quellcode:

uses
 DCPcrypt2, DCPblockciphers, DCPtwofish, DCPsha1;


procedure LoadConfig(FFilename : TFilename);
var
  Cipher      : TDCP_TwoFish;
  Source      : TFileStream;
  Destination : TMemoryStream;
begin
  Source := TFileStream.Create(FFilename, FMOpenRead);
  Destination := TMemoryStream.Create;
  Cipher := TDCP_TwoFish.Create(Nil);
  Cipher.InitStr('UnglaublichUnsicheresPassword!256', TDCP_sha1);
  Cipher.DecryptStream(Source, Destination, Source.Size);
  Cipher.Burn;
  Cipher.Free;
  Destination.Seek(0, soFromBeginning);
  FTheList.LoadFromStream(Destination);  // Load the decrypted stuff into our Stringlist
  Destination.Free;
  Source.Free;
end;

procedure SaveConfig(FFilename : TFilename);
var
  Cipher       : TDCP_TwoFish;
  Source       : TMemoryStream;
  Destination  : TFileStream;
begin
  Source := TMemoryStream.Create;
  Destination := TFileStream.Create(FFilename, FMCreate);
  FTheList.SaveToStream(Source);
  Source.Seek(0, soFromBeginning);
  Cipher := TDCP_TwoFish.Create(Nil);
  Cipher.InitStr('UnglaublichUnsicheresPassword!256',TDCP_sha1);
  Cipher.EncryptStream(Source, Destination, Source.Size);
  Cipher.Burn;
  Cipher.Free;
  Destination.Free;
  Source.Free;
end;

Ic hatte mir mal per Suche das hier: http://www.delphipraxis.net/internal...ct.php?t=79794 angesehen aber irgendwie steig ich da nicht mehr durch...

In D7 war alles so einfach damit Eigentlich sieht es ja fast so aus, wie das was ich brauche, halt nur mit MemoryStreams und ner Stringlist halt Ich blick aber auch ned, ist das nun für D2009? oder gibt es da Komplikationen bei der Ver/Entschlüsselung !Unicode! ?

Gruß
s!