Wie Verschlüsselt ihr ?

[himitsu]

auch für BruteForce brauchst du eine Hintertür ... nämlich das Grundprinzip des Algorithmusses, für die Verschlüsselung und/oder die Art der verschlüsselten Daten.
sonst kannste ja gleich Zufallszahlenketten bilden ... irgendwann stimmt eine der zufälligen Ketten mit dem gesuchten Text schon überein

@Bernhard: drum sagte ich ja > 100% ist nicht möglich


@Corpsman: das DEC ist frei zur Verwendung, also wegen de Rechte mußte dir da keine großen Sorgen machen


mach eh grad mal Pause und hatte 'nen Sekündchen Zeit

Delphi-Quellcode:

Var
  m: TMemoryStream;
  s: String;
  mp, me, sp, se, ss: PByte;
Begin
SendMessage(HWND_BROADCAST, CM_INVALIDATE, 0, 0);

  If OpenDialog1.execute Then Begin
    m := TMemoryStream.Create;
    Try
      m.LoadFromFile(Opendialog1.FileName);
      mp := m.Memory;
      me := mp + m.Size;
      s  := Edit1.text;
      sp := Pointer(s);
      se := sp + Length(s);
      ss := sp;
      While mp < me do Begin
        mp^ := mp^ xor sp^;
        Inc(mp);
        Inc(sp);
        If sp = se Then sp := ss;
      End;
      m.SaveToFile(Opendialog1.FileName + 'C');
    Finally
      m.Free;
    End;
    // Ausgabe des Verwendeten Passwortes
    Label1.Caption := 'Benutztes Passwort [ Länge : ' + IntToStr(Length(s)) + ' ]';
    Edit3.text := s;
  End;
End;

und jetzt gibt dem Code mal ein Passowrt von der Selben größe wie deine Testdatei (oder zumindesten 1/4 davon) und laß nochmal dein Tool drüber laufen ...