get-xkcdpassword.psm1
|
function Get-XKCDPassword { [CmdletBinding()] param ( [Parameter(Mandatory = $false)] [ValidateRange(1, [int]::MaxValue)] [int]$MinimalWordsCount = 2, [Parameter(Mandatory = $false)] [ValidateRange(1, [int]::MaxValue)] [int]$MinimalCharactersCount = 10, [Parameter(Mandatory = $false)] [string]$Delimiter = "-", [Parameter(Mandatory = $false)] [ValidateRange(1, [int]::MaxValue)] [int]$List = 1, [Parameter(Mandatory = $false)] [switch]$Leet = $false ) # Define the path to the words.txt file using $PSScriptRoot $WordListPath = Join-Path -Path $PSScriptRoot -ChildPath "words.txt" # Load external word list if (-Not (Test-Path $WordListPath)) { throw "Error: The word list file 'words.txt' is missing from the module folder." } $WordList = Get-Content $WordListPath # Validate that the word list is not empty if ($WordList.Count -eq 0) { throw "Error: The word list file 'words.txt' is empty." } # Validate input parameters if ($MinimalWordsCount -lt 1) { throw [System.ArgumentException]::new("Error: MinimalWordsCount cannot be less than 1.") } if ($MinimalCharactersCount -lt 1) { throw [System.ArgumentException]::new("Error: MinimalCharactersCount cannot be less than 1.") } if ($List -lt 1) { throw [System.ArgumentException]::new("Error: List cannot be less than 1.") } # Function to generate a single password function GeneratePassword { do { # Select random words $SelectedWords = @() for ($i = 1; $i -le $MinimalWordsCount; $i++) { $Word = $WordList | Get-Random $SelectedWords += ($Word.Substring(0, 1).ToUpper() + $Word.Substring(1)) } # Form the base of the password $PasswordBase = ($SelectedWords -join $Delimiter) $PasswordLength = $PasswordBase.Length } while ($PasswordLength -lt ($MinimalCharactersCount - 3)) # Account for delimiter and number length # Add a two-digit number at the end (from 1 to 99) $RandomNumber = Get-Random -Minimum 1 -Maximum 100 return "$PasswordBase$Delimiter$RandomNumber" } # Function to convert text to l33t sp3ak (basic mapping) function ConvertToLeet { param ( [string]$Text ) $result = $Text $result = $result -replace 'a','4' $result = $result -replace 'e','3' $result = $result -replace 'i','1' $result = $result -replace 'o','0' $result = $result -replace 's','5' $result = $result -replace 't','7' $result = $result -replace 'l','1' return $result } # Function to apply color formatting to the password function FormatPassword { param ( [string]$Password ) # ANSI escape sequence for colors $esc = [char]27 # Define colors for each type of character $numberColor = "$esc[38;2;255;0;0m" # Red for numbers $specialColor = "$esc[38;2;0;0;255m" # Blue for special characters $resetColor = "$esc[0m" # Reset to default # Process each character in the password and apply appropriate color $formattedPassword = "" foreach ($char in $Password.ToCharArray()) { if ($char -match '\d') { # Numbers in red $formattedPassword += "$numberColor$char$resetColor" } elseif ($char -match '[^a-zA-Z0-9]') { # Special characters in blue $formattedPassword += "$specialColor$char$resetColor" } else { # Letters remain unformatted (default console color) $formattedPassword += "$char" } } return $formattedPassword } # Generate and output passwords with formatting try { for ($i = 1; $i -le $List; $i++) { $password = GeneratePassword if ($Leet) { $password = ConvertToLeet -Text $password } Write-Host (FormatPassword -Password $password) -NoNewline Write-Host "" } } catch { Write-Error $_.Exception.Message } } |