Added support for fraud score

Author: ip2location

IP2ProxyComponent/IP2ProxyComponent/IP2Proxy.vb

@@ -22,6 +22,7 @@ Public Structure ProxyResult
     Public Last_Seen As String
     Public Threat As String
     Public Provider As String
+    Public Fraud_Score As String
 End Structure
 
 Public Class Component
@@ -102,21 +103,23 @@ Public Class Component
         LAST_SEEN = 12
         THREAT = 13
         PROVIDER = 14
+        FRAUD_SCORE = 15
         ALL = 100
     End Enum
 
-    Private ReadOnly COUNTRY_POSITION() As Byte = {0, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3}
-    Private ReadOnly REGION_POSITION() As Byte = {0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4}
-    Private ReadOnly CITY_POSITION() As Byte = {0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5}
-    Private ReadOnly ISP_POSITION() As Byte = {0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6}
-    Private ReadOnly PROXYTYPE_POSITION() As Byte = {0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}
-    Private ReadOnly DOMAIN_POSITION() As Byte = {0, 0, 0, 0, 0, 7, 7, 7, 7, 7, 7, 7}
-    Private ReadOnly USAGETYPE_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8}
-    Private ReadOnly ASN_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9}
-    Private ReadOnly AS_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 10, 10, 10, 10, 10}
-    Private ReadOnly LASTSEEN_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 11, 11, 11, 11}
-    Private ReadOnly THREAT_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 12, 12}
-    Private ReadOnly PROVIDER_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 13}
+    Private ReadOnly COUNTRY_POSITION() As Byte = {0, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3}
+    Private ReadOnly REGION_POSITION() As Byte = {0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4}
+    Private ReadOnly CITY_POSITION() As Byte = {0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5}
+    Private ReadOnly ISP_POSITION() As Byte = {0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6}
+    Private ReadOnly PROXYTYPE_POSITION() As Byte = {0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}
+    Private ReadOnly DOMAIN_POSITION() As Byte = {0, 0, 0, 0, 0, 7, 7, 7, 7, 7, 7, 7, 7}
+    Private ReadOnly USAGETYPE_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8, 8}
+    Private ReadOnly ASN_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9}
+    Private ReadOnly AS_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 10, 10, 10, 10, 10, 10}
+    Private ReadOnly LASTSEEN_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 11, 11, 11, 11, 11}
+    Private ReadOnly THREAT_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 12, 12, 12}
+    Private ReadOnly PROVIDER_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, 13}
+    Private ReadOnly FRAUDSCORE_POSITION() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14}
 
     Private COUNTRY_POSITION_OFFSET As Integer = 0
     Private REGION_POSITION_OFFSET As Integer = 0
@@ -130,6 +133,7 @@ Public Class Component
     Private LASTSEEN_POSITION_OFFSET As Integer = 0
     Private THREAT_POSITION_OFFSET As Integer = 0
     Private PROVIDER_POSITION_OFFSET As Integer = 0
+    Private FRAUDSCORE_POSITION_OFFSET As Integer = 0
 
     Private COUNTRY_ENABLED As Boolean = False
     Private REGION_ENABLED As Boolean = False
@@ -143,6 +147,7 @@ Public Class Component
     Private LASTSEEN_ENABLED As Boolean = False
     Private THREAT_ENABLED As Boolean = False
     Private PROVIDER_ENABLED As Boolean = False
+    Private FRAUDSCORE_ENABLED As Boolean = False
 
     'Description: Returns the module version
     Public Shared Function GetModuleVersion() As String
@@ -312,6 +317,16 @@ Public Class Component
         Return (Await ProxyQueryAsync(IP, Modes.PROVIDER)).Provider
     End Function
 
+    'Description: Returns a string for the fraud score
+    Public Function GetFraudScore(IP As String) As String
+        Return ProxyQuery(IP, Modes.FRAUD_SCORE).Fraud_Score
+    End Function
+
+    'Description: Returns a string for the fraud score (async)
+    Public Async Function GetFraudScoreAsync(IP As String) As Task(Of String)
+        Return (Await ProxyQueryAsync(IP, Modes.FRAUD_SCORE)).Fraud_Score
+    End Function
+
     'Description: Returns all results
     Public Function GetAll(IP As String) As ProxyResult
         Return ProxyQuery(IP)
@@ -463,6 +478,7 @@ Public Class Component
             LASTSEEN_POSITION_OFFSET = If(LASTSEEN_POSITION(_DBType) <> 0, (LASTSEEN_POSITION(_DBType) - 2) << 2, 0)
             THREAT_POSITION_OFFSET = If(THREAT_POSITION(_DBType) <> 0, (THREAT_POSITION(_DBType) - 2) << 2, 0)
             PROVIDER_POSITION_OFFSET = If(PROVIDER_POSITION(_DBType) <> 0, (PROVIDER_POSITION(_DBType) - 2) << 2, 0)
+            FRAUDSCORE_POSITION_OFFSET = If(FRAUDSCORE_POSITION(_DBType) <> 0, (FRAUDSCORE_POSITION(_DBType) - 2) << 2, 0)
 
             COUNTRY_ENABLED = COUNTRY_POSITION(_DBType) <> 0
             REGION_ENABLED = REGION_POSITION(_DBType) <> 0
@@ -476,6 +492,7 @@ Public Class Component
             LASTSEEN_ENABLED = LASTSEEN_POSITION(_DBType) <> 0
             THREAT_ENABLED = THREAT_POSITION(_DBType) <> 0
             PROVIDER_ENABLED = PROVIDER_POSITION(_DBType) <> 0
+            FRAUDSCORE_ENABLED = FRAUDSCORE_POSITION(_DBType) <> 0
 
             Dim readLen = _IndexArrayIPv4.GetLength(0)
             If _IndexBaseAddrIPv6 > 0 Then
@@ -620,6 +637,7 @@ Public Class Component
                     .Last_Seen = MSG_INVALID_IP
                     .Threat = MSG_INVALID_IP
                     .Provider = MSG_INVALID_IP
+                    .Fraud_Score = MSG_INVALID_IP
                 End With
                 Return Result
             End If
@@ -643,6 +661,7 @@ Public Class Component
                     .Last_Seen = MSG_INVALID_IP
                     .Threat = MSG_INVALID_IP
                     .Provider = MSG_INVALID_IP
+                    .Fraud_Score = MSG_INVALID_IP
                 End With
                 Return Result
             End If
@@ -665,6 +684,7 @@ Public Class Component
                         .Last_Seen = MSG_MISSING_FILE
                         .Threat = MSG_MISSING_FILE
                         .Provider = MSG_MISSING_FILE
+                        .Fraud_Score = MSG_MISSING_FILE
                     End With
                     Return Result
                 End If
@@ -714,6 +734,7 @@ Public Class Component
                             .Last_Seen = MSG_IPV6_UNSUPPORTED
                             .Threat = MSG_IPV6_UNSUPPORTED
                             .Provider = MSG_IPV6_UNSUPPORTED
+                            .Fraud_Score = MSG_IPV6_UNSUPPORTED
                         End With
                         Return Result
                     End If
@@ -771,6 +792,7 @@ Public Class Component
                     Dim Last_Seen As String = MSG_NOT_SUPPORTED
                     Dim Threat As String = MSG_NOT_SUPPORTED
                     Dim Provider As String = MSG_NOT_SUPPORTED
+                    Dim Fraud_Score As String = MSG_NOT_SUPPORTED
 
                     Dim RowLen = ColumnSize - FirstCol
 
@@ -847,6 +869,11 @@ Public Class Component
                             Provider = ReadStr(Read32Row(Row, PROVIDER_POSITION_OFFSET), FS)
                         End If
                     End If
+                    If FRAUDSCORE_ENABLED Then
+                        If Mode = Modes.ALL OrElse Mode = Modes.FRAUD_SCORE Then
+                            Fraud_Score = ReadStr(Read32Row(Row, FRAUDSCORE_POSITION_OFFSET), FS)
+                        End If
+                    End If
 
                     If Country_Short = "-" OrElse Proxy_Type = "-" Then
                         Is_Proxy = 0
@@ -873,6 +900,7 @@ Public Class Component
                         .Last_Seen = Last_Seen
                         .Threat = Threat
                         .Provider = Provider
+                        .Fraud_Score = Fraud_Score
                     End With
                     Return Result
                 Else
@@ -899,6 +927,7 @@ Public Class Component
                 .Last_Seen = MSG_INVALID_IP
                 .Threat = MSG_INVALID_IP
                 .Provider = MSG_INVALID_IP
+                .Fraud_Score = MSG_INVALID_IP
             End With
             Return Result
         Finally
@@ -954,6 +983,7 @@ Public Class Component
                     .Last_Seen = MSG_INVALID_IP
                     .Threat = MSG_INVALID_IP
                     .Provider = MSG_INVALID_IP
+                    .Fraud_Score = MSG_INVALID_IP
                 End With
                 Return Result
             End If
@@ -977,6 +1007,7 @@ Public Class Component
                     .Last_Seen = MSG_INVALID_IP
                     .Threat = MSG_INVALID_IP
                     .Provider = MSG_INVALID_IP
+                    .Fraud_Score = MSG_INVALID_IP
                 End With
                 Return Result
             End If
@@ -999,6 +1030,7 @@ Public Class Component
                         .Last_Seen = MSG_MISSING_FILE
                         .Threat = MSG_MISSING_FILE
                         .Provider = MSG_MISSING_FILE
+                        .Fraud_Score = MSG_MISSING_FILE
                     End With
                     Return Result
                 End If
@@ -1053,6 +1085,7 @@ Public Class Component
                             .Last_Seen = MSG_IPV6_UNSUPPORTED
                             .Threat = MSG_IPV6_UNSUPPORTED
                             .Provider = MSG_IPV6_UNSUPPORTED
+                            .Fraud_Score = MSG_IPV6_UNSUPPORTED
                         End With
                         Return Result
                     End If
@@ -1110,6 +1143,7 @@ Public Class Component
                     Dim Last_Seen As String = MSG_NOT_SUPPORTED
                     Dim Threat As String = MSG_NOT_SUPPORTED
                     Dim Provider As String = MSG_NOT_SUPPORTED
+                    Dim Fraud_Score As String = MSG_NOT_SUPPORTED
 
                     Dim RowLen = ColumnSize - FirstCol
 
@@ -1186,6 +1220,11 @@ Public Class Component
                             Provider = Await ReadStrAsync(Read32Row(Row, PROVIDER_POSITION_OFFSET), myRef)
                         End If
                     End If
+                    If FRAUDSCORE_ENABLED Then
+                        If Mode = Modes.ALL OrElse Mode = Modes.FRAUD_SCORE Then
+                            Fraud_Score = Await ReadStrAsync(Read32Row(Row, FRAUDSCORE_POSITION_OFFSET), myRef)
+                        End If
+                    End If
 
                     If Country_Short = "-" OrElse Proxy_Type = "-" Then
                         Is_Proxy = 0
@@ -1212,6 +1251,7 @@ Public Class Component
                         .Last_Seen = Last_Seen
                         .Threat = Threat
                         .Provider = Provider
+                        .Fraud_Score = Fraud_Score
                     End With
                     Return Result
                 Else
@@ -1238,6 +1278,7 @@ Public Class Component
                 .Last_Seen = MSG_INVALID_IP
                 .Threat = MSG_INVALID_IP
                 .Provider = MSG_INVALID_IP
+                .Fraud_Score = MSG_INVALID_IP
             End With
             Return Result
         Finally

IP2ProxyComponent/IP2ProxyComponent/IP2ProxyComponent.vbproj

@@ -4,18 +4,18 @@
     <RootNamespace>IP2Proxy</RootNamespace>
     <TargetFrameworks>netstandard2.0;net472;net48;net481;net5.0;net6.0;net7.0;net8.0</TargetFrameworks>
     <AssemblyName>IP2Proxy</AssemblyName>
-    <Version>4.0.3</Version>
+    <Version>4.1.0</Version>
     <Authors>IP2Proxy.com</Authors>
     <Company>IP2Proxy.com</Company>
     <Product>IP2Proxy .NET Component</Product>
     <Title>IP2Proxy .NET Component</Title>
     <Description>IP2Proxy .NET Component</Description>
     <GeneratePackageOnBuild>true</GeneratePackageOnBuild>
-    <Copyright>Copyright 2024</Copyright>
+    <Copyright>Copyright 2025</Copyright>
     <PackageLicenseExpression>MIT</PackageLicenseExpression>
     <PackageProjectUrl>https://www.ip2location.com/development-libraries/ip2proxy/dot-net</PackageProjectUrl>
     <PackageIcon>ip2proxy-logo-square-128.png</PackageIcon>
-    <PackageReleaseNotes>Updated for compatibility with .NET 8</PackageReleaseNotes>
+    <PackageReleaseNotes>Added support for fraud score</PackageReleaseNotes>
     <RepositoryUrl>https://github.com/ip2location/ip2proxy-dotnet.git</RepositoryUrl>
     <PackageTags>ip2proxy proxy detection</PackageTags>
     <RepositoryType>git</RepositoryType>

LICENSE.TXT

@@ -1,6 +1,6 @@
 MIT License
 
-Copyright (c) 2017 - 2024 IP2Location.com
+Copyright (c) 2017 - 2025 IP2Location.com
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

docs/source/code.md

@@ -19,7 +19,7 @@ Close and clean up the file pointer.
 ```
 
 ```{py:function} GetPackageVersion()
-Return the database's type, 1 to 11 respectively for PX1 to PX11. Please visit https://www.ip2location.com/databases/ip2proxy for details.
+Return the database's type, 1 to 12 respectively for PX1 to PX12. Please visit https://www.ip2location.com/databases/ip2proxy for details.
 
 :return: Returns the package version.
 :rtype: String
@@ -63,6 +63,7 @@ Retrieve geolocation information for an IP address.
 | Threat         |     Security threat reported. |
 | Proxy_Type      |     Type of proxy. |
 | Provider       |     Name of VPN provider if available. |
+| Fraud_Score       |     Potential risk score (0 - 99) associated with IP address. |
 ```
 
 ```{py:function} GetAllAsync(IP)
@@ -89,4 +90,5 @@ Retrieve geolocation information for an IP address.
 | Threat         |     Security threat reported. |
 | Proxy_Type      |     Type of proxy. |
 | Provider       |     Name of VPN provider if available. |
+| Fraud_Score       |     Potential risk score (0 - 99) associated with IP address. |
 ```

docs/source/conf.py

@@ -4,7 +4,7 @@
 # -- Project information
 
 project = 'IP2Proxy .NET'
-copyright = '2024, IP2Location'
+copyright = '2025, IP2Location'
 author = 'IP2Location'
 
 release = '0.1.0'
@@ -57,4 +57,4 @@
 
 html_title = "IP2Proxy .NET"
 
-# html_baseurl = "https://ip2proxy-go.readthedocs.io/en/latest/"
+# html_baseurl = "https://ip2proxy-dotnet.readthedocs.io/en/latest/"

docs/source/quickstart.md

@@ -41,10 +41,11 @@ Dim [as] As String
 Dim lastseen As String
 Dim threat As String
 Dim provider As String
+Dim fraudscore As String
 
 Dim ip As String = "221.121.146.0"
 
-If proxy.Open("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAGETYPE-ASN-LASTSEEN-THREAT-RESIDENTIAL-PROVIDER.BIN", Component.IOModes.IP2PROXY_MEMORY_MAPPED) = 0 Then
+If proxy.Open("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAGETYPE-ASN-LASTSEEN-THREAT-RESIDENTIAL-PROVIDER-FRAUDSCORE.BIN", Component.IOModes.IP2PROXY_MEMORY_MAPPED) = 0 Then
 	Console.WriteLine("GetModuleVersion: " & Component.GetModuleVersion())
 	Console.WriteLine("GetPackageVersion: " & proxy.GetPackageVersion())
 	Console.WriteLine("GetDatabaseVersion: " & proxy.GetDatabaseVersion())
@@ -65,6 +66,7 @@ If proxy.Open("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAG
 	Console.WriteLine("Last_Seen: " & all.Last_Seen)
 	Console.WriteLine("Threat: " & all.Threat)
 	Console.WriteLine("Provider: " & all.Provider)
+	Console.WriteLine("Fraud_Score: " & all.Fraud_Score)
 
 	' reading individual fields
 	isproxy = proxy.IsProxy(ip)
@@ -108,6 +110,9 @@ If proxy.Open("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAG
 
 	provider = proxy.GetProvider(ip)
 	Console.WriteLine("Provider: " & provider)
+
+	fraudscore = proxy.GetFraudScore(ip)
+	Console.WriteLine("Fraud_Score: " & fraudscore)
 Else
 	Console.WriteLine("Error reading BIN file.")
 End If
@@ -139,10 +144,11 @@ Dim [as] As String
 Dim lastseen As String
 Dim threat As String
 Dim provider As String
+Dim fraudscore As String
 
 Dim ip As String = "221.121.146.0"
 
-Using myStream = New FileStream("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAGETYPE-ASN-LASTSEEN-THREAT-RESIDENTIAL-PROVIDER.BIN", FileMode.Open, FileAccess.Read, FileShare.Read)
+Using myStream = New FileStream("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CITY-ISP-DOMAIN-USAGETYPE-ASN-LASTSEEN-THREAT-RESIDENTIAL-PROVIDER-FRAUDSCORE.BIN", FileMode.Open, FileAccess.Read, FileShare.Read)
 	If proxy.Open(myStream) = 0 Then
 		Console.WriteLine("GetModuleVersion: " & Component.GetModuleVersion())
 		Console.WriteLine("GetPackageVersion: " & proxy.GetPackageVersion())
@@ -164,6 +170,7 @@ Using myStream = New FileStream("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CI
 		Console.WriteLine("Last_Seen: " & all.Last_Seen)
 		Console.WriteLine("Threat: " & all.Threat)
 		Console.WriteLine("Provider: " & all.Provider)
+		Console.WriteLine("Fraud_Score: " & all.Fraud_Score)
 
 		' reading individual fields
 		isproxy = proxy.IsProxyAsync(ip).Result
@@ -207,6 +214,9 @@ Using myStream = New FileStream("C:\data\IP2PROXY-IP-PROXYTYPE-COUNTRY-REGION-CI
 
 		provider = proxy.GetProviderAsync(ip).Result
 		Console.WriteLine("Provider: " & provider)
+
+		fraudscore = proxy.GetFraudScoreAsync(ip).Result
+		Console.WriteLine("Fraud_Score: " & fraudscore)
 	Else
 		Console.WriteLine("Error reading BIN file.")
 	End If