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

zusammenfalten · markieren

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!

DEC 5.2 Delphi2009 TMemoryStream

DEC 5.2 Delphi2009 TMemoryStream

Forumregeln