-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Ja, aber das hat nicht funktioniert - es ist immer zuerst die erste Schleife durchgelaufen, dann die zweite, dann die dritte etc. Ich wollte aber die letzte zuerst laufen lassen, dann die vorletzte 1x + die letzte wieder komplett etc, so wie ich das mit dem Goto lösen konnte.
Eine einfache For-Schleife stellt mich jetzt nicht direkt vor eine Herausforderung, nur z.B. das hier in...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Naja das was ich geschrieben habe ist ja mit Goto - in einer For-Schleife durfte ich den Integer nicht verändern, daher war mir nicht klar, wie ich sie mehrmals von 1-10 laufen lassen sollte. Daher bin ich mal in alte Muster verfallen. Ist der Code mit Goto langsamer als mit For-Schleifen?
Ich werde mir mal ein solches Tutorial mit dem Pixel suchen, Danke für die Hilfe:idea:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
So langsam wirds lächerlich... "betrügen" - Die Bedürfnisse des Rätselanbieters?
Wie schon in meinem vorigen Post geschrieben...Biegs dir zurecht wie du willst, du rechtfertigst eine Position, die völlig an der Realität vorbei ist. Nur weil ich das Rätsel nicht im Sinne des Erfinders löse, ist das bei dir böse Absicht? Wenn ich bei einem Kreuzworträtsel rate und richtig liege, habe ich dann die...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Fadenscheinig ist das nicht - da dich meine Alternative nicht interessiert und du von Betrügen redest, scheine ich mit meiner Vermutung ja richtig zu liegen.
Desweiteren bist du der einzige hier, der nicht warnt, sondern permanent verleumdet.(Auch werfe ich nicht pauschal paranoia vor, sondern gezielt dir - eigentlich werfe ich sie auch nicht vor, sondern stelle sie fest, aber lassen wir das...)...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Ja mit dem finden ist das eine Sache, mit dem anwenden können eine andere:)
Ich habe es rekursiv probiert, aber ich darf in einer For-Schleife den Integer-Wert nicht verändern? Wie sage ich ihm dann, dass er immer wieder 10x durchlaufen soll?
Also der Code funktioniert - aber mehrere For-Schleifen ineinander zu schachteln hab ich nicht hinbekommen...
I:= 1 ;
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Zuerst:
ein widerspruch in sich selbst..
Weshalb soll das ein Widerspruch sein? Ich hab die nicht-existierenden Seiten mit der Spider-Komponente gecrawlt und hab mir spider.lastHTMLtitle in ein Memofeld eintragen lassen. Bei der existierenden "Frage-Seite" kam der Titel der Website raus, bei einem zufällig generiertem String, der zu einer 404-Seite geführt hat, hat er mir einen leeren String...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
22. Apr 2014
Ja Zufallsgenerator - mein Programm ist soweit fertig wenn ich es denn einsetzen wollte. Allerdings bin ich vom Verständnis jetzt bei den Schleifen noch nicht komplett durchgestiegen, deshalb hätte es mich interessiert wie genau ich an welcher Stelle eines Strings zufällig bestimmte Zeichen einsetzen lassen kann:
€dit: Außerdem wollte ich das negative Image der "bruteforce"-Funktion hier...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
21. Apr 2014
Oh, ich sehe gerade, dass da noch 4x I steht - Das hatte ich dann in I1, I2, I3, I4 verändert da ich mir das schon dachte...
Naja bei der Rekursion ging es ja darum meine unbeliebten Goto-Schleifen zu ersetzen...
Wie müsste ich es denn schreiben, um solche Strings zu produzieren: a1a1, a1a2, a1a3, ..., c3g6, c4g7, c4g8, ..., z0z0 ?
MfG
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
21. Apr 2014
Das ist dir gelungen. :thumb:
Wenn noch jemand etwas zum Thema beitragen möchte: Meine Frage ist immernoch offen, ob die 12 Aufrufe einer "Not Found" - Seite pro Sekunde eine wesentliche Belastung für einen Webserver darstellen (Die Seite existiert ja nicht). Sollte die Frage bejaht werden, so werde ich die Zahl verringern. Es geht hier - ums zum 10. Mal zu sagen - nicht darum, den Server...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
21. Apr 2014
Wer genau versucht hier in Rechner einzubrechen? Ich weiß, es ist einfacher sich in einen Thread einzuklinken, als alle 3 Seiten zu lesen aber um das Einbrechen in Rechner geht es hier nicht.
Da fühlt sich aber jemand ganz gehörig auf den Schlips getreten - und lesen scheint auch nicht dein Fall zu sein, ich habe mehrfach erwähnt, dass ich nicht vorhabe, irgendein Passwort zu knacken.
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
21. Apr 2014
Angriff? Also bitte - Für 1000 Abfragen braucht das Programm 80 Sekunden... Das sind knapp über 12 Anfragen pro Sekunde, bei denen "Not Found" herauskommt.
Ich bin ja nicht sehr bewandert mit DDos, aber Google hat mir soeben gesagt, dass entsprechende Scripte um die 5000 Anfragen pro Sekunde generieren...
Leute - ich möchte bei einer Seite einfach nur wissen, ob eine nicht verlinkte...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Ich musste 2x lesen:)
Erstmal vielen vielen Dank für die Mühe, mir eine konkrete Lösung hinzuschreiben :thumb:
Also nachdem ich es jetzt geschafft habe, diese Prozeduren richtig zu deklarieren und TForm1 davorzumachen, musste ich es etwas drehen, weil er sonst einen Fehler gebracht hat (; erwartet aber . gefunden bei TForm1"."CheckURL):
Allerdings ist noch irgendein Fehler drin?
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Okay, dann muss ich eine Pause einbauen - eine DDOS Attacke möchte ich nicht verursachen, sonst hätte ich mir die Mühe nicht gemacht und einfach LOIC runtergeladen...
Die nichtexistierenden Seiten haben keinen HTML-Titel - also es wird nichts eingetragen...
Ich denke, gemeint mit der Lösung ist die For-While Schleife mit Continue?
Es wäre super-nett wenn mir das jemand als Code-Beispiel...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Ja die Results-Liste stammt noch aus dem "Tutorial" - anstatt in die Liste, möchte ich es in den Spider übergeben. Bevor ich das tun kann, wird die Cluster-Liste allerdings zu groß und ich kann ehrlichgesagt mit den Schleifen nicht so gut umgehen, um es im richtigen Moment abzugreifen bzw die Liste wieder freizugeben...
Die Results ist ja nur ein Teil der Cluster-Liste. Ich habe sie...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Ja das will ich ja die ganze Zeit:-D Aber wie schon 2x gesagt - ich weiß nicht, wo ich das tun muss. Für mich mit meinem einfachen Delphi-Gemüt liest sich der Code nicht so einfach:?
step1:
for i := 0 to hlplst.Count -1 do begin
for n := 1 to length(astring) do begin
npw := hlplst.Strings+astring;
Cluster.Add(npw); ...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Ja aber das ist ja nicht mein primäres Problem - Selbst wenn ich 100GB nutzen könnte, würde mir das in dem Fall nicht helfen, da der Bedarf mit jeder Stelle Faktor 10 wächst. Deshalb will ich die Cluster-Liste ganz vermeiden und die Einträge direkt in den Spider einspeisen... Nur ich weiß eben nicht, wo/wie ich das tun kann...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Wow ihr seid ja schnell
Ich benutze Delphi 6.
Mein System ist 32bit.
Allein schon, dass die Cluster-Stringlist bei 5 Stellen knapp 600MB verbraucht, und ich bis 10 Zeichen gehen muss (exponentiell steigend) macht die 8GB irrelevant...
Gefolgt bin ich diesem Tutorial hier, bei dem die Funktion besser erklärt ist, als ich es könnte:...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Danke erstmal für die Antworten
Da hast du dich verlesen, ich sprach von 8GB.
Danke für den Goto-Ersatz - ich hatte noch mit Goto programmieren gelernt und bin darin verhaftet^^
Aber mein Problem bleibt. Ich muss erneut darauf hinweisen, dass es die Stringlist (Bei unter 5 Stellen ~600MB RAM Bedarf funktioniert alles einwandfrei) ist. Ich errechne mit der Funktion unten bei 5 Stellen und...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pogoner,
20. Apr 2014
Guten Tag
Folgendes Problem: Der Code funktioniert einwandfrei, solange die Stringliste nicht zu groß wird. Das wird sie allerdings unweigerlich, daher meine Frage - wie kann ich das umgehen:
Kann sein, dass hier ein oder 2 'end' komisch sitzen, da ich eine Menge Kommentarcode grade der Übersichtlichkeit wegen gelöscht habe.
Das Programm soll eine Website auf nicht-verlinkte Unter-Seiten...
