hi, ich habe da mal diesen code gefunden:
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);
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);
Application.ProcessMessages;
end;
finally
CloseFile(InputFile);
CloseFile(OutputFile);
Result := True;
end;
end;
leider steht da etwas, dass es nicht besonders sicher ist...was sagt ihr dazu?
nun, es sollte eigentlich schon ziemlich sicher sein, da es vorallem um passwörter geht, die ich verschlüsseln will.
Zitat:
meistens wird bei verschlüsselten daten dann zwar schwachfug rauskommen, aber etwas wirklich vor schreibzugriffen zu schützen ist
imho unmöglich...sofern es einer wirklich will
vor schreibzugriffen schützen muss ich ja nicht mehr, wenn die dateien verschlüsselt sind...und ich denke nicht dass irgendwer in einem verschlüsselten text "herumsabotiert"(hoffe ich
)
[edit:] ich habe nich den link gefunden zim obigen source:
klick mich!