128 lines
12 KiB
VB.net
128 lines
12 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Public Class GeoIP
|
|
Public MS As MemoryStream
|
|
Public Shared CountryBegin As Long = 16776960
|
|
Public Shared CountryName As String() = {"LocalHost", "Asia/Pacific Region", "Europe", "Andorra", "United Arab Emirates", "Afghanistan", "Antigua and Barbuda", "Anguilla", "Albania", "Armenia", "Netherlands Antilles", "Angola", "Antarctica", "Argentina", "American Samoa", "Austria", "Australia", "Aruba", "Azerbaijan", "Bosnia and Herzegovina", "Barbados", "Bangladesh", "Belgium", "Burkina Faso", "Bulgaria", "Bahrain", "Burundi", "Benin", "Bermuda", "Brunei Darussalam", "Bolivia", "Brazil", "Bahamas", "Bhutan", "Bouvet Island", "Botswana", "Belarus", "Belize", "Canada", "Cocos (Keeling) Islands", "Congo, The Democratic Republic of the", "Central African Republic", "Congo", "Switzerland", "Cote D'Ivoire", "Cook Islands", "Chile", "Cameroon", "China", "Colombia", "Costa Rica", "Cuba", "Cape Verde", "Christmas Island", "Cyprus", "Czech Republic", "Germany", "Djibouti", "Denmark", "Dominica", "Dominican Republic", "Algeria", "Ecuador", "Estonia", "Egypt", "Western Sahara", "Eritrea", "Spain", "Ethiopia", "Finland", "Fiji", "Falkland Islands (Malvinas)", "Micronesia, Federated States of", "Faroe Islands", "France", "France, Metropolitan", "Gabon", "United Kingdom", "Grenada", "Georgia", "French Guiana", "Ghana", "Gibraltar", "Greenland", "Gambia", "Guinea", "Guadeloupe", "Equatorial Guinea", "Greece", "South Georgia and the South Sandwich Islands", "Guatemala", "Guam", "Guinea-Bissau", "Guyana", "Hong Kong", "Heard Island and McDonald Islands", "Honduras", "Croatia", "Haiti", "Hungary", "Indonesia", "Ireland", "Israel", "India", "British Indian Ocean Territory", "Iraq", "Iran, Islamic Republic of", "Iceland", "Italy", "Jamaica", "Jordan", "Japan", "Kenya", "Kyrgyzstan", "Cambodia", "Kiribati", "Comoros", "Saint Kitts and Nevis", "Korea, Democratic People's Republic of", "Korea, Republic of", "Kuwait", "Cayman Islands", "Kazakstan", "Lao People's Democratic Republic", "Lebanon", "Saint Lucia", "Liechtenstein", "Sri Lanka", "Liberia", "Lesotho", "Lithuania", "Luxembourg", "Latvia", "Libyan Arab Jamahiriya", "Morocco", "Monaco", "Moldova, Republic of", "Madagascar", "Marshall Islands", "Macedonia, the Former Yugoslav Republic of", "Mali", "Myanmar", "Mongolia", "Macao", "Northern Mariana Islands", "Martinique", "Mauritania", "Montserrat", "Malta", "Mauritius", "Maldives", "Malawi", "Mexico", "Malaysia", "Mozambique", "Namibia", "New Caledonia", "Niger", "Norfolk Island", "Nigeria", "Nicaragua", "Netherlands", "Norway", "Nepal", "Nauru", "Niue", "New Zealand", "Oman", "Panama", "Peru", "French Polynesia", "Papua New Guinea", "Philippines", "Pakistan", "Poland", "Saint Pierre and Miquelon", "Pitcairn", "Puerto Rico", "Palestinian Territory, Occupied", "Portugal", "Palau", "Paraguay", "Qatar", "Reunion", "Romania", "Russian Federation", "Rwanda", "Saudi Arabia", "Solomon Islands", "Seychelles", "Sudan", "Sweden", "Singapore", "Saint Helena", "Slovenia", "Svalbard and Jan Mayen", "Slovakia", "Sierra Leone", "San Marino", "Senegal", "Somalia", "Suriname", "Sao Tome and Principe", "El Salvador", "Syrian Arab Republic", "Swaziland", "Turks and Caicos Islands", "Chad", "French Southern Territories", "Togo", "Thailand", "Tajikistan", "Tokelau", "Turkmenistan", "Tunisia", "Tonga", "Timor-Leste", "Turkey", "Trinidad and Tobago", "Tuvalu", "Taiwan, Province of China", "Tanzania, United Republic of", "Ukraine", "Uganda", "United States Minor Outlying Islands", "United States", "Uruguay", "Uzbekistan", "Holy See (Vatican City State)", "Saint Vincent and the Grenadines", "Venezuela", "Virgin Islands, British", "Virgin Islands, U.S.", "Vietnam", "Vanuatu", "Wallis and Futuna", "Samoa", "Yemen", "Mayotte", "Yugoslavia", "South Africa", "Zambia", "Montenegro", "Zimbabwe", "Anonymous Proxy", "Satellite Provider", "Other", "Aland Islands", "Guernsey", "Isle of Man", "Jersey", "Saint Barthelemy", "Saint Martin"}
|
|
Public Shared CountryCode As String() = {"--", "AP", "EU", "AD", "AE", "AF", "AG", "AI", "AL", "AM", "AN", "AO", "AQ", "AR", "AS", "AT", "AU", "AW", "AZ", "BA", "BB", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BM", "BN", "BO", "BR", "BS", "BT", "BV", "BW", "BY", "BZ", "CA", "CC", "CD", "CF", "CG", "CH", "CI", "CK", "CL", "CM", "CN", "CO", "CR", "CU", "CV", "CX", "CY", "CZ", "DE", "DJ", "DK", "DM", "DO", "DZ", "EC", "EE", "EG", "EH", "ER", "ES", "ET", "FI", "FJ", "FK", "FM", "FO", "FR", "FX", "GA", "GB", "GD", "GE", "GF", "GH", "GI", "GL", "GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU", "GW", "GY", "HK", "HM", "HN", "HR", "HT", "HU", "ID", "IE", "IL", "IN", "IO", "IQ", "IR", "IS", "IT", "JM", "JO", "JP", "KE", "KG", "KH", "KI", "KM", "KN", "KP", "KR", "KW", "KY", "KZ", "LA", "LB", "LC", "LI", "LK", "LR", "LS", "LT", "LU", "LV", "LY", "MA", "MC", "MD", "MG", "MH", "MK", "ML", "MM", "MN", "MO", "MP", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", "NA", "NC", "NE", "NF", "NG", "NI", "NL", "NO", "NP", "NR", "NU", "NZ", "OM", "PA", "PE", "PF", "PG", "PH", "PK", "PL", "PM", "PN", "PR", "PS", "PT", "PW", "PY", "QA", "RE", "RO", "RU", "RW", "SA", "SB", "SC", "SD", "SE", "SG", "SH", "SI", "SJ", "SK", "SL", "SM", "SN", "SO", "SR", "ST", "SV", "SY", "SZ", "TC", "TD", "TF", "TG", "TH", "TJ", "TK", "TM", "TN", "TO", "TL", "TR", "TT", "TV", "TW", "TZ", "UA", "UG", "UM", "US", "UY", "UZ", "VA", "VC", "VE", "VG", "VI", "VN", "VU", "WF", "WS", "YE", "YT", "SAU", "RS", "ZA", "ZM", "ME", "ZW", "A1", "A2", "O1", "AX", "GG", "IM", "JE", "BL", "MF"}
|
|
Public Shared CountryNump As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254"}
|
|
Public Sub New(ByVal mss As MemoryStream)
|
|
MS = mss
|
|
End Sub
|
|
Public Sub New(ByVal FileLocation As String)
|
|
|
|
Dim FS As New FileStream(FileLocation, FileMode.Open, FileAccess.Read)
|
|
MS = New MemoryStream()
|
|
Dim BY(256) As Byte
|
|
While FS.Read(BY, 0, BY.Length) <> 0
|
|
MS.Write(BY, 0, BY.Length)
|
|
End While
|
|
FS.Close()
|
|
End Sub
|
|
Private Function ConvertIPAddressToNumber(ByVal IPA As IPAddress) As Long
|
|
Dim ADR() As String = Split(IPA.ToString, ".")
|
|
If UBound(ADR) = 3 Then
|
|
Return CDbl(16777216 * ADR(0) + 65536 * ADR(1) + 256 * ADR(2) + ADR(3))
|
|
Else
|
|
Return 0
|
|
End If
|
|
End Function
|
|
Private Function ConvertIPNumberToAddress(ByVal IPN As Long) As String
|
|
Return CStr(Int(IPN / 16777216) Mod 256) & "." & CStr(Int(IPN / 65536) Mod 256) & "." & CStr(Int(IPN / 256) Mod 256) & "." & CStr(Int(IPN) Mod 256)
|
|
End Function
|
|
Public Shared Function FileToMemory(ByVal FileLocation As String) As MemoryStream
|
|
Dim FS As New FileStream(FileLocation, FileMode.Open, FileAccess.Read)
|
|
Dim MES As New MemoryStream()
|
|
Dim BY(256) As Byte
|
|
While FS.Read(BY, 0, BY.Length) <> 0
|
|
MES.Write(BY, 0, BY.Length)
|
|
End While
|
|
FS.Close()
|
|
Return MES
|
|
End Function
|
|
Public Overloads Function LookupCountryCode(ByVal IPA As IPAddress) As String
|
|
Return CountryCode(CInt(SeekCountry(0, ConvertIPAddressToNumber(IPA), 31)))
|
|
End Function
|
|
Public Overloads Function LookupCountryNump(ByVal IPA As IPAddress) As String
|
|
Return CountryNump(CInt(SeekCountry(0, ConvertIPAddressToNumber(IPA), 31)))
|
|
End Function
|
|
Public Overloads Function LookupCountryNump(ByVal IPA As String) As String
|
|
Dim ADR As IPAddress
|
|
Try
|
|
ADR = IPAddress.Parse(IPA)
|
|
Catch ex As FormatException
|
|
Return "--"
|
|
End Try
|
|
Return LookupCountryNump(ADR)
|
|
End Function
|
|
Public Overloads Function LookupCountryCode(ByVal IPA As String) As String
|
|
Dim ADR As IPAddress
|
|
Try
|
|
ADR = IPAddress.Parse(IPA)
|
|
Catch ex As FormatException
|
|
Return "--"
|
|
End Try
|
|
Return LookupCountryCode(ADR)
|
|
End Function
|
|
Public Overloads Function LookupCountryName(ByVal addr As IPAddress) As String
|
|
Return CountryName(CInt(SeekCountry(0, ConvertIPAddressToNumber(addr), 31)))
|
|
End Function
|
|
Public Overloads Function LookupCountryName(ByVal IPA As String) As String
|
|
Dim ADR As IPAddress
|
|
Try
|
|
ADR = IPAddress.Parse(IPA)
|
|
Catch e As FormatException
|
|
Return "N/A"
|
|
End Try
|
|
Return LookupCountryName(ADR)
|
|
End Function
|
|
Private Function vbShiftLeft(ByVal Value As Long, ByVal Count As Integer) As Long
|
|
Dim ITR As Integer
|
|
vbShiftLeft = Value
|
|
For ITR = 1 To Count
|
|
vbShiftLeft = vbShiftLeft * 2
|
|
Next
|
|
End Function
|
|
Private Function vbShiftRight(ByVal Value As Long, ByVal Count As Integer) As Long
|
|
Dim ITR As Integer
|
|
vbShiftRight = Value
|
|
For ITR = 1 To Count
|
|
vbShiftRight = vbShiftRight \ 2
|
|
Next
|
|
End Function
|
|
Private Function SeekCountry(ByVal StartOffset As Long, ByVal IPNumber As Long, ByVal SearchDepth As Integer) As Long
|
|
Dim BUF(6) As Byte
|
|
Dim x(2) As Long
|
|
If SearchDepth = 0 Then
|
|
End If
|
|
Try
|
|
MS.Seek(6 * StartOffset, 0)
|
|
MS.Read(BUF, 0, 6)
|
|
Catch ex As IOException
|
|
End Try
|
|
Dim ITR As Integer
|
|
For ITR = 0 To 1
|
|
x(ITR) = 0
|
|
Dim j As Integer
|
|
For j = 0 To 2
|
|
Dim PRT As Integer = BUF((ITR * 3 + j))
|
|
If PRT < 0 Then
|
|
PRT += 256
|
|
End If
|
|
x(ITR) += vbShiftLeft(PRT, (j * 8))
|
|
Next j
|
|
Next ITR
|
|
If (IPNumber And vbShiftLeft(1, SearchDepth)) > 0 Then
|
|
If x(1) >= CountryBegin Then
|
|
Return x(1) - CountryBegin
|
|
End If
|
|
Return SeekCountry(x(1), IPNumber, SearchDepth - 1)
|
|
Else
|
|
If x(0) >= CountryBegin Then
|
|
Return x(0) - CountryBegin
|
|
End If
|
|
Return SeekCountry(x(0), IPNumber, SearchDepth - 1)
|
|
End If
|
|
End Function
|
|
|
|
End Class |