УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 417 из 677

417

Опции темы

Поиск в этой теме

Опции просмотра

#4161

21.08.2009, 01:07

cremator (c)

Постоянный

Регистрация: 20.06.2008

Сообщений: 323

Провел на форуме:
1240829

Репутация: 165

Отправить сообщение для cremator (c) с помощью ICQ

Код:

function GetIPFromHost(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var 
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := '';
  phe := GetHostByName(PChar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do
  begin
    Result := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
  WSACleanup; 
end;

Вот универсальная ф-ия

#4162

21.08.2009, 06:44

Nobody4alj

Новичок

Регистрация: 20.08.2009

Сообщений: 4

Провел на форуме:
14412

Репутация: 0

Цитата:

Сообщение от Dosia

Чушь, сам то пробовал? ТС просил не logoff, а shutdown (в частности на XP именно logoff). Ты думаеш определение версии окон просто так от нечего делать сделали? Чтобы программа побольше занимала?

Ты сам ёп чущь- это потвоему LOGOFF ?
Насчёт определения ОС я нечего против неимею- просты ему и это могло подойти.

#4163

21.08.2009, 09:31

Flenov

Участник форума

Регистрация: 22.11.2008

Сообщений: 142

Провел на форуме:
636446

Репутация: 32

А не проще ли:

Код:

function StrToAddr(Server: String): TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  HostEnt := GetHostByName(PChar(Server));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if (HostEnt<>nil) then
                        begin
                          With InAddr, HostEnt^ do
                                                  begin
                                                    S_un_b.s_b1 := Byte(h_addr^[0]);
                                                    S_un_b.s_b2 := Byte(h_addr^[1]);
                                                    S_un_b.s_b3 := Byte(h_addr^[2]);
                                                    S_un_b.s_b4 := Byte(h_addr^[3]);
                                                  end;
                        end;
  Result := InAddr;
end;

#4164

21.08.2009, 09:43

Flenov

Участник форума

Регистрация: 22.11.2008

Сообщений: 142

Провел на форуме:
636446

Репутация: 32

Ну если вам уж так IP нужен, то вот:

Код:

function GetIP(Server: String): String;
var
  HostEnt: PHostEnt;
begin
  HostEnt := GetHostByName(PChar(Server));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if (HostEnt<>nil) then
  With InAddr, HostEnt^ do
  Result:=IntToStr(Byte(h_addr^[0]))+'.'+IntToStr(Byte(h_addr^[1]))+'.'+IntToStr(Byte(h_addr^[2]))+'.'+IntToStr(Byte(h_addr^[3]));
end;

#4165

21.08.2009, 21:07

DiSi

Познающий

Регистрация: 08.12.2007

Сообщений: 92

Провел на форуме:
1216941

Репутация: 35

Отправить сообщение для DiSi с помощью ICQ

здрастье всем)
подскажите как перегнать .jpg файил в .txt , ну и если можно обратно)

из нета вроде с помошю TFileStream, можна сделать, ну чето не понимаю как(

#4166

21.08.2009, 21:14

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

человек, ты жжжеш. переименуй файл и будет будет отлично ))
А если ты хочешь чтобы был текстовый формат, то просто побайтно перегони в HEX или целеком в base64
Ты бы еще спросил как из перегнать txt в avi

#4167

21.08.2009, 21:36

DiSi

Познающий

Регистрация: 08.12.2007

Сообщений: 92

Провел на форуме:
1216941

Репутация: 35

хм))
подскажите как перегнать в бас64?)

#4168

21.08.2009, 22:17

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Отправить сообщение для НTL с помощью ICQ

Цитата:

Сообщение от DiSi

хм))
подскажите как перегнать в бас64?)

Смотря что перегонять:

К примеру из строки:

Код:

StrToInt64('100')

А вот мой вопросик:

Отправляю GET запрос через сокет на http://testhtl.ucoz.ru/ получаю нормальный ответ отправляю на: http://testhtl.ucoz.ru/mchat/ получаю:

Код:

HTTP/1.1 200 OK
Server: uServ/1.1.0
Date: Fri, 21 Aug 2009 18:10:35 GMT
Content-Type: text/html; charset=UTF-8
Last-Modified: Fri, 21 Aug 2009 18:05:59 GMT
Transfer-Encoding: chunked
Connection: keep-alive
Keep-Alive: timeout=15
Cache-Control: no-cache
Pragma: no-cache
Content-Encoding: gzip

a
‹

как получить нормальный ответ? (С HTML кодом)