ich habe bereits zugegeben, dass es sich um eine
unsichere verschlüsselung handelt !
noch was zu meiner verschlüsselung:
würde sie soetwas sicherer machen, also, wenn ich mit dem folgendem code aus dem passwort einen key erstellt ??
ich meine aber nur etwas sicherer,
nicht ganz sicher
KeySize sollte der größe der datei entsprechen
Delphi-Quellcode:
function XOR_KeyGen( const Password : String ; const KeySize : Integer ) : String;
var
PassSum : Integer;
Loop : Integer;
Key : String;
begin
PassSum := 0;
for Loop := 1 to Length( Password ) do
Inc( PassSum , Ord( Password[Loop] ) );
Randomize;
RandSeed := PassSum;
Key := '';
for Loop := 1 to KeySize do
Key := Key + IntToStr( Random(10) );
Result := Key;
end;