CSDN博客

img ronggang

IP到数字转换

发表于2004/10/6 19:36:00  2028人阅读

分类: 通用函数

  平时在数据库的编程过程中,需要记录一些IP地址,原本是直接和IP地址(xxx.xxx.xxx.xxx)的形式保存,也就是说在数据库里是明文的,且是字符串,比较占空间。
  有一天同事让我帮他把一个数据库里的一些数字转成IP地址,那个数据库是Sygate(一个共享上网的软件)用来记录上网记录的,我打开数据库看了看,刚开始没有什么头绪,因为自己对这方面没有什么研究,于是就去网上找找,看看有没有相关的资料,嗯,不错,现在的网络基本上想要的资料都可以找的到,我找的一篇文章,或者更恰当的说是一段文字说明,介绍它的算法的;既然已经有了头绪,那么就开始用代码来实现吧。
'转换过程如下:
'1、取得IP,如:192.168.0.1
'2、再将IP顺序反转:1.0.168.192
'3、将IP分成四部分,分别转成16进制,位数不足,在左边加0,转换完成后为:01.00.A8.C0
'4、去掉所有的".",结果为:100A8C0
'5、再将其转成十进制:16820416

'// IP到数字转换
Public Function IPToNumber(ByVal strValue As String) As String
   Dim strTemp                   As String
   Dim strIP()                   As String
   Dim strOutput                 As String
   Dim i                         As Integer
  
   On Error GoTo LocatErr
  
   '// 将IP分成4个部份
   strIP = Split(strValue, ".")
  
   '// 这里是将IP倒过来的,即:192.168.0.1=1.0.168.192
   For i = 3 To 0 Step -1
      strTemp = Hex$(strIP(i))
      '// 将每部份以2位数的数字表示
      strOutput = strOutput & String(2 - Len(strTemp), "0") & strTemp
   Next
  
   IPToNumber = CStr(Trim(CLng("&H" & strOutput)))
  
   Exit Function
LocatErr:
   Err.Clear
   IPToNumber = ""
End Function

'// 数字到IP转换(是通过 IPToNumber 转换过的数字)
Public Function NumberToIP(ByVal strValue As String) As String
   Dim strTemp                      As String
   Dim strIP(1 To 4)                As String
   Dim strOutput                    As String
   Dim i                            As Integer
  
   On Error GoTo LocatErr
  
   '// 取得十六进制值
   strTemp = Hex$(strValue)
     
   '// 不足8位前面加 0
   strTemp = String(8 - Len(strTemp), "0") & strTemp
  
   '// 将数字以每2位分给数组
   For i = 1 To 4
      strIP(i) = Mid$(strTemp, (i - 1) * 2 + 1, 2)
   Next
  
   '// 合并IP
   For i = 4 To 1 Step -1
      strOutput = strOutput & CInt("&H" & strIP(i)) & "."
   Next
  
   '// 去掉最后的一个 "."
   strOutput = Left$(strOutput, Len(strOutput) - 1)
  
   NumberToIP = strOutput
   Exit Function
LocatErr:
   Err.Clear
   NumberToIP = ""
End Function

阅读全文
0 0

相关文章推荐

img
取 消
img