![]() |
TBruteForce - Version 0.5a [Update: 28.04.2008]
Liste der Anhänge anzeigen (Anzahl: 2)
TBruteForce Wer hätt's gedacht - eine Brute Force Klasse für Delphi http://www.delphipraxis.net/images/common/divider.jpg Aktuelle Version: 0.5a Download: ![]() Was ist TBruteForce? TBruteForce ist eine Klasse, mit der die Implementierung einer BruteForcing-Funktion im eigenen Programm möglichst einfach und gleichzeitig möglichst universell ermöglicht werden soll. Die aktuelle Version verbraucht an sich kaum Arbeitsspeicher (es sei denn der Programmierer entscheidet sich dazu, die erzeugten Kombinationen in irgendeiner Form zwischenzuspeichern). Das bedeutet, dass für die Performance des Vorgangs (abgesehen von der Effektivität des Codes) allein die Prozessorgeschwindigkeit verantwortlich ist. Bei einem 2GHz Prozessor(kern) liegt die blose Geschwindigkeit bei etwa 50.000.000 Kombinationen pro Sekunde, durch das Zusammensetzen der strings zur Ausgabe verringert sich die Geschwindigkeit auf etwa 2.000.000 Kombinationen pro Sekunde (hier besteht eindeutig Optimierungsbedarf ;) ). Lässt man sich jetzt noch alle Kombinationen sichtbar ausgeben, beispielsweise in einer Konsole, so verringert sich die Geschwindigkeit weiter auf ca. 20.000 Kombinationen pro Sekunde. So, ich hoffe nun hast Du eine ungefähre Vorstellung in welchen Geschwindigkeitsbereichen man sich mit der Klasse theoretisch und in der Praxis bewegen kann. Verwendung Um die Klasse in Betrieb zu nehmen, ist nichts weiter nötig, als die Unit BruteForce.pas in das Projektverzeichnis zu kopieren und in die uses der fraglichen Unit aufzunehmen.
Delphi-Quellcode:
Um mit einem einfachen Beispiel zu beginnen: Wir wollen Kombinationen mit 5 Zeichen Länge erzeugen, der Zeichenvorrat soll dabei das Alphabet in Kleinbuchstaben sein. Oder anders ausgedrückt wir wollen alle Kombinationen von aaaaa, aaaab, aaaac, ... bis zzzzx, zzzzy, zzzzz bilden.
uses
BruteForce;
Delphi-Quellcode:
Wie viele Kombinationen die Klasse erzeugen wird lässt sich über
var
BruteForce: TBruteForce; begin // Instanzierung BruteForce := TBruteForce.Create; // Wir wollen 5 Stellen kombinieren, sg. "Nodes" BruteForce.NodeCount := 5; // Zeichenvorrat setzen, AlphaLowerCase ist eine Konstante die von der Unit bereitgestellt wird // Als ElementList erwartet die Klasse ein array of string. BFConstToDynArray wandelt ein // statisches array of string in ein dynamisches array of string um. BruteForce.ElementList := BFConstToDynArray(AlphaLowerCase); // Soderle. Bereits jetzt enthält BruteForce.Value die erste Kombinationen, in diesem Fall aaaaa. // Also müssen wir die gleich ausgeben. DoSomething(BruteForce.Value); // Jetzt gehts ans eigentliche BruteForcen, wir bilden die Kombinationen // BruteForce.NextValue bildet die nächste Kombinationen und gibt das Ergebnis als string zurück while not BruteForce.Finished do begin DoSomething(BruteForce.NextValue); end; // Wuppdi - jetzt sind wir schon fertig ;)
Delphi-Quellcode:
auslesen.
BruteForce.ToDo
Jetzt ist es aber so, dass man jedem Node seinen eigenen Zeichenvorrat zuweisen kann. D.h. wir könnten beispielsweise auch Kombinationen der länge 5 erzeugen, bei denen die letzten beiden Zeichen Ziffern sind. Das ginge so:
Delphi-Quellcode:
Dieser Code würde alle Kombinationen von aaa00, aaa01,... bis zzz99 ausgeben. Jetzt wunderst Du dich vielleicht, wieso wir den Zeichenvorrat der Nodes 0 und 1 ändern und nicht den der Nodes 3 und 4 (die Zahlen sollen ja rechts hin). Nunja, je weiter ein Node links steht, desto höherwertiger ist er. Deshalb wird der Node, der in der Ausgabe die "rechteste" Stelle repräsentiert über den Index 0 angesprochen. Puh, ich hoffe das ist einigermasen verständlich :stupid:
var
BruteForce: TBruteForce; begin BruteForce := TBruteForce.Create; BruteForce.NodeCount := 5; BruteForce.ElementList := BFConstToDynArray(AlphaLowerCase); // Jetzt kommts ;) BruteForce.Nodes[0].ElementList := BFConstToDynArray(Numeric); BruteForce.Nodes[1].ElementList := BFConstToDynArray(Numeric); DoSomething(BruteForce.Value); while not BruteForce.Finished do begin DoSomething(BruteForce.NextValue); end;
Code:
Wort a a a 0 0
Node 4 3 2 1 0 To Do Bei der Version 0.5a handelt es sich um ein experimentelles Release. Es sind noch kaum Fehlerbehandlungsroutinen eingebaut! Bis jetzt ist es auch so, dass NodeCount unbedingt vor ElementList gesetzt werden muss (ein Henne-Ei-Problem für das ich bis jetzt keine überzeugende Lösung gefunden habe). Einbauen will ich noch eine Speichern/Laden Funktion, die Möglichkeit, den BruteForce-Vorgang in beliebig viele Pakete aufzuteilen (Multithreading, Parallel Computing), sowie eine Ausgabe der Kombinationen wahlweise als array of string (bzw. TBFElementList). Ich habe auch schon mit dem Gedanken gespielt, beliebige Dinge kombinierbar zu machen (beispielsweise Integer, Objekte, etc). Aber ich bin mir nicht sicher, ob sich der Aufwand lohnen würde. Ich würde mich freuen, wenn von euch noch Vorschläge und Anregungen kämen, wie man die Komponente noch erweitern könnte ;) Changelog
Code:
28.04.2008: Version 0.5a "Pandora" released
Neu: 100% Codebasis ;) Kein Multithreading mehr integriert Es ist keine Komponente mehr 09.05.2006: Version 0.3b und aktualisierte Demo released Neu: Wahl zwischen iterativem und rekurivem Algorithmus Neu: TMaxThreads property Neu: OnThreadStart Event Neu: KeyList jetzt direkt in TBruteForce implementiert, keine 2 Komponenten mehr TThreadStatus nicht mehr hardgecodet Und alles, was ich inzwischen vergessen habe :( 05.10.2005: Version 0.1.3 Beta RC 2 und aktualisierte Demo released Minibugfix beim OnProgressChangeEvent gefixt 03.10.2005: Version 0.1.3 Beta RC 1 und aktualisierte Demo released Bugfix: Komponente zählt jetzt richtig Bugfix: Memory Leak entfernt Performance: Callback Funktion OnProgressChange geht jetzt nicht mehr so auf die Performance 30.08.2005: Version 0.1.2 Beta und aktualisierte Demo released Bugfix: das Problem, das das OnLastThreadFinished Event öfter ausgeführt wird sollte behoben sein Bugfix: Kleine Unsauberheit beim Progresscounter behoben Bugfix: OnProgressChangeTolerance war etwas zu tolerant Neu: eine Exception wurde ergänzt 29.08.2005: Demo released 27.08.2005: Version 0.1.1 Beta und neue Demo released Bugfix: bei EndLength = 1 werden jetzt nicht mehr fälschlicherweise die 2-stelligen Keys erzeugt Neu: Event OnProgressChange Neu: public property OnProgressChangeTolerance Neu: Exception Handling 26.08.2005: Demo released 25.08.2005: Version 0.1 Beta released |
Re: TBruteForce - Version 0.1 Beta
Hey, nicht schlecht :thumb:
Mal eine etwas andere Komponente. Auch wenn die Funktionen größtenteils ja selbsterklärend sind, wäre ein kleines Beispielprogramm nicht schlecht. |
Re: TBruteForce - Version 0.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
@Stan:
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Schneller!! Her mit der Demo :D
Ah doch, habs schon kapiert ;) |
Re: TBruteForce - Version 0.1 Beta
Seh ich das richtig das alle Varianten dann in eine Liste gespeichert werden? Oder wird die Liste immer erst gefüllt wenn man was rausnimmt? Wenn dem nicht so isst dürfte der Speicherverbrauch etwas sehr groß sein bis hinn zum Absturz des Programmes weil der Speicher nicht reicht.
|
Re: TBruteForce - Version 0.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Hab mal ne Demo erstellt die nur die einfachsten Funktionen nutzt.
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
@Mister: Freut mich dass das Ding so einfach ist dass man ohne Hilfe ein Demo damit bauen kann :stupid: |
Re: TBruteForce - Version 0.1 Beta
ich würde eher vorschlagen das du die X'te Variante erst bei der Abfrage berechnest.
Denn so wie es Oktal, Hexdezimal, Dezimal gibt kannst du auch einfach die erlaubten zeischen handhaben und somit auch den Key schnell zusammenbauen wenn die Variante 5329393 abgefragt wird. |
Re: TBruteForce - Version 0.1 Beta
Zu Mister Nice Guys Demo:
So ganz tut sie nicht was sie verspricht :zwinker: Man kann zwar zur Laufzeit Angaben machen, allerdings werden die nicht verwendet, sondern die, die Mister reincomiliert hat... Wenn du jetzt noch das OnLastThreadFinished Event von TBruteForce verwendest, um das "Anzeigen" automatisch durchzuführen, und die Property BruteForce.Percentage um den Fortschritt anzuzeigen, dann hast du im großen und ganzen alles drin. @Sir: das dürfte mit meiner verwendeten Methode so nicht durchführbar sein. Um den Xten Key zu bekommen, muss immer erst der X-1nte erzeugt werden. Insofern sehe ich den Sinn dann nciht so ganz |
Re: TBruteForce - Version 0.1 Beta
Er meint dass du die xte Variante ausrechnest und nicht die Liste bis X durchläufst.
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Gott wie peinlich, das war dann doch irgendwie zu schnell... Auf jedenfall ist jetzt ne vernünftige Demo da, die auch die Eigenschaften übernimmt die man eingibt und alles auf einen Klick erledigt :)
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Es gibt noch einen fehler - zumindest in der Demo:
|
Re: TBruteForce - Version 0.1 Beta
@Julius: Das ist das was ich einen Beitrag vor dir meinte, stimmt zwar was rauskommt, stimmt aber nciht mit dem überein was der user in dem fall haben will.
|
Re: TBruteForce - Version 0.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
der fehler ist auch wenn man nur Zahlen benutzen will
|
Re: TBruteForce - Version 0.1 Beta
Klar, ist aber ein Fehler in der Demo, nicht in der Kompo :P
Ich werd heut mal eine suführlichere Demo schreiben, die auch ein paar mehr Funktionen benutzt. |
Re: TBruteForce - Version 0.1 Beta
Demo released
Sie kann zwar noch nicht alles was die Komponente kann, aber das wichtigste ist drin :) Download: erster Post, ![]() |
Re: TBruteForce - Version 0.1 Beta
Da stimmt wa snicht mit dem Algorithmus. Ich habe alle kleinen Buchstaben eingeben und gesagt mindestens drei, höchstens fünf Buchstaben. Raus kam:
Zitat:
Zitat:
Delphi-Quellcode:
Warum hat deine Komponente kein Ereignis, welches den Fortschritt zurückgibt? Mit einem Timer ständig abzufragen, wie weit er ist, ist mehr als unglücklich.
procedure TForm1.Timer1Timer(Sender: TObject);
begin ProgressBar1.Position := Round(BruteForce1.Percent); end; Nachtarg: Beim Beenden deines Demos, hat es mich mit Fehlern nur so zugeschmissen. |
Re: TBruteForce - Version 0.1 Beta
Gib mal bspw. ab und c ein und dann 2 bis 1 Buchstaben :mrgreen:
@Luckie: Die sind nahezu alphabetisch geordnet - es gibt auch diese Kobis ;) |
Re: TBruteForce - Version 0.1 Beta
Zitat:
Zitat:
Zitat:
Zitat:
@julius: gegen blödheit schützt keine software :zwinker: |
Re: TBruteForce - Version 0.1 Beta
Zitat:
Code:
???
aaa
aab abb baa ... cab cba abc bca ... Ah hab sie gefunden. Sortier die Ausgabe doch mal alphabetisch. ;) Zitat:
Zitat:
Zitat:
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
Btw. Gib mal abc ein und dann 1 bis 2, und danach 1 bis 1 ... irgendwas stimmt da nicht ;) |
Re: TBruteForce - Version 0.1 Beta
Zitat:
Zitat:
@lukie: mit tkeylist.sort kann man das ganze sortieren, muss natürlich vor dem eintrag in die listbox passieren. das mit dem event werde ich wohl machen, allerdings doch erweiterter, nämlich mit einer zusätzlichen property, in der man angeben kann nach wie viel prozent fortschritt das event ausgelöst wird, denn je nach vorgang kann es ja schon seeehr lange dauern bis man 1% weiter ist, also könnte da der user bei 0.0001% das event auslösen lassen. |
Re: TBruteForce - Version 0.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
Das einzubauen wäre das kleinere Problem. |
Re: TBruteForce - Version 0.1 Beta
Aloha!
Und schon gibt es die erste neue Version: Neue Version 0.1.1 Beta und neue Demo released
Das mit dem OnProgressChange funzt so: immer wenn die Percent um OnProgressChangeTolerance gewachsen sind, wird das Event aufgerufen. Der Standard ist 1.0, d.h. immer wenn ein Prozent vollendet ist wird das Event aufgerufen. Die Demo wurde an die neue Kompo angepasst |
Re: TBruteForce - Version 0.1 Beta
Gib mal bspw. abc ein, 1 bis 1 Buchstaben (==> a, b und c) und dann def, und nochmal Start, dann steht in der ListBox
abcabcdef ;) (also abc wied nochmal ausgegeben ...) |
Re: TBruteForce - Version 0.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Hab auch noch ein Fehler gefunden, siehe Screenshot:
Irgendwie scheinen mir alle Werte doppelt aufzutauchen. |
Re: TBruteForce - Version 0.1 Beta
Zitat:
1. Start: TKeyList füllt sich mit abc, abc wird in listbox eingetragen 2. Start: TKeyList bekommt nochmal def, also insgesamt abcdef, die werden zusätzlich in die listbox eingetragen -> abcabdef, völlig korrekt und einwandfrei ;) edit: oder doch nicht :gruebel: mom mal... nochmal edit: doch, stimmt so @jelly: wie produzierst du das? scheint so als hättest du zweimal auf start geklickt, da auch 6 statt 3 threads gestartet wurden :gruebel: |
Re: TBruteForce - Version 0.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Ich glaub nicht, dass ich 2 mal deinen button betätige... allerdings stimmts schons, dass nicht immer die einträge doppelt auftauchen.... Ich kann dir aber nicht sagen, wann das der Fall ist... mal so mal so. |
Re: TBruteForce - Version 0.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Doch, steht auf Threadsafe := true.
Wenn ich direkt die Echse starte, scheint das Problem in der Tat nicht aufzutauchen... |
Re: TBruteForce - Version 0.1.1 Beta
Habe ich das so richtig verstanden: wenn du die Demoexe direkt ausführst tritt das Problem nicht auf, aber wenn du die Demo unverändert kompilierst dann tritt es auf?
Das ist dann extremst mistriös, vor allem, wenn man es nicht reproduzieren kann, wie soll ich da herrausfinden wwas schiefläuft :gruebel: |
Re: TBruteForce - Version 0.1.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Ich hab nen bisschen mit der demo rumgespielt und dann kommt direkt das was auf dem Screenshot zu sehen is :) Ne Masse an Ausnahmefehlern...
mfg matze |
Re: TBruteForce - Version 0.1.1 Beta
Zitat:
|
Re: TBruteForce - Version 0.1 Beta
Zitat:
ich kann zwar nicht mit 100%iger Sicherheit sagen dass es das ist, aber ich vermute es doch stark. mit der neuen bald veröffentlichten demo wird sich das auch ganz leicht feststellen lassen :) |
Re: TBruteForce - Version 0.1.1 Beta
Naja... its not a bg, it's a feature :roll:
Ich denk auch nicht dass einer das Programm nutzt für 3-stellige Codes aus den Zeichen a, b und c. :zwinker: |
Re: TBruteForce - Version 0.1.1 Beta
Liste der Anhänge anzeigen (Anzahl: 1)
Soderle, es gibt wieder eine neue Demo, Download im ersten Post Anhang.
Die Demo zeigt jetzt auch an wie viele Passwörter in welcher Zeit erzeugt wurden und hat einen Modus integriert, der auf Geschwindigkeit optimiert ist. Jetzt würde mich doch mal brennend interresieren was ihr so schafft mit dem Teil, ich lege mal vor: 8,5Mio Keys in nichtmal einer halben Sekunde, also grob 17Mio k/s (keys per second) Beweis im Anhang (Gruß an Patrick L. aus A. :hi: ) :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz