------------------------------------------------------------
-- Nicolas SOUQUET - 08/08/2009 - Vérifie une adresse IP
--                - Extrait sa classe
--                - Vérifie si elle est privée
/*
DECLARE @IP VARCHAR(15),
    @OK BIT,
    @classe CHAR(1),
    @privee BIT
 
SET @IP = '172.220.10.1'
 
EXEC dbo.PsCheck_AdresseIP
  @IP,
  @OK OUTPUT,
  @classe OUTPUT,
  @privee OUTPUT
 
SELECT @OK AS OK,
    @classe AS classe,
    @privee AS privee
*/
------------------------------------------------------------
ALTER PROCEDURE PsCheck_AdresseIP
  @adresseIP VARCHAR(15),
  @estAdresseIPCorrecte BIT = NULL OUTPUT,
  @classeAdresseIP CHAR(1) = NULL OUTPUT,
  @estPrivee BIT = NULL OUTPUT
AS
BEGIN
  SET NOCOUNT ON
 
  SELECT @estAdresseIPCorrecte = 1,
      @estPrivee = 0
 
  IF
  (
    @adresseIP IS NULL
    OR @adresseIP NOT LIKE '%.%.%.%'
  )
  BEGIN
    SET @estAdresseIPCorrecte = 0
  END
  ELSE
  BEGIN
    -----------------------------------------
    -- Recherche de la valeur de chaque octet
    -----------------------------------------
    DECLARE @octet1 TINYINT,
        @octet2 TINYINT,
        @octet3 TINYINT,
        @octet4 TINYINT,
        ---
        @indiceFinPremierOctet TINYINT,
        @indiceFinDeuxiemeOctet TINYINT,
        @indiceFinTroisiemeOctet TINYINT,
        @indiceFinQuatriemeOctect TINYINT
 
    SELECT @indiceFinPremierOctet = CHARINDEX('.', @adresseIP),
        @indiceFinDeuxiemeOctet = CHARINDEX('.', @adresseIP, @indiceFinPremierOctet + 1),
        @indiceFinTroisiemeOctet = CHARINDEX('.', @adresseIP, @indiceFinDeuxiemeOctet + 1)
 
    BEGIN TRY
      SELECT @octet1 = CAST(SUBSTRING(@adresseIP, 1, @indiceFinPremierOctet - 1) AS TINYINT),
          @octet2 = CAST(SUBSTRING(@adresseIP, @indiceFinPremierOctet + 1, @indiceFinDeuxiemeOctet - @indiceFinPremierOctet - 1) AS TINYINT),
          @octet3 = CAST(SUBSTRING(@adresseIP, @indiceFinDeuxiemeOctet + 1, @indiceFinTroisiemeOctet - @indiceFinDeuxiemeOctet - 1) AS TINYINT),
          @octet4 = CAST(RIGHT(@adresseIP, LEN(@adresseIP) - @indiceFinTroisiemeOctet) AS TINYINT)
    END TRY
    BEGIN CATCH
      RAISERROR('Une des octets de l''adresse IP est incorrect', 16, 1)
    END CATCH
 
    --------------------------------------
    -- Recherche de la classe de l'adresse
    --------------------------------------
    -- Classe A
    IF @octet1 BETWEEN 1 AND 126
    BEGIN
      SET @classeAdresseIP = 'A'
    END
 
    -- Classe B
    IF
    (
      @octet1 BETWEEN 128 AND 190
      OR
      (
        @octet1 = 191
        AND @octet3 = 0
        AND @octet4 = 0
      )
    )
    BEGIN
      SET @classeAdresseIP = 'B'
    END
 
    -- Classe C
    IF
    (
      @octet1 BETWEEN 191 AND 222
      OR
      (
        @octet1 = 223
        AND @octet4 = 0
      )
    )
    BEGIN
      SET @classeAdresseIP = 'C'
    END
 
    IF @classeAdresseIP IS NULL
    BEGIN
      SET @estAdresseIPCorrecte = 0
    END
 
    ------------------------------------
    -- Recherche si l'adresse est privée
    ------------------------------------
    IF
    (
      (  -- Classe A
        @octet1 = 10
        OR
        (
          @octet1 = 10
          AND @octet2 = 255
          AND @octet3 = 255
          AND @octet4 = 254
        )
      )
      OR -- Classe B
      (
        (
          @octet1 = 172
          AND @octet2 BETWEEN 16 AND 31
        )
        OR
        (
          @octet1 = 172
          AND @octet2 = 31
          AND @octet3 = 255
          AND @octet4 = 254
        )
      )
      OR -- Classe C
      (
       
        (
          @octet1 = 192
          AND @octet2 = 168
        )
        OR
        (
          @octet1 = 192
          AND @octet1 = 168
          AND @octet3 = 255
          AND @octet4 = 254
        )
      )
    )
    SET @estPrivee = 1
  END
END