A PowerShell function to find anagrams from a word list.

Anagrams.ps1

#you will need a text file of words like this list from https://github.com/dwyl/english-words

Function Get-Anagram {
    [cmdletbinding()]

    Param(
        [Parameter(Position = 0, Mandatory)]
        [ValidateNotNullorEmpty()]
        [Alias("word")]
        [string]$Text,

        [ValidateNotNullorEmpty()]
        [ValidateScript( {
                if (Test-Path $_) {
                    $True
                }
                else {
                    Throw "Cannot validate path $_"
                }
            })]     
        [string]$WordList = 'c:\scripts\dictionary.txt'
    )

    Begin {
        Write-Verbose "[BEGIN  ] Starting: $($MyInvocation.Mycommand)"  
        Write-Verbose "[BEGIN  ] Loading word list: $wordlist"       
    
    } #begin

    Process {
        Write-Verbose "[PROCESS] Finding anagrams for: $Text"
        #set word to all lowercase so it sorts properly
        $a = ($text.ToLower().GetEnumerator() | Sort-Object) -join '' 
            
        Write-Verbose "[PROCESS] Filtering for words $($text.length) characters long [$a]"
        Write-Host "Please wait...this may take several minutes" -foregroundcolor Green
        #mark the time so we can report on how long the filtering took
        $start = Get-Date
    
        #it was slightly faster to filter out the original word in a second Where filter
        $anagrams = Get-Content -Path $WordList | 
        Where-object {($_.length -eq $text.Length) -AND ((($_.ToLower().GetEnumerator() | Sort-Object) -join '') -eq $a)}   
    
        $end = Get-Date
        Write-Verbose "[PROCESS] Process time: $($end - $start)"

        #filter out the original word
        $results = $anagrams | Where-Object {$_ -ne $text}
        Write-Verbose "[PROCESS] Found $($results.count) anagrams"
        #write a custom object to the pipeline
        [pscustomobject]@{
            Word = $text
            Anagrams = $results
        }
    
    } #process

    End {
        Write-Verbose "[END    ] Ending: $($MyInvocation.Mycommand)"
    } #end
} #close Get-Anagram function

This function is described at http://bit.ly/2tXoBsA