IP калькулятор

[лёхус]

Уважаемые ГУРУ помогите студенту!!! Необходимы исходники IP калькулятора на Delphi.
Задача звучит так, Сделать тест для студентов по изучению бесклассовой адресации. Задается IP адрес и маска, студент должен написать начальный и конечный IP, класс сети, количество хостов в сети, IP сети и мультикаст.
Весь инет пробороздил, ничего на Delphi нет, нашел на C++, C#, VBS, Java, короче на всех языках есть а вот блин на Delphi нет.

[TaLadno]

и где же учится будущий солдат?

если ты нашел реализации на других языках, то хоть попробуй перевести на delphi - покажи хоть какие-то свои телодвижения, а не халяву попрошайничай
аж у коли тебе влом самому решать - иди лучше в армию, там всё будут решать за тебя

[лёхус]

Слаб я в языках заморских, а в возрасте плохо я зыки даются поэтому и спрашиваю. А в армию мне поздновато, стар для неё. На заочке учусь!

[zvygin1964]

"Регистрация: 28.10.2010
Сообщений: 3"
И чего делал на форуме целых шесть лет ?

[лёхус]

Видимо 6 лет назад что-то искал, возможно даже и нашел!
У Вас тут так принято, сначала о жизни поговорить, сколько лет, ходил в армию или нет? Может семейное положение интересует? Ок, женат, 2 детей! Ещё вопросы не по теме будут?

[TaLadno]

Сообщение от лёхус

Слаб я в языках заморских, а в возрасте плохо я зыки даются поэтому и спрашиваю. А в армию мне поздновато, стар для неё. На заочке учусь!

Ну дык закажи на фрилансе (вон тут на форуме цельный раздел есть) и не мучайся. Отвалишь каких-то 2500-3000 рублей и получишь свою няшку.

Тем более в возрасте уже, сам понимать должен, что время дороже (а разбираться в теме тебе похоже и нафиг не надо)

Сообщение от лёхус

Ещё вопросы не по теме будут?

Да. Один. Вопрос - свои наработки есть или надо сделать вместо взрослого дяди тебя?

[лёхус]

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

Да. Один. Вопрос - свои наработки есть или надо сделать вместо взрослого дяди тебя?

Нашел тут на забугорном форуме вот такой код. только вот дофига чего то не хватает.

type TIPSegments = array[1..4] of byte;
function NumberToSegments(Number:longword):TIPSegments;
var j : 0..4;
begin;
  for j := 4 downto 1 do
  begin;
    result[j] := Number mod 256;
    Number := Number div 256;
  end;
end;
function IPToSegments(ip:string):TIPSegments;
var i : byte;

    j : 0..4;

    s : string;
 begin;
  for j := 1 to 4 do
  begin;
    i := pos('.', ip);
    if j < 4 then s := copy(ip, 1, i-1) else s := ip;
    delete(ip, 1, i); //remove '.'
    result[j] := StrToInt(s);
  end;
end;
function IPToNumber(ip:string):longword;
var segment : TIPSegments;
    i : 1..4;
 begin;
  segment := IPToSegments(ip);
  result := 0;
  for i := 1 to 4 do
    result := result * 256 + segment[i];
end;
 
function NumberToIP(Number:longword):string;
 var segment : TIPSegments;
    i : 1..4;
begin;
  result := '';
  segment := NumberToSegments(Number);
  result := Format('%d.%d.%d.%d', [segment[1], segment[2], segment[3], segment[4]]);
end;
  

procedure TForm4.GetIPList(IPStr:string; MaskBits:byte);
var
  IP   :LongWord;
  i, w : longword;
 begin;
  IP := IPToNumber(IPStr);
   WildCard := 1 shl (32 - MaskBits) - 1;
  NetMask := not WildCard;
   leWildCard.text := NumberToIP(WildCard);
  leNetMask.text  := NumberToIP(NetMask);
   ListBox1.Items.Clear;
  for w := 1 to WildCard - 1 do
  begin;
    i := IP or w;
    ListBox1.Items.Add(NumberToIP(i));
  end;
  leCount.text    := IntToStr(ListBox1.Items.Count);
end;

[лёхус]

Не могу понять почему при переводе в двоичную систему счисления не записываются ноли!? Подскажите плиз!!!

[лёхус]

Все на пьянку свалили? Вопрос про ноли актуальный!
Помогите плиз, очень надо!

[zvygin1964]

Тут я, тут. Только в этом ничего не понимаю. А так бы очень рад был помочь.