FileCrypter 3.0

[Sharky]

Hai Luckie,

da ich mich auch, mal wieder, mit Hagens DEC beschäftige habe ich mir mal angesehen wie Du die Verschlüsselung in deinem Programm machst.
Dank deiner schönen Kommentare über jeder Funktion ist dein Code ja leicht zu verstehen

Dabei ist aber eine Frage aufgetaucht. In deiner Unit1 deklarierst Du diese Konstante:
BlockSize: Integer = 1024; In deinen beiden Threads hast Du auch jeweils eine Public-Variable FBlockSize: Integer der Du beim erzeugen des Threads auch immer deine Konstante übergibst.

Delphi-Quellcode:

procedure RunEncodeThread(Filename, FFolder, PW: string;
  FileHeader: TFileHeader; hWnd: THandle);
begin
  EThread := TEncodeThread.Create(True);
.
.
  EThread.FBlockSize := BlockSize;
  EThread.Resume;
end;

Allerdings finde ich bei deinen Threads keine stelle wo Du FBlockSize verwendest. Du benutzt immer die Konstante aus der Unit1

Okay, das macht mich ja noch nicht nervös Aber: In deinen Threads verwendest Du einen Buffer zum Ent-/Verschlüsseln.
Für diesen reservierst Du so Speicher:

Delphi-Quellcode:

Unit: EncodeThread
Line: 106
GetMem(Buffer, 1024);

Müsste hier nicht anstelle der 1024 deine BlockSize stehen oder ist es einfach zu früh am Sonntag und ich habe einen Denkfehler?