Hi !
ich habe eine kleine Funktion für die XOR-Verschlüsselung gemacht, doch die ist ziemlich lahm, hätte jemand vielleicht eine Idee, diese schneller zu machen ??
Delphi-Quellcode:
function XORCrypt(Password,InputFilePath,OutputFilePath:String):Boolean;
var aktChar: Integer;
InputFile, OutputFile: File of Byte;
Buffer:Byte;
begin
Result := False;
try
aktChar := 1;
AssignFile(InputFile,InputFilePath);
Reset(InputFile);
AssignFile(OutputFile,OutputFilePath);
Rewrite(OutputFile);
{ MainForm.ProgressBar.Max := FileSize(InputFile);
MainForm.ProgressBar.Position := 0;
MainForm.ProgressBar.Enabled := True;
}
while not Eof(InputFile) do
begin
if(aktChar > Length(Password)) then aktChar := 1;
Read(InputFile,Buffer);
Buffer := Buffer xor ord(Password[aktChar]);
Write(OutputFile,Buffer);
Inc(aktChar);
// MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
end;
finally
CloseFile(InputFile);
CloseFile(OutputFile);
Result := True;
end;
end;