Hossa
DP,
Ich höre gerade eine Vorlesung über Kryptographie und wurde mal so richtig wachgerüttelt, und darum geht es in diesem Post.
Das Verschlüsselte Dateien nicht 100% sicher sind wahr mir schon immer klar, aber wie das eben so ist wenn man keine Ahnung von der Materie hat, dachte ich immer, das sind halt richtige Freaks die solche Dateien knacken können.
Unser Prof hat mich heute eines besseren belehrt.
Worum geht es nun genau:
Wenn ich bisher Files verschlüsselt habe dann tat ich das immer ungefähr so :
Delphi-Quellcode:
Var
pw: Array Of Byte;
s: String;
pwp, i: integer;
f: TFilestream;
m, m2: TMemoryStream;
by: Byte;
Begin
If OpenDialog1.execute Then Begin
// Einlesen des Passwortes
setlength(pw, Length(edit1.text));
For i := 0 To high(pw) Do
pw[i] := ord(edit1.text[i + 1]);
// Verschlüsseln
f := TFileStream.create(Opendialog1.FileName, fmopenread);
m := TMemoryStream.create;
m.CopyFrom(f, f.size);
f.free;
m2 := TMemoryStream.create;
m.position := 0;
pwp := 0;
While m.position <> m.size Do Begin
m.read(by, sizeof(by));
by := by Xor pw[pwp];
m2.write(by, sizeof(by));
pwp := (pwp + 1) Mod (high(pw) + 1);
End;
m.free;
m2.position := 0;
f := TFileStream.create(Opendialog1.FileName + 'C', fmcreate Or fmopenwrite);
f.CopyFrom(m2, m2.size);
m2.free;
f.free;
// Ausgabe des Verwendeten Passwortes
label1.caption := 'Benutztes Passwort [ Länge : ' + inttostr(high(pw) + 1) + ' ]';
setlength(s, high(pw) + 1);
For i := 0 To High(pw) Do
s[i + 1] := chr(pw[i]);
edit3.text := s;
End;
End;
Bisher war ich immer der Meinung, das dieses Verfahren einigermasen sicher ist. Doch weit gefehlt.
Ich konnte ein Tool erstellen welches eine so verschlüsselte Datei binnen weniger sekunden ( weniger als 10 ) Problemlos entschlüsselt und sogar das Passwort ausgeben kann. Und das selbst dann, wenn ich das Passwort sehr groß ( also ca. 100 Byte und mehr ) wähle.
Einzige Vorraussetzung. Man mus ungefähr wissen was da verschlüsselt wurde, in meinem Fall ist das immer ein Text im
ASCII format. Und man mus das Verfahren kennen ( s.o. ).
So denn die Frage was nutzt ihr denn nun für Verschlüsselungen ?
Und für alle Neugierigen, hab ich im Anhang mal eine Verschlüsselte Datei mit angehängt, kriegt die jemand entschlüsselt ?
Aber nicht auf meine HP gehen, denn da ist ja das Entschlüsselungstool veröffentlicht !!