find-fuzzymodules.ps1

write-progress -id 1 -Activity "Getting all modules"
$modules = find-module -Repository PSGallery
$moduleNames = $modules.Name
$fz = [System.Reflection.Assembly]::GetAssembly([System.Management.Automation.PowerShell]).GetType("System.Management.Automation.FuzzyMatcher")
$fzmatch = $fz.GetMethod("GetDamerauLevenshteinDistance")
$fzmatches = @{}

$i = 1
foreach ($module in $moduleNames) {
    write-progress -id 1 -Activity "Searching" -Status "$module" -PercentComplete ([int32]([double]$i / [double]($moduleNames.Count) * 100))
    foreach ($module2 in $moduleNames) {
        if ($module -ne $module2) {
            $distance = $fzmatch.Invoke($null, @($module, $module2))
            if ($distance -lt 2) {
                if (!$fzmatches[$module2] -eq $module) {
                    $fzmatches[$module] = $module2
                    write-host "$module, $module2"
                }
            }
        }
    }
    $i++
}

$fzmatches