AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Anwendung läuft auf nem Server und aktualisiert sich selbst?

Anwendung läuft auf nem Server und aktualisiert sich selbst?

Ein Thema von maximi · begonnen am 9. Mai 2004 · letzter Beitrag vom 10. Mai 2004
Antwort Antwort
Seite 2 von 3     12 3   
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#11

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 16:27
...was dann so viel heisst wie distributed denial of service attack
  Mit Zitat antworten Zitat
Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#12

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 16:53
Schick mal den Quelltext. Wenn du interessiert daran bist, dann versuche ich das mal in PHP umzuschreiben...
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat
maximi

Registriert seit: 9. Jun 2003
217 Beiträge
 
Delphi 7 Personal
 
#13

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 19:57
So, hier ist er. Das doofe ist, wenn spiegel.de sich irgendwie ändert muss ich alles umschreiben.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var erkennungstext,text1, text2:String;
    i,i2,i3:Integer;
    erg:Boolean;
begin

  erkennungstext := '<td height="3" colspan="3"><spacer type="block" width="1" height="3"></td>';
  for i := 18000 to length(memo1.Text) do
  begin
    if(copy(memo1.Text,i,length(erkennungstext)) = erkennungstext) then
    begin
      for i2 := 0 to 200 do
      begin


        if(copy(memo1.Text,i+length(erkennungstext)+i2,2) = '">') then
        begin
          text2 := copy(memo1.Text,i+length(erkennungstext)+27,i2-27);
          for i3 := 0 to length(copy(memo1.Text,i+length(erkennungstext)+27,i2-27)) do
          begin
            if(copy(text2,i3,length('1518,')) ='1518,') then
            begin
              text1 := copy(text2,0,i3+4)+ 'druck-' + copy(text2,i3+5,length(text2)-i3);
              listbox1.Items.Add(text1);
              erg := true;
              break;
            end;
          end;
          if(erg = true) then
          begin
            erg := false;
            break;
          end;
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var htmlcode: string;
begin
  memo1.Text := idhttp1.Get('http://www.spiegel.de/wirtschaft/');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  webbrowser1.Navigate('http:\\www.spiegel.de'+listbox1.Items.Strings[listbox1.ItemIndex]);
end;
Vielleicht noch eine wichtige Ergänzung!!
Im Quelltext steht irgendwo
Delphi-Quellcode:
          for i3 := 0 to length(copy(memo1.Text,i+length(erkennungstext)+27,i2-27)) do
          begin
            if(copy(text2,i3,length('1518,')) ='1518,') then
            begin
              text1 := copy(text2,0,i3+4)+ 'druck-' + copy(text2,i3+5,length(text2)-i3);
              listbox1.Items.Add(text1);
              erg := true;
              break;
            end;
          end;
Wenn ich mir nen Beitrag auf spiegel.de anschaue, dann sehe ich im Quelltext nix was in dem Beitrag drinsteht. Ich sehe erst etwas, wenn ich mir die Druckversion anschaue und deswegen füge ich den Link noch "druck-" ein!!

Max
  Mit Zitat antworten Zitat
Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#14

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 20:14
Hui, ist das kompliziert (bzw. viel)...
Heute kann ich nicht mehr. Wenn ich demnächst Zeit habe, dann versuche ich daraus mal PHP zu machen...
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat
maximi

Registriert seit: 9. Jun 2003
217 Beiträge
 
Delphi 7 Personal
 
#15

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 20:21
Jo danke! Vielleicht hat ja noch irgendwer Vorschläge, wie man den Quellcode verbessern bzw. vereinfachen kann!
  Mit Zitat antworten Zitat
Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#16

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 20:28
Kurze zwischenfrage: 1. Unterstützt dein Server PHP
2. Hast du irgendwelche begrentzungen (wenn viele Leute auf mal zu greifen, hast du diesen superlangen Quellecode ja gleich mehrmals im Speicher. Da wäre es vielleicht überlegensweret eine Version immer auf Platte zu speichern und nur zu überprüfen, ob sich das Datum.. mmh, da hat man ja schon wieder den Quelltext im Speicher! Naja. sind da denn jetzt Begrentzungen?
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat
maximi

Registriert seit: 9. Jun 2003
217 Beiträge
 
Delphi 7 Personal
 
#17

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 20:32
also ich hab keinen besonderen Server. Leider nur einen von Freenet. Weißt du denn, wo man kostenlos Webspace mit php Unterstützung bekommen kann?
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#18

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 9. Mai 2004, 21:21
Zitat von Meflin:
blödsinn. es reicht auch manchmal schon ein rechner...
Zitat von phXql:
für ne DoS-Attacke brauch man einen rechner, bei mehr als einem spricht man von DDoS...
Na dann viel Spaß beim Versuch, einen Nachrichtenserver mit deinem AthlonXP oder P4 abzuschießen. Das ganze noch dazu mit 56K oder vielleicht sogar DSL. Aber ich glaube du wirst dir zuerst an deinem System was anrichten, du wirst aber auf keinen Fall genug Datenpakete abschicken können, einen Server abzuschießen
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#19

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 10. Mai 2004, 16:28
glaube mir das geht aus eigener erfahrung (als opfer und angreifer )
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#20

Re: Anwendung läuft auf nem Server und aktualisiert sich sel

  Alt 10. Mai 2004, 16:30
Auf einem normalen Rechner glaube ich dir das, es hat jemand schon versucht. Aber mit einem PC einen Server abzuschießen? (So einen mit 2 oder 4 Xeon-Prozessoren, T1-Standleitung etc., ich bin immer noch nicht überzeugt...)
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz