Zitat von
negaH:
... Dabei wird die Hashfunktion in eine Funktion umgewandelt die aus einem Passwort = Startwert = Seed einen Schlüsselstrom erzeugt. ... Alle Zwischenresultate ergeben dann unseren Schlüsselstrom. Dieser Schlüsselstrom wird nun mit einer XOR Operation mit den Daten verknüpft und fertig ist eine Stromverschlüsselung auf Basis einer Hashfunktion.
Allerdings: es besteht kein Grund das man solche Verfahren anwenden sollte. Eher das Gegenteil ist der Fall, man sollte sie nicht nutzen da:
1.) Stromverschlüsselungen als solches die häufigst gebrochenen Algorithmen sind, siehe Differentielle Kryptoanalyse. ...
Hallo Hagen,
sehr interessant Dein Artikel
Ich habe oft kleinere Programme, bei denen ich Daten verschlüsseln möchte. (z.B. temp. Dateien)
Die verschlüsselten Daten sind meist "unwichtig" und eine Entschlüsselung würde wenig Sinn machen.
Das mache ich nur um mir nicht in die Karten schauen zu lassen.
Ich verwende auch einen Schlüsselstrom, der mit einem Seed festgelegt wird.
(RandSeed := Startwert) Der Schlüsselstrom wird allerdings durch den Zufallsgenerator von Delphi zur Verfügung gestellt
Ich habe mir eine kleine Funktion geschrieben, um nicht mit Kanonen auf Spatzen zu schießen.
(Für diesen Zweck reicht eine "einfache" Verschlüsselung aus. Es muss ja nicht immer eine 4096bit Schlüssellänge mit einem starken Algorithmus verwendet werden.)
Es kommt also immer auf den Verwendungszweck an.
ps: Falls Sich jemand für den Code interessiert:
Delphi-Quellcode:
// written by MaBuSE, member of delphipraxis.net
function myCoder(s: string; password: Integer; decode: Boolean):string;
var
i, c, x: Integer;
begin
if decode then x := -1 else x := 1;
RandSeed := password;
Result := '';
for i := 1 to length(s) do
begin
c := ord(s[i]);
if c in [32..122] then
begin
c := c+(x*Random(90));
if (c<32) or (c>122) then c := c-(x*90);
end;
Result := Result + chr(c);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// von Edit2 nach Edit3 mit Passwort aus Edit1 verschlüsseln
Edit3.Text := myCoder(Edit2.Text, StrToInt(Edit1.Text), False);
// und wieder von Edit3 nach Edit4 entschlüsseln.
Edit4.Text := myCoder(Edit3.Text, StrToInt(Edit1.Text), True);
end;