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

var i:integer ;
begin
GET метод (для http)

// загружаем страницу в listbox
listbox1.Items.Text:=  IdHttp1.Get('http://constant1ne.by.ru/sqls.html');

// пример проверки сайта по Антибоян'у
if (listbox1.Items.IndexOf('http://numi.is')>0) then
    showmessage('[боян] http://numi.is') else
    showmessage('http://numi.is нету в списке Антибоян!');

var i:integer ;
    IdHandler: TIdSSLIOHandlerSocket;
    CookMan: TidCookieManager;
    Params: TStringList;
    username,password,md5_password:string;
begin
POST метод (для https)

// ето нужно для роботи с https
  IdHandler:=TIdSSLIOHandlerSocket.Create(nil);
  IdHandler.SSLOptions.Method:=sslvTLSv1;
  IdHTTP1.IOHandler:=IdHandler;

// сookie хранитель
  IdHTTP1.AllowCookies:=true;
  CookMan:=TidCookieManager.Create(idHTTP1);
  idHttp1.CookieManager := CookMan;

  username := 'eLWAux';
  password := 'твой_пароль';
  md5_password := 'или_md5_твоего_пароля';
// данние, которие передаютса в POST запросе
  Params:=TStringList.Create;
  Params.add('vb_login_username='+username);
  Params.add('vb_login_password='+password);
  Params.add('cookieuser=1');
  Params.add('s=');
  Params.add('do=login');
  Params.add('forceredirect=1');
  Params.add('vb_login_md5password='+md5_password);

  try
      IdHTTP1.Port:=443; // https

      // необязательно - юзер агент
      IDHttp1.Request.UserAgent:='Mozila'; 

      // рефферер
      IdHTTP1.Request.Referer:='https://forum.antichat.ru/index.php?';
      
      // а вот и он, POST запрос на login.php )
      memo1.Lines.Text:=
            IdHttp1.Post('http://forum.antichat.ru/login.php?',params);

   finally
      IdHTTP1.Free;
      IdHandler.Free;
      Params.Free;
  end;

<form action="newreply.php" method="post" name="vbform" onsubmit="return checkQR(this);">

<textarea name="message" id="qr_message" class="bginput" style="width: 600px; height: 100px;" rows="5" cols="60" tabindex="1">

<input type="hidden" name="fromquickreply" value="1" />
<input type="hidden" name="s" value="" />
<input type="hidden" name="do" value="postreply" />
<input type="hidden" name="t" value="21336" id="qr_threadid" />
<input type="hidden" name="p" value="who cares" id="qr_postid" />
<input type="hidden" name="parseurl" value="1" />
<input type="hidden" name="clickedelm" value="" />

<input type="submit" class="button" value="Отправить быстрый ответ" accesskey="s" title="(Alt + S)"
   name="sbutton" tabindex="2" onclick="this.form.clickedelm.value=this.value" />
<input type="submit" class="button" value="Расширенный режим" accesskey="x" title="(Alt + X)"
   name="preview" tabindex="3" id="qr_preview" onclick="this.form.clickedelm.value = this.value" />
</div>

fromquickreply=1
t=номер_теми
message=текст_сообщения
s=
do=postreply
p=who cares
parseurl=1
clickedelm=Отправить быстрый ответ
sbutton=Отправить быстрый ответ

uses ...RegExpr..;
var regexp: TRegExpr;
..
  answ = '<tcy rang="6" value="76000"/>';
  RegExp.Expression := '<tcy rang="(\d+)" value="(\d+)"/>'; //регулярка
  RegExp.Exec(answ); //парсим answ регуляркой
  rand := RegExp.Substitute('$1'); //получаем первое совпадение
  value:= RegExp.Substitute('$2');//получаем второе
..