IPIP.NET을 통한 데이터베이스 구현을 통해 IP 주소를 쿼리하는 예

지난번에는 Innocence Database를 사용하여 IP 주소 세부정보를 쿼리하는 방법을 소개했습니다.
그러나 무고죄 데이터베이스는 네티즌들의 피드백을 바탕으로 제공되는 것이며, 많은 데이터 설명이 정확하지 않아 온라인에서 다른 IP 데이터베이스를 검색하다가 마침내 ipip.net 웹사이트에서 제공하는 IP 데이터베이스를 찾았습니다.

IPIP에서 제공하는 데이터베이스에는 유료 버전과 무료 버전이 있습니다.
다운로드 주소 https://www.ipip.net/download.html (먼저 계정 등록이 필요합니다)
압축 패키지에는 PHP 파싱 클래스가 있고, 17monipdb.dat 파일도 있습니다. 데이터베이스만 있으면 됩니다. 그냥 사용하세요.

17monipdb.dat를 프로그램의 메인 디렉터리에 복사하고 다음 코드를 사용하세요.

Imports System.IO
Imports System.Text

Public Class IPIP

    Shared offset As Integer
    Shared index As UInteger() = New UInteger(255) {}
    Shared dataBuffer As Byte()
    Shared indexBuffer As Byte()
    Shared lastModifyTime As Long = 0L
    Shared ipFile As String

    Shared rwlock As New Threading.ReaderWriterLock


    Shared Sub New()
        Load("17monipdb.dat")
    End Sub

    Shared Sub Load(ByVal filename As String)
        ipFile = New FileInfo(filename).FullName
        Load()
    End Sub

    Shared Sub Load()
        rwlock.AcquireWriterLock(-1)

        Dim fi As New FileInfo(ipFile)
        lastModifyTime = fi.LastWriteTime.Ticks

        Try
            dataBuffer = File.ReadAllBytes(fi.FullName)

            Dim indexLength = BytesToLong(dataBuffer(0), dataBuffer(1), dataBuffer(2), dataBuffer(3))
            indexBuffer = New Byte(indexLength - 1) {}
            Array.Copy(dataBuffer, 4, indexBuffer, 0, indexLength)
            offset = CType(indexLength, Integer)
            
            For lp As Integer = 0 To 255

                index(lp) = BytesToLong( _
                 indexBuffer(lp * 4 + 3), _
                 indexBuffer(lp * 4 + 2), _
                 indexBuffer(lp * 4 + 1), _
                 indexBuffer(lp * 4) _
                 )

            Next

        Catch ex As Exception
            Throw ex
        End Try

        rwlock.ReleaseWriterLock()
    End Sub




    Private Shared Function BytesToLong(ByVal a As Byte, ByVal b As Byte, ByVal c As Byte, ByVal d As Byte) As UInteger
        Return (CType(a, UInteger) << 24) Or (CType(b, UInteger) << 16) Or (CType(c, UInteger) << 8) Or d
    End Function


    Shared Function Find(ByVal ip As String) As String()
        rwlock.AcquireReaderLock(-1)

        Dim ips = ip.Split(".")
        Dim ip_prefix_value = Integer.Parse(ips(0))
        Dim ip2long_value As Long = BytesToLong(Byte.Parse(ips(0)), Byte.Parse(ips(1)), Byte.Parse(ips(2)), Byte.Parse(ips(3)))
        Dim start = index(ip_prefix_value)
        Dim max_comp_len = offset - 1028

        Dim index_offset As Long = -1L
        Dim index_length As Integer = -1
        Dim b As Byte = 0

        start = start * 8 + 1024
        While start < max_comp_len
            If BytesToLong(indexBuffer(start + 0), indexBuffer(start + 1), indexBuffer(start + 2), indexBuffer(start + 3)) >= ip2long_value Then
                index_offset = BytesToLong(b, indexBuffer(start + 6), indexBuffer(start + 5), indexBuffer(start + 4))
                index_length = &HFF And indexBuffer(start + 7)
                Exit While
            End If
            start += 8
        End While

        Dim areaBytes = New Byte(index_length - 1) {}
        Array.Copy(dataBuffer, offset + index_offset - 1024, areaBytes, 0, index_length)

        Dim ret As String() = Encoding.UTF8.GetString(areaBytes).Split(vbTab)

        rwlock.ReleaseReaderLock()

        Return ret
    End Function
    
End Class

이 코드는 공식 C# 버전에서 번역되었으며 일부 중복 코드를 제거하고 핵심 기능만 남깁니다.
완전히 테스트되지 않았습니다. 버그가 있으면 알려주세요.

사용 방법은 매우 간단합니다.

Dim ret = IPIP.Find("127.0.0.1"
' 用换行分隔所有信息
Dim ipdesc = String.Join(vbCrLf, ret)

위 내용은 IPIP.NET을 통한 데이터베이스 구현을 통해 IP 주소를 쿼리하는 예의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!