Delphi Support

Ну если честно, проще заплатить человеку который шарит, что бы он переписал эту функцию генерации на другой язык.

 

При отправке пост запроса возникает ошибка: "Connection Closed Gracefully"
Что это значит?

 

Неверно заполнен веб-компонент(куки, хедерзы, заголовки)

 

Один из самых главных моментов, нужно найти поле User Agent, которому по дефолту установлено значение — Mozilla/3.0 (compatible; Indy Library), затем меняем на перехваченное в заголовке значение. В этом заголовке браузер передаёт на сервер информацию о себе, естественно, каждый браузер передаёт своё значение User Agent. Если оставить стандартное значение, то на сервер пойдёт заголовок, указывающий на то, что с сайтом взаимодействовал не браузер, а какая-то программа, работающая на основе Indy. Некоторые программеры, для борьбы с «нестандартными» запросами на сайт(не от браузера), проверяют некоторые значения этих заголовков, чаще других, проверяется поле Referer, этот заголовок указывает на то, с какой страницы был произведен данный запрос.

 

Оба твои замечания бесполезны

 

Почему же?

 

Выбери себе любой сайт и попробуй авторизоваться без этих параметров.

 

При авторизации на сайте Perfect World была ошибка, теперь нормально вхожу. Сервера могут спокойно проверять заголовки

 

Могут проверять, но специально-выделенные под эту задачу заголовки

 

Работаю в delphi с indy imap майла, при поисковом запросе выводит 0 писем, хотя они есть на почте. Ищу по отправителю(skfrom) в папке INBOX.
Авторизация проходит успешно и запрос всех писем тоже, а поиск...
Еще вопрос, когда пытаюсь авторизоваться на gmail, сервис распознает меня, как почтовую программу. Что бы нормально зайти нужно изменить настройки безопасности. Как же тогда с ним работают чекеры?

 

В Имап возможно проблема с кодировкой

 

Помогите,пожалуйста,решить данную задачу. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>=10.

 

Код:

var i:integer;
     l:boolean;
begin
 l:=true;
 i:=2;
 while (i<=round(sqrt(k))) and (l=true)do
  begin
   if k mod i=0 then l:=false;
   inc(i);
  end;
 prost:=l;
end;