Другие языки программирования и технологии
Можно ли по ип адресу вычеслить место жительства и ФИО
Да. Вычесляют же
Объявляем winsock, для использования в функции
function hosttoip(name: string;
var ip: string): boolean;
var
wsdata : twsadata;
hostname : array [0..255] of char;
hostent : phostent;
addr : pchar;
begin
wsastartup ($0101, wsdata);
try
gethostname (hostname, sizeof (hostname));
strpcopy(hostname, name);
hostent := gethostbyname (hostname);
if assigned (hostent) then
if assigned (hostent^.h_addr_list) then
begin
addr := hostent^.h_addr_list^;
if assigned (addr) then
begin
ip := format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
result := true;
end
else
result := false;
end
else
result := false
else
begin
result := false;
end;
finally
wsacleanup;
end
end;
t? можете разметстить на форме editbox, Кнопку и label и добавить к кнопке следующий обработчик события onclick:
procedure tform1.button1click(sender: tobject);
var
ip: string;
begin
if hosttoip(edit1.text, ip) then label1.caption := ip;
end;
-------------------------
var
wsadata: twsadata;
sockaddrin: tsockaddrin;
host: phostent;
// Эти переменные объявлены в winsock.pas
begin
if wsastartup($101, wsadata) = 0 then begin
host := gethostbyname(@localname[1]);
if host<>nil then begin
sockaddrin.sin_addr.s_addr:= longint(plongint(host^.h_addr_list^)^);
localip := inet_ntoa(sockaddrin.sin_addr);
end;
wsacleanup;
end;
end;
function hosttoip(name: string;
var ip: string): boolean;
var
wsdata : twsadata;
hostname : array [0..255] of char;
hostent : phostent;
addr : pchar;
begin
wsastartup ($0101, wsdata);
try
gethostname (hostname, sizeof (hostname));
strpcopy(hostname, name);
hostent := gethostbyname (hostname);
if assigned (hostent) then
if assigned (hostent^.h_addr_list) then
begin
addr := hostent^.h_addr_list^;
if assigned (addr) then
begin
ip := format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
result := true;
end
else
result := false;
end
else
result := false
else
begin
result := false;
end;
finally
wsacleanup;
end
end;
t? можете разметстить на форме editbox, Кнопку и label и добавить к кнопке следующий обработчик события onclick:
procedure tform1.button1click(sender: tobject);
var
ip: string;
begin
if hosttoip(edit1.text, ip) then label1.caption := ip;
end;
-------------------------
var
wsadata: twsadata;
sockaddrin: tsockaddrin;
host: phostent;
// Эти переменные объявлены в winsock.pas
begin
if wsastartup($101, wsadata) = 0 then begin
host := gethostbyname(@localname[1]);
if host<>nil then begin
sockaddrin.sin_addr.s_addr:= longint(plongint(host^.h_addr_list^)^);
localip := inet_ntoa(sockaddrin.sin_addr);
end;
wsacleanup;
end;
end;
конечно можно.. . я недавно узнал своё имя.. . очень позабавило.. . и если верить информации ихней, живу я на кладбище городском)))
Без проблем. Динамический, статический ай-пи, не играет роли. По ай-пи знаем провайдера, у него хранятся логи подключений, по логу вычисляяется пользователь. А он наверняка заключал договор с провайдером на предоставлене услуг. В результате и адрес и фамилия и имя.
Это уже давно не вопрос))
Можно, если ты работаешь в ФСБ
можно
нет, только провайдера, (а там через его базу) а если адресс еще и динамический, типа мобильный, то оч проблематично
Можно в независимости от того динамический он или статический.
Для этого даже не понадобится быть сотрудником твоего провайдера имеющим доступ к базе.
Для этого даже не понадобится быть сотрудником твоего провайдера имеющим доступ к базе.
если дианмич почти не реально а так если построратся можно
Похожие вопросы
- Cкажите, тяжело ли по ip,вычеслить место проживание, личность человека, и тд. Тяжело это зделать? (см. внутри)
- скажите кто знает:стоит ставить Белый ип адрес?
- Как по мас адресу узнать место нахождения компа
- Как в excel разбить столбец ФИО на 3 столбца Ф,И,О
- Pascal-Напишите программу: ввод полные ФИО, вывод полное Ф и инициалы И. О. Можно ли упростить то что получилось у меня?)
- видел документ, в котором некоторые значения встречаются несколько раз например ФИО. их можно было изменить за 1 раз
- Как вычеслить человека по ip?
- IP-адреса и Сокеты
- как прикрутить внешний постоянный(статический) ип к сайту на денвер
- Turbo debugger. Начальный адрес сегментов программы.