Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

DNS запрос   Найти похожие ветки 

 
Аноним   (2003-08-20 22:25) [0]

Ребята! Подскажите где можна найти инфу как посылать DNS-запросы по протоколу UDP. А самое главное как их формировать? Мне самому надо определять IP отправителя, UDP-порт и ID ответа. Подскажите где искать. Перерыл кучк документации по WinSock - ничего нужного.


 
aralekin ©   (2003-08-20 22:40) [1]

Можно попробовать стандартным компонентом TUdpSocket .... я на подобие делал.... но вот только в локалке....


 
Rouse_ ©   (2003-08-20 23:43) [2]

> надо определять IP отправителя, UDP-порт
Это означает что пакет уже принят? Ну раз так, то порт Вам уже известен.
Что значит IP отправителя? Вам известен URL отправителя?

Поконкретней пожалуйста

Желаю успехов


 
Verg ©   (2003-08-21 07:18) [3]

Уже опять :)
http://www.ararat.cz/synapse/

Там прям такой класс есть TDNSSend

все в исходниках!

И даже для особо одаренных:

function GetMailServers(const DNSHost, Domain: string;
const Servers: TStrings): Boolean;
var
DNS: TDNSSend;
t: TStringList;
n, m, x: Integer;
begin
Result := False;
Servers.Clear;
t := TStringList.Create;
DNS := TDNSSend.Create;
try
DNS.DNSHost := DNSHost;
if DNS.DNSQuery(Domain, QType_MX, t) then
begin
{ normalize preference number to 5 digits }
for n := 0 to t.Count - 1 do
begin
x := Pos(",", t[n]);
if x > 0 then
for m := 1 to 6 - x do
t[n] := "0" + t[n];
end;
{ sort server list }
t.Sorted := True;
{ result is sorted list without preference numbers }
for n := 0 to t.Count - 1 do
begin
x := Pos(",", t[n]);
Servers.Add(Copy(t[n], x + 1, Length(t[n]) - x));
end;
Result := True;
end;
finally
DNS.Free;
t.Free;
end;
end;


 
Аноним   (2003-08-21 08:42) [4]

>Это означает что пакет уже принят? Ну раз так, то порт Вам уже >известен.
>Что значит IP отправителя? Вам известен URL отправителя?
Пакет еще не принят, его нужно отправить. А Ip - подделать.


 
Голова   (2003-08-21 09:37) [5]

кул хацкеры млин...


 
Аноним   (2003-08-21 13:31) [6]

>кул хацкеры млин...
Я админ вообще то.......


 
Аноним   (2003-08-21 22:17) [7]

А на голом АПИ без компонентов можна?


 
Rouse_ ©   (2003-08-22 00:55) [8]

Как я понял Вам нужно вывести вместо страницы запрашиваемой пользователем свою (или свой ответ)? (Это с оговоркой что Вы Админ).
Тогда зачем подделывать IP?

А на голом API
WSAStartup..
Socket...
Bind...
и т.д. Все есть в хелпах и FAQ

Желаю успехов


 
Verg ©   (2003-08-22 04:55) [9]


> А на голом АПИ без компонентов можна?


Эт-то уже напоминает "на голом компе без ОС можна?"

Люди думали, старались, отлаживали, вылавливали глюки, добивались "кросс-платформы".... дают исходники классов (не компонентов, это для тех у кого слово "компонента" вызывает аллергию) - нате, типа, пользуйтесь, не верите - проверьте сами...



Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-51208
Артем К.
2003-10-04 13:18
2003.10.16
Имя компонента из строки


14-51462
gn
2003-09-30 10:10
2003.10.16
предложение к админам а почему бы irc не поднять


3-51103
lopatkin
2003-09-26 17:21
2003.10.16
В Delphi 7 - Either BOF or EOF is True, or the current... почему?


14-51476
Yorick
2003-09-24 13:23
2003.10.16
Как можно отвоевать девушку?


14-51509
ИМХО
2003-09-26 23:55
2003.10.16
На сотовый!