Как преобразовать IP адрес в число

MS в обстановке секретности готовит ответ фирме mirabilis и ее знаменитому продукту ICQ. Рабочее название новой MS-разработки - IFuQ.

Функция, представленная в этом примере может быть и не очень элегантна, зато работает. Функция получает в качестве параметра строку, содержащую IP адрес, и возвращает строку с IP адресом в виде DWord значения. Результат легко можно проверить командой "Ping".

Обратите внимание, что необходимо добавить "Math" в "Uses" для функции "IntPower";

function IP2HEX(OrgIP:string):string;
var
  // Сохраняем оригинальное значение IP адреса
  OrgVal: string;
  // части оригинального IP
  O1,O2,O3,O4: string;
  // шестнадцатиричные части
  H1,H2,H3,H4: string;
  // Здесь будут собраны все шестнадцатиричные части
  HexIP: string;
  XN: array[1..8] of Extended;
  Flt1: Extended;
  Xc: Integer;
begin

  // Сохраняем в обратном порядке для простого случая
  Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1); Xn[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3);
  Xn[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5); Xn[2]:=IntPower(16,6);Xn[1]:=IntPower(16,7);

  // Сохраняем оригинальный IP адрес
  OrgVal:=OrgIP;
  O1:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
  O2:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
  O3:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
  O4:=OrgVal;

  H1:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2);
  H3:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2);

  // Получаем шестнадцатиричное значение IP адреса
  HexIP:=H1+H2+H3+H4;

  // Преобразуем это большое шестнадцатиричное значение в переменную Float
  Flt1:=0;

  for Xc:=1 to 8 do
  begin
    case HexIP[Xc] of
      '0'..'9': Flt1:=Flt1+(StrToInt(HexIP[XC])*Xn[Xc]);
      'A': Flt1:=Flt1+(10*Xn[Xc]);
      'B': Flt1:=Flt1+(11*Xn[Xc]);
      'C': Flt1:=Flt1+(12*Xn[Xc]);
      'D': Flt1:=Flt1+(13*Xn[Xc]);
      'E': Flt1:=Flt1+(14*Xn[Xc]);
      'F': Flt1:=Flt1+(15*Xn[Xc]);
    end;
  end;
  Result:=FloatToStr(Flt1);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 541 • TDictionary Custom Sort 6 570 • Fast Watermark Sources 6 342 • 3D Designer 9 292 • Sik Screen Capture 6 677 • Patch Maker 7 048 • Айболит (remote control) 7 061 • ListBox Drag & Drop 5 929 • Доска для игры Реверси 97 396 • Графические эффекты 7 265 • Рисование по маске 6 560 • Перетаскивание изображений 5 432 • Canvas Drawing 5 799 • Рисование Луны 5 502 • Поворот изображения 5 034 • Рисование стержней 3 588 • Paint on Shape 2 842 • Генератор кроссвордов 3 721 • Головоломка Paletto 2 998 • Теорема Монжа об окружностях 3 800 • Пазл Numbrix 2 504 • Заборы и коммивояжеры 3 191 • Игра HIP 2 160 • Игра Go (Го) 2 094 • Симулятор лифта 2 468 • Программа укладки плитки 2 133 • Генератор лабиринта 2 609 • Проверка числового ввода 2 287 • HEX View 2 618 • Физический маятник 2 230

Как преобразовать IP адрес в число

Похожие по теме исходники