Converte LongIP para StringIP, ideal para fazer comparações em faixas de IPs

'=================================================================== 'Converte LongIP para StringIP 'LongIP   -> IP '=================================================================== Function LongIP2StrIP(LongIP)     Dim Result, E, J, Q     Result = ""     E = 256     J = 1     For H = 4 To 1 Step -1         C = C + 1         D = E ^ (4 - C)         J = LongIP - W         i = Int(J / D)         Result = Result & i & "."         W = W + i * D     Next H     LngIP2StrIP = Left(Result, Len(Result) - 1) End Function

Quebra-Linha

Colaborador..: Alexandre Neves
Categoria(s).: ASP;
Data.........: 11/02/2005 18:00:05
Visualizado..: 6360 vezes
Fonte........: Jadir e Luis Oliveira