判斷IP的來源是電信還是網通

判斷ip的來源是電信還是網通,常用於網站的背景程式.典型的做法當然是查詢資料庫教程,資料庫裡儲存著網通(或電信)的ip範圍,然後通過範圍搜尋來決定該ip是否在網通(或電信)的區間內.不過每次都得查詢資料庫,效率顯然很低.

    不多廢話,直接開始說一種超快的演算法吧.既然要極快,莫過於o(1)的複雜度,所以開闢一巨大的緩衝區,用經典的空間換時間,通過查表一步即可判定.那如何定義表的大小,還有key?先從cnc.txt這個檔案看起.
(http://www.etherdream.com/funnyscript/iprange/cnc.txt)

    這個檔案是中國網通的路由表.仔細觀察下,不難發現掩碼位元最高不超過24(即255.255.255.0).事實上24位的掩碼是非常至少,畢竟一個網通的網段裡只劃分了256個ip,已是相當的少了.既然掩碼位元最多隻有24,所以ip的最後一位可以忽略不計,而ip的前3位共有256^3(=16m)的組合.所以將ip的前3位作為key,16m的表長度,正好定義出ip對應網段的表.可以形象如下表示:

    123.0.0.0/24 => table[123.0.0] = true

    202.0.0.0/16 => table[202.0.0] = true
                    table[202.0.1] = true
                    ...
                    table[202.0.255] = true

    檢測的時候取ip前3位,檢測表中對應是否為true即可判斷出此ip的類型.事實上,本例中ip只有電信和網通兩種狀態(非網通網段都當作電信),因此只需1bit即可儲存每個記錄.這時表佔用的記憶體只需16m/8=2m.下面就用asp教程來實現這功能.

    首先將路由錶轉化成一個2m大小的緩衝表.考慮到asp的運行速度,這裡事先用c程式直接處理,然後儲存為一個2m的二進位檔案.asp通過adbdo.stream讀取資料流,並緩衝在appliction集合中.所謂的資料流其實也就是個byte()變數,可以通過midb,ascb這類二進位函數來處理.

    初始化函數:

 

sub init()
       if lenb(application("cnc")) then
              exit sub
       end if

       with server.createobject("adodb.stream")
              .type = 1
              .open
              .loadfromfile server.mappath("cnc.dat")
              application("cnc") = .read
              .close
       end with
end sub

    通過appliction集合的緩衝,就不必每次都讀取檔案.2m大小的記憶體也是可以接受的.接著就是分析ip地址,將其前3位轉換成一個數字,因為這裡每個記錄是按位(bit)儲存的,所以還要整除8來對應到byte()的位置.最後通過mod運算對應到具體位元組的具體bit上.聽著有些複雜,不過實現起來確是相當的簡單:

 

function ipiscnc(ip)
       dim arr, val
       dim c

       arr = split(ip, ".")
       val = clng(arr(0)) * 65536  + clng(arr(1)) * 256 + clng(arr(2))
       c = ascb(midb(application("cnc"), val 8 + 1, 1))

       ipiscnc = _
              (c and 2^(val mod 8)) <> 0
end function

    ipiscnc(ip),返回ip地址是否為網通.

   

到此關鍵的兩個函數就大功告成了,接著測試:

 

sub main()
       on error resume next

       init()

       if err then
              response.write "系統錯誤: " & err.description
              exit sub
       end if

       dim ip
       ip = request.servervariables("remote_addr")

       if ipiscnc(ip) then
              response.write ip & "屬於網通ip"
       else
              response.write ip & "屬於電信ip"
       end if
end sub
main()

    考慮到init函數需要檔案的讀取,所以添加了錯誤捕捉.不過通常情況下ipiscnc是不會錯誤的,因為remote_addr返回的必然是個正確格式的ip.

    每當訪問asp時,除了第一次需負載檔案外,其餘時候只需三四行代碼既可以判定,真正實現了空間換時間.