Wie Verschlüsselt ihr ?

**Corpsman**

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 :

zusammenfalten · markieren

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 !!

Wie Verschlüsselt ihr ?

Wie Verschlüsselt ihr ?

Forumregeln