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

function CheckAcc(login, pass: string): boolean;
var
  HTTP : TidHTTP;
  Post : TSTringList;
  Str  : string;
begin
  HTTP := TidHTTP.Create(nil);
  Post := TStringList.Create;
  
  with Post do
  begin
   Add('form[user]=' + login);
   Add('form[password]' + pass);
   Add('enter=');
  end;

 Str := HTTP.Post('http://limoncash.com/', Post);
 
// Проверка (если рабочий ак, то True, если же нет, то False)
 If Pos('Ошибка ввода', str) <> 0 Then Result := False else Result := True;

 Post.Free; 
 HTTP.Free
end;