<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
DNSClient.Host := '168.126.63.1';
DNSClient.Port := 53;
DNSClient.QueryRecords := [qtMX];
DNSClient.Active := True;
if DNSClient.Active then
begin
DNSClient.Resolve('hanmail.net');
for i := 0 to DNSClient.QueryResult.Count - 1 do
begin
if DNSClient.QueryResult.Items[i].DisplayName = 'TMXRecord' then
begin
Memo1.Lines.Add(TMXRecord(DNSClient.QueryResult.Items[i]).ExchangeServer);
end;
end;
end;
end;
<!--CodeE-->
2. nslookup
3. set type=all or set type=mx
4. daum.net
하고 나서 나오는 mx 레코드들이 전부 메일 서버 주소입니다.
물론 DNS를 안올리고 메일 서버를 열었다면 조회는 안됩니다만
유명 사이트의 경우는 그럴 경우가 거의 없을 것 같습니다.
위에서 나온 IP에 25번 포트로 커넥트시키면 아마 될겁니다. 방
금해보니 되네요.