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!

*push*

Also ich komm nicht weiter, beim test von: http://www.delphipraxis.net/internal...=526663#526663
bekomme ich unter D2009 folgende Meldung: Class 6A617661 is not registered.

BAAHH! Ich bin bescheuert, hat sich erledigt, schon doof wenn man in seiner Klasse, ein Passwordfeld deklariert, das beim ent / verschlüsseln aber ned benutzt!
Funzt nu wunderbar, find das ganze DEC ist schon der Hammer, super das es Leute gibt die sich so eine Mühe damit machen, RESPEKT!

Gruß
s!