Форум Сайтостроение Веб-строительство

Определяем whois сервер (Delphi) [ Open Source ]

Nobody4all
На сайте с 20.09.2013
Offline
18
Nobody4all
950

Прежде всего, для того что-бы определить whois данные необходим сервер который имеет эти данные. Определяется whois путём запроса на iana.org

скачать список соответствия доменная зона=whois serv

юзать базу так (код на delphi):

Определяем зону домена (входной параметр - url)


function getzona(url: string):string;
var i, num, num2:integer;
begin
num:=0;
num2:=0;
for i:=0 to length(url) do begin
if url = '.' then begin
  num:=num+1;
  num2:=i;
end;
end;

result:=copy(url,num2,length(url));
end;

код - получение whois данных по любой зоне

var ws, zona, url:string; i, j:integer; 
begin
zona:=getzona(memo1.lines);

for j:=0 to form1.memo2.lines.count-1 do begin
  if copy(memo2.lines[j],1,pos('+',memo2.lines[j])-1) = zona then begin
   ws:=copy(memo2.lines[j],pos('+',memo2.lines[j])+1,length(memo2.lines[j]));
   continue;
  end;
end;

IdWhois1.Host:=ws;
memo1.lines.text:=IdWhois1.WhoIs(memo1.lines);

на выходе в мемо полные whois данные, независимо о зоны.

(c) gloys

Если есть вопросы - задавайте.

Если посты подобного типа интересны - то в след.теме опубликую работу с WA (ВебАрхив) - а-ля быстрый поиск сайтов с пр + апи W.A

Массовая проверка сайтов на АГС (программа) (/ru/forum/857401) Здесь платят от 3 руб. за ссылку, отличная раскупаемость, добавь сайт и попробуй систему (http://goo.gl/QNXTgA).
Оптимизайка
На сайте с 11.03.2012
Offline
396
Оптимизайка
#1

У меня вопрос, для чего в Вашем коде используется оператор "continue". В чём его роль в этом участке кода?

⭐ BotGuard (https://botguard.net) ⭐ — защита вашего сайта от вредоносных ботов, воровства контента, клонирования, спама и хакерских атак!
Nobody4all
На сайте с 20.09.2013
Offline
18
Nobody4all
#2
Оптимизайка:
У меня вопрос, для чего в Вашем коде используется оператор "continue". В чём его роль в этом участке кода?

выход из цикла

beginerx
На сайте с 13.07.2009
Offline
173
beginerx
#3

дельфи это круто, но пхп тоже ниче так, да и без инстала на ПК работает прямо у хостера. Намек понял? :) А так нормальн... давай вебархив!

>>>Скорость и Реакция<<< (https://vk.com/app4629907 ): онлайн тренировка скорости и времени реакции.... (https://vk.com/app4612117 )... (https://vk.com/club18740762 ).
B1
На сайте с 13.12.2012
Offline
28
bashkir102
#4
Nobody4all:
Если посты подобного типа интересны - то в след.теме опубликую работу с WA (ВебАрхив) - а-ля быстрый поиск сайтов с пр + апи W.A

API по протоколу "memento"? интересна реализация.

ковырял как-то, что-то даже рабочее получилось... добить руки так и не дошли.

Nobody4all
На сайте с 20.09.2013
Offline
18
Nobody4all
#5
bashkir102:
API по протоколу "memento"? интересна реализация.
ковырял как-то, что-то даже рабочее получилось... добить руки так и не дошли.

api как такого у wa Нету, но есть библа которая реализиует некторые функции. Рад что кому-то интересно, скоро будут более интересные исходники, в том числе постараюсь реализовать на пиечпи

---------- Добавлено 02.12.2013 в 17:13 ----------

bashkir102:
API по протоколу "memento"? интересна реализация.
ковырял как-то, что-то даже рабочее получилось... добить руки так и не дошли.

Было бы интересно узнать что именно интересует - написал бы библу под нужные функции.

---------- Добавлено 02.12.2013 в 17:18 ----------

Интересен кому алгоритм скачивания сайта с WA? Если да то опубликую. Проверка / скачивание страниц с WA.

Google хочет улучшить Webmaster Semonitor 4.1: быстрее и Более половины активных пользователей
B1
На сайте с 13.12.2012
Offline
28
bashkir102
#6

API есть https://archive.org/help/wayback_api.php Memento API и Wayback CDX Server API

Memento API легко можно получить снимки страницы с датой, когда не достает кого-то документа.

Nobody4all:
Интересен кому алгоритм скачивания сайта с WA?

новичкам интересно будет наверно...

п.с. я для себя реализовал парсер с плюхами...

Как результаты поиска Google Bing запустил новый портал Теперь Яндекс.Детектор открыт всем

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий