Feature: Visual Traceroute (PoC)

Author: BornToBeRoot

Scripts/Create-WorldMapFromWeb.ps1

@@ -0,0 +1,79 @@
+# Filepath in the resources
+[string]$OutFilePath = Join-Path -Path (Split-Path $PSScriptRoot -Parent) -ChildPath "Source\NETworkManager\Resources\Maps\world-map.json"
+[string]$CitiesOutFilePath = Join-Path -Path (Split-Path $PSScriptRoot -Parent) -ChildPath "Source\NETworkManager\Resources\Maps\world-cities.json"
+
+# Resolution of the Natural Earth admin-0 countries / populated places dataset (110m, 50m or 10m - higher detail = larger file)
+[string]$Resolution = "50m"
+
+# A city is included if it's a national capital, or its population is at least this high
+[int]$CityMinPopulation = 500000
+
+# Download countries as plain GeoJSON (pre-converted from Natural Earth shapefiles, no TopoJSON decoding required)
+$GeoJson = (Invoke-WebRequest -Uri "https://raw.githubusercontent.com/martynafford/natural-earth-geojson/master/$Resolution/cultural/ne_${Resolution}_admin_0_countries.json").Content | ConvertFrom-Json
+
+# Rounds [lon, lat] pairs to 2 decimal places (~1.1 km), which is enough detail for an abstract, non-navigational map
+function Get-RoundedRing {
+    param($Ring)
+
+    $Points = [System.Collections.Generic.List[object]]::new()
+
+    foreach ($Point in $Ring) {
+        $Points.Add(@([Math]::Round([double]$Point[0], 2), [Math]::Round([double]$Point[1], 2)))
+    }
+
+    # Unary comma prevents PowerShell from unrolling the list when there is only a single ring/point
+    , $Points
+}
+
+# Keeps only the outer ring of every polygon part (holes like inland lakes are not relevant for an abstract map)
+function Get-OuterRings {
+    param($Geometry)
+
+    $Rings = [System.Collections.Generic.List[object]]::new()
+
+    switch ($Geometry.type) {
+        "Polygon" {
+            $Rings.Add((Get-RoundedRing -Ring $Geometry.coordinates[0]))
+        }
+        "MultiPolygon" {
+            foreach ($Part in $Geometry.coordinates) {
+                $Rings.Add((Get-RoundedRing -Ring $Part[0]))
+            }
+        }
+    }
+
+    , $Rings
+}
+
+$Countries = [System.Collections.Generic.List[object]]::new()
+
+foreach ($Feature in $GeoJson.features) {
+    $Countries.Add([PSCustomObject]@{
+        n = $Feature.properties.ADMIN
+        r = Get-OuterRings -Geometry $Feature.geometry
+    })
+}
+
+ConvertTo-Json -InputObject $Countries -Depth 10 -Compress | Set-Content -Path $OutFilePath -Encoding utf8NoBOM
+
+# Download populated places (cities) as plain GeoJSON
+$PlacesGeoJson = (Invoke-WebRequest -Uri "https://raw.githubusercontent.com/martynafford/natural-earth-geojson/master/$Resolution/cultural/ne_${Resolution}_populated_places_simple.json").Content | ConvertFrom-Json
+
+$Cities = [System.Collections.Generic.List[object]]::new()
+
+foreach ($Feature in $PlacesGeoJson.features) {
+    $Properties = $Feature.properties
+
+    # Keep national capitals regardless of population, plus every other city above the threshold
+    if ($Properties.adm0cap -ne 1 -and $Properties.pop_max -lt $CityMinPopulation) {
+        continue
+    }
+
+    $Cities.Add([PSCustomObject]@{
+        n   = $Properties.name
+        lat = [Math]::Round([double]$Properties.latitude, 2)
+        lon = [Math]::Round([double]$Properties.longitude, 2)
+    })
+}
+
+ConvertTo-Json -InputObject $Cities -Depth 5 -Compress | Set-Content -Path $CitiesOutFilePath -Encoding utf8NoBOM

Source/NETworkManager.Documentation/ResourceManager.cs

@@ -11,16 +11,22 @@ public static class ResourceManager
     /// <summary>
     ///     Static list with all resources that are used.
     /// </summary>
-    public static List<ResourceInfo> List => new()
-    {
-        new ResourceInfo("Organizationally unique identifier", "https://standards-oui.ieee.org/oui/oui.txt",
+    public static List<ResourceInfo> List =>
+    [
+        new("Organizationally unique identifier", "https://standards-oui.ieee.org/oui/oui.txt",
             Strings.Resource_OUI_Description),
-        new ResourceInfo("Service names and port numbers",
+
+        new("Service names and port numbers",
             "https://www.iana.org/assignments/service-names-port-numbers/service-names-port-numbers.xhtml",
             Strings.Resource_ServiceNamePortNumber_Description),
-        new ResourceInfo("flag-icon-css", "https://github.com/lipis/flag-icon-css",
+
+        new("flag-icon-css", "https://github.com/lipis/flag-icon-css",
             Strings.Resource_Flag_Description),
-        new ResourceInfo("List of Top-Level-Domains", "https://data.iana.org/TLD/tlds-alpha-by-domain.txt",
-            Strings.Resource_ListTLD_Description)
-    };
+
+        new("List of Top-Level-Domains", "https://data.iana.org/TLD/tlds-alpha-by-domain.txt",
+            Strings.Resource_ListTLD_Description),
+
+        new("natural-earth-geojson", "https://github.com/martynafford/natural-earth-geojson",
+            Strings.Resource_NaturalEarth_Description)
+    ];
 }

Source/NETworkManager.Localization/Resources/Strings.Designer.cs

@@ -573,6 +573,9 @@
   <data name="IPv6DefaultGateway" xml:space="preserve">
     <value>IPv6-Default-Gateway</value>
   </data>
+  <data name="Map" xml:space="preserve">
+    <value>Map</value>
+  </data>
   <data name="Maximum" xml:space="preserve">
     <value>Maximum</value>
   </data>
@@ -2985,6 +2988,9 @@ Error message:
   <data name="Resource_ListTLD_Description" xml:space="preserve">
     <value>List of Top-Level-Domains from iana.org, which is used to query whois servers of the TLD from whois.iana.org via port 43</value>
   </data>
+  <data name="Resource_NaturalEarth_Description" xml:space="preserve">
+    <value>GeoJSON conversion of Natural Earth vector map data (CC0-1.0).</value>
+  </data>
   <data name="Resource_OUI_Description" xml:space="preserve">
     <value>OUI data from ieee.org.</value>
   </data>
@@ -3823,6 +3829,9 @@ Try again in a few seconds.</value>
   <data name="ExpandHostView" xml:space="preserve">
     <value>Expand host view</value>
   </data>
+  <data name="ExpandMapView" xml:space="preserve">
+    <value>Expand map view</value>
+  </data>
   <data name="CannotSetHostWhileRunningMessage" xml:space="preserve">
     <value>Host cannot be set while other hosts are being added. Please wait until the process is complete and try again.</value>
   </data>

Source/NETworkManager.Localization/Resources/Strings.resx

@@ -166,6 +166,7 @@ public static class GlobalStaticConfiguration
     public static int Traceroute_Buffer => 32;
     public static bool Traceroute_ResolveHostname => true;
     public static bool Traceroute_CheckIPApiIPGeolocation => false;
+    public static bool Traceroute_ExpandMapView => true;
     public static ExportFileType Traceroute_ExportFileType => ExportFileType.Csv;
 
     // Application: DNS Lookup

Source/NETworkManager.Settings/GlobalStaticConfiguration.cs

@@ -1749,6 +1749,19 @@ public bool Traceroute_CheckIPApiIPGeolocation
         }
     } = GlobalStaticConfiguration.Traceroute_CheckIPApiIPGeolocation;
 
+    public bool Traceroute_ExpandMapView
+    {
+        get;
+        set
+        {
+            if (value == field)
+                return;
+
+            field = value;
+            OnPropertyChanged();
+        }
+    } = GlobalStaticConfiguration.Traceroute_ExpandMapView;
+
     public bool Traceroute_ExpandProfileView
     {
         get;

Source/NETworkManager.Settings/SettingsInfo.cs

@@ -102,6 +102,10 @@
         <Resource Include="NETworkManager.ico" />
         <Resource Include="SplashScreen.png" />
     </ItemGroup>
+    <ItemGroup>
+        <EmbeddedResource Include="Resources\Maps\world-map.json" />
+        <EmbeddedResource Include="Resources\Maps\world-cities.json" />
+    </ItemGroup>
     <ItemGroup>
         <Compile Update="Properties\Resources.Designer.cs">
             <DesignTime>True</DesignTime>

Source/NETworkManager/NETworkManager.csproj

@@ -12,4 +12,18 @@
         <Setter Property="VerticalAlignment" Value="Stretch" />
     </Style>
 
+    <!-- Same look as ProfileGridSplitter, but for resizing rows instead of columns. -->
+    <Style x:Key="HorizontalGridSplitter" TargetType="{x:Type GridSplitter}">
+        <Setter Property="Height" Value="7" />
+        <Setter Property="Margin" Value="-3,-3" />
+        <Setter Property="BorderThickness" Value="3" />
+        <Setter Property="BorderBrush" Value="Transparent" />
+        <Setter Property="Panel.ZIndex" Value="1" />
+        <Setter Property="Background" Value="{DynamicResource MahApps.Brushes.Gray8}" />
+        <Setter Property="ShowsPreview" Value="True" />
+        <Setter Property="HorizontalAlignment" Value="Stretch" />
+        <Setter Property="VerticalAlignment" Value="Center" />
+        <Setter Property="ResizeDirection" Value="Rows" />
+    </Style>
+
 </ResourceDictionary>