ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.04.2008, 17:47
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
mx запись
Здравствуйте! Необходимо получить mx запись на winsock, google и yandex не помогли  )) там для с++ ток dnsquery. |
|
|
17.04.2008, 12:10
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
для дельфы юзай модуль WinDNS - в инете рапросто найти можно.
вот код функции
Код:
function MXResolve(Domain: PChar): string;
var
pQueryResultsSet: PDNS_RECORDA;
Name: PChar;
begin
pQueryResultsSet := nil;
if DnsQuery_A(Domain, DNS_TYPE_MX, DNS_QUERY_STANDARD, nil, @pQueryResultsSet, nil) = 0 then
begin
Result:=pQueryResultsSet^.Data.MX.pNameExchange;
GlobalFree(dword(pQueryResultsSet));
end;
end;
функции даешь адрес сервера, типа yandex.ru, а она возвращает тебе MX запись. А потом обычный резолвинг чтобы узнать IP |
|
|
|
17.04.2008, 12:12
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
А если хочешь на винсок, то бири в руки Rfc Dns и в соответствии со спецификаций формируй запрос. Создавай сокет Udp и черезе него оправляй данный напрямую Dns серверу
|
|
|
|
17.04.2008, 22:02
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Сообщение от slesh
для дельфы юзай модуль WinDNS - в инете рапросто найти можно.
вот код функции
Код:
function MXResolve(Domain: PChar): string;
var
pQueryResultsSet: PDNS_RECORDA;
Name: PChar;
begin
pQueryResultsSet := nil;
if DnsQuery_A(Domain, DNS_TYPE_MX, DNS_QUERY_STANDARD, nil, @pQueryResultsSet, nil) = 0 then
begin
Result:=pQueryResultsSet^.Data.MX.pNameExchange;
GlobalFree(dword(pQueryResultsSet));
end;
end;
функции даешь адрес сервера, типа yandex.ru, а она возвращает тебе MX запись. А потом обычный резолвинг чтобы узнать IP немогли бы Вы выложить windns? ни гугл, ни яндекс не помогли, там один с++
|
|
|
|
17.04.2008, 22:17
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
_http://www.delphifr.com/codes/DNS_29334.aspx
_http://softsearch.ru/programs/16-747-ip-works-mx-download.shtml
Последний раз редактировалось De-visible; 17.04.2008 в 22:21..
|
|
|
|
17.04.2008, 22:21
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Простите, но там надо зарегится а язык помойму французкий.... |
|
|
|
17.04.2008, 22:27
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Что мне теперь за тебя зарегаться?
Переводчики для чего?
|
|
|
|
17.04.2008, 23:09
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
Последний раз редактировалось Dr.KoD; 17.04.2008 в 23:14..
|
|
|
|
17.04.2008, 23:25
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Функция не работает 
пишу так:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.memo1.lines.add(MXResolve('mail.ru'));
end;
Вылетает прога.... |
|
|
|
17.04.2008, 23:51
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
возможно нужно сделать сначало WSAStartUp
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
