ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

WAT 2008/01/07(ｿｽｿｽ) 09:16:26

ｿｽWｿｽLｿｽｿｽAｿｽOｿｽｿｽdllｿｽｿｽgｿｽずｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽﾈゑｿｽｿｽAｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽIPv4ｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽAｿｽｿｽｿｽYｿｽzｿｽXｿｽgｿｽﾈゑｿｽlｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽﾈりがｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ問いｿｽﾜゑｿｽｿｽｿｽB

ｿｽ謔､ｿｽｿｽｿｽｿｽｿｽ... 2008/01/07(ｿｽｿｽ) 09:59:08

ipｿｽAｿｽhｿｽｿｽｿｽXｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ
***.***.***.***
(ｿｽｿｽ***ｿｽｿｽ 0ｿｽ`255ｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)
ｿｽﾉなゑｿｽｿｽﾄるかｿｽ判定しｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆ？

WAT 2008/01/07(ｿｽｿｽ) 12:08:04

ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAdelphi5 + indy10ｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽu.ｿｽvｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｼｿｽｿｽﾌオｿｽNｿｽeｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA

isSafeIP('192.168.0.256') ｿｽｿｽ False

ｿｽﾝゑｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈと探ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽﾖ撰ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ 2008/01/07(ｿｽｿｽ) 13:29:52

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽH

WinSock.pas 2008/01/07(ｿｽｿｽ) 14:04:37

inet_addr

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽH

ｿｽEｿｽEｿｽEｿｽｿｽｿｽｿｽｿｽﾆ、wsock32.dll ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽﾈ（ｿｽﾎ）

inet_addrｿｽｿｽ 2008/01/07(ｿｽｿｽ) 14:58:49

inet_addr('192') ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾈゑｿｽｿｽだゑｿｽ

ｿｽﾊゑｿｽ .ｿｽｿｽ3ｿｽﾂゑｿｽｿｽ驍ｩｿｽmｿｽFｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽH

>ｿｽWｿｽLｿｽｿｽAｿｽOｿｽｿｽdllｿｽｿｽgｿｽずｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

APIｿｽﾍ全ｿｽﾅゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽH

Fusa 2008/01/07(ｿｽｿｽ) 15:41:14

ｿｽｿｽｿｽｿｽﾈ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽ¥ｿｽｿｽｿｽｿｽ....
ｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽcｿｽJｿｽGｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽDｿｽｿｽｿｽﾅゑｿｽﾈゑｿｽｿｽｿｽｿｽKｿｽ¥ｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB

ｿｽｿｽDelphiｿｽﾌ趣ｿｽVersionｿｽﾅは撰ｿｽｿｽKｿｽ¥ｿｽｿｽLibraryｿｽﾍ標ｿｽｿｽｿｽﾅ趣ｿｽ闕橸ｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽc

ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽKｿｽ¥ｿｽｿｽｿｽﾈ外ｿｽﾅ趣ｿｽｿｽｿｽｿｽﾅ組ｿｽﾞなゑｿｽ
ｿｽsｿｽｿｽｿｽIｿｽhｿｽﾅ区分ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ4ｿｽﾂのゑｿｽﾌに包ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩ
ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽ4ｿｽﾂゑｿｽｿｽｿｽｿｽ黷ｼｿｽ齔ｮｿｽｿｽｿｽﾉなゑｿｽA0ｿｽ`255ｿｽﾅゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽA

ｿｽ判断ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽdｿｽlｿｽﾉなゑｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌホｿｽ[ｿｽｿｽｿｽyｿｽ[ｿｽWｿｽｿｽ

http://delfusa.main.jp/delfusafloor/opensource/delfusalibrary/20070828160200/WordDecompose/WordDecompose.pas.txt
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾝて、
WordCountｿｽｿｽWordGetｿｽﾅピｿｽｿｽｿｽIｿｽhｿｽｿｽdmDelimiterExactlyｿｽwｿｽ閧ｵｿｽｿｽ
4ｿｽﾂの要ｿｽfｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｪTryIntToStrｿｽﾆゑｿｽｿｽﾅ撰ｿｽｿｽlｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ黷ｪ0ｿｽ`255ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽfｿｽｿｽｿｽｿｽB

ｿｽﾆ、ｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB

ｿｽlｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾌと難ｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾟゑｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽﾈ。

KHE00221 2008/01/07(ｿｽｿｽ) 17:38:23

>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽu.ｿｽvｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｼｿｽｿｽﾌオｿｽNｿｽeｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA

ｿｽﾈのででゑｿｽｿｽﾄゑｿｽｿｽｿｽだろうｿｽｿｽｿｽﾇ一応ｿｽEｿｽEｿｽEｿｽEｿｽE

function isSafeIP(IP:String):Boolean;
var
    I,J,J2,K : Integer;
begin
    Result := True;
    if Pos('$',IP) = 0 then
    begin
      J := 0;
      for I:=0 to 3 do
      begin
        J2 := PosEx('.',IP,J+1);
        if J2<>0 then
        begin
          K := StrToIntDef(Copy(IP,J+1,J2-J-1),256);
        end;
        if (J2=0) then
        begin
          if I=3 then
          begin
            K := StrToIntDef(Copy(IP,J+1,Length(IP)-J),256);
          end
          else
          begin
            Result := False;
          end;
        end;
        if (K<0) or (255<K) then Result := False;
        J := J2;
      end;
    end
    else
    begin
      Result := False;
    end;
end;

ｿｽﾄんさゑｿｽ 2008/01/08(ｿｽｿｽ) 12:23:04

ｿｽｿｽｿｽﾌｿｽｿｽﾖ撰ｿｽｿｽﾅは、ｿｽｿｽｿｽｿｽﾈｿｽIPｿｽﾅゑｿｽ True ｿｽﾉなゑｿｽH

  IP := '0001.0012.0123.000255';  // ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽ闡ｽｿｽｿｽ
  IP := '12.34.56.78.90.123';     // ｿｽｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽSｿｽﾂゑｿｽ闡ｽｿｽｿｽ
  IP := '124.083.147.202...';     // ｿｽｿｽｿｽｿｽｿｽﾉ余ｿｽvｿｽﾈドｿｽbｿｽg

KHE000221 2008/01/08(ｿｽｿｽ) 12:47:49

ｿｽCｿｽｿｽ

function isSafeIP(IP:String):Boolean;
var
    I,J,J2,K : Integer;
    S : String;
begin
    Result := True;
    if Pos('$',IP) = 0 then
    begin
      J := 0;
      for I:=0 to 3 do
      begin
        J2 := PosEx('.',IP,J+1);
        if J2<>0 then
        begin
          S := Copy(IP,J+1,J2-J-1);
          if Length(S) < 4 then
          begin
            K := StrToIntDef(S,256);
          end
          else
          begin
            Result := False;
          end;
        end;
        if (J2=0) then
        begin
          if I=3 then
          begin
            S := Copy(IP,J+1,Length(IP)-J);
            if Length(S) < 4 then
            begin
              K := StrToIntDef(S,256);
            end
            else
            begin
              Result := False;
            end;
          end
          else
          begin
            Result := False;
          end;
        end;
        if (K<0) or (255<K) then Result := False;
        J := J2;
      end;
      if Copy(IP,J,1) = '.' then Result := False;
    end
    else
    begin
      Result := False;
    end;
end;

Fusa 2008/01/08(ｿｽｿｽ) 13:31:53

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉは、ｿｽeｿｽXｿｽgｿｽtｿｽ@ｿｽ[ｿｽXｿｽgｿｽﾅゑｿｽｿｽﾈ。

//KHE000221ｿｽｿｽｿｽｿｽｿｽisSafeIPｿｽﾉ必ｿｽvｿｽﾈのゑｿｽ
//ｿｽｿｽｿｽｿｽPosExｿｽﾖ撰ｿｽｿｽｿｽｿｽﾈ？
function PosEx(Substr: string; S: string; P: Integer): Integer;
begin
  if P <= 0 then Result := 0
  else Result := Pos(Substr, Copy(S, P, Length(S)));
  if Result <> 0 then Result := Result + P - 1;
end;

//ｿｽｿｽｿｽ黷ｪｿｽ`ｿｽFｿｽbｿｽNｿｽRｿｽ[ｿｽh
procedure Check(A, B: Boolean);
begin
  if not(A = B) then
  begin
    Assert(False,
      'ｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽ:A=' + BoolToStr(A) + ':B=' + BoolToStr(B));
  end;
end;

//ｿｽｿｽｿｽｿｽｿｽﾅテｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
//ｿｽeｿｽXｿｽgｿｽｿｽﾊ過ゑｿｽｿｽｿｽ謔､ｿｽｿｽisSafeIPｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾎよいｿｽB
procedure TForm1.Button1Click(Sender: TObject);
begin
  Check(True, isSafeIP('0.0.0.0'));
  Check(True, isSafeIP('255.255.255.0'));
  Check(True, isSafeIP('255.255.0.0'));
  Check(True, isSafeIP('0.0.0.255'));
  Check(True, isSafeIP('192.168.0.1'));
  Check(True, isSafeIP('192.168.0.01'));

  Check(False, isSafeIP('192.168.0.-1'));

  // ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽ闡ｽｿｽｿｽ
  Check(False, isSafeIP('0192.168.0.1'));
  Check(False, isSafeIP('192.168.0000.1'));
  Check(False, isSafeIP('192.168.0.0001'));
  Check(False, isSafeIP('0001.0012.0123.000255'));

  //ｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽ
  Check(True, isSafeIP('192.02.03.04'));
  Check(False, isSafeIP('0192.02.03.04'));
  Check(True, isSafeIP('01.02.03.04'));

  // ｿｽｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽSｿｽﾂゑｿｽ闡ｽｿｽｿｽ
  Check(False, isSafeIP('12.34.56.78.90'));
  Check(False, isSafeIP('12.34.56.78.90.123'));

  // ｿｽｿｽｿｽｿｽｿｽﾉ余ｿｽvｿｽﾈドｿｽbｿｽg
  Check(False, isSafeIP('124.083.147.202..'));
  Check(False, isSafeIP('124.083.147.202...'));

  //ｿｽ謫ｪｿｽﾉ余ｿｽvｿｽﾈドｿｽbｿｽg
  Check(False, isSafeIP('.124.083.147.202'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
  Check(False, isSafeIP('.0.0.1'));
  Check(False, isSafeIP('0.0..1'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽﾍ囲外
  Check(False, isSafeIP('256.255.255.0'));
  Check(False, isSafeIP('255.255.0.256'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾈゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
  Check(False, isSafeIP('0.0F.0.255'));
  Check(False, isSafeIP('0.0x0F.0.255'));
  Check(False, isSafeIP('0.$0F.0.255'));
end;

ｿｽｿｽｿｽﾌテｿｽXｿｽgｿｽｿｽﾊ過ゑｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽA
isSafeIPｿｽﾌ関撰ｿｽｿｽdｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽisSafeIPｿｽﾅ具ｿｽｿｽeｿｽｿｽｿｽｿｽ驍ｩｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽ驍ｵ
isSafeIPｿｽｿｽｿｽｿｽtｿｽ@ｿｽNｿｽ^ｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽﾉなゑｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽﾌテｿｽXｿｽgｿｽｿｽｿｽﾊゑｿｽﾎ、ｿｽdｿｽlｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾖ撰ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽisSafeIPｿｽﾅはエｿｽｿｽｿｽ[ｿｽｿｽｿｽNｿｽｿｽｿｽ驍ｵ
ｿｽｿｽｿｽｿｽisSafeIPｿｽﾅは撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽuｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽｿｽvｿｽﾌ擾ｿｽｿｽﾌ費ｿｽｿｽｿｽｿｽﾈ仕ｿｽlｿｽﾈんかゑｿｽ
ｿｽlｿｽﾔとゑｿｽｿｽﾄはどゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽ驍ｯｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍテｿｽXｿｽgｿｽﾅチｿｽFｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽかｿｽｿｽﾈゑｿｽｿｽﾈ。

DEKO 2008/01/08(ｿｽｿｽ) 15:00:17

ｿｽﾊ費ｿｽｿｽｿｽｿｽｿｽｿｽﾈので趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
# Check(False, isSafeIP('0.$0F.0.255'));
# ｿｽﾅ茨ｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ(^^;A

function isSafeIP(IP: String): Boolean;
var
  i: Integer;
  Stream: TStringStream;
  Parser: TParser;
  iValue: Int64;
  Source: String;
begin
  result := False;
  Source := StringReplace(IP,'.',#$FF,[rfReplaceAll]);
  Stream := TStringStream.Create(Source);
  try
    Parser := TParser.Create(Stream);
    try
      for i:=0 to 6 do
        begin
          if ODD(i) then
            begin
              if Parser.TokenString <> #$FF then
                Exit;
            end
          else
            begin
              if Parser.Token <> toInteger then
                Exit;
              if Length(Parser.TokenString) > 3 then
                Exit;
              iValue := Parser.TokenInt;
              if not (iValue in [0..255]) then
                Exit;
            end;
          Parser.NextToken;
        end;
      if Parser.Token <> toEOF then
        Exit;
      result := True;
    finally
      Parser.Free;
    end;
  finally
    Stream.Free;
  end;
end;

ｿｽﾜゑｿｽｿｽｿｽ 2008/01/08(ｿｽｿｽ) 17:46:12

ｿｽｿｽｿｽｿｽｿｽ轤ｭｿｽA0x0Fｿｽﾍ撰ｿｽｿｽlｿｽｿｽｿｽｿｽﾈゑｿｽｿｽAｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽ
4ｿｽｿｽｿｽｿｽｿｽﾈ上かｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾅはねゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽB
TryStrToIntｿｽﾅゑｿｽ0x0Fｿｽｿｽ$0FｿｽｿｽTrueｿｽｿｽｿｽﾔゑｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽﾆは、ｿｽｿｽｿｽｿｽ0ｿｽｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ、WindowsｿｽｿｽPingｿｽﾈどでゑｿｽ
8ｿｽiｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽCｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。

ｿｽﾜゑｿｽｿｽｿｽ 2008/01/08(ｿｽｿｽ) 17:55:05

ｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾉ余ｿｽｿｽｿｽｿｽ0ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍエｿｽｿｽｿｽ[ｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾈゑｿｽ

function isSafeIP(IP:String):Boolean;
var
  slBuffer  : TStringList;
  i,j       : Integer;
begin
  Result  := True;
  slBuffer  := TStringList.Create;
  try
    slBuffer.Delimiter      := '.';
    slBuffer.DelimitedText  := IP;
    // ｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽN
    if Not(slBuffer.Count = 4) then
      Result := False
    else
      // ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽN
      for i:=0 to 3 do
        if Not(TryStrToInt(slBuffer.Strings[i],j)) then
          Result := False
        else
          // ｿｽｿｽｿｽlｿｽﾍ囲のチｿｽFｿｽbｿｽN
          if Not(j in [0..255]) then
            Result := False
          else
            // ｿｽｿｽｿｽlｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽN
            if Not(IntToStr(j)=slBuffer.Strings[i]) then
              Result := False;
  finally
    slBuffer.Free;
  end;
end;

Fusa 2008/01/11(ｿｽｿｽ) 01:11:15

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍーｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽｿｽﾍ楽ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

> # Check(False, isSafeIP('0.$0F.0.255'));
> # ｿｽﾅ茨ｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ(^^;A

ｿｽｿｽｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ
isSafeIP('0.$0F.0.255')
ｿｽｿｽFalseｿｽｿｽﾔゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽdｿｽlｿｽﾉゑｿｽｿｽ驍ｩ
TrueｿｽｿｽﾔゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽdｿｽlｿｽﾉゑｿｽｿｽ驍ｩｿｽｿｽ
ｿｽ成ｿｽﾒの趣ｿｽｿｽRｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ皷橸ｿｽAｿｽeｿｽXｿｽgｿｽRｿｽ[ｿｽhｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

StrToIntｿｽﾍ鯉ｿｽｿｽ¥ｿｽsｿｽvｿｽcｿｽﾈ仕ｿｽlｿｽﾅゑｿｽｿｽｿｽ
0x0Fｿｽｿｽ$0Fｿｽｿｽｿｽｿｽlｿｽﾆゑｿｽｿｽﾄ返ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。

> ｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾉ余ｿｽｿｽｿｽｿｽ0ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍエｿｽｿｽｿｽ[ｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾋ〜ｿｽB

Fusa 2008/01/15(ｿｽｿｽ) 09:47:58

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
ｿｽｿｽｿｽｿｽAisSafeIPｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB

function isSafeIP(IP:String):Boolean;
var
  i, Val: Integer;
begin
  Result := False;
  with TWordDecompose.Create('.', IP, dmDelimiterExactly) do try
  //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ4ｿｽﾅゑｿｽｿｽ驍ｱｿｽｿｽ
  if Count <> 4 then Exit;
  for i := 0 to 3 do
  begin
    //ｿｽｿｽｿｽvｿｽfｿｽｿｽｿｽ文趣ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
    if Words[i] = '' then Exit;
    //ｿｽｿｽｿｽvｿｽfｿｽｿｽｿｽｿｽｿｽｿｽ(0ｿｽ`9)ｿｽﾅ出ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽｿｽ
    if CheckStrInTable(Words[i], hanNumberTbl) <> itAllInclude then Exit;
    //ｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽﾈ上あｿｽｿｽｿｽﾄ先頭ｿｽｿｽ0ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
    if (2 <= Length(Words[i])) and (AnsiPos('0', Words[i])=1) then Exit;
    //ｿｽｿｽStrToIntｿｽﾅ撰ｿｽｿｽlｿｽﾏ奇ｿｽｿｽﾅゑｿｽｿｽ驍ｱｿｽｿｽ
    if not TryStrToInt(Words[i], Val) then Exit;
    //ｿｽｿｽｿｽﾍ囲ゑｿｽ0ｿｽ`255ｿｽﾅゑｿｽｿｽ驍ｱｿｽｿｽ
    if not CheckRange(0, Val, 255) then Exit
  end;
  Result := True;
  finally Free; end;
end;


TWordDecomposeｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謨ｪｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽASplitｿｽﾖ撰ｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ
CheckStrInTableｿｽﾍ包ｿｽｿｽｿｽｿｽがテｿｽ[ｿｽuｿｽｿｽｿｽﾉ含まゑｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽﾖ撰ｿｽ
CheckRangeｿｽﾍ範囲を調べゑｿｽﾖ撰ｿｽ

DelFusa Library - Delphi OpenSource - DelFusa Floor
http://delfusa.main.jp/delfusafloor/opensource/delfusa_library_f.html


ｿｽﾈ会ｿｽｿｽAｿｽｿｽｿｽﾌようｿｽﾈテｿｽXｿｽgｿｽRｿｽ[ｿｽhｿｽﾊ過ゑｿｽｿｽﾄまゑｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
begin
  Check(True, isSafeIP('0.0.0.0'));
  Check(True, isSafeIP('1.2.3.4'));
  Check(True, isSafeIP('255.255.255.0'));
  Check(True, isSafeIP('255.255.0.0'));
  Check(True, isSafeIP('0.0.0.255'));
  Check(True, isSafeIP('192.168.0.1'));

  Check(False, isSafeIP('192.168.0.-1'));

  // ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽ闡ｽｿｽｿｽ
  Check(False, isSafeIP('0192.168.0.1'));
  Check(False, isSafeIP('192.168.0000.1'));
  Check(False, isSafeIP('192.168.0.0001'));
  Check(False, isSafeIP('0001.0012.0123.000255'));

  //ｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽdｿｽlｿｽﾉゑｿｽｿｽｿｽﾄ変更ｿｽｿｽｿｽｿｽ
  Check(False, isSafeIP('192.168.0.01'));
  Check(False, isSafeIP('192.02.03.04'));
  Check(False, isSafeIP('0192.02.03.04'));
  Check(False, isSafeIP('01.02.03.04'));

  // ｿｽｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽSｿｽﾂゑｿｽ闡ｽｿｽｿｽ
  Check(False, isSafeIP('12.34.56.78.90'));
  Check(False, isSafeIP('12.34.56.78.90.123'));

  // ｿｽｿｽｿｽｿｽｿｽﾉ余ｿｽvｿｽﾈドｿｽbｿｽg
  Check(False, isSafeIP('124.083.147.202..'));
  Check(False, isSafeIP('124.083.147.202...'));

  //ｿｽ謫ｪｿｽﾉ余ｿｽvｿｽﾈドｿｽbｿｽg
  Check(False, isSafeIP('.124.083.147.202'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
  Check(False, isSafeIP('.0.0.1'));
  Check(False, isSafeIP('0.0..1'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽﾍ囲外
  Check(False, isSafeIP('256.255.255.0'));
  Check(False, isSafeIP('255.255.0.256'));

  //ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾈゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
  Check(False, isSafeIP('0.0F.0.255'));
  Check(False, isSafeIP('0.0x0F.0.255'));
  Check(False, isSafeIP('0.$0F.0.255'));
end;


ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ
ｿｽﾝなゑｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽAｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽﾋ。

StrToIntｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽA
IntToStrｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄのゑｿｽ
ｿｽ謫ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽSｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ0ｿｽ`9ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽfｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾌゑｿｽ
ｿｽかｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。

ｿｽｿｽｿｽtｿｽ@ｿｽNｿｽ^ｿｽｿｽｿｽｿｽｿｽOｿｽA
ｿｽﾂまゑｿｽAｿｽﾖ撰ｿｽｿｽﾌ抵ｿｽ`ｿｽﾍ変ゑｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽ竄ｷｿｽｿｽ
ｿｽHｿｽvｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾅゑｿｽeｿｽXｿｽgｿｽRｿｽ[ｿｽhｿｽｿｽﾊ過ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

function isSafeIP(IP:String):Boolean;
var
  i, Val: Integer;
begin
  Result := False;
  with TWordDecompose.Create('.', IP, dmDelimiterExactly) do try
  if Count <> 4 then Exit;
  for i := 0 to 3 do
  begin
    if Words[i] = '' then Exit;
    if not TryStrToInt(Words[i], Val) then Exit;
    if not (Val in [0..255]) then Exit;
    if not (Words[i]=IntToStr(Val)) then Exit;
  end;
  Result := True;
  finally Free; end;
end;

ｿｽﾜゑｿｽｿｽｿｽ 2008/01/15(ｿｽｿｽ) 18:02:37

ｿｽﾈゑｿｽﾙど、ResultｿｽｿｽFalseｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽExitｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽ黷ｱｿｽｿｽｿｽｿｽｿｽ驍ｵ
ｿｽ]ｿｽvｿｽﾈ費ｿｽｿｽfｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽﾋ。ｿｽ@ｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽB

ｿｽﾅゑｿｽAｿｽｿｽｿｽｿｽｿｽﾜで暦ｿｽｿｽﾄ、ｿｽCｿｽｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

> ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAdelphi5 + indy10ｿｽﾅゑｿｽｿｽB

TryStrToIntｿｽﾖ撰ｿｽｿｽｿｽIfｿｽｿｽｿｽｿｽinｿｽｿｽｿｽZｿｽqｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽcorz


> ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽu.ｿｽvｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｼｿｽｿｽﾌオｿｽNｿｽeｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA

ｿｽｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽ黷ｿｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽﾋ。
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ短ｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽﾄるこｿｽﾆはまゑｿｽｿｽﾉゑｿｽｿｽｿｽcorz

Fusa 2008/01/16(ｿｽｿｽ) 00:30:10

ｿｽｿｽｿｽｿｽｿｽﾌテｿｽNｿｽjｿｽbｿｽNｿｽTｿｽCｿｽgｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤｢ｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽうｿｽﾆ思ｿｽｿｽｿｽｿｽ
TryStrToIntｿｽｿｽCanStrToIntｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾅヒｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽｿｽA
inｿｽｿｽｿｽZｿｽqｿｽﾌとゑｿｽｿｽｿｽﾍ、(0 <= Val) and (Val <= 255)ｿｽﾉゑｿｽｿｽﾄゑｿｽ轤｢ｿｽﾜゑｿｽｿｽ蛯､ｿｽB

Fusa 2008/02/06(ｿｽｿｽ) 13:37:25

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAwisockｿｽｿｽinet_addrｿｽｿｽ
IsSafeIPｿｽﾖ撰ｿｽｿｽﾅｿｽｿｽbｿｽvｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB

  Check(False, IsSafeIP('0192.168.0.1'));
ｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｪIPｿｽﾆゑｿｽｿｽﾄ認ｿｽﾟゑｿｽｿｽﾄなゑｿｽｿｽﾌに、

  Check(True, IsSafeIP('0001.0012.0123.000255'));
ｿｽｿｽｿｽｿｽｿｽIPｿｽﾆゑｿｽｿｽﾄ認ｿｽﾟゑｿｽｿｽｿｽB

  Check(True, IsSafeIP('0.0x0F.0.255'));
ｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾜゑｿｽIPｿｽAｿｽhｿｽｿｽｿｽXｿｽﾆゑｿｽｿｽﾄ具ｿｽｿｽeｿｽｿｽｿｽｿｽﾆは…


[WinSock.pas]ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ

  Check(True, IsSafeIP('192'));

ｿｽcｿｽﾐどゑｿｽｿｽc

----------
//uses  Winsockｿｽｿｽﾇ会ｿｽ

function IsSafeIP(IP:String):Boolean;
var
  InAddr: TInAddr;
begin
  InAddr.S_addr := inet_addr(PChar(IP));
  if InAddr.S_addr = INADDR_NONE then
  begin
    Result := False;
  end else
  begin
    Result := True;
  end;
end;

ｿｽﾜゑｿｽｿｽｿｽ 2008/02/06(ｿｽｿｽ) 14:50:36

ｿｽｿｽｿｽ黷ｼｿｽｿｽｿｽApingｿｽｿｽｿｽﾄみゑｿｽﾆどゑｿｽｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽかｿｽｿｽｿｽﾄ面費ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB
ex)ping 192 -> ping 0.0.0.192

0192ｿｽｿｽｿｽｿｽｿｽﾟなのは、8ｿｽiｿｽｿｽｿｽｿｽ9ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。(ｿｽｿｽ)
0162ｿｽﾈゑｿｽnｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ0xｿｽ頭につゑｿｽｿｽｿｽﾎ、16ｿｽiｿｽｿｽｿｽﾅ変奇ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅは、(Windowsｿｽｿｽﾅゑｿｽ)WinsockｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽB

Created by board of various Programming Library.