Carbon.Cryptography

3.4.0

Carbon.Cryptography.psm1


using namespace System.Security.AccessControl
using namespace System.Security.Cryptography.X509Certificates

# Copyright Aaron Jensen and WebMD Health Services
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License

#Requires -Version 5.1
Set-StrictMode -Version 'Latest'

if( -not (Test-Path 'variable:IsWindows') )
{
    [Diagnostics.CodeAnalysis.SuppressMessage('PSAvoidAssignmentToAutomaticVariable', '')]
    $IsWindows = $true
    [Diagnostics.CodeAnalysis.SuppressMessage('PSAvoidAssignmentToAutomaticVariable', '')]
    $IsLinux = $false
    [Diagnostics.CodeAnalysis.SuppressMessage('PSAvoidAssignmentToAutomaticVariable', '')]
    $IsMacOS = $false
}

Add-Type -AssemblyName 'System.Security'

# Functions should use $moduleRoot as the relative root from which to find
# things. A published module has its function appended to this file, while a
# module in development has its functions in the Functions directory.
$moduleRoot = $PSScriptRoot
$moduleBinRoot = Join-Path -Path $moduleRoot -ChildPath 'bin'
$moduleBinRoot | Out-Null # To make the PSScriptAnalyzer squiggle go away.
$privateModulesRoot = Join-Path -Path $moduleRoot -ChildPath 'Modules'

Import-Module -Name (Join-Path -Path $privateModulesRoot -ChildPath 'Carbon.Core') `
              -Function @(
                    'ConvertTo-CBase64',
                    'Get-CPathProvider',
                    'Invoke-CPowerShell',
                    'Test-COperatingSystem'
                ) `
              -Verbose:$false

Import-Module -Name (Join-Path -Path $privateModulesRoot -ChildPath 'Carbon.Accounts') `
              -Function @('Resolve-CIdentity', 'Resolve-CIdentityName', 'Test-CIdentity') `
              -Verbose:$false

Import-Module -Name (Join-Path -Path $privateModulesRoot -ChildPath 'Carbon.Security') `
              -Function @(
                    'Get-CAcl',
                    'Get-CPermission',
                    'Grant-CPermission',
                    'Revoke-CPermission',
                    'Test-CPermission'
                ) `
              -Verbose:$false

# Store each of your module's functions in its own file in the Functions
# directory. On the build server, your module's functions will be appended to
# this file, so only dot-source files that exist on the file system. This allows
# developers to work on a module without having to build it first. Grab all the
# functions that are in their own files.
$functionsPath = Join-Path -Path $moduleRoot -ChildPath 'Functions\*.ps1'
if( (Test-Path -Path $functionsPath) )
{
    foreach( $functionPath in (Get-Item $functionsPath) )
    {
        . $functionPath.FullName
    }
}



function Convert-CCertificateProvider
{
    <#
    .SYNOPSIS
    Converts the provider of a certificate's private key.
 
    .DESCRIPTION
    The `Convert-CCertificateProvider` function changes the provider of a certificate's private key. Pass the path to
    the certificate file to the `FilePath` parameter, and the new provider name to the `ProviderName` parameter. If the
    certificate file is password-protected, pass the password to the `Password` parameter.
 
    If the private key's provider is already the value passed to the function, nothing happens and nothing is returned.
 
    The function uses the `certutil` command to import the certificate with its private key into a "Temp" store for the
    current user using the new provider. This command actually does the conversion process. Then,
    `Convert-CCertificateProvider` exports the certificate, overwriting the original file. (If the `Password` parameter
    has a value, the certificate file is password-protected with that password.) The temporary certificate is removed
    from the current user's "Temp" store. Finally, the function returns an object with the following properties:
 
    * `Path`: the path to the file that was converted
    * `OldProviderName`: the name of the private key's original/old provider name
    * `NewProviderName`: the name of the private key's new provider
    * `NewCertificateBase64Encoded`: the raw bytes of the new certificate file, base-64 encoded.
 
    The `certutil -csplist` shows a list of available cryptographic providers.
 
    .EXAMPLE
    Convert-CCertificateProvider -FilePath .\mycert.pfx -ProviderName 'Microsoft Enhanced RSA and AES Cryptographic Provider'
 
    Demonstrates how to convert the provider of a certificate's private key and the certificate file is ***not***
    password protected.
 
    .EXAMPLE
    Convert-CCertificateProvider -FilePath .\mycert.pfx -ProviderName 'Microsoft Enhanced RSA and AES Cryptographic Provider' -Password $password
 
    Demonstrates how to convert the provider of a certificate's private key and the certificate file ***is*** password
    protected. The password *must* be a `[securestring]`.
    #>
    [CmdletBinding()]
    param(
        # The path to the certificate file to convert. Must have a private key.
        [Parameter(Mandatory)]
        [String] $FilePath,

        # The new provider name for the certifcate's private key. The `certutil -csplist` command shows the list of
        # available cryptographic providers.
        [Parameter(Mandatory)]
        [String] $ProviderName,

        # The password for the certificate file, if any. When replacing the existing certificate file, it will be
        # protected with the same password (or not protected if no password is passed).
        [securestring] $Password
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -SessionState $ExecutionContext.SessionState

    if (-not (Get-Command -Name 'certutil' -ErrorAction Ignore))
    {
        "Unable to convert provider for certificate ""$($FilePath)"" because the certutil.exe command does not exist " +
            'or is not in the current PATH.' | Write-Error -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-Path -Path $FilePath -PathType Leaf))
    {
        "Unable to convert provider for certificate ""$($FilePath)"" because it does not exist." |
            Write-Error -ErrorAction $ErrorActionPreference
        return
    }

    $FilePath = $FilePath | Resolve-Path | Select-Object -ExpandProperty 'ProviderPath'

    $pwdArg = @{}
    if ($Password)
    {
        $pwdArg['Password'] = $Password
    }
    $cert = Get-CCertificate -Path $FilePath @pwdArg

    try
    {
        if (-not $cert.PrivateKey)
        {
            "Unable to convert provider for certificate ""$($FilePath)"" because the certificate does not have a private " +
            'key.' |
                Write-Error -ErrorAction $ErrorActionPreference
            return
        }

        $thumbprint = $cert.Thumbprint
        $pk = $cert.PrivateKey
        $pkProviderName = ''
        if ($pk | Get-Member 'Key')
        {
            $pkProviderName = $pk.Key.Provider.Provider
        }
        elseif ($pk | Get-Member 'CspKeyContainerInfo')
        {
            $pkProviderName = $pk.CspKeyContainerInfo.ProviderName
        }
        else
        {
            "Unable to convert provider for certificate ""$($FilePath)"" because it does not have a supported private key " +
                'implementation.' | Write-Error -ErrorAction $ErrorActionPreference
            return
        }

        if ($pkProviderName -eq $ProviderName)
        {
            return
        }

    }
    finally
    {
        # When loading a certificate from a file, Windows will temporarily write the private key to disk for the
        # lifetime of the certificate object. To limit the amount of time the private key spends on disk, dispose the
        # certificate object as soon as we are done with it.
        $cert.Dispose()
    }

    Write-Verbose "Importing ""$($FilePath)"" into temporary certificate store using provider ""$($ProviderName)""."
    $certUtilArgs = & {
        '-user'
        '-csp'
        $ProviderName
        if ($Password)
        {
            '-p'
            Convert-CSecureStringToString -SecureString $Password
        }
        '-ImportPfx'
        'Temp'
        $FilePath
        'AT_KEYEXCHANGE,NoRoot'
    }

    $output = '' | certutil $certUtilArgs
    if ($LASTEXITCODE)
    {
        $msg = "Failed to convert provider for ""$($FilePath)"" because the certutil conversion command failed:" +
            $([Environment]::NewLine) +
            $output
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    $certPath = Join-Path -Path 'Cert:\CurrentUser\Temp\' -ChildPath $thumbprint
    $cert = Get-Item -Path $certPath
    if (-not $cert)
    {
        "Failed to convert provider for imported certificate ""$($certPath)"" because the certificate failed to " +
            'import.' | Write-Error -ErrorAction $ErrorActionPreference
        return
    }

    try
    {
        [byte[]] $certBytes = $cert.Export([Security.Cryptography.X509Certificates.X509ContentType]::Pfx, $Password)
    }
    finally
    {
        Remove-Item -Path $certPath -Force
    }

    Write-Verbose "Exporting ""$($certPath)"" to ""$($FilePath)""."
    [IO.File]::WriteAllBytes($FilePath, $certBytes)

    $certBase64 = $certBytes | ConvertTo-CBase64

    return [pscustomobject]@{
        Path = $FilePath;
        OldProviderName = $pkProviderName;
        NewProviderName = $ProviderName;
        NewCertificateBase64Encoded = $certBase64;
    }
}



function Convert-CSecureStringToByte
{
    <#
    .SYNOPSIS
    Converts a secure string to an array of bytes.
 
    .DESCRIPTION
    The `Convert-CSecureStringToByte` converts a `[securestring]` to an array of bytes that represents the original
    decrypted string. The secure string is never left in memory as a string, but is kept as an array of bytes during
    the conversion, and all arrays used during the conversion are cleared.
 
    The decrypted secure string is returned as an array of bytes. You are resonsible for clearing the array when
    you're done, otherwise you risk exposing your secret in memory or on the file system.
 
    .EXAMPLE
    Convert-CSecureStringToByte -SecureString $credential.Password
 
    Demonstrates how to convert a secure string into an array of bytes representing the original password.
    #>
    [CmdletBinding()]
    [OutputType([Byte[]])]
    param(
        [Parameter(Mandatory)]
        [securestring]$SecureString
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -SessionState $ExecutionContext.SessionState

    $ptrDecryptedString = [Runtime.Interopservices.Marshal]::SecureStringToGlobalAllocUnicode($SecureString);
    try
    {
        [byte[]]$bytes = [byte[]]::New($SecureString.Length * 2)
        for( $idx = 0; $idx -lt $bytes.Length; ++$idx )
        {
            $bytes[$idx] = [Runtime.InteropServices.Marshal]::ReadByte($ptrDecryptedString, $idx)
        }
        return $bytes
    }
    finally
    {
        [Runtime.InteropServices.Marshal]::ZeroFreeGlobalAllocUnicode($ptrDecryptedString)
    }
}


function Convert-CSecureStringToString
{
    <#
    .SYNOPSIS
    Converts a secure string into a plain text string.
 
    .DESCRIPTION
    The `Convert-CSecureStringToString` function converts a secure string to a plaintexxt string. Try really, really,
    really hard not to do this. Once you do, the plaintext string will be *all over memory* and, perhaps, the file
    system.
     
    The function creates a new `[pscredential]` with the password and uses it to convert the password to plaintext
    (i.e. it calls `$credential.GetNetworkCredential().Password`).
 
    .OUTPUTS
    System.String.
 
    .EXAMPLE
    Convert-CSecureStringToString -SecureString $mySuperSecretPasswordIAmAboutToExposeToEveryone
 
    Returns the plain text/decrypted value of the secure string.
 
    .EXAMPLE
    $ISureHopeIKnowWhatIAmDoing | Convert-CSecureStringToString
 
    Demonstrates that you can pipe a secure string to `Convert-CSecureStringToString`.
    #>
    [CmdletBinding()]
    [OutputType([String])]
    param(
        [Parameter(Mandatory, ValueFromPipeline)]
        # The secure string to convert.
        [securestring]$SecureString
    )
    
    process
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        $bytes = Convert-CSecureStringToByte -SecureString $SecureString
        try
        {
            return [Text.Encoding]::Unicode.GetString($bytes)
        }
        finally
        {
            $bytes.Clear()
        }
    }
}




function ConvertTo-AesKey
{
    [CmdletBinding()]
    [OutputType([byte[]])]
    param(
        [Parameter(Mandatory)]
        [String]$From,

        [Parameter(Mandatory)]
        [Object]$InputObject
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState    

    $Key = $InputObject

    $bytesKey = $true
    if( $InputObject -isnot [byte[]] )
    {
        $bytesKey = $false
        if( $InputObject -is [SecureString] )
        {
            $unicodeKey = Convert-CSecureStringToByte -SecureString $InputObject
            try
            {
                # SecureString is two bytes per char. We need an encoding that is typically one byte per char, otherwise
                # the key will be twice as big as it should be. In the end, the user is responsible for ensuring the
                # key is the property size (in bytes).
                $Key = [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, $unicodeKey)
            }
            finally
            {
                $unicodeKey.Clear() # Keep it out of memory!
            }
        }
        else
        {
            $msg = "An encryption key must be a [securestring] or an array of bytes, but $($From) got passed a " +
                   """$($InputObject.GetType().FullName)"". If you are passing an array of bytes, make sure you " +
                   "explicitly cast it as a ``byte[]`, e.g. `([byte[]])@( ... )` when passing to $($From)."
            Write-Error -Message $msg
            return
        }
    }

    if( $Key.Length -ne 128/8 -and $Key.Length -ne 192/8 -and $Key.Length -ne 256/8 )
    {
        $commonMsg = "Key is the wrong length. The $($From) function is using AES, which requires a 128-bit, " +
                     '192-bit, or 256-bit key (16, 24, or 32 bytes, respectively). '
        # Did we receive an array of bytes for a key or a secure string?
        if( $bytesKey )
        {
            $msg = "$($commonMsg) Make sure your byte array key is 16, 24, or 32 bytes long."
        }
        # Got a secure string.
        else
        {
            $msg = "$($commonMsg) Make sure that when the secure string key is UTF-8 encoded and converted to a byte " +
                   "array, that array is 16, 32, or 64 bytes long. $($From) received a secure string key that is " +
                   "$($Key.Length) bytes long."
        }
        Write-Error -Message $msg
        return
    }

    return $Key
}



function ConvertTo-CryptoKeyRights
{
    <#
    .SYNOPSIS
    Converts standard Read and FullControl permissions to equivalent `System.Security.AccessControl.CryptoKeyRights`
    rights.
 
    .DESCRIPTION
    The Windows UI only allows two permissions to be granted on a private key: Read and FullControl, so the
    `Carbon.Cryptography` module behaves the same when. When setting permissions on a key that supports
    `CryptoKeyRights`, the rights flags should actually `GenericRead` when granting `Read` permissions and `GenericAll
    -bor GenericRead` when granting `FullControl` permissions. This was determined by setting permissions on a private
    key using the Windows UI then checking the rights Windows set. This function converts the `Read` and `FullControl`
    permissions allowed by Windows an the `Carbon.Cryptogrpahy` module into the actual CryptoKeyRights flags needed by
    the .NET frameworks crypto service provider API.
 
    Windows also automatically sets the `Synchronize` flag. If you want the `Synchronize` right flag set, use the
    `-Strict` switch. This is usually ony necessary when comparing rights flags.
 
    .EXAMPLE
    ConvertTo-CryptoKeyRights -InputObject 'Read'
 
    Demonstrates how to use this function by passing the permission to the `InputObject` parameter.
 
    .EXAMPLE
    'FullControl' | ConvertTo-CryptoKeyRights
 
    Demonstrates how to use this function by piping the permission to the `InputObject` parameter.
 
    .EXAMPLE
    'Read' | ConvertTo-CryptoKeyRights -Strict
 
    Demonstrates how to include *all* crypto key
    #>
    [CmdletBinding()]
    param(
        # The values to convert.
        [Parameter(Mandatory, ValueFromPipeline)]
        [ValidateSet('Read', 'FullControl')]
        [String] $InputObject,

        [switch] $Strict
    )

    process
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        # CryptoKeyRights
        # Read 0x80100000 GenericRead, Synchronize
        # FullControl 0x90100000 GenericRead, GenericAll, Synchronize
        $rights = [Security.AccessControl.CryptoKeyRights]::GenericRead
        if ($InputObject -eq 'FullControl')
        {
            $rights = $rights -bor [Security.AccessControl.CryptoKeyRights]::GenericAll
        }

        if ($Strict)
        {
            $rights = $rights -bor [Security.AccessControl.CryptoKeyRights]::Synchronize
        }

        return $rights
    }
}



function Find-CCertificate
{
    <#
    .SYNOPSIS
    Searches certificate stores for certificates.
 
    .DESCRIPTION
    The `Find-CCertificate` function searches through the My/Personal certificate store for the local machine and
    current user accounts for certificates that match search criteria. Use the following parameters to search:
 
    * `Subject`: return certificates with the given subject. Wildcards accepted.
    * `LiteralSubject`: return certificates whose subjects exactly match the given subject.
    * `Active`: return certificates that are active and not expired.
    * `HasPrivateKey`: return certificates that have a private key.
    * `HostName`: return certificates that authenticate the given hostname. Wildcards supported. Matches against the
      subject's common name and the certificate's subject alternate names.
    * `LiteralHostName`: return certificates that authenticate the given hostname. Matches against the subject's common
      name and the certificate's subject alternate names.
    * `KeyUsageName`: return certificates that have the given enhanced key usage, searching each usage's friendly name.
    * `KeyUsageOId`: return certificates that have the given enhanced key usage, searching each usage's object ID.
    * `Trusted`: return certificates that are trusted/verified.
 
    You can search in the local machine or current user accounts (not both) by passing the account to the
    `StoreLocation` parameter. You can search in different stores by passing the store name to the `StoreName`
    parameter.
 
    .EXAMPLE
    Find-CCertificate -Active -HostName 'dev.example.com' -KeyUsageName 'Server Authentication' -Trusted -HasPrivateKey
 
    Demonstrates how to search for a certificate using multiple criteria. In this example, we're looking for a TLS
    certificate that can be used with the `dev.example.com` hostname.
    #>
    [CmdletBinding()]
    param(
        [String] $Subject,

        [String] $LiteralSubject,

        [switch] $Active,

        [switch] $HasPrivateKey,

        [String] $HostName,

        [String] $LiteralHostName,

        [String] $KeyUsageName,

        [String] $KeyUsageOid,

        [switch] $Trusted,

        [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,

        [Security.Cryptography.X509Certificates.StoreName] $StoreName =
            [Security.Cryptography.X509Certificates.StoreName]::My
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    Write-Verbose 'Find-CCertificate search criteria:'
    if( $Subject )
    {
        Write-Verbose (" Subject like $($Subject)")
    }
    if( $LiteralSubject )
    {
        Write-Verbose (" Subject eq $($LiteralSubject)")
    }
    if( $Active )
    {
        Write-Verbose (' Active True')
    }
    if( $HasPrivateKey )
    {
        Write-Verbose (' HasPrivateKey True')
    }
    if( $HostName )
    {
        Write-Verbose (" HostName like $($HostName)")
    }
    if( $LiteralHostName )
    {
        Write-Verbose (" HostName eq $($LiteralHostName)")
    }
    if( $KeyUsageName )
    {
        Write-Verbose (" Key Usage $($KeyUsageName)")
    }
    if( $KeyUsageOid )
    {
        Write-Verbose (" Key Usage OID $($KeyUsageOid)")
    }
    if( $Trusted )
    {
        Write-Verbose (" Trusted True")
    }
    if( $StoreLocation )
    {
        Write-Verbose (" StoreLocation $($StoreLocation)")
    }
    if( $StoreName )
    {
        Write-Verbose (" StoreName $($StoreName)")
    }
    Write-Verbose ''

    function Test-Object
    {
        [CmdletBinding()]
        param(
            [Parameter(Mandatory, ValueFromPipeline)]
            [AllowEmptyString()]
            [AllowNull()]
            [Object] $InputObject,

            [Parameter(Mandatory, ParameterSetName='Equals')]
            [AllowEmptyString()]
            [AllowNull()]
            [switch] $Equals,

            [Parameter(Mandatory, ParameterSetName='LessThan')]
            [switch] $LessThan,

            [Parameter(Mandatory, ParameterSetName='GreaterThan')]
            [switch] $GreaterThan,

            [Parameter(Mandatory, ParameterSetName='Contains')]
            [switch] $Contains,

            [Parameter(Mandatory, ParameterSetName='ContainsLike')]
            [switch] $ContainsLike,

            [Parameter(Mandatory, ParameterSetName='Matches')]
            [switch] $Match,

            [Parameter(Mandatory, ParameterSetName='Like')]
            [switch] $Like,

            [Parameter(Mandatory, Position=0)]
            [Object] $Value,

            [Parameter(Mandatory)]
            [String] $Name,

            [String] $DisplayValue
        )

        process
        {
            $success = $false

            if( $Equals )
            {
                if( $null -eq $InputObject )
                {
                    if( $null -eq $Value )
                    {
                        $success = $true
                    }
                }
                elseif( $InputObject -eq $Value )
                {
                    $success = $true
                }
            }
            elseif( $LessThan )
            {
                $success = $InputObject -lt $Value
            }
            elseif( $GreaterThan )
            {
                $success = $InputObject -gt $Value
            }
            elseif( $Contains )
            {
                $success = $InputObject -contains $Value
            }
            elseif( $ContainsLike )
            {
                $success = $false

                foreach ($nameItem in $InputObject)
                {
                    if ($nameItem[0] -eq '*')
                    {
                        # Wildcards in certificates only ever match one "level" of a domain name and must be on the very left.
                        # Therefore the wildcard can match any character except for "."
                        $wildcardRegex = '[^\.]+'
                        $baseName = $nameItem.Substring(1)               # *.example.com âž” .example.com
                        $escapedBaseName = [Regex]::Escape($baseName)    # .example.com âž” \.example\.com
                        $regex = "^${wildcardRegex}$($escapedBaseName)$" # \.example\.com âž” ^[^\.]+\.example\.com$
                        $success = $Value -match $regex
                    }
                    else
                    {
                        $success = $nameItem -like $Value
                    }
                }

            }
            elseif( $Match )
            {
                $success = $InputObject -match $Value
            }
            elseif( $Like )
            {
                $success = $InputObject -like $Value
            }

            $flag = '!'
            if( $success )
            {
                $flag = ' '
            }

            if( -not $DisplayValue )
            {
                $displayValues =
                    $InputObject |
                    Where-Object { $null -ne $_ } |
                    ForEach-Object { $_ } |
                    Where-Object { $null -ne $_ } |
                    ForEach-Object {
                        if( $_ -is [DateTime] )
                        {
                            return $_.ToString('yyyy-MM-dd HH:mm:ss')
                        }
                        return $_.ToString()
                    }
                $DisplayValue = $displayValues -join ', '
            }

            $name = '{0,-22}' -f $Name
            $msg = " $($flag) $($Name) $($DisplayValue)"
            if( $longestLineLength -lt $msg.Length )
            {
                $script:longestLineLength = $msg.Length
            }
            Write-Verbose -Message $msg
            return $success
        }
    }

    $getCertArgs = @{}

    if( $StoreLocation )
    {
        $getCertArgs['StoreLocation'] = $StoreLocation
    }

    $certs = Get-CCertificate @getCertArgs -StoreName $StoreName
    $isFirstCert = $true
    foreach( $certificate in $certs )
    {
        if( $isFirstCert )
        {
            $isFirstCert = $false
        }
        else
        {
            Write-Verbose ('')
        }

        Write-Verbose -Message ("$($certificate.Subject)")
        Write-Verbose -Message ("$($certificate.Thumbprint)")

        $script:longestLineLength = $certificate.Subject.Length
        if( $script:longestLineLength -lt $certificate.Thumbprint.Length )
        {
            $script:longestLineLength = $certificate.Thumbprint.Length
        }

        if( $Subject )
        {
            if( -not ($certificate.Subject | Test-Object -Like $Subject -Name 'subject') )
            {
                continue
            }
        }

        if( $LiteralSubject )
        {
            if( -not ($certificate.Subject | Test-Object -Equals $LiteralSubject -Name 'subject') )
            {
                continue
            }
        }

        if( $HasPrivateKey.IsPresent )
        {
            if( -not ($certificate.HasPrivateKey | Test-Object -Equals $HasPrivateKey -Name 'private key') )
            {
                continue
            }
        }

        if( $Active )
        {
            if( -not ($certificate.NotBefore | Test-Object -LessThan (Get-Date) -Name 'start date') )
            {
                continue
            }

            if( -not ($certificate.NotAfter | Test-Object -GreaterThan (Get-Date) -Name 'expiration date') )
            {
                continue
            }
        }

        $subjectHostName = ''
        if( $certificate.Subject -match '^CN=([^,]+),?.*$' )
        {
            $subjectHostName = $Matches[1]
        }

        if( $HostName )
        {
            $inSubject = $subjectHostName | Test-Object -Like $HostName -Name 'subject common name'
            if( -not $inSubject )
            {
                $found =
                    (,$certificate.DnsNameList | Test-Object -ContainsLike $HostName -Name 'subject alternate name')
                if( -not $found )
                {
                    continue
                }
            }
        }

        if( $LiteralHostName )
        {
            $inSubject = $subjectHostName | Test-Object -Equals $LiteralHostName -Name 'subject common name'
            if( -not $inSubject )
            {
                $found =
                    (,$certificate.DnsNameList | Test-Object -Contains $LiteralHostName -Name 'subject alternate name')
                if( -not $found )
                {
                    continue
                }
            }
        }

        if( $KeyUsageName -or $KeyUsageOid )
        {
            if( $certificate.EnhancedKeyUsageList.Count -eq 0 )
            {
                $certificate.EnhancedKeyUsageList.Count |
                    Test-Object -Equals 0 -Name 'key usage' -DisplayValue 'Any' |
                    Out-Null
            }
            else
            {
                if( $KeyUsageName )
                {
                    $names = $certificate.EnhancedKeyUsageList | Select-Object -ExpandProperty 'FriendlyName'
                    if( -not (,$names | Test-Object -Contains $KeyUsageName -Name 'key usage') )
                    {
                        continue
                    }
                }

                if( $KeyUsageOid )
                {
                    $oids = $certificate.EnhancedKeyUsageList | Select-Object -ExpandProperty 'ObjectId'
                    if( -not (,$oids | Test-Object -Contains $KeyUsageOid -Name 'key usage') )
                    {
                        continue
                    }
                }
            }
        }

        if( $Trusted )
        {
            if( -not $certificate.Verify() | Test-Object -Equals $true -Name 'trusted' )
            {
                continue
            }
        }

        Write-Verbose -Message "^$('-' * ($longestLineLength - 1))^"
        $certificate | Write-Output
    }
}


function Find-CTlsCertificate
{
    <#
    .SYNOPSIS
    Finds a TLS certificate that matches a hostname from the certificate stores.
 
    .DESCRIPTION
    The `Find-CTlsCertficate` function finds a TLS certificate for the current computer. It determines the computer's
    domain name/hostname using the `HostName` and `DomainName` properties from
    `[System.Net.NetworkInformation.IPGlobalProperties]::GetIPGlobalProperties()`. To get a certificate for a custom
    hostname, pass that hostname to the `HostName` parameter.
 
    The `Find-CTlsCertificate` function returns the first certificate that:
 
    * has a private key.
    * hasn't expired and whose start date is in the past
    * contains the `HostName` in its subject or Subject Alternative Name list.
    * has 'Server Authentication' in its enhanced key usage list or has no enhanced key usage metadata.
 
    Additionally, you can use the `-Trusted` switch to only return trusted certificates, i.e. certificates whose
    issuing certificate authorities in its cert chain are installed in the local machine or current user's [trusted
    certificate stores](https://docs.microsoft.com/en-us/dotnet/standard/security/cross-platform-cryptography#x509store).
    `Find-CTlsCertificate` calls the `Verify()` method on each `X509Certificate2` object to determine if that
    certificate is trusted.
 
    If multiple certificates are found, `Find-CTlsCertificate` will return the certificate that expires later. If no
    certificate is found, it writes an error and returns nothing.
 
    Use the `-Verbose` switch to see why a certificate is or isn't being found and selected by `Find-CTlsCertificate`.
    You'll see messages for each selection criteria and if a criterium isn't met, you'll see a `!` flag. For example,
    this verbose output from `Find-CTlsCertificate -HostName 'example.com' -Trusted -Verbose`
 
        VERBOSE: FCD157FCB753E2B388183C19021301B1739DF1E2
        VERBOSE: CN=sub.example.com
        VERBOSE: private key True
        VERBOSE: start date 2021-10-18 15:43:23
        VERBOSE: expiration date 2023-10-19 15:43:23
        VERBOSE: ! hostname ['sub.example.com']
        VERBOSE:
        VERBOSE: 7F660D4F7201B8EB8F7F6AC2A0906253C240584F
        VERBOSE: CN=example.com
        VERBOSE: private key True
        VERBOSE: start date 2021-10-18 15:43:23
        VERBOSE: expiration date 2022-10-19 15:43:23
        VERBOSE: hostname ['example.com']
        VERBOSE: key usage Any
        VERBOSE: trusted True
        VERBOSE: ^--------------------------------------^
 
    shows that certificate `FCD157FCB753E2B388183C19021301B1739DF1E2` wasn't selected because its hostname didn't match
    the `example.com` hostname, but that certificate `7F660D4F7201B8EB8F7F6AC2A0906253C240584F` was selected because
    it matched all six criteria.
 
    .OUTPUTS
    System.Security.Cryptography.x509Certificates.X509Certificate2 that was found or `$null` if no match was found.
 
    .EXAMPLE
    Find-CTlsCertificate
 
    Demonstrates how to find a TLS certificate for the current computer using the computer's hostname and domain name
    as determined by the `[System.Net.NetworkInformation.IPGlobalProperties]` object returned by the
    ``[System.Net.NetworkInformation.IPGlobalProperties]::GetIPGlobalProperties()::GetIPGlobalProperties()` method.
 
    .EXAMPLE
    Find-CTlsCertificate -HostName 'example.com'
 
    Demonstrates how to find a valid TLS valid certificate for a hostname, in this example, `example.com`.
 
    .EXAMPLE
    Find-CTlsCertificate -HostName 'example.com' -Trusted
 
    Demonstrates how to find a valid *trusted* TLS certificate by using the `-Trusted` switch. Trusted certificates
    are issued by certificate authorities whose certificates (and all certificates in the certificate chain) are in the
    local machine or current user's [trusted certificate stores](https://docs.microsoft.com/en-us/dotnet/standard/security/cross-platform-cryptography#x509store).
    #>
    [CmdletBinding()]
    [OutputType([Security.Cryptography.X509Certificates.X509Certificate2])]
    param(
        # The hostname whose TLS certificate to find.
        [String] $HostName,

        # In addition to all other search criteria, if set, causes `Find-CTLSCertificate` to only return trusted
        # certificates, i.e. certificates that are issued by a certificate authority installed in the local machine or
        # current user's [trusted certificate stores](https://docs.microsoft.com/en-us/dotnet/standard/security/cross-platform-cryptography#x509store).
        # `Find-CTlsCertificate` calls the `Verify()` method on each certificate to determine if a certificate is
        # trusted.
        [switch] $Trusted
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState
    
    if( -not $HostName )
    {
        $ipProperties = [Net.NetworkInformation.IPGlobalProperties]::GetIPGlobalProperties()
        $HostName= "$($ipProperties.HostName).$($ipProperties.DomainName)"
    }

    $certificate =
        Find-CCertificate -HostName $HostName `
                         -Active `
                         -HasPrivateKey `
                         -KeyUsageName 'Server Authentication' `
                         -Trusted:$Trusted |
        Sort-Object -Property 'NotAfter' -Descending |
        Select-Object -First 1
    
    if( $certificate )
    {
        return $certificate
    }

    $isTrustedMsg = ''
    if( $Trusted )
    {
        $isTrustedMsg = '* is trusted.' + [Environment]::NewLine
    }
    $msg = "TLS certificate for $($HostName) does not exist. Make sure there is a certificate in the My certificate " +
           'store for the LocalMachine or CurrentUser that:' + [Environment]::NewLine +
           ' ' + [Environment]::NewLine +
           '* has a private key' + [Environment]::NewLine +
           '* hasn''t expired and whose "NotBefore"/"Valid From" date is in the past' + [Environment]::NewLine +
           "* has subject ""CN=$($HostName)""; or whose Server Alternative Name contains ""$($HostName)""" +
           [Environment]::NewLine +
           '* has an enhanced key usage of "Server Authentication" (or no enhanced key usage ' +
           'metadata) ' + [Environment]::NewLine +
           $isTrustedMsg +
           ' ' + [Environment]::NewLine + 
           'Use the -Verbose switch to see why each certificate was rejected.'

    Write-Error -Message $msg -ErrorAction $ErrorActionPreference
}


function Get-CCertificate
{
    <#
    .SYNOPSIS
    Gets a certificate from a file or the Windows certificate store.
 
    .DESCRIPTION
    The `Get-CCertificate` function gets an X509 certificate from a file or the Windows certificate store. When you
    want to get a certificate from a file, pass the path to the `Path` parameter (wildcards allowed). If the certificate
    is password-protected, pass its password, as a `[securestring]`, to the `Password` parameter. If you plan on
    installing the certificate in a Windows certificate store, and you want to customize the key storage flags, pass
    the flags to the `KeyStorageFlags` parameter.
 
    On Windows, the path can also be a path to a certificate in PowerShell's certificate drive (i.e. the path begins
    with `cert:\`). When getting a path in the `cert:` drive, the `Password` and `KeyStorageFlags` parameters are
    ignored. The certificate is returned. Wildcards allowed.
 
    When called with no parameters, `Get-CCertificate` returns all certificates in all certificate locations and stores
    (except stores with custom names). You can filter what certificates to return using any combination of these
    parameters. A certificate must match all filters to be returned.
 
    * `StoreLocation`: only return certificates in one of the store locations, `CurrentUser` or `LocalMachine`.
    * `StoreName`: only return certificates from this store. Can't be used with `CustomStoreName`.
    * `CustomStoreName`: only return certificates from this custom store name. Can't be used with `StoreName`.
    * `Subject`: only return certificates with this subject. Wildcards allowed.
    * `LiteralSubject`: only return certificates with this exact subject.
    * `Thumbprint`: only return certificates with this thumbprint. Wildcards allowed.
    * `FriendlyName`: only return certificates with this friendly name. Wildcards allowed. Friendly names are
      Windows-only. If you pass a friendly name on other platforms, you'll get no certificates back.
    * `LiteralFriendlyName`: only return certificates with this exact friendly name. Friendly names are Windows-only. If
      you pass a friendly name on other platforms, you'll get no certificates back.
 
    `Get-CCertificate` adds a `Path` property to the returned objects that is the file system path where the certificate
    was loaded from, or, if loaded from a Windows certificate store, the path to the certificate in the `cert:` drive.
 
    When loading certificates from a certificate store, `Get-CCertificate` adds `StoreLocation` and `StoreName`
    properties for the store where the certificate was found.
 
    When loading a certificate from a file and that certificate contains a private key, Windows will temporarily write
    that private key to disk for the lifetime of the certificate object. If you do not need access to the certificate's
    private key, it's recommended to use `-KeyStorageFlags EphemeralKeySet` when loading the certificate from a file in
    order to prevent the private key from ever being written to disk. Otherwise, if you will be accessing the
    certificate's private key then it's recommended you call the `.Dispose()` method on the certificate object as soon
    as you're done with it to ensure the private key is immediately removed from disk.
 
    .OUTPUTS
    System.Security.Cryptography.x509Certificates.X509Certificate2. The X509Certificate2 certificates that were found,
    or `$null`.
 
    .EXAMPLE
    Get-CCertificate -Path C:\Certificates\certificate.cer -Password MySuperSecurePassword
 
    Gets an X509Certificate2 object representing the certificate.cer file.
 
    .EXAMPLE
    Get-CCertificate -Thumbprint a909502dd82ae41433e6f83886b00d4277a32a7b -StoreName My -StoreLocation LocalMachine
 
    Gets an X509Certificate2 object for the certificate in the Personal store with a specific thumbprint under the Local
    Machine.
 
    .EXAMPLE
    Get-CCertificate
 
    Demonstrates how to get all certificates in all current user and local machine stores.
 
    .EXAMPLE
    Get-CCertificate -Thumbprint a909502dd82ae41433e6f83886b00d4277a32a7b
 
    Demonstrates how to find certificates with a given thumbprints.
 
    .EXAMPLE
    Get-CCertificate -StoreLocation CurrentUser
 
    Demonstrates how to get all certificates for a specific location.
 
    .EXAMPLE
    Get-CCertificate -StoreName My
 
    Demonstrates how to get all certificates from a specific store.
 
    .EXAMPLE
    Get-CCertificate -Subject 'CN=Carbon.Cryptography'
 
    Demonstrates how to find all certificates in all stores that have a specific subject.
 
    .EXAMPLE
    Get-CCertificate -LiteralSubject 'CN=*.example.com'
 
    Demonstrates how to find a certificate that has wildcards in its subject using the `LiteralSubject` parameter.
 
    .EXAMPLE
    Get-CCertificate -Thumbprint $thumbprint -CustomStoreName 'SharePoint' -StoreLocation LocalMachine
 
    Demonstrates how to get a certificate from a custom store, i.e. one that is not part of the standard `StoreName`
    enumeration.
 
    .EXAMPLE
    Get-CCertificate -FriendlyName 'My Friendly Name'
 
    Demonstrates how to get all certificates with a specific friendly name. Friendly names are Windows-only. No
    certificates will be returned when using this parameter on non-Windows platforms.
 
    .EXAMPLE
    Get-CCertificate -LiteralFriendlyName '*My Friendly Name'
 
    Demonstrates how to find a certificate that has wildcards in its subject using the `LiteralFriendlyName` parameter.
 
    .EXAMPLE
    Get-CCertificate -Path 'cert:\CurrentUser\a909502dd82ae41433e6f83886b00d4277a32a7b'
 
    Demonstrates how to get a certificate out of a Windows certificate store with its certificate path. Wildcards
    supported. The `cert:` drive only exists on Windows. If you use a `cert:` path on non-Windows platforms, you'll get
    an error.
    #>
    [CmdletBinding(DefaultParameterSetName='FromCertificateStore')]
    [OutputType([Security.Cryptography.X509Certificates.X509Certificate2])]
    param(
        # The path to the certificate. On Windows, this can also be a certificate path, e.g. `cert:\`. Wildcards
        # supported.
        [Parameter(Mandatory, ParameterSetName='ByPath', Position=0)]
        [String] $Path,

        # The password to the certificate. Must be a `[securestring]`.
        [Parameter(ParameterSetName='ByPath')]
        [securestring] $Password,

        # The storage flags to use when loading a certificate file. This controls where/how you can store the
        # certificate in the certificate stores later. Use the `-bor` operator to combine flags.
        [Parameter(ParameterSetName='ByPath')]
        [Security.Cryptography.X509Certificates.X509KeyStorageFlags] $KeyStorageFlags,

        # The certificate's thumbprint. Wildcards allowed.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $Thumbprint,

        # The subject of the certificate. Wildcards allowed.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $Subject,

        # The literal subject of the certificate.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $LiteralSubject,

        # The friendly name of the certificate. Wildcards allowed. Friendly name is Windows-only. If you search by
        # friendly name on other platforms, you'll never get any certificates back.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $FriendlyName,

        # The literal friendly name of the certificate. Friendly name is Windows-only. If you search by friendly name on
        # other platforms, you'll never get any certificates back.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $LiteralFriendlyName,

        # The location of the certificate's store.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Parameter(ParameterSetName='FromCertificateStoreCustomStore')]
        [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,

        # The name of the certificate's store.
        [Parameter(ParameterSetName='FromCertificateStore')]
        [Security.Cryptography.X509Certificates.StoreName] $StoreName,

        # The name of the non-standard, custom store.
        [Parameter(Mandatory, ParameterSetName='FromCertificateStoreCustomStore')]
        [String] $CustomStoreName
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    function Add-PathMember
    {
        param(
            [Parameter(Mandatory,VAlueFromPipeline=$true)]
            [Security.Cryptography.X509Certificates.X509Certificate2]
            $Certificate,

            [Parameter(Mandatory)]
            [string]
            $Path
        )

        process
        {
            $Certificate | Add-Member -MemberType NoteProperty -Name 'Path' -Value $Path -PassThru
        }
    }

    function Resolve-CertificateProviderFriendlyPath
    {
        param(
            [Parameter(Mandatory,ValueFromPipelineByPropertyName)]
            [string]
            $PSPath,

            [Parameter(Mandatory,ValueFromPipelineByPropertyName)]
            [Management.Automation.PSDriveInfo]
            $PSDrive
        )

        process
        {
            $qualifier = '{0}:' -f $PSDrive.Name
            $path = $PSPath | Split-Path -NoQualifier
            Join-Path -Path $qualifier -ChildPath $path
        }
    }

    if( $PSCmdlet.ParameterSetName -eq 'ByPath' )
    {
        if( -not (Test-Path -Path $Path -PathType Leaf) )
        {
            Write-Error -Message "Certificate ""$($Path)"" not found." -ErrorAction $ErrorActionPreference
            return
        }

        foreach( $item in (Get-Item -Path $Path) )
        {
            Write-Debug -Message $PSCmdlet.GetUnresolvedProviderPathFromPSPath($item.PSPath)
            if( $item -is [Security.Cryptography.X509Certificates.X509Certificate2] )
            {
                $certFriendlyPath = $item | Resolve-CertificateProviderFriendlyPath
                $item | Add-PathMember -Path $certFriendlyPath | Write-Output
            }
            elseif( $item -is [IO.FileInfo] )
            {
                try
                {
                    $ctorParams = @($item.FullName, $Password )
                    if( $PSBoundParameters.ContainsKey('KeyStorageFlags') )
                    {
                        # macOS doesn't allow ephemeral key storage, which is kind of weird but whatever.
                        if( (Test-COperatingSystem -MacOS) )
                        {
                            $KeyStorageFlags =
                                $KeyStorageFlags -band -bnot [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::EphemeralKeySet
                        }
                        $ctorParams += $KeyStorageFlags
                    }
                    New-Object 'Security.Cryptography.X509Certificates.X509Certificate2' -ArgumentList $ctorParams |
                        Add-PathMember -Path $item.FullName |
                        Write-Output
                }
                catch
                {
                    $ex = $_.Exception
                    while( $ex.InnerException )
                    {
                        $ex = $ex.InnerException
                    }
                    $msg = "[$($ex.GetType().FullName)] exception creating X509Certificate2 object from file " +
                           """$($item.FullName)"": $($ex)"
                    Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                }
            }
        }
        return
    }

    $foundCerts = @{}
    Write-Debug -Message "[$($MyInvocation.MyCommand.Name)]"
    $locationWildcard = '*'
    if( $StoreLocation )
    {
        $locationWildcard = $StoreLocation.ToString()
    }

    $storeNameWildcard = '*'
    if( $StoreName )
    {
        $storeNameWildcard = $StoreName.ToString()
    }
    Write-Debug -Message " $($locationWildcard)\$($storeNameWildcard)"

    # If we're searching for a certificate, don't write an error if one isn't found. Only write an error if the user
    # is looking for a specific certificate in a specific location and store.
    $searching = [Management.Automation.WildcardPattern]::ContainsWildcardCharacters($Thumbprint) -or `
                 [Management.Automation.WildcardPattern]::ContainsWildcardCharacters($FriendlyName) -or `
                 [Management.Automation.WildcardPattern]::ContainsWildcardCharacters($Subject) -or `
                 $locationWildcard -eq '*' -or `
                 ($storeNameWildcard -eq '*' -and -not $CustomStoreName)

    [Security.Cryptography.X509Certificates.StoreLocation] $currentUserLocation =
        [Security.Cryptography.X509Certificates.StoreLocation]::CurrentUser
    [Security.Cryptography.X509Certificates.StoreLocation] $localMachineLocation =
        [Security.Cryptography.X509Certificates.StoreLocation]::LocalMachine

    $result = @()
    @($currentUserLocation, $localMachineLocation) |
        Where-Object { $_.ToString() -like $locationWildcard } |
        ForEach-Object {
            $location = $_
            Write-Debug -Message " $($location)"

            if( $CustomStoreName )
            {
                try
                {
                    Write-Debug -Message " $($CustomStoreName)"
                    [Security.Cryptography.X509Certificates.X509Store]::New($CustomStoreName, $location) |
                        Write-Output
                }
                catch
                {
                    $msg = "Failed to open ""$($location)\$($CustomStoreName)"" custom store: $($_)"
                    Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                }
                return
            }

            Write-Debug -Message " $($storeNameWildcard)"

            [Enum]::GetValues([Security.Cryptography.X509Certificates.StoreName]) |
                Where-Object { $_.ToString() -like $storeNameWildcard } |
                ForEach-Object {
                    $name = $_
                    try
                    {
                        [Security.Cryptography.X509Certificates.X509Store]::New($name, $location) |
                            Write-Output
                    }
                    catch
                    {
                        $ex = $_.Exception
                        while( $ex.InnerException )
                        {
                            $ex = $ex.InnerException
                        }
                        $msg = "Exception opening ""$($location)\$($name)"" store: " +
                               "[$($ex.GetType().FullName)]: $($ex)"
                        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                    }
                }
        } |
        Foreach-Object {
            $openFlags = [Security.Cryptography.X509Certificates.OpenFlags]::OpenExistingOnly -bor `
                         [Security.Cryptography.X509Certificates.OpenFlags]::ReadOnly

            [Security.Cryptography.X509Certificates.X509Store] $store = $_
            try
            {
                $store.Open($openFlags)
                $storeNamePropValue = $store.Name
                if( -not $CustomStoreName )
                {
                    if( $storeNamePropValue -eq 'CA' )
                    {
                        $storeNamePropValue = [Security.Cryptography.X509Certificates.StoreName]::CertificateAuthority
                    }
                    else
                    {
                        $storeNamePropValue = [Security.Cryptography.X509Certificates.StoreName]$storeNamePropValue
                    }
                }
                Write-Debug " $($store.Location) $($store.Name)"
                $store.Certificates |
                    Add-Member -MemberType NoteProperty -Name 'StoreLocation' -Value $store.Location -PassThru |
                    Add-Member -MemberType NoteProperty -Name 'StoreName' -Value $storeNamePropValue -PassThru |
                    Add-Member -MemberType ScriptProperty -Name 'Path' -Value {
                        if( -not (Test-Path -Path 'cert:') )
                        {
                            return
                        }

                        $storeNamePath = $this.StoreName
                        if( $storeNamePath.ToString() -eq 'CertificateAuthority' )
                        {
                            $storeNamePath = 'CA'
                        }

                        $path = Join-Path -Path 'cert:' -ChildPath $this.StoreLocation
                        $path = Join-Path -Path $path -ChildPath $storeNamePath
                        $path = Join-Path -Path $path -ChildPath $this.Thumbprint
                        return $path
                    } -PassThru
            }
            # Store doesn't exist.
            catch [Security.Cryptography.CryptographicException]
            {
                $Global:Error.RemoveAt(0)
            }
            catch
            {
                $ex = $_.Exception
                while( $ex.InnerException )
                {
                    $ex = $ex.InnerException
                }
                $msg = "[$($ex.GetType().FullName)] exception opening and iterating certificates in " +
                       """$($store.Location)\$($store.Name)"" store: $($ex)"
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            }
            finally
            {
                $store.Dispose()
            }
        } |
        Where-Object {
            $key = "$($_.StoreLocation)\$($_.StoreName)\$($_.Thumbprint)"
            if( $foundCerts.ContainsKey($key) )
            {
                return $false
            }
            $foundCerts[$key] = $_
            return $true
        } |
        Where-Object {
            if( -not $Subject )
            {
                return $true
            }
            return $_.Subject -like $Subject
        } |
        Where-Object {
            if( -not $LiteralSubject )
            {
                return $true
            }

            return $_.Subject -eq $LiteralSubject
        } |
        Where-Object {
            if( -not $Thumbprint )
            {
                return $true
            }
            return $_.Thumbprint -like $Thumbprint
        } |
        Where-Object {
            if( -not $FriendlyName )
            {
                return $true
            }
            return $_.FriendlyName -like $FriendlyName
        } |
        Where-Object {
            if( -not $LiteralFriendlyName )
            {
                return $true
            }
            return $_.FriendlyName -eq $LiteralFriendlyName
        } |
        ForEach-Object { $_.pstypenames.Insert(0, 'Carbon.Cryptography.X509Certificate2') ; $_ } |
        Tee-Object -Variable 'result' |
        Write-Output

    if( -not $searching -and -not $result )
    {
        $fields = [Collections.ArrayList]::New()
        if( $Subject )
        {
            $field = "Subject like ""$($Subject)"""
            [void]$fields.Add($field)
        }

        if( $LiteralSubject )
        {
            $field = "Subject equal ""$($LiteralSubject)"""
            [void]$fields.Add($field)
        }

        if( $Thumbprint )
        {
            $field = "Thumbprint like ""$($Thumbprint)"""
            [void]$fields.Add($field)
        }

        if( $FriendlyName )
        {
            $field = "Friendly Name like ""$($FriendlyName)"""
            [void]$fields.Add($field)
        }

        if( $LiteralFriendlyName )
        {
            $field = "Friendly Name equal ""$($LiteralFriendlyName)"""
            [void]$fields.Add($field)
        }

        if( $StoreName )
        {
            $storeDisplayName = $StoreName.ToString()
        }
        elseif( $CustomStoreName )
        {
            $storeDisplayName = "$($CustomStoreName) custom"
        }

        $lastField = ''
        if( $fields.Count -gt 1 )
        {
            $lastField = ", and $($fields[-1])"
            $fields = $fields[0..($fields.Count - 2)]
        }

        $msg = "Certificate with $($fields -join ', ')$($lastField) does not exist in the $($StoreLocation)\" +
               "$($storeDisplayName) store."
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
    }
}




function Get-CPrivateKey
{
    <#
    .SYNOPSIS
    Gets an X509 certificate's private key.
 
    .DESCRIPTION
    The `Get-CPrivateKey` function gets an X509 certificate's private key. It works across all PowerShell editions and
    platforms. Pipe the certificate (as a `Security.Cryptography.X509Certificates.X509Certificate2` object) or pass it
    to the `Certificate` parameter. The certificate's private key is returned. If the certificate does not have a
    private key (i.e. its `HasPrivateKey` property is `false`), then an error is written and nothing is returned.
 
    .EXAMPLE
    Get-Item -Path 'Cert:\CurrentUser\My\DEADBEEDEADBEEDEADBEEDEADBEEDEADBEEDEADB | Get-CPrivateKey
 
    Demonstrates how to pipe an X509 certificate object to `Get-CPrivateKey` to get its private key.
    #>
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, Position=0, ValueFromPipeline)]
        [X509Certificate2] $Certificate
    )

    process
    {
        if (-not $Certificate.HasPrivateKey)
        {
            $msg = "Failed to get private key on certificate ""$($Certificate.Subject)"" " +
                   "($($Certificate.Thumbprint)) because it doesn't have a private key."
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            return
        }

        if ($Certificate.PrivateKey)
        {
            return $Certificate.PrivateKey
        }

        try
        {
            return [Security.Cryptography.X509Certificates.RSACertificateExtensions]::GetRSAPrivateKey($Certificate)
        }
        catch
        {
            $msg = "Failed to get private key for certificate ""$($Certificate.Subject)"" " +
                   "($($Certificate.Thumbprint)): ${_}"
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        }
    }
}



function Get-CPrivateKeyPermission
{
    <#
    .SYNOPSIS
    Gets the permissions (access control rules) for an X509 certificate's private key. Windows only.
 
    .DESCRIPTION
    The `Get-CPrivateKeyPermission` gets the permissions on an X509 certificate's private key. Pass the path to the X509
    certificate in the PowerShell `cert:` drive to the `Path` parameter (wildcards supported). All non-inherited
    permissions are returned.
 
    To get a specific user or group's permissions, pass the user/group name to the `Identity` parameter. If the
    user/group doesn't exist, the function writes an error then returns nothing.
 
    To also get inherited permissions, use the `Inherited` switch.
 
    This function only supports the Windows operating system. If you run on a non-Windows operating system, the function
    writes an error then returns nothing.
 
    If the certificate doesn't exist, the function writes an error then returns nothing.
 
    If the certificate doesn't have a private key, the function writes a warning and returns. If the
    certificate's private key is inaccessible, the function writes an error then returns nothing.
 
    If running under Windows PowerShell and the .NET framework uses the
    [RSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.rsacryptoserviceprovider)
    or the
    [DSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.dsacryptoserviceprovider)
    class to manage the private key, the function returns `System.Security.AccessRule.CryptoKeyAccessRule` objects.
    Otherwise, it returns `System.Security.AccessRule.FileSystemAccessRule` objects.
 
    .OUTPUTS
    System.Security.AccessControl.AccessRule.
 
    .LINK
    Get-CPrivateKey
 
    .LINK
    Grant-CPrivateKeyPermission
 
    .LINK
    Resolve-CPrivateKeyPermission
 
    .LINK
    Revoke-CPrivateKeyPermission
 
    .LINK
    Test-CPrivateKeyPermission
 
    .EXAMPLE
    Get-CPrivateKeyPermission -Path 'Cert:\LocalMachine\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to use this function to return non-inherited access rules for an X509 certificate's private key. In
    this example, the `Cert:\LocalMachine\1234567890ABCDEF1234567890ABCDEF12345678` certificate's private key
    permissions are returned.
    #>
    [CmdletBinding()]
    [OutputType([System.Security.AccessControl.AccessRule])]
    param(
        # The path whose permissions (i.e. access control rules) to return. Must be a path on the `cert:` drive.
        # Wildcards supported.
        [Parameter(Mandatory)]
        [String] $Path,

        # The user/group name whose permissiosn (i.e. access control rules) to return. By default, all permissions are
        # returned.
        [String] $Identity,

        # Return inherited permissions in addition to explicit permissions.
        [switch] $Inherited
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    if (-not $IsWindows)
    {
        Write-Error -Message 'Get-CPrivateKeyPermission only supports Windows.' -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-Path -Path $Path))
    {
        $msg = "Failed to get permissions on ""${Path}"" certificate's private key because the certificate does not " +
               'exist.'
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    if ($Identity)
    {
        if( -not (Test-CIdentity -Name $Identity) )
        {
            $msg = "Failed to get permissions on ""${Path}"" for ""${Identity}"" because that user/group does not " +
                   'exist.'
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            return
        }

        $Identity = Resolve-CIdentityName -Name $Identity
    }

    foreach ($certificate in (Get-Item -Path $Path -Force))
    {
        if ($certificate -isnot [X509Certificate2])
        {
            $msg = "Failed to get permissions on ""${certificate}"" because it is not an X509 certificate."
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            continue
        }

        $certPath = Join-Path -Path 'cert:' -ChildPath ($certificate.PSPath | Split-Path -NoQualifier)
        $subject = $certificate.Subject
        Write-Debug -Message "${certPath} ${subject}" -Verbose

        if (-not $certificate.HasPrivateKey)
        {
            $msg = "Unable to get permissions on ""${subject}"" (thumbprint: ${thumbprint}; path ${certPath}) " +
                   'certificate''s private key because the certificate doesn''t have a private key.'
            Write-Warning $msg -WarningAction $WarningPreference
            continue
        }

        $pk = $certificate | Get-CPrivateKey
        if (-not $pk)
        {
            continue
        }

        $usesCryptoKeyRights = $pk | Test-CCryptoKeyAvailable
        if (-not $usesCryptoKeyRights)
        {
            $getPermArgs = [Collections.Generic.Dictionary[[String], [Object]]]::New($PSBoundParameters)
            [void]$getPermArgs.Remove('Path')

            $pkPaths = $certificate | Resolve-CPrivateKeyPath
            if (-not $pkPaths)
            {
                continue
            }

            foreach ($pkPath in $pkPaths)
            {
                Get-CPermission -Path $pkPath @getPermArgs
            }
            continue
        }

        $certificate.PrivateKey.CspKeyContainerInfo.CryptoKeySecurity |
            Select-Object -ExpandProperty 'Access' |
            Where-Object {
                if( $Inherited )
                {
                    return $true
                }

                return (-not $_.IsInherited)
            } |
            Where-Object {
                if( $Identity )
                {
                    return ($_.IdentityReference.Value -eq $Identity)
                }

                return $true
            }
    }
}


function Grant-CPrivateKeyPermission
{
    <#
    .SYNOPSIS
    Grants permissions on an X509 certificate's private key. Windows only.
 
    .DESCRIPTION
    The `Grant-CPrivateKeyPermission` functions grants permissions to an X509 certificatte's private key to a user or
    group. Pass the path to the certificate to the `Path` parameter. The path must be to an item on the PowerShell
    `cert:` drive. Wildcards supported. Pass the user/group name to the `Identity` parameter. Pass the permission to the
    `Permission` parameter. The function grants the identity the given permissions.
 
    If the certificate doesn't exist or is not to an item in the cert: drive, the function writes an error and returns.
 
    If the user/group does not exist, the function writes an error and returns.
 
    If the certificate doesn't have a private key, or the private key is inaccessible, the function writes an error and
    returns.
 
    If the user already has the given permission on the private key, nothing happens. Use the `-Force` switch to replace
    the existing access rule with a new and identital access rule.
 
    To clear all other non-inherited permissions on the private key, use the `-Clear` switch.
 
    To have the permission returned as an access rule object, use the `-PassThru` switch. If running under Windows
    PowerShell and the .NET framework uses the
    [RSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.rsacryptoserviceprovider)
    or the
    [DSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.dsacryptoserviceprovider)
    class to manage the private key, the function returns `System.Security.AccessRule.CryptoKeyAccessRule` objects.
    Otherwise, it returns `System.Security.AccessRule.FileSystemAccessRule` objects.
 
    To add a deny rule, pass `Deny` to the the `Type` parameter.
 
    .OUTPUTS
    System.Security.AccessControl.AccessRule.
 
    .LINK
    Get-CPrivateKey
 
    .LINK
    Get-CPrivateKeyPermission
 
    .LINK
    Resolve-CPrivateKeyPath
 
    .LINK
    Revoke-CPrivateKeyPermission
 
    .LINK
    Test-CPrivateKeyPermission
 
    .LINK
    http://msdn.microsoft.com/en-us/library/system.security.accesscontrol.filesystemrights.aspx
 
    .LINK
    http://msdn.microsoft.com/en-us/library/system.security.accesscontrol.registryrights.aspx
 
    .LINK
    http://msdn.microsoft.com/en-us/library/system.security.accesscontrol.cryptokeyrights.aspx
 
    .LINK
    http://msdn.microsoft.com/en-us/magazine/cc163885.aspx#S3
 
    .EXAMPLE
    Grant-CPrivateKeyPermission -Identity ENTERPRISE\Engineers -Permission FullControl -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to grant permissions to an X509 certificate's private key. In this example, the
    `Enterprise\Engineers` group will get full control to the private key of the certificate at
    `cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678`.
 
    .EXAMPLE
    Grant-CPrivateKeyPermission -Identity BORG\Locutus -Permission FullControl -Type Deny -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to grant deny permissions on an objecy with the `Type` parameter.
 
    .EXAMPLE
    Grant-CPrivateKeyPermission -Identity ENTERPRISE\Engineers -Permission FullControl -Clear -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to clear all other permissions on the private key by using the `-Clear` switch.
 
    .EXAMPLE
    Grant-CPrivateKeyPermission -Identity ENTERPRISE\Engineers -Permission FullControl -Force -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to always force granting the permission using the `-Force` switch. By default, if an identity
    already has permissions, the function does nothing. When using the `-Force` switch, the function will remove any
    existing permissions and then grant the requested permission.
 
    .EXAMPLE
    Grant-CPrivateKeyPermission -Identity ENTERPRISE\Engineers -Permission FullControl -PassThru -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to have the permission granted returned by using the `-PassThru` switch. If running under Windows
    PowerShell and the .NET framework uses the
    [RSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.rsacryptoserviceprovider)
    or the
    [DSACryptoServiceProvider](https://learn.microsoft.com/en-us/dotnet/api/system.security.cryptography.dsacryptoserviceprovider)
    class to manage the private key, the function returns `System.Security.AccessRule.CryptoKeyAccessRule` objects.
    Otherwise, it returns `System.Security.AccessRule.FileSystemAccessRule` objects.
    #>
    [Diagnostics.CodeAnalysis.SuppressMessage('PSShouldProcess', '')]
    [CmdletBinding(SupportsShouldProcess)]
    [OutputType([Security.AccessControl.AccessRule])]
    param(
        # The path on which the permissions should be granted. Must be the path to an X509 certificate, i.e. an item in
        # the PowerShell `cert:` drive.
        [Parameter(Mandatory)]
        [String] $Path,

        # The user or group name getting the permissions.
        [Parameter(Mandatory)]
        [String] $Identity,

        # The permission to grant. The Windows UI only allows Read and FullControl access, so
        # `Grant-CPrivateKeyPermission` also only allows `Read` and `FullControl` permissions.
        [Parameter(Mandatory)]
        [ValidateSet('Read', 'FullControl')]
        [String] $Permission,

        # The type of rule to grant, either `Allow` or `Deny`. The default is `Allow`, which will allow access to the
        # item. The other option is `Deny`, which will deny access to the item.
        [Security.AccessControl.AccessControlType] $Type = [Security.AccessControl.AccessControlType]::Allow,

        # Removes all non-inherited permissions on the item.
        [switch] $Clear,

        # Returns an object representing the permission created or set on the `Path`. The returned object will have a
        # `Path` propery added to it so it can be piped to any cmdlet that uses a path.
        [switch] $PassThru,

        # Grants permissions, even if they are already present.
        [switch] $Force
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    if (-not $IsWindows)
    {
        Write-Error -Message 'Grant-CPrivateKeyPermission only supports Windows.' -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-Path -Path $Path))
    {
        $msg = "Failed to grant permissions on ""${Path}"" certificate's private key because the certificate does " +
               'not exist.'
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-CIdentity -Name $Identity))
    {
        $msg = "Failed to grant ""${Permission}"" permissions on ""${Path}"" to ""${Identity}"" because that " +
               'user/group does not exist.'
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    $Identity = Resolve-CIdentityName -Name $Identity

    foreach ($certificate in (Get-Item -Path $Path -Force))
    {
        if ($certificate -isnot [X509Certificate2])
        {
            $msg = "Failed to grant permissions on ""${certificate}"" because it is not an X509 certificate."
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            continue
        }

        $certPath = Join-Path -Path 'cert:' -ChildPath ($certificate.PSPath | Split-Path -NoQualifier)
        $subject = $certificate.Subject
        $thumbprint = $certificate.Thumbprint
        if (-not $certificate.HasPrivateKey)
        {
            $msg = "Unable to grant permission on ""${subject}"" (thumbprint: ${thumbprint}; path ${certPath}) " +
                   'certificate''s private key because the certificate doesn''t have a private key.'
            Write-Warning $msg -WarningAction $WarningPreference
            continue
        }

        $description = "${certPath} ${subject}"

        $pk = $certificate | Get-CPrivateKey
        if (-not $pk)
        {
            continue
        }

        $useCryptoKeyRights = ($pk | Test-CCryptoKeyAvailable)
        if (-not $useCryptoKeyRights)
        {
            $grantPermArgs = [Collections.Generic.Dictionary[[String], [Object]]]::New($PSBoundParameters)
            [void]$grantPermArgs.Remove('Path')

            $pkPaths = $certificate | Resolve-CPrivateKeyPath
            if (-not $pkPaths)
            {
                continue
            }

            foreach ($pkPath in $pkPaths)
            {
                Grant-CPermission -Path $pkPath @grantPermArgs -Description $description
            }

            continue
        }

        [Security.AccessControl.CryptoKeySecurity] $keySecurity =
            $certificate.PrivateKey.CspKeyContainerInfo.CryptoKeySecurity
        if (-not $keySecurity)
        {
            $msg = "Failed to grant permission to ""${subject}"" (thumbprint: ${thumbprint}; path: ${certPath}) " +
                   'certificate''s private key because the private key has no security information. Make sure ' +
                   'you''re running with administrative rights.'
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            continue
        }

        $rulesToRemove = @()
        if ($Clear)
        {
            $rulesToRemove =
                $keySecurity.Access |
                Where-Object { $_.IdentityReference.Value -ne $Identity } |
                # Don't remove Administrators access.
                Where-Object { $_.IdentityReference.Value -ne 'BUILTIN\Administrators' }
            if ($rulesToRemove)
            {
                foreach ($ruleToRemove in $rulesToRemove)
                {
                    $rmIdentity = $ruleToRemove.IdentityReference.ToString()
                    $rmType = $ruleToRemove.AccessControlType.ToString().ToLowerInvariant()
                    $rmRights = $ruleToRemove.CryptoKeyRights
                    Write-Information "${description} ${rmIdentity} - ${rmType} ${rmRights}"
                    if (-not $keySecurity.RemoveAccessRule($ruleToRemove))
                    {
                        $msg = "Failed to remove ""${rmIdentity}"" identity's ${rmType} ""${rmRights}"" permissions " +
                               "to ${subject} (thumbprint: ${thumbprint}; path: ${certPath}) certificate's private key."
                        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                        continue
                    }
                }
            }
        }

        $rights = $Permission | ConvertTo-CryptoKeyRights

        $accessRule =
            New-Object -TypeName 'Security.AccessControl.CryptoKeyAccessRule' `
                        -ArgumentList $Identity, $rights, $Type |
            Add-Member -MemberType NoteProperty -Name 'Path' -Value $certPath -PassThru

        if ($Force -or `
            $rulesToRemove -or `
            -not (Test-CPrivateKeyPermission -Path $certPath -Identity $Identity -Permission $Permission -Strict))
        {
            $currentPerm = Get-CPrivateKeyPermission -Path $certPath -Identity $Identity
            if ($currentPerm)
            {
                $curType = $currentPerm.AccessControlType.ToString().ToLowerInvariant()
                $curRights = $currentPerm.CryptoKeyRights
                Write-Information "${description} ${Identity} - ${curType} ${curRights}"
            }
            $newType = $Type.ToString().ToLowerInvariant()
            Write-Information "${description} ${Identity} + ${newType} ${rights}"
            $keySecurity.SetAccessRule($accessRule)
            $action = "grant ""${Identity} ${newType} ${rights} permission(s)"
            Set-CryptoKeySecurity -Certificate $certificate -CryptoKeySecurity $keySecurity -Action $action
        }

        if( $PassThru )
        {
            return $accessRule
        }
    }
}




function Install-CCertificate
{
    <#
    .SYNOPSIS
    Installs an X509 certificate.
     
    .DESCRIPTION
    The `Install-CCertificate` function installs an X509 certificate. It uses the .NET X509 certificates API. The user
    performing the action must have permission to modify the store or the installation will fail. You can install from
    a file (pass the path to the file to the `-Path` parameter), or from an `X509Certificate2` object (pass it to the
    `-Certificate` parameter). Pass the store location (LocalMachine or CurrentUser) to the `-StoreLocation` parameter.
    Pass the store name (e.g. My, Root) to the `-StoreName` parameter. If the certificate has a private key and you want
    the private key exportable, use the `-Exportable` switch.
 
    If the certificate already exists in the store, nothing happens. If you want to re-install the certificate over any
    existing certificates, use the `-Force` switch.
 
    If installing a certificate from a file, and the file is password-protected, use the `-Password` parameter to pass
    the certificate's password. The password must be a `[securestring]`.
 
    This function only works on Windows.
 
    To install a certificate on a remote computer, create a remoting session with the `New-PSSession` cmdlet, and pass
    the session object to this function's `Session` parameter. When installing to a remote computer, the certificate's
    binary data is converted to a base64 encoded string and sent to the remote computer, where it is converted back
    into a certificate. If installing a certificate from a file, the file's bytes are converted to base64, sent to the
    remote computer, saved as a temporary file, installed, and the temporary file is removed.
 
    .OUTPUTS
    System.Security.Cryptography.X509Certificates.X509Certificate2. An X509Certificate2 object representing the newly installed certificate.
     
    .EXAMPLE
    Install-CCertificate -Path 'C:\Users\me\certificate.cer' -StoreLocation LocalMachine -StoreName My -Exportable -Password $securePassword
     
    Demonstrates how to install a password-protected certificate from a file and to allow its private key to be
    exportable.
     
    .EXAMPLE
    Install-CCertificate -Path C:\Users\me\certificate.cer -StoreLocation LocalMachine -StoreName My -Session $session
     
    Demonstrates how to install a certificate from a file on the local computer into the local machine's personal store
    on a remote cmoputer. You can pass multiple sessions to the `Session` parameter.
    #>
    [CmdletBinding(SupportsShouldProcess, DefaultParameterSetName='FromFileInWindowsStore')]
    [OutputType([Security.Cryptography.X509Certificates.X509Certificate2])]
    param(
        # The path to the certificate file.
        [Parameter(Mandatory, Position=0, ParameterSetName='FromFileInWindowsStore')]
        [Parameter(Mandatory, Position=0, ParameterSetName='FromFileInCustomStore')]
        [String] $Path,
        
        # The certificate to install.
        [Parameter(Mandatory, Position=0, ParameterSetName='FromCertificateInWindowsStore')]
        [Parameter(Mandatory, Position=0, ParameterSetName='FromCertificateInCustomStore')]
        [Security.Cryptography.X509Certificates.X509Certificate2] $Certificate,
        
        # The location of the certificate's store. To see a list of acceptable values, run:
        #
        # > [Enum]::GetValues([Security.Cryptography.X509Certificates.StoreLocation])
        [Parameter(Mandatory)]
        [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,
        
        # The name of the certificate's store. To see a list of acceptable values run:
        #
        # > [Enum]::GetValues([Security.Cryptography.X509Certificates.StoreName])
        [Parameter(Mandatory, ParameterSetName='FromFileInWindowsStore')]
        [Parameter(Mandatory, ParameterSetName='FromCertificateInWindowsStore')]
        [Security.Cryptography.X509Certificates.StoreName] $StoreName,

        # The name of the non-standard, custom store where the certificate should be installed.
        [Parameter(Mandatory, ParameterSetName='FromFileInCustomStore')]
        [Parameter(Mandatory, ParameterSetName='FromCertificateInCustomStore')]
        [String] $CustomStoreName,

        # Mark the private key as exportable. Only valid if loading the certificate from a file.
        [Parameter(ParameterSetName='FromFileInWindowsStore')]
        [Parameter(ParameterSetName='FromFileInCustomStore')]
        [switch] $Exportable,
        
        # The password for the certificate. Should be a `System.Security.SecureString`.
        [Parameter(ParameterSetName='FromFileInWindowsStore')]
        [Parameter(ParameterSetName='FromFileInCustomStore')]
        [securestring] $Password,

        # Use the `Session` parameter to install a certificate on remote computer(s) using PowerShell remoting. Use
        # `New-PSSession` to create a session.
        [Management.Automation.Runspaces.PSSession[]] $Session,

        # Re-install the certificate, even if it is already installed. Calls the `Add()` method for store even if the
        # certificate is in the store. This function assumes that the `Add()` method replaces existing certificates.
        [switch] $Force,

        # Return the installed certificate.
        [switch] $PassThru
    )
    
    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    $ephemeralKeyFlag = [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::EphemeralKeySet
    $defaultKeyFlag = [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::DefaultKeySet

    if( $PSCmdlet.ParameterSetName -like 'FromFile*' )
    {   
        $resolvedPath = Resolve-Path -Path $Path
        if( -not $resolvedPath )
        {
            return
        }

        $Path = $resolvedPath.ProviderPath
        
        $fileBytes = [IO.File]::ReadAllBytes($Path)
        $encodedCert = [Convert]::ToBase64String($fileBytes)
        $keyFlags = $ephemeralKeyFlag
        if( (Test-COperatingSystem -MacOS) )
        {
            $keyFlags = $defaultKeyFlag
        }

        # We need the certificate thumbprint so we can check if the certificate exists or not.
        $Certificate = [Security.Cryptography.X509Certificates.X509Certificate]::New($Path, $Password, $keyFlags)
        try
        {
            $thumbprint = $Certificate.Thumbprint
        }
        finally
        {
            $Certificate.Reset()
        }
        $Certificate = $null
    }
    else
    {
        $thumbprint = $Certificate.Thumbprint
        $encodedCert = [Convert]::ToBase64String( $Certificate.RawData )
    }

    $keyFlags = [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::MachineKeySet
    if( $StoreLocation -eq [Security.Cryptography.X509Certificates.StoreLocation]::CurrentUser )
    {
        $keyFlags = [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::UserKeySet
    }

    $keyFlags = $keyFlags -bor [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::PersistKeySet

    if( $Exportable )
    {
        $keyFlags = $keyFlags -bor [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::Exportable
    }

    $invokeCommandArgs = @{ }
    if( $Session )
    {
        $invokeCommandArgs['Session'] = $Session
    }

    Invoke-Command @invokeCommandArgs -ScriptBlock {
        [CmdletBinding()]
        param(
            # The base64 encoded certificate to install.
            [Parameter(Mandatory)]
            [String] $EncodedCertificate,

            # The password for the certificate.
            [securestring] $Password,

            [Parameter(Mandatory)]
            [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,
        
            $StoreName,

            [string] $CustomStoreName,

            [Security.Cryptography.X509Certificates.X509KeyStorageFlags] $KeyStorageFlags,

            [bool] $Force,

            [bool] $WhatIf,

            [Management.Automation.ActionPreference] $Verbosity,
            
            [String] $Thumbprint
        )

        Set-StrictMode -Version 'Latest'

        $WhatIfPreference = $WhatIf
        $VerbosePreference = $Verbosity

        $certFilePath = Join-Path -Path ([IO.Path]::GetTempPath()) -ChildPath ([IO.Path]::GetRandomFileName())

        [Security.Cryptography.X509Certificates.X509Certificate2] $cert = $null
        [Security.Cryptography.X509Certificates.X509Store] $store = $null
        if( $CustomStoreName )
        {
            $storeNameDisplay = $CustomStoreName
            $store = [Security.Cryptography.X509Certificates.X509Store]::New($CustomStoreName, $StoreLocation)
        }
        else
        {
            $StoreName = [Security.Cryptography.X509Certificates.StoreName]$StoreName
            $storeNameDisplay = $StoreName.ToString()
            $store = [Security.Cryptography.X509Certificates.X509Store]::New($StoreName, $StoreLocation)
        }

        if( -not $Force )
        {
            try
            {
                $store.Open( ([Security.Cryptography.X509Certificates.OpenFlags]::ReadOnly) )
                if( $store.Certificates | Where-Object 'Thumbprint' -eq $Thumbprint )
                {
                    return
                }
            }
            catch
            {
                $msg = "Exception reading certificates from $($StoreLocation)\$($storeNameDisplay) store: $($_)"
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }
            finally
            {
                $store.Close()
            }
        }

        $certBytes = [Convert]::FromBase64String( $EncodedCertificate )
        [IO.File]::WriteAllBytes( $certFilePath, $certBytes )

        # Make sure the key isn't persisted if we're not going to store it.
        if( $WhatIf )
        {
            # We don't use EphemeralKeySet because it isn't supported on macOS.
            $KeyStorageFlags = [Security.Cryptography.X509Certificates.X509KeyStorageFlags]::DefaultKeySet
        }

        try
        {
            $cert = 
                [Security.Cryptography.X509Certificates.X509Certificate2]::New($certFilePath, $Password, $KeyStorageFlags)
        }
        catch
        {
            $msg = "Exception reading certificate from file: $($_)"
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            return
        }
        
        $description = $cert.FriendlyName
        if( -not $description )
        {
            $description = $cert.Subject
        }

        try
        {
            $store.Open( ([Security.Cryptography.X509Certificates.OpenFlags]::ReadWrite) )

            $action = "install into $($StoreLocation)\$($storeNameDisplay) store"
            $target = "$($description) ($($cert.Thumbprint))"
            if( $PSCmdlet.ShouldProcess($target, $action) )
            {
                $msg = "Installing certificate ""$($description)"" ($($cert.Thumbprint)) into $($StoreLocation)\" +
                    "$($storeNameDisplay) store."
                Write-Verbose -Message $msg 
                $store.Add( $cert )
            }
        }
        catch
        {
            if( (Test-COperatingSystem -MacOS) -and ($cert.HasPrivateKey -and -not $Exportable) )
            {
                $msg = "Exception installing certificate ""$($description)"" ($($cert.Thumbprint)) into " +
                       "$($StoreLocation)\$($storeNameDisplay): $($_). On macOS, certificates with private keys " +
                       "must be exportable. Update $($MyInvocation.MyCommand.Name) with the ""-Exportable"" switch."
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }

            $msg = "Exception installing certificate in $($StoreLocation)\$($storeNameDisplay) store: $($_)"
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            return
        }
        finally
        {
            Remove-Item -Path $certFilePath -ErrorAction Ignore -WhatIf:$false -Force

            if( $cert )
            {
                $cert.Reset()
            }

            if( $store )
            {
                $store.Close()
            }
        }
    } -ArgumentList $encodedCert,
                    $Password,
                    $StoreLocation,
                    $StoreName,
                    $CustomStoreName,
                    $keyFlags,
                    $Force,
                    $WhatIfPreference,
                    $VerbosePreference,
                    $thumbprint

    if( $PassThru )
    {
        # Don't return a certificate object created by this function. It may have been loaded from a file and stored
        # in a temp file on disk. If that certificate object isn't properly disposed, the temp file can stick around
        # slowly filling up disks.
        $storeParam = @{ StoreName = $StoreName }
        if( $CustomStoreName )
        {
            $storeParam = @{ CustomStoreName = $CustomStoreName }
        }
        return Get-CCertificate -Thumbprint $thumbprint -StoreLocation $StoreLocation @storeParam
    }
}




function New-CRsaKeyPair
{
    <#
    .SYNOPSIS
    Generates a public/private RSA key pair.
 
    .DESCRIPTION
    The `New-CRsaKeyPair` function uses the `certreq.exe` program to generate an RSA public/private key pair suitable
    for use in encrypting/decrypting CMS messages, credentials in DSC resources, etc.
 
    Pass the subject to the `Subject` parameter (it must begin with `CN=`) and the paths where you want the public and
    private keys saved to the `PublicKeyPath` and `PrivateKeyPath` parameters, respectively. `New-CRsaKeyPair` creates
    a temporary .inf file and passes it to the `certreq.exe` program. You will be prompted for a password, unless you
    pass a password to the `Password` parameter.
 
    By default, a key pair with no key usages or enhanced key usages is generated that is 4096 bits in length, uses
    `SHA512` as the signature/hash algorithm, and is valid until December 31st, 9999. An object with
    `[IO.FileInfo] PublicKeyFile` and `[IO.FileInfo] PrivateKeyFile` properties is returned.
 
    You can change the key's length, algorithm, expiration date, and provider with the `Length`, `Algorithm`, `ValidTo`,
    and `ProviderName` parameters, respectively. You can set the key pair's usages with the `KeyUsage` parameter. Valid
    usages this function supports are `ClientAuthentication`, `CodeSigning`, `DocumentEncryption`, `DocumentSigning`,
    and `ServerAuthentication`.
 
    If the destination files already exist, you'll get an error and no keys will be generated. Use the `Force` switch to
    overwrite any existing files.
 
    The `certreq.exe` command stores the private key in the current user's `My` certificate store. This function exports
    that private key to a file and removes it from the current user's `My` store. The private key is protected with the
    password provided via the `-Password` parameter. If you don't provide a password, you will be prompted for one. To
    not protect the private key with a password, pass `$null` as the value of the `-Password` parameter.
 
    The public key is saved as an X509Certificate. The private key is saved as a PFX file. Both can be loaded by .NET's
    `X509Certificate` class. Returns `System.IO.FileInfo` objects for the public and private key, in that order.
 
    .LINK
    Get-CCertificate
 
    .LINK
    Install-CCertificate
 
    .EXAMPLE
    New-CRsaKeyPair -Subject 'CN=MyName' -PublicKeyFile 'MyName.cer' -PrivateKeyFile 'MyName.pfx' -Password $secureString
 
    Demonstrates the minimal parameters needed to generate a key pair. The key will use a sha512 signing algorithm, have
    a length of 4096 bits, and expire on `12/31/9999`. The public key will be saved in the current directory as
    `MyName.cer`. The private key will be saved to the current directory as `MyName.pfx` and protected with password in
    `$secureString`. The key pair will have no usages, so you won't be able to do much with it.
 
    .EXAMPLE
    New-CRsaKeyPair -Subject 'CN=MyName' -PublicKeyFile 'MyName.cer' -PrivateKeyFile 'MyName.pfx' -Password $null
 
    Demonstrates how to save the private key unprotected (i.e. without a password). You must set the password to
    `$null`. This functionality was introduced in Carbon 2.1.
 
    .EXAMPLE
    New-CRsaKeyPair -Subject 'CN=MyName' -PublicKeyFile 'MyName.cer' -PrivateKeyFile 'MyName.pfx' -Algorithm 'sha1' -ValidTo (Get-Date -Year 2015 -Month 12 -Day 31) -Length 1024 -Password $secureString -KeyUsage DocumentSigning, DocumentEncryption -ProviderName 'Microsoft AES Cryptographic Provider'
 
    Demonstrates how to use all the parameters to create a truly customized key pair. The generated certificate will use
    the sha1 signing algorithm, expires 12/31/2015, is 1024 bits in length, uses the "Microsoft AES Cryptographic
    Provider", and can be used to sign and encrypt.
    #>
    [CmdletBinding()]
    [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSAvoidUsingUserNameAndPassWordParams', '')]
    param(
        # The key's subject. Should be of the form `CN=Name,OU=Name,O=SuperMagicFunTime,ST=OR,C=US`. Only the `CN=Name`
        # part is required.
        [Parameter(Mandatory, Position=0)]
        [ValidatePattern('^CN=')]
        [string] $Subject,

        # The signature algorithm. Default is `sha512`.
        [ValidateSet('md5', 'sha1', 'sha256', 'sha384', 'sha512')]
        [string] $Algorithm = 'sha512',

        # The date/time the keys should expire. Default is `DateTime::MaxValue`.
        [DateTime] $ValidTo = ([DateTime]::MaxValue),

        # The length, in bits, of the generated key length. Default is `4096`.
        [int] $Length = 4096,

        # What extended key usages the certificate will have. By default, it will be for any purpose (OID 2.5.29.37.0).
        [ValidateSet('ClientAuthentication', 'CodeSigning', 'DocumentEncryption', 'DocumentSigning',
                     'ServerAuthentication')]
        [String[]] $KeyUsage,

        # The display name of the Cryptographic Service Provider (CSP) to use. The default is "Microsoft Enhanced RSA
        # and AES Cryptographic Provider" (i.e. "Microsoft RSA Cryptographic Provider"). Run `certutil -csplist` to see
        # providers available on your system and [Microsoft Cryptographic Service Providers](https://learn.microsoft.com/en-us/windows/win32/seccrypto/microsoft-cryptographic-service-providers)
        # for more documentation.
        [String] $ProviderName = 'Microsoft Enhanced RSA and AES Cryptographic Provider',

        # The file where the public key should be stored. Saved as an X509 certificate.
        [Parameter(Mandatory, Position=1)]
        [string] $PublicKeyFile,

        # The file where the private key should be stored. The private key will be saved as an X509 certificate in PFX
        # format and will include the public key.
        [Parameter(Mandatory, Position=2)]
        [string] $PrivateKeyFile,

        # The password for the private key. If one is not provided, you will be prompted for one. Pass `$null` to not
        # protect your private key with a password.
        #
        # This parameter was introduced in Carbon 2.1.
        [securestring] $Password,

        # Overwrites `PublicKeyFile` and/or `PrivateKeyFile`, if they exist.
        [Switch] $Force
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    function Resolve-KeyPath
    {
        param(
            [Parameter(Mandatory)]
            [string] $Path
        )

        Set-StrictMode -Version 'Latest'

        $Path = [IO.Path]::GetFullPath($Path)

        if( (Test-Path -Path $Path -PathType Leaf) )
        {
            if( -not $Force )
            {
                Write-Error ('File ''{0}'' exists. Use the -Force switch to overwrite.' -f $Path)
                return
            }
        }
        else
        {
            $root = Split-Path -Parent -Path $Path
            if( -not (Test-Path -Path $root -PathType Container) )
            {
                New-Item -Path $root -ItemType 'Directory' -Force | Out-Null
            }
        }

        return $Path
    }

    $PublicKeyFile = Resolve-KeyPath -Path $PublicKeyFile
    if( -not $PublicKeyFile )
    {
        return
    }

    $PrivateKeyFile = Resolve-KeyPath -Path $PrivateKeyFile
    if( -not $PrivateKeyFile )
    {
        return
    }

    if( (Test-Path -Path $PrivateKeyFile -PathType Leaf) )
    {
        if( -not $Force )
        {
            Write-Error ('Private key file ''{0}'' exists. Use the -Force switch to overwrite.' -f $PrivateKeyFile)
            return
        }
    }

    $tempDir = '{0}-{1}' -f (Split-Path -Leaf -Path $PSCommandPath),([IO.Path]::GetRandomFileName())
    $tempDir = Join-Path -Path $env:TEMP -ChildPath $tempDir
    New-Item -Path $tempDir -ItemType 'Directory' | Out-Null
    $tempInfFile = Join-Path -Path $tempDir -ChildPath 'temp.inf'

    # Adapted from
    # * https://docs.microsoft.com/en-us/windows-server/administration/windows-commands/certreq_1
    # * https://docs.microsoft.com/en-us/windows/win32/api/certenroll/ne-certenroll-x509keyusageflags
    # * https://docs.microsoft.com/en-us/dotnet/api/system.security.cryptography.x509certificates.x509keyusageflags
    # * https://omvs.de/2019/11/13/key-usage-extensions-at-x-509-certificates/
    # CERT_DIGITAL_SIGNATURE_KEY_USAGE (0x80/128):
    # The key can be used as a digital signature. The key is used with a Digital Signature Algorithm (DSA) to support
    # services other than nonrepudiation, certificate signing, or revocation list signing.
    # CERT_NON_REPUDIATION_KEY_USAGE (0x40/64):
    # The key can be used for authentication. The key is used to verify a digital signature as part of a
    # nonrepudiation service that protects against false denial of action by a signing entity.
    # CERT_KEY_ENCIPHERMENT_KEY_USAGE (0x20/32):
    # The key can be used for key encryption. The key is used for key transport. That is, the key is used to manage a
    # key passed from its point of origination to another point of use.
    # CERT_DATA_ENCIPHERMENT_KEY_USAGE (0x10/16):
    # The key can be used for data encryption. The key is used to encrypt user data other than cryptographic keys.
    # CERT_KEY_AGREEMENT_KEY_USAGE (8):
    # The key can be used to determine key agreement, such as a key created using the Diffie-Hellman key agreement
    # algorithm. The key agreement or key exchange protocol enables two or more
    # parties to negotiate a key value without transferring the key and without previously establishing a shared
    # secret.
    # CERT_KEY_CERT_SIGN_KEY_USAGE (4):
    # The key can be used to sign certificates. The key is used to verify a certificate signature. This value can only
    # be used for certificates issued by certification authorities.
    # CERT_OFFLINE_CRL_SIGN_KEY_USAGE (2):
    # The key can be used to sign a certificate revocation list (CRL). The key is used to verify an offline
    # certificate revocation list (CRL) signature.
    # CERT_CRL_SIGN_KEY_USAGE (2):
    # The key can be used to sign a certificate revocation list (CRL). The key is used to verify a CRL signature.
    # CERT_ENCIPHER_ONLY_KEY_USAGE (1):
    # The key can be used for encryption only. The key is used to encrypt data while performing key agreement. When
    # this value is specified, the CERT_KEY_AGREEMENT_KEY_USAGE value must also be specified.
    # CERT_DECIPHER_ONLY_KEY_USAGE (0x8000/32768):
    # The key can be used for decryption only. The key is used to decrypt data while performing key agreement. When
    # this value is specified, the CERT_KEY_AGREEMENT_KEY_USAGE must also be specified.

    $usageMap = @{
        ClientAuthentication = @('CERT_DIGITAL_SIGNATURE_KEY_USAGE', 'CERT_KEY_ENCIPHERMENT_KEY_USAGE');
        CodeSigning = 'CERT_DIGITAL_SIGNATURE_KEY_USAGE';
        DocumentEncryption = @('CERT_KEY_ENCIPHERMENT_KEY_USAGE', 'CERT_DATA_ENCIPHERMENT_KEY_USAGE');
        DocumentSigning = 'CERT_DIGITAL_SIGNATURE_KEY_USAGE';
        ServerAuthentication = @('CERT_DIGITAL_SIGNATURE_KEY_USAGE', 'CERT_KEY_ENCIPHERMENT_KEY_USAGE');
    }

    try
    {
        $certReqPath = Get-Command -Name 'certreq.exe' -ErrorAction Ignore | Select-Object -ExpandProperty 'Path'
        if( -not $certReqPath )
        {
            'Command "certreq.exe" does not exist. This is a Windows-only command. If you''re on Windows, make sure ' +
            '"C:\Windows\System32" is part of your "Path" environment variable.' |
                Write-Error -ErrorAction $ErrorActionPreference
            return
        }

        # Taken from example 1 of the Protect-CmsMessage help topic.
        [int]$daysValid = [Math]::Floor(($ValidTo - (Get-Date)).TotalDays)
        [int]$MaxDaysValid = [Math]::Floor(([DateTime]::MaxValue - [DateTime]::UtcNow).TotalDays)
        Write-Debug -Message ('Days Valid: {0}' -f $daysValid)
        Write-Debug -Message ('Max Days Valid: {0}' -f $MaxDaysValid)
        if( $daysValid -gt $MaxDaysValid )
        {
            Write-Debug -Message ('Adjusted Days Valid: {0}' -f $daysValid)
            $daysValid = $MaxDaysValid
        }

        $keyUsages = & {
            foreach( $usage in $KeyUsage )
            {
                if( $usageMap.ContainsKey($usage) )
                {
                    $usageMap[$usage] | Write-Output
                }
            }
        } | Select-Object -Unique

        $extensions = & {
            if( -not $KeyUsage )
            {
                return
            }

            foreach( $usage in $KeyUsage )
            {
                switch( $usage )
                {
                    'ClientAuthentication' { 'szOID_CLIENT_AUTHENTICATION' }
                    'CodeSigning' { 'szOID_CODE_SIGNING' }
                    'DocumentEncryption' { 'szOID_DOCUMENT_ENCRYPTION' }
                    'DocumentSigning' { 'szOID_DOCUMENT_SIGNING' }
                    'ServerAuthentication' { 'szOID_SERVER_AUTHENTICATION' }
                }
            }
        }

        $keySpec = 'AT_NONE'
        if( $KeyUsage | Where-Object { $_ -like '*Signing' } )
        {
            $keySpec = 'AT_SIGNATURE'
        }
        if( $KeyUsage | Where-Object { $_ -notlike '*Signing' } )
        {
            $keySpec = 'AT_KEYEXCHANGE'
        }

        $keyUsageLine = ''
        if( $keyUsages )
        {
            $keyUsageLine = "KeyUsage = ""$($keyUsages -join ' | ')"""
        }

        $extensionsLine = ''
        if( $extensions )
        {
            $extensionsLine = $extensions -join "%,""$([Environment]::NewLine)_continue_ = ""%"
            $extensionsLine = "%szOID_ENHANCED_KEY_USAGE% = ""{text}%$($extensionsLine)%"""
        }

        @"
[Version]
Signature = "`$Windows NT`$"
 
[Strings]
szOID_ANY_PURPOSE = 2.5.29.37.0
szOID_CLIENT_AUTHENTICATION = 1.3.6.1.5.5.7.3.2
szOID_CODE_SIGNING = 1.3.6.1.5.5.7.3.3
szOID_DOCUMENT_ENCRYPTION = 1.3.6.1.4.1.311.80.1
szOID_DOCUMENT_SIGNING = 1.3.6.1.4.1.311.10.3.12
szOID_ENHANCED_KEY_USAGE = 2.5.29.37
szOID_SERVER_AUTHENTICATION = 1.3.6.1.5.5.7.3.1
 
[NewRequest]
Subject = "$($Subject)"
MachineKeySet = false
KeyLength = $($Length)
KeySpec = $($keySpec)
HashAlgorithm = $($Algorithm)
Exportable = true
RequestType = Cert
ValidityPeriod = Days
ValidityPeriodUnits = $($daysValid)
ProviderName = $($ProviderName)
$($keyUsageLine)
 
[Extensions]
$($extensionsLine)
"@ | Set-Content -Path $tempInfFile

        Get-Content -Raw -Path $tempInfFile | Write-Verbose

        $forceArg = $null
        if( $Force )
        {
            $forceArg = '-f'
        }
        Write-Debug "& ""$($certReqPath)"" -q$($forceArg) -new ""$($tempInfFile)"" ""$($PublicKeyFile)"""
        $output = & $certReqPath -q $forceArg -new $tempInfFile $PublicKeyFile
        if ($LASTEXITCODE)
        {
            $msg = "The certreq command to create the public/private key pair failed with exit code " +
                   "$($LASTEXITCODE):$([Environment]::NewLine)" +
                   "$($output -join ([Environment]::NewLine))"
            Write-Error $msg -ErrorAction $ErrorActionPreference
            return
        }

        if (-not (Test-Path -Path $PublicKeyFile -PathType Leaf))
        {
            $msg = 'Failed to create public/private key pair because the certreq command to create them succeeded ' +
                   "but the expected public key file ""$($PublicKeyPath)"" does not exist:$([Environment]::NewLine)" +
                   "$($output -join [Environment]::NewLine)"
            Write-Error $msg -ErrorAction $ErrorActionPreference
            return
        }

        $output | Write-Debug

        $publicKey = Get-CCertificate -Path $PublicKeyFile
        if( -not $publicKey )
        {
            Write-Error ('Failed to load public key ''{0}'':{1}{2}' -f $PublicKeyFile,([Environment]::NewLine),($output -join ([Environment]::NewLine)))
            return
        }

        $privateCertPath = Join-Path -Path 'cert:\CurrentUser\My' -ChildPath $publicKey.Thumbprint
        if( -not (Test-Path -Path $privateCertPath -PathType Leaf) )
        {
            Write-Error -Message ('Private key ''{0}'' not found. Did certreq.exe fail to install the private key there?' -f $privateCertPath)
            return
        }

        try
        {
            $privateCert = Get-Item -Path $privateCertPath
            if( -not $privateCert.HasPrivateKey )
            {
                Write-Error -Message ('Certificate ''{0}'' doesn''t have a private key.' -f $privateCertPath)
                return
            }

            if( -not $PSBoundParameters.ContainsKey('Password') )
            {
                $Password = Read-Host -Prompt 'Enter private key password' -AsSecureString
            }

            $privateCertBytes = $privateCert.Export( 'PFX', $Password )
            [IO.File]::WriteAllBytes( $PrivateKeyFile, $privateCertBytes )

            [pscustomobject]@{
                'PublicKeyFile' = (Get-Item $PublicKeyFile);
                'PrivateKeyFile' = (Get-Item $PrivateKeyFile);
            } | Write-Output
        }
        finally
        {
            Remove-Item -Path $privateCertPath
        }
    }
    finally
    {
        Remove-Item -Path $tempDir -Recurse
    }
}



function Protect-CString
{
    <#
    .SYNOPSIS
    Encrypts a string.
 
    .DESCRIPTION
    The `Protect-CString` function encrypts a string using the Windows Data Protection API (DPAPI), RSA, or AES. Pass
    a plaintext string or a secure string to the `String` parameter. When encrypting a `SecureString`, it is converted
    to an array of bytes, encrypted, then the array of bytes is cleared from memory (i.e. the plaintext version of the
    `SecureString` is only in memory long enough to encrypt it). All strings and secure string bytes are re-encoded
    from UTF-16/Unicode to UTF-8 before encrypting.
 
    ## Windows Data Protection API (DPAPI)
 
    The DPAPI hides the encryptiong/decryption keys. There is a unique key for each user and a machine key. Anything
    encrypted with a user's key, can only be decrypted by that user. Anything encrypted with the machine key can be
    decrypted by anyone on that machine. Use the `ForUser` switch to encrypt with the current user's key. Use the
    `ForComputer` switch to encrypt at the machine level.
 
    If you want to encrypt something as a different user, pass that user's credentials to the `Credential` parameter.
    `Protect-CString` will launch a PowerShell process as that user to do the encryption. Encrypting as another user
    doesn't work over PowerShell Remoting.
 
    ## RSA
 
    RSA is an assymetric encryption/decryption algorithm, which requires a public/private key pair. The secret is
    encrypted with the public key, and can only be decrypted with the corresponding private key. The secret being
    encrypted can't be larger than the RSA key pair's size/length, usually 1024, 2048, or 4096 bits (128, 256, and 512
    bytes, respectively). `Protect-CString` encrypts with .NET's `System.Security.Cryptography.RSACryptoServiceProvider`
    class.
 
    You can specify the public key in three ways:
 
     * by passing the `System.Security.Cryptography.X509Certificates.X509Certificate2` object to use to the
       `Certificate` parameter.
     * with a certificate in one of the Windows certificate stores. Pass its thumbprint to the `Thumbprint`
       parameter.
     * with an X509 certificate file. Pass the file's path to the `PublicKeyPath` parameter. You can also pass a
       certificate provider path to the `PublicKeyPath` parameter (e.g. `cert:`).
 
    You can generate an RSA public/private key pair with the `New-CRsaKeyPair` function.
 
    ## AES
 
    AES is a symmetric encryption/decryption algorithm. You supply a 16-, 24-, or 32-byte key/password/passphrase with
    the `Key` parameter, and that key is used to encrypt. There is no limit on the size of the data you want to encrypt.
    `Protect-CString` encrypts with the object returned by `[Security.Cryptography.Aes]::Create()`
 
    You can only pass a `[securestring]` or array of bytes as the key. The array of bytes must be 16, 24, or 32 bytes
    long. When passing a secure string, when UTF-8 encoded and converted to a byte array, it must also be 16, 24, or 32
    bytes long. You can use this code to check on the byte length of a plain text string (where $key is the plain text
    key):
 
        [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, [Text.Encoding]::Unicode.GetBytes($key)).Length
 
    Symmetric encryption requires a random, unique initialization vector (i.e. IV) everytime you encrypt something.
    `Protect-CString` generates one for you. This IV must be known to decrypt the secret, so it is pre-pendeded to the
    encrypted text.
 
    This code demonstrates how to generate a key:
 
        $key = [Security.Cryptography.AesManaged]::New().Key
 
    You can save this key as a string by encoding it as a base64 string:
 
        $base64EncodedKey = [Convert]::ToBase64String($key)
 
    If you base64 encode your key's bytes, they must be converted back to bytes before passing it to `Protect-CString`.
 
        Protect-CString -String 'the secret sauce' -Key ([Convert]::FromBase64String($base64EncodedKey))
 
    .LINK
    New-CRsaKeyPair
 
    .LINK
    Unprotect-CString
 
    .LINK
    http://msdn.microsoft.com/en-us/library/system.security.cryptography.protecteddata.aspx
 
    .EXAMPLE
    Protect-CString -String 'TheStringIWantToEncrypt' -ForUser | Out-File MySecret.txt
 
    Encrypts the given string and saves the encrypted string into MySecret.txt. Only the user who encrypts the string
    can unencrypt it.
 
    .EXAMPLE
    Protect-CString -String $credential.Password -ForUser | Out-File MySecret.txt
 
    Demonstrates that `Protect-CString` can encrypt a `SecureString`.
 
    .EXAMPLE
    Protect-CString -String "MySuperSecretIdentity" -ForComputer
 
    Demonstrates how to encrypt a value that can only be decrypted on the current computer.
 
    .EXAMPLE
    Protect-CString -String 's0000p33333r s33333cr33333t' -Credential (Get-Credential 'builduser')
 
    Demonstrates how to use `Protect-CString` to encrypt a secret as a specific user. This is useful for situation where
    a secret needs to be encrypted by a user other than the user running `Protect-CString`. Encrypting as a specific
    user won't work over PowerShell remoting.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -Certificate $myCert
 
    Demonstrates how to encrypt a secret using RSA with a `System.Security.Cryptography.X509Certificates.X509Certificate2`
    object. You're responsible for creating/loading the certificate. The `New-CRsaKeyPair` function will create a key
    pair for you, if you've got a Windows SDK installed.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -Thumbprint '44A7C27F3353BC53F82318C14490D7E2500B6D9E'
 
    Demonstrates how to encrypt a secret using RSA with a certificate in one of the Windows certificate stores. All
    local machine and user stores are searched for the certificate with the given thumbprint that has a private key.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -PublicKeyPath 'C:\Projects\Security\publickey.cer'
 
    Demonstrates how to encrypt a secret using RSA with a certificate file. The file must be loadable by the
    `System.Security.Cryptography.X509Certificates.X509Certificate` class.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -PublicKeyPath 'cert:\LocalMachine\My\44A7C27F3353BC53F82318C14490D7E2500B6D9E'
 
    Demonstrates how to encrypt a secret using RSA with a certificate in the Windows certificate store, giving its exact
    path.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -Key 'gT4XPfvcJmHkQ5tYjY3fNgi7uwG4FB9j'
 
    Demonstrates how to encrypt a secret with a key, password, or passphrase. In this case, we are encrypting with a
    plaintext password.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -Key (Read-Host -Prompt 'Enter password (must be 16, 24, or 32 characters long):' -AsSecureString)
 
    Demonstrates that you can use a `SecureString` as the key, password, or passphrase.
 
    .EXAMPLE
    Protect-CString -String 'the secret sauce' -Key ([byte[]]@(163,163,185,174,205,55,157,219,121,146,251,116,43,203,63,38,73,154,230,112,82,112,151,29,189,135,254,187,164,104,45,30))
 
    Demonstrates that you can use an array of bytes as the key, password, or passphrase.
    #>
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, Position=0, ValueFromPipeline)]
        # The string to encrypt. Any non-string object you pass will be converted to a string before encrypting by
        # calling the object's `ToString` method.
        #
        # This can also be a `SecureString` object. The `SecureString` is converted to an array of bytes, the bytes are
        # encrypted, then the plaintext bytes are cleared from memory (i.e. the plaintext password is in memory for the
        # amount of time it takes to encrypt it). Passing a secure string is the most secure usage.
        #
        # The string and secure string bytes are re-encoded as UTF-8 before encrypting.
        [Object]$String,

        [Parameter(Mandatory, ParameterSetName='DPAPICurrentUser')]
        # Encrypts for the current user so that only they can decrypt.
        [switch]$ForUser,

        [Parameter(Mandatory, ParameterSetName='DPAPILocalMachine')]
        # Encrypts for the current computer so that any user logged into the computer can decrypt.
        [switch]$ForComputer,

        [Parameter(Mandatory, ParameterSetName='DPAPIForUser')]
        # Encrypts for a specific user.
        [pscredential]$Credential,

        [Parameter(Mandatory, ParameterSetName='RsaByCertificate')]
        # The public key to use for encrypting.
        [Security.Cryptography.X509Certificates.X509Certificate2]$Certificate,

        [Parameter(Mandatory, ParameterSetName='RsaByThumbprint')]
        # The thumbprint of the certificate, found in one of the Windows certificate stores, to use when encrypting. All
        # certificate stores are searched.
        [String]$Thumbprint,

        [Parameter(Mandatory, ParameterSetName='RsaByPath')]
        # The path to the public key to use for encrypting. Must be to an `X509Certificate2` object.
        [String]$PublicKeyPath,

        [Parameter(ParameterSetName='RsaByCertificate')]
        [Parameter(ParameterSetName='RsaByPath')]
        [Parameter(ParameterSetName='RsaByThumbprint')]
        # The padding mode to use when encrypting. When using an RSA public key, defaults to
        # [Security.Cryptography.RSAEncryptionPadding]::OaepSHA1.
        [Security.Cryptography.RSAEncryptionPadding]$Padding,

        [Parameter(Mandatory, ParameterSetName='Symmetric')]
        # The key to use to encrypt the secret. Must be a `[securestring]` or an array of bytes. If passing a byte
        # array, # must be 16, 24, or 32 bytes long. If passing a secure string, when it is UTF-8 encoded and converted
        # to a byte # array, that array must also be 16, 24, or 32 bytes long. This code will tell you the length, in
        # bytes, of your plain text key (stored in the `$key`variable):
        #
        # [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, [Text.Encoding]::Unicode.GetBytes($key)).Length
        [Object]$Key
    )

    process
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        # We find and validate the certificate/key here so our try/catch block around actual encryption doesn't catch
        # these errors.
        [byte[]]$keyBytes = [byte[]]::New(0)
        if( $PSCmdlet.ParameterSetName -like 'Rsa*' )
        {
            if( $PSCmdlet.ParameterSetName -eq 'RsaByThumbprint' )
            {
                $Certificate = Get-Item -Path ('cert:\*\*\{0}' -f $Thumbprint) | Select-Object -First 1
                if( -not $Certificate )
                {
                    Write-Error "Certificate with thumbprint ""$($Thumbprint)"" not found."
                    return
                }
            }
            elseif( $PSCmdlet.ParameterSetName -eq 'RsaByPath' )
            {
                $Certificate = Get-CCertificate -Path $PublicKeyPath
                if( -not $Certificate )
                {
                    return
                }
            }

            $rsaKey = $Certificate.PublicKey.Key
            if( -not $rsaKey.GetType().IsSubclassOf([Security.Cryptography.RSA]) )
            {
                $msg = "Certificate ""$($Certificate.Subject)"" ($($Certificate.Thumbprint)) is not an RSA public " +
                    "key. Found a public key of type ""$($rsaKey.GetType().FullName)"", but expected type " +
                    """$([Security.Cryptography.RSACryptoServiceProvider].FullName)""."
                Write-Error $msg
                return
            }
        }
        elseif( $PSCmdlet.ParameterSetName -eq 'Symmetric' )
        {
            $keyBytes = ConvertTo-AesKey -InputObject $Key -From 'Protect-CString'
            if( -not $keyBytes )
            {
                return
            }
        }


        $stringBytes = [byte[]]::New(0)
        $unicodeBytes = [Text.Encoding]::Unicode.GetBytes( $String.ToString() )
        [byte[]]$encryptedBytes = [byte[]]::New(0)
        try
        {
            if( $String -is [securestring] )
            {
                $unicodeBytes = Convert-CSecureStringToByte -SecureString $String
            }
            # Unicode takes up two bytes, so the max length of strings we can encrypt is cut from about 472 characters
            # to 236. Let's re-encode in UTF-8, which only uses one byte per character. This also maintains
            # backwards-compatability with Carbon 2.
            $stringBytes = [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, $unicodeBytes)
        }
        finally
        {
            $unicodeBytes.Clear()
        }

        try
        {
            if( $PSCmdlet.ParameterSetName -like 'DPAPI*' )
            {
                if( $PSCmdlet.ParameterSetName -eq 'DPAPIForUser' )
                {
                    $protectStringPath = Join-Path -Path $moduleBinRoot -ChildPath 'Protect-CString.ps1' -Resolve
                    $encodedString = Protect-CString -String $String -ForComputer
                    $powershellArgs = @(
                        '-ExecutionPolicy',
                        'ByPass',
                        '-NonInteractive',
                        '-File',
                        $protectStringPath,
                        '-ProtectedString',
                        $encodedString
                    )
                    return Invoke-CPowerShell -ArgumentList $powershellArgs -Credential $Credential | Select-Object -First 1
                }
                else
                {
                    $scope = [Security.Cryptography.DataProtectionScope]::CurrentUser
                    if( $PSCmdlet.ParameterSetName -eq 'DPAPILocalMachine' )
                    {
                        $scope = [Security.Cryptography.DataProtectionScope]::LocalMachine
                    }

                    $encryptedBytes = [Security.Cryptography.ProtectedData]::Protect( $stringBytes, $null, $scope )
                }
            }
            elseif( $PSCmdlet.ParameterSetName -like 'Rsa*' )
            {

                if( -not $Padding )
                {
                    $Padding = [Security.Cryptography.RSAEncryptionPadding]::OaepSHA1
                }

                $encryptedBytes = $Certificate.PublicKey.Key.Encrypt($stringBytes, $Padding)
            }
            elseif( $PSCmdlet.ParameterSetName -eq 'Symmetric' )
            {
                $aes = [Security.Cryptography.Aes]::Create()
                try
                {
                    $aes.Padding = [Security.Cryptography.PaddingMode]::PKCS7
                    $aes.KeySize = $keyBytes.Length * 8
                    $aes.Key = $keyBytes

                    $memoryStream = [IO.MemoryStream]::New()
                    try
                    {
                        $cryptoStream =
                            [Security.Cryptography.CryptoStream]::New(
                                $memoryStream,
                                $aes.CreateEncryptor(),
                                ([Security.Cryptography.CryptoStreamMode]::Write)
                            )

                        try
                        {
                            $cryptoStream.Write($stringBytes, 0, $stringBytes.Length)
                        }
                        finally
                        {
                            $cryptoStream.Dispose()
                        }

                        $encryptedBytes = & {
                                                $aes.IV
                                                $memoryStream.ToArray()
                                            }
                    }
                    finally
                    {
                        $memoryStream.Dispose()
                    }
                }
                finally
                {
                    $aes.Dispose()
                }
            }

            return [Convert]::ToBase64String( $encryptedBytes )
        }
        catch
        {
            Write-Error -ErrorRecord $_ -ErrorAction $ErrorActionPreference
        }
        finally
        {
            if( $encryptedBytes )
            {
                $encryptedBytes.Clear()
            }

            if( $stringBytes )
            {
                $stringBytes.Clear()
            }

            if( $keyBytes )
            {
                $keyBytes.Clear()
            }
        }
    }
}



function Resolve-CPrivateKeyPath
{
    <#
    .SYNOPSIS
    Finds the path to an X509 certificate's private key. Windows only.
 
    .DESCRIPTION
    The `Resolve-CPrivateKeyPath` function finds the path to a certificate private key. Pipe the certificate object to
    the function or pass it to the `Certificate` parameter. The function searches all the directories where
    keys are stored, [which are documented by
    Microsoft](https://learn.microsoft.com/en-us/windows/win32/seccng/key-storage-and-retrieval).
 
    If the certificate doesn't have a private key, have access to the private key, or no private key file exists, the
    function writes an error and returns nothing for that certificate.
 
    Returns the path to the private key as a string.
 
    If the certificate is from the current user's store, only paths to the current user's key storage directories will
    be returned. If the certificate is from the local machine's store, only paths to the system key storage directories
    will be returned. If you want to get paths from both key storage directories, use the `-Force` switch.
 
    .LINK
    https://learn.microsoft.com/en-us/windows/win32/seccng/key-storage-and-retrieval
 
    .EXAMPLE
    $cert | Resolve-CPrivateKeyPath
 
    Demonstrates that you can pipe X509Certificate2 objects to this function.
 
    .EXAMPLE
    Resolve-CPrivateKeyPath -Certificate $cert
 
    Demonstrates that you pass an X509Certificate2 object to the `Certificate` parameter.
    #>
    [CmdletBinding()]
    [OutputType([String])]
    param(
        # The certificate whose private key path to get. Must have a private key and that private key must be accessible
        # by the current user.
        [Parameter(Mandatory, ValueFromPipeline)]
        [Security.Cryptography.X509Certificates.X509Certificate2[]] $Certificate,

        # By default, the paths returned match the store the X509 certificate is from, i.e., paths to a user certificate
        # will alway be from the user's home directory and paths to a machine certificate will always be from the global
        # certificate directories. To get paths from both, use this switch.
        [switch] $Force
    )

    begin
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        if (-not $IsWindows)
        {
            Write-Error -Message 'Resolve-CPrivateKeyPath only supports Windows.' -ErrorAction $ErrorActionPreference
            return
        }

        function Test-SearchPath
        {
            [CmdletBinding()]
            param(
                [Parameter(Mandatory, ValueFromPipeline)]
                [AllowNull()]
                [AllowEmptyString()]
                [String] $Path
            )

            process
            {
                if (-not $Path)
                {
                    return
                }

                if (-not (Test-Path -Path $Path -ErrorAction Ignore))
                {
                    return
                }

                return $Path
            }
        }

        $currentUserSearchPaths =
            & {
                $appData = [Environment]::GetFolderPath('ApplicationData')
                if ($appData)
                {
                    if ($IsWindows)
                    {
                        $sid = [Security.Principal.WindowsIdentity]::GetCurrent().User
                        $sidString = $sid.ToString()

                        # CSP user private
                        Join-Path -Path $appData -ChildPath "Microsoft\Crypto\RSA\${sidString}"
                        Join-Path -Path $appData -ChildPath "Microsoft\Crypto\DSS\${sidString}"
                    }

                    # CNG user private
                    Join-Path -Path $appData -ChildPath "Microsoft\Crypto\Keys"
                }
            } |
            Test-SearchPath

        $localMachineSearchPaths =
            & {
                $commonAppDataPath = [Environment]::GetFolderPath('CommonApplicationData')
                if ($commonAppDataPath)
                {
                    # CSP local system private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\RSA\S-1-5-18'
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\DSS\S-1-5-18'

                    # CNG local system private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\SystemKeys'

                    # CSP local service private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\RSA\S-1-5-19'
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\DSS\S-1-5-19'

                    # CSP network service private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\RSA\S-1-5-20'
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\DSS\S-1-5-20'

                    # CSP shared private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\RSA\MachineKeys'
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\DSS\MachineKeys'

                    # CNG shared private
                    Join-Path -Path $commonAppDataPath -ChildPath 'Application Data\Microsoft\Crypto\Keys'
                }

                $windowsPath = [Environment]::GetFolderPath('Windows')
                if ($windowsPath)
                {
                    # CNG local service private
                    Join-Path -Path $windowsPath -ChildPath 'ServiceProfiles\LocalService\AppData\Roaming\Microsoft\Crypto\Keys'

                    # CNG network service private
                    Join-Path -Path $windowsPath -ChildPath 'ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\Crypto\Keys'
                }
            } |
            Test-SearchPath

        $allSearchPaths = $currentUserSearchPaths + $localMachineSearchPaths
    }

    process
    {
        $foundOne = $false
        foreach ($cert in $Certificate)
        {
            $privateKey = $cert | Get-CPrivateKey
            if (-not $privateKey)
            {
                continue
            }

            $fileName = ''
            if ($privateKey | Get-Member -Name 'CspKeyContainerInfo')
            {
                $fileName = $privateKey.CspKeyContainerInfo.UniqueKeyContainerName
            }
            elseif ($privateKey | Get-Member -Name 'Key')
            {
                $fileName = $privateKey.Key.UniqueName
            }

            if (-not $fileName)
            {
                $msg = "${certErrMsg}is of type [$($privateKey.GetType().FullName)], which is not currently " +
                       'supported by Carbon. [Please request support by submitting an issue on the project''s ' +
                       'GitHub issues page.](https://github.com/webmd-health-services/Carbon.Cryptography/issues/new)'
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                continue
            }

            $foundOne = $false
            $uniqueNameIsPath = $false
            if ($fileName | Split-Path)
            {
                $uniqueNameIsPath = $true
                if ((Test-Path -Path $fileName -PathType Leaf -ErrorAction Ignore))
                {
                    $foundOne = $true
                    $fileName | Write-Output
                }
            }
            else
            {
                $searchPaths = $allSearchPaths
                if (-not $Force -and ($Certificate | Get-Member -Name 'PSParentPath'))
                {
                    if ($Certificate.PSParentPath -like '*CurrentUser*')
                    {
                        $searchPaths = $currentUserSearchPaths
                    }
                    elseif ($Certificate.PSParentPath -like '*LocalMachine*')
                    {
                        $searchPaths = $localMachineSearchPaths
                    }
                }

                foreach ($path in $searchPaths)
                {
                    $fullPath = Join-Path -Path $path -ChildPath $fileName
                    if (-not (Test-Path -Path $fullPath -PathType Leaf -ErrorAction Ignore))
                    {
                        continue
                    }
                    $foundOne = $true
                    $fullPath | Write-Output
                }
            }

            if (-not $foundOne)
            {
                if ($uniqueNameIsPath)
                {
                    $msg = "${certErrMsg}its file, ""${fileName}"", doesn't exist."
                }
                else
                {
                    $msg = "${certErrMsg}its file, ""${fileName}"", doesn't exist in any of these " +
                           "directories:" + [Environment]::NewLine +
                           " " + [Environment]::NewLine +
                           "* $($searchPaths -join "$([Environment]::NewLine)* ")"
                }
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                continue
            }
        }
    }
}


function Revoke-CPrivateKeyPermission
{
    <#
    .SYNOPSIS
    Removes a user or group's permissions on an X509 certificate's private key. Windows only.
 
    .DESCRIPTION
    The `Revoke-CPrivateKeyPermission` removes a user or group's non-inherited permissions on an X509 certificate's
    private key. Pass the path to the X509 certificate object to the `Path` parameter. The path must be in PowerShell's
    "cert:" drive. Wildcards supported. Pass the user/group whose permission to remove to the `Identity` permission. The
    function removes all the user/group's permissions on the given private key.
 
    If the certificate doesn't exist, or the path is not to an X509 certificate object in PowerShell's "cert:" drive,
    the function writes an error and returns.
 
    If the user/group doesn't exist, the function writes an error and returns.
 
    If the user/group doesn't have any permissions, nothing happens.
 
    If the certificate doesn't have a private key, the function writes a warning then returns.
 
    .LINK
    Get-CPrivateKey
 
    .LINK
    Get-CPrivateKeyPermission
 
    .LINK
    Grant-CPrivateKeyPermission
 
    .LINK
    Resolve-CPrivateKeyPath
 
    .LINK
    Test-CPrivateKeyPermission
 
    .EXAMPLE
    Revoke-CPrivateKeyPermission -Identity ENTERPRISE\LowerDecks -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to revoke the Lower Deck crew's permission to the
    "cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678" certificate's private key.
    #>
    [Diagnostics.CodeAnalysis.SuppressMessage('PSShouldProcess', '')]
    [CmdletBinding(SupportsShouldProcess)]
    param(
        # The path to the X509 certificate. Must be a path on PowerShell's "cert:" drive.
        [Parameter(Mandatory)]
        [String] $Path,

        # The user/group name whose permissions to remove.
        [Parameter(Mandatory)]
        [String] $Identity
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    if (-not $IsWindows)
    {
        Write-Error -Message 'Revoke-CPrivateKeyPermission only supports Windows.' -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-Path -Path $Path))
    {
        $msg = "Failed to revoke permissions on ""${Path}"" certificate's private key because the certificate does " +
               'not exist.'
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-CIdentity -Name $Identity))
    {
        $msg = "Failed to revoke ""${Permission}"" rights on ""${Path}"" to ""${Identity}"" because that user/group " +
               'does not exist.'
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    $Identity = Resolve-CIdentityName -Name $Identity

    $rulesToRemove = Get-CPrivateKeyPermission -Path $Path -Identity $Identity
    if (-not $rulesToRemove)
    {
        return
    }

    foreach ($certificate in (Get-Item -Path $Path -Force))
    {
        if ($certificate -isnot [X509Certificate2])
        {
            $msg = "Failed to revoke permissions on ""${certificate}"" because it is not an X509 certificate."
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            continue
        }

        $certPath = Join-Path -Path 'cert:' -ChildPath ($certificate.PSPath | Split-Path -NoQualifier)
        $subject = $certificate.Subject
        $thumbprint = $certificate.Thumbprint
        if (-not $certificate.HasPrivateKey)
        {
            $msg = "Unable to revoke permissions on ""${subject}"" (thumbprint: ${thumbprint}; path ${certPath}) " +
                   'certificate''s private key because the certificate doesn''t have a private key.'
            Write-Warning $msg -WarningAction $WarningPreference
            continue
        }

        $description = "${certPath} ${subject}"

        $pk = $certificate | Get-CPrivateKey
        $usesCryptoKeyRights = $pk | Test-CCryptoKeyAvailable
        if (-not $usesCryptoKeyRights)
        {
            $pkPaths = $certificate | Resolve-CPrivateKeyPath
            if (-not $pkPaths)
            {
                continue
            }

            $revokePermArgs = [Collections.Generic.Dictionary[[String], [Object]]]::New($PSBoundParameters)
            [void]$revokePermArgs.Remove('Path')

            foreach ($pkPath in $pkPaths)
            {
                Revoke-CPermission -Path $pkPath @revokePermArgs -Description $description
            }

            continue
        }

        [Security.AccessControl.CryptoKeySecurity] $keySecurity = $pk.CspKeyContainerInfo.CryptoKeySecurity

        foreach ($ruleToRemove in $rulesToRemove)
        {
            $rmIdentity = $ruleToRemove.IdentityReference
            $rmType = $ruleToRemove.AccessControlType.ToString().ToLowerInvariant()
            $rmRights = $ruleToRemove.CryptoKeyRights
            Write-Information "${description} ${rmIdentity} - ${rmType} ${rmRights}"
            [void] $keySecurity.RemoveAccessRule($ruleToRemove)
        }

        $action = "revoke ${Identity}'s permissions"
        Set-CryptoKeySecurity -Certificate $certificate -CryptoKeySecurity $keySecurity -Action $action
    }
}




function Set-CryptoKeySecurity
{
    [CmdletBinding()]
    param(
        [Parameter(Mandatory)]
        [X509Certificate2] $Certificate,

        [Parameter(Mandatory)]
        [Security.AccessControl.CryptoKeySecurity] $CryptoKeySecurity,

        [Parameter(Mandatory)]
        [String] $Action
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    $keyContainerInfo = $Certificate.PrivateKey.CspKeyContainerInfo
    $cspParams = New-Object 'Security.Cryptography.CspParameters' ($keyContainerInfo.ProviderType, $keyContainerInfo.ProviderName, $keyContainerInfo.KeyContainerName)
    $cspParams.Flags = [Security.Cryptography.CspProviderFlags]::UseExistingKey
    $cspParams.KeyNumber = $keyContainerInfo.KeyNumber
    if( (Split-Path -NoQualifier -Path $Certificate.PSPath) -like 'LocalMachine\*' )
    {
        $cspParams.Flags = $cspParams.Flags -bor [Security.Cryptography.CspProviderFlags]::UseMachineKeyStore
    }
    $cspParams.CryptoKeySecurity = $CryptoKeySecurity

    try
    {
        # persist the rule change
        if( $PSCmdlet.ShouldProcess( ('{0} ({1})' -f $Certificate.Subject,$Certificate.Thumbprint), $Action ) )
        {
            $null = New-Object 'Security.Cryptography.RSACryptoServiceProvider' ($cspParams)
        }
    }
    catch
    {
        $actualException = $_.Exception
        while( $actualException.InnerException )
        {
            $actualException = $actualException.InnerException
        }
        Write-Error ('Failed to {0} to ''{1}'' ({2}) certificate''s private key: {3}: {4}' -f $Action,$Certificate.Subject,$Certificate.Thumbprint,$actualException.GetType().FullName,$actualException.Message)
    }
}



function Test-CCryptoKeyAvailable
{
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, ValueFromPipeline)]
        [Object] $InputObject
    )

    begin
    {
        $cryptoKeyRightsExists = $null -ne [Type]::GetType('System.Security.AccessControl.CryptoKeyRights')
    }

    process
    {
        return ($cryptoKeyRightsExists -and ($InputObject | Get-Member -Name 'CspKeyContainerInfo'))
    }
}



function Test-CPrivateKeyPermission
{
    <#
    .SYNOPSIS
    Tests if a user/group has permissions on an X509 certificate's private key.
 
    .DESCRIPTION
    The `Test-CPrivateKeyPermission` function tests if a user/group has permission on an X509 certificate's private key.
    Pass the path to the X509 certificate to the `Path` parameter. The path must be in PowerShell's "cert:" drive. Pass
    the user/group name to the `Identity` parameter. Pass the permission to check to the `Permission` parameter. The
    function returns `$true` if the user/group has the given permission, `$false` otherwise.
 
    To check that the user has exactly the permissions give, use the `-Strict` switch. If a user has full control, and
    you pass `Read` as the permission to check, the function will return `$true` because read permissions are part of
    full control permissions.
 
    By default, only non-inherited permissions are used. To also consider inherited permissions, use the `-Inherited`
    switch.
 
    If the certificate doesn't have a private key, a warning is written and `$true` returned.
 
    .OUTPUTS
    System.Boolean.
 
    .LINK
    Get-CPrivateKey
 
    .LINK
    Get-CPrivateKeyPermission
 
    .LINK
    Grant-CPrivateKeyPermission
 
    .LINK
    Resolve-CPrivateKeyPermission
 
    .LINK
    Revoke-CPrivateKeyPermission
 
    .EXAMPLE
    Test-CPrivateKeyPermission -Identity 'STARFLEET\Data' -Permission 'FullControl' -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to test for permissions on an X509 certificate's private key.
 
    .EXAMPLE
    Test-CPrivateKeyPermission -Identity 'ENT\LowerDecks' -Permission 'Read' -Strict -Path 'cert:\LocalMachine\My\1234567890ABCDEF1234567890ABCDEF12345678'
 
    Demonstrates how to test for exact permissions. In this example, we're checking that the lower decks crew only has
    read permissions and no more.
    #>
    [CmdletBinding()]
    [OutputType([bool])]
    param(
        # The path on which the permissions should be checked. Can be a file system or registry path.
        [Parameter(Mandatory)]
        [String] $Path,

        # The user or group whose permissions to check.
        [Parameter(Mandatory)]
        [String] $Identity,

        # The permission to test for: e.g. FullControl, Read, etc. For file system items, use values from
        # [System.Security.AccessControl.FileSystemRights](http://msdn.microsoft.com/en-us/library/system.security.accesscontrol.filesystemrights.aspx).
        # For registry items, use values from
        # [System.Security.AccessControl.RegistryRights](http://msdn.microsoft.com/en-us/library/system.security.accesscontrol.registryrights.aspx).
        [Parameter(Mandatory)]
        [ValidateSet('Read', 'FullControl')]
        [String] $Permission,

        # Include inherited permissions in the check.
        [switch] $Inherited,

        # Check for the exact permissions, inheritance flags, and propagation flags, i.e. make sure the identity has
        # *only* the permissions you specify.
        [switch] $Strict
    )

    Set-StrictMode -Version 'Latest'
    Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

    if (-not $IsWindows)
    {
        Write-Error -Message 'Test-CPrivateKeyPermission only supports Windows.' -ErrorAction $ErrorActionPreference
        return
    }

    if (-not (Test-Path -Path $Path))
    {
        $msg = "Failed to test permissions on ""${Path}"" because that path does not exist."
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    if( -not (Test-CIdentity -Name $Identity ) )
    {
        $msg = "Failed to test permissions on ""${Path}"" for ""${Identity}"" because that user/group does not exist."
        Write-Error -Message $msg -ErrorAction $ErrorActionPreference
        return
    }

    $Identity = Resolve-CIdentityName -Name $Identity

    foreach ($certificate in (Get-Item -Path $Path -Force))
    {
        if ($certificate -isnot [X509Certificate2])
        {
            $msg = "Failed to test if ""${Identity}} has ${Permission} permissions on ""${certificate}"" because " +
                   "the item is not an X509 certificate but a [$($certificate.GetType().FullName)]."
            Write-Error -Message $msg -ErrorAction $ErrorActionPreference
            continue
        }

        if (-not $certificate.HasPrivateKey)
        {
            $msg = "Failed to check if ""${Identity}"" has ${Permission} permissions on ${Path} because that " +
                   'certificate doesn''t have a private key.'
            Write-Warning -Message $msg -WarningAction $WarningPreference
            continue
        }

        $pk = $certificate | Get-CPrivateKey
        if (-not $pk)
        {
            return $true
        }

        $useCryptoKeyRights = ($pk | Test-CCryptoKeyAvailable)
        if (-not $useCryptoKeyRights)
        {
            $pkPaths = $certificate | Resolve-CPrivateKeyPath
            if (-not $pkPaths)
            {
                continue
            }

            $testPermArgs = [Collections.Generic.Dictionary[[String], [Object]]]::New($PSBoundParameters)
            [void]$testPermArgs.Remove('Path')

            foreach ($pkPath in $pkPaths)
            {
                Test-CPermission -Path $pkPath @testPermArgs
            }

            continue
        }

        $rights = $Permission | ConvertTo-CryptoKeyRights -Strict:$Strict

        $acl =
            Get-CPrivateKeyPermission -Path $Path -Identity $Identity -Inherited:$Inherited |
            Where-Object { $_.AccessControlType -eq 'Allow' } |
            Where-Object { $_.IsInherited -eq $Inherited } |
            Where-Object {
                if (-not $rights)
                {
                    return $true
                }

                if( $Strict )
                {
                    return ($_.CryptoKeyRights -eq $rights)
                }
                else
                {
                    return ($_.CryptoKeyRights -band $rights) -eq $rights
                }
            }

        if( $acl )
        {
            return $true
        }
        return $false
    }
}




function Uninstall-CCertificate
{
    <#
    .SYNOPSIS
    Removes a certificate from a certificate store.
     
    .DESCRIPTION
    The `Uninstall-CCertificate` function uses .NET's certificates API to remove a certificate from a certificate store
    for the machine or current user. Use the thumbprint to identify which certificate to remove. The thumbprint is
    unique to each certificate. The user performing the removal must have read and write permission on the store where
    the certificate is located.
 
    If the certificate isn't in the store, nothing happens, not even an error.
 
    To uninstall a certificate from a remote computer, use the `Session`parameter. You can create a new session with the
    `New-PSSession` cmdlet. You can pass multiple sessions.
 
    You can uninstall a certificate using just its thumbprint. `Uninstall-CCertificate` will search through all
    certificate locations and stores and uninstall all certificates that have the thumbprint. When you enumerate all
    certificates over a remoting session, you get a terminating `The system cannot open the device or file specified`
    error, so you can't delete a certificate with just a thumbprint over remoting.
 
    .EXAMPLE
    Uninstall-CCertificate -Thumbprint '570895470234023dsaaefdbcgbefa'
 
    Demonstrates how to delete a certificate from all stores it is installed in. `Uninstall-CCertificate` searches every
    certificate stores and deletes all certificates with the given thumbprint.
 
    .EXAMPLE
    '570895470234023dsaaefdbcgbefa' | Uninstall-CCertificate
 
    Demonstrates that you can pipe a thumbprint to `Uninstall-CCertificate`. The certificate is uninstall from all
    stores it is in.
 
    .EXAMPLE
    Get-Item -Path 'cert:\LocalMachine\My\570895470234023dsaaefdbcgbefa' | Uninstall-CCertificate
 
    Demonstrates that you can pipe a certificate `Uninstall-CCertificate`. The certificate is uninstalled from all
    stores it is in.
 
    .EXAMPLE
    Uninstall-CCertificate -Thumbprint 570895470234023dsaaefdbcgbefa -StoreLocation CurrentUser -StoreName My
     
    Removes the 570895470234023dsaaefdbcgbefa certificate from the current user's Personal certificate store.
     
    .EXAMPLE
    Uninstall-CCertificate -Certificate $cert -StoreLocation LocalMachine -StoreName Root
     
    Demonstrates how you can remove a certificate by passing it to the `Certificate` parameter.
 
    .EXAMPLE
    Uninstall-CCertificate -Thumbprint 570895470234023dsaaefdbcgbefa -StoreLocation LocalMachine -StoreName 'SharePoint'
 
    Demonstrates how to uninstall a certificate from a custom, non-standard store.
 
    .EXAMPLE
    Uninstall-CCertificate -Thumbprint 570895470234023dsaaefdbcgbefa -StoreLocation CurrentUser -StoreName My -Session $session
     
    Demonstrates how to uninstall a certificate from a remote computer.
    #>
    [CmdletBinding(SupportsShouldProcess, DefaultParameterSetName='ByThumbprint')]
    param(
        # The thumbprint of the certificate to remove.
        #
        # If you want to uninstall the certificate from all stores it is installed in, you can pipe the thumbprint to this parameter or you can pipe a certificate object. (This functionality was added in Carbon 2.5.0.)
        [Parameter(Mandatory, ParameterSetName='ByThumbprint', ValueFromPipelineByPropertyName, ValueFromPipeline)]
        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndCustomStoreName')]
        [String] $Thumbprint,
        
        # The certificate to remove
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndCustomStoreName')]
        [Security.Cryptography.X509Certificates.X509Certificate2] $Certificate,
        
        # The location of the certificate's store.
        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndCustomStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndCustomStoreName')]
        [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,
        
        # The name of the certificate's store.
        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndStoreName')]
        [Security.Cryptography.X509Certificates.StoreName] $StoreName,

        [Parameter(Mandatory, ParameterSetName='ByThumbprintAndCustomStoreName')]
        [Parameter(Mandatory, ParameterSetName='ByCertificateAndCustomStoreName')]
        [String] $CustomStoreName,

        # Use the `Session` parameter to uninstall a certificate on remote computer(s) using PowerShell remoting. Use
        # `New-PSSession` to create a session.
        #
        # Due to a bug in PowerShell, you can't remove a certificate by just its thumbprint over remoting. Using just a
        # thumbprint requires us to enumerate through all installed certificates. When you do this over remoting,
        # PowerShell throws a terminating `The system cannot open the device or file specified` error.
        [Parameter(ParameterSetName='ByThumbprintAndStoreName')]
        [Parameter(ParameterSetName='ByThumbprintAndCustomStoreName')]
        [Parameter(ParameterSetName='ByCertificateAndStoreName')]
        [Parameter(ParameterSetName='ByCertificateAndCustomStoreName')]
        [Management.Automation.Runspaces.PSSession[]] $Session
    )
    
    process
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        if( $PSCmdlet.ParameterSetName -eq 'ByThumbprint' )
        {
            # Must be in this order. Delete LocalMachine certs *first* so they don't show
            # up in CurrentUser stores. If you delete a certificate that "cascades" into
            # the CurrentUser store first, you'll get errors when running non-
            # interactively as SYSTEM.
            $certsToDelete = & {
                Get-CCertificate -StoreLocation LocalMachine -Thumbprint $Thumbprint
                Get-CCertificate -StoreLocation CurrentUser -Thumbprint $Thumbprint
            }
            foreach( $certToDelete in $certsToDelete )
            {
                Uninstall-CCertificate -Thumbprint $Thumbprint `
                                      -StoreLocation $certToDelete.StoreLocation `
                                      -StoreName $certToDelete.StoreName
            }
            return
        }

        if( $PSCmdlet.ParameterSetName -like 'ByCertificate*' )
        {
            $Thumbprint = $Certificate.Thumbprint
        }
    
        $invokeCommandParameters = @{}
        if( $Session )
        {
            $invokeCommandParameters['Session'] = $Session
        }

        if( $CustomStoreName )
        {
            # This is just so we can pass a value to the Invoke-Command script block. The store name enum doesn't have a
            # "not set" value so when it is "$null", the call to Invoke-Command fails.
            $StoreName = [Security.Cryptography.X509Certificates.StoreName]::My
        }

        Invoke-Command @invokeCommandParameters -ScriptBlock {
            [CmdletBinding()]
            param(
                # The thumbprint of the certificate to remove.
                [String] $Thumbprint,
        
                # The location of the certificate's store.
                [Security.Cryptography.X509Certificates.StoreLocation] $StoreLocation,
        
                # The name of the certificate's store.
                [Security.Cryptography.X509Certificates.StoreName] $StoreName,

                # The name of the non-standard, custom store where the certificate should be un-installed.
                [String] $CustomStoreName
            )

            Set-StrictMode -Version 'Latest'

            if( $CustomStoreName )
            {
                $storeNameDisplay = $CustomStoreName
                $store = [Security.Cryptography.X509Certificates.X509Store]::New($CustomStoreName, $StoreLocation)
            }
            else
            {
                $storeNameDisplay = $StoreName.ToString()
                $store = [Security.Cryptography.X509Certificates.X509Store]::New($StoreName, $StoreLocation)
            }

            $certToRemove = $null
            try
            {
                $store.Open( ([Security.Cryptography.X509Certificates.OpenFlags]::ReadOnly) )
                $certToRemove = $store.Certificates | Where-Object { $_.Thumbprint -eq $Thumbprint }
                if( -not $certToRemove )
                {
                    return
                }
            }
            catch
            {
                $ex = $_.Exception.InnerException
                while( $ex.InnerException )
                {
                    $ex = $ex.InnerException
                }
                $msg = "[$($ex.GetType().FullName)] exception reading certificates from $($StoreLocation)\" +
                       "$($storeNameDisplay) store: $($ex)"
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }
            finally
            {
                $store.Close()
            }

            try
            {
                $store.Open( ([Security.Cryptography.X509Certificates.OpenFlags]::ReadWrite) )
                $target = $certToRemove.FriendlyName
                if( -not $target )
                {
                    $target = $certToRemove.Subject
                }

                $shouldProcessTarget = "$($target) in $($StoreLocation)\$($storeNameDisplay)"
                if( $PSCmdlet.ShouldProcess($shouldProcessTarget, 'remove') )
                {
                    $msg = "Uninstalling certificate ""$($target)"" ($($Thumbprint)) from $($StoreLocation)\" +
                           "$($storeNameDisplay) store."
                    Write-Verbose $msg
                    $certToRemove | ForEach-Object { $store.Remove($_) }
                }
            }
            catch
            {
                $ex = $_.Exception.InnerException
                while( $ex.InnerException )
                {
                    $ex = $ex.InnerException
                }
                $msg = "[$($ex.GetType().FullName)] exception uninstalling certificate in $($StoreLocation)\" +
                       "$($storeNameDisplay) store: $($ex)"
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }
            finally
            {
                $store.Close()
            }
        } -ArgumentList $Thumbprint,$StoreLocation,$StoreName,$CustomStoreName
    }
}



function Unprotect-CString
{
    <#
    .SYNOPSIS
    Decrypts a string.
 
    .DESCRIPTION
    `Unprotect-CString` decrypts a string encrypted via the Data Protection API (DPAPI), RSA, or AES into an array of
    bytes, which is then converted to an array of chars, which are stored in a `[securestring]`. All arrays of bytes and
    chars are cleared from memory once decryption completes.
 
    Use the `AsPlainText` switch to return a plain text string instead. When you do this, your decrypted string will
    remain in memory (and maybe disk) for an unknowable amount of time.
 
    `Unprotect-CString` can decrypt using the following techniques.
 
    ## Data Protection API
 
    The DPAPI only works on Windows. The encrypted string must have also been encrypted with the DPAPI. The string must
    have been encrypted at the current user's scope or the local machine scope.
 
    ## RSA
 
    RSA is an assymetric encryption/decryption algorithm, which requires a public/private key pair. It uses a private
    key to decrypt a secret encrypted with the public key. Only the private key can decrypt secrets.
 
    You can specify the private key in these ways:
 
     * with a `[Security.Cryptography.X509Certificates.X509Certificate2]` object, via the `Certificate` parameter
     * with an X509 certificate file, via the `PrivateKeyPath` parameter. On Windows, you can use paths to items in the
       `cert:\` drive.
 
     On Windows, you can also pass the thumbprint to a certificate to the `Thumbprint` parameter, and
     `Unprotect-CString` will search the `cert:\` store for a matching certificate with a private key.
 
    ## AES
 
    AES is a symmetric encryption/decryption algorithm. You supply a 16-, 24-, or 32-byte key, password, or passphrase
    with the `Key` parameter, and that key is used to decrypt. You must decrypt with the same key you used to encrypt.
    `Unprotect-CString` uses `[Security.Cryptography.Aes]::Create()` to get an object that can do the decryption.
 
    You can only pass a `[securestring]` or byte array as the key. When passing a secure string, make sure that when
    encoded as UTF-8 and converted to a byte array, it is 16, 24, or 32 bytes long. This code will tell you how long your
    plain text password is, in UTF-8 bytes:
 
        [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, [Text.Encoding]::Unicode.GetBytes($key)).Length
 
    Symmetric encryption requires a random, unique initialization vector (i.e. IV) everytime you encrypt something. If
    you encrypted the string with `Protect-CString`, one was generated for you and prepended to the encrypted string. If
    you encrypted the original string yourself, make sure the first 16 bytes of the encrypted text is the IV (since
    the encrypted bytes are base64 encoded, that means the first 24 characters of the encrypted string should be the
    IV).
 
    The help topic for `Protect-CString` demonstrates how to generate an AES key and how to encode it as a base64
    string.
 
    .LINK
    New-CRsaKeyPair
 
    .LINK
    Protect-CString
 
    .LINK
    http://msdn.microsoft.com/en-us/library/system.security.cryptography.protecteddata.aspx
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $encryptedPassword
 
    Demonstrates how to decrypt a protected string which was encrypted with Microsoft's DPAPI. Windows only.
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $ciphertext -Certificate $myCert
 
    Demonstrates how to decrypt a secret using RSA with a `[Security.Cryptography.X509Certificates.X509Certificate2]`
    object. You're responsible for creating/loading it. (Carbon's `New-CRsaKeyPair` function can create public/private
    key pairs for you.)
 
    .EXAMPLE
    $ciphertext | Unprotect-CString -Certificate $certWithPrivateKey
 
    Demonstrates that you can pipe encrypted strings to `Unprotect-CString`.
 
    .EXAMPLE
    $ciphertext | Unprotect-CString -Certificate $certWithPrivateKey -AsSecureString
 
    Demonstrates that you can get a secure string returned to you by using the `AsSecureString` switch. This is the most
    secure way to decrypt, as the decrypted text is only in memory as arrays of bytes/chars during decryption. The
    arrays are immediately cleared after decryption. The decrypted text is never stored as a `[String]` (which remain
    in memory).
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $ciphertext -Thumbprint '44A7C27F3353BC53F82318C14490D7E2500B6D9E'
 
    Demonstrates how to decrypt a secret with a certificate by passing its thumbprint to the `Thumbprint` parameter.
    `Unprotect-CString` will search the Windows certificate stores to find the certificate. All local machine and user
    stores are searched. The current user must have permission/access to the certificate's private key. Windows only.
 
    .EXAMPLE
    Unprotect -ProtectedString $ciphertext -PrivateKeyPath 'C:\Projects\Security\publickey.cer'
 
    Demonstrates how to decrypt a secret by passing the path to an RSA private key to the `PrivateKeyPath` parameter.
    The private key file must be loadable by the `[Security.Cryptography.X509Certificates.X509Certificate]` class.
 
    .EXAMPLE
    Unprotect -ProtectedString $ciphertext -PrivateKeyPath 'cert:\LocalMachine\My\44A7C27F3353BC53F82318C14490D7E2500B6D9E'
 
    Demonstrates how to decrypt a secret using a certificate in the Windows store by passing the path to the certificate
    in PowerShell's `cert:` drive. The certificate must have a private key. Windows only.
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $ciphertext -Key 'gT4XPfvcJmHkQ5tYjY3fNgi7uwG4FB9j'
 
    Demonstrates how to decrypt a secret that was encrypted with a key, password, or passphrase. In this case, we are
    decrypting with a plaintext password.
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $ciphertext -Key (Read-Host -Prompt 'Enter password (must be 16, 24, or 32 characters long):') -AsSecureString)
 
    Demonstrates how to decrypt a secret with a secure string that is the key, password, or passphrase. In this case,
    the user is prompted for the password securely.
 
    .EXAMPLE
    Unprotect-CString -ProtectedString $ciphertext -Key ([byte[]]@(163,163,185,174,205,55,157,219,121,146,251,116,43,203,63,38,73,154,230,112,82,112,151,29,189,135,254,187,164,104,45,30))
 
    Demonstrates that you can pass in an array of bytes as the key to the `Key` parameter. Those bytes will be used to
    decrypt the ciphertext.
    #>
    [CmdletBinding(DefaultParameterSetName='DPAPI')]
    param(
        [Parameter(Mandatory, Position=0, ValueFromPipeline)]
        # The text to decrypt.
        [String]$ProtectedString,

        [Parameter(Mandatory, ParameterSetName='RSAByCertificate')]
        # The private key to use for decrypting.
        [Security.Cryptography.X509Certificates.X509Certificate2]$Certificate,

        [Parameter(Mandatory, ParameterSetName='RSAByThumbprint')]
        # The thumbprint of the certificate, found in one of the Windows certificate stores, to use when decrypting. All
        # certificate stores are searched. The current user must have permission to the private key. Windows only.
        [String]$Thumbprint,

        [Parameter(Mandatory, ParameterSetName='RSAByPath')]
        # The path to the private key to use for decrypting. If given a path on the file system, the file must be
        # loadable as a `[Security.X509Certificates.X509Certificate2]` object. On Windows, you can also pass the path
        # to a certificate in PowerShell's `cert:` drive.
        [String]$PrivateKeyPath,

        [Parameter(ParameterSetName='RSAByPath')]
        # The password for the private key, if it has one. Must be a `[securestring]`.
        [securestring]$Password,

        [Parameter(ParameterSetName='RSAByCertificate')]
        [Parameter(ParameterSetName='RSAByThumbprint')]
        [Parameter(ParameterSetName='RSAByPath')]
        # The padding mode to use when decrypting. Defaults to `[Security.Cryptography.RSAEncryptionPadding]::OaepSHA1`.
        [Security.Cryptography.RSAEncryptionPadding]$Padding,

        [Parameter(Mandatory, ParameterSetName='Symmetric')]
        # The key to use to decrypt the secret. Must be a `[securestring]` or an array of bytes. The characters in the
        # secure string are converted to UTF-8 encoding before being converted into bytes. Make sure the key is the
        # correct length when UTF-8 encoded, i.e. make sure the following code returns a 16, 24, or 32 byte byte array
        # (where $key is the plain text key).
        #
        # [Text.Encoding]::Convert([Text.Encoding]::Unicode, [Text.Encoding]::UTF8, [Text.Encoding]::Unicode.GetBytes($key)).Length
        [Object]$Key,

        # Returns the decrypted value as plain text. The default is to return the decrypted value as a `[securestring]`.
        # When returned as a secure string, the decrypted bytes are only stored in memory as arrays of bytes and chars,
        # which are all cleared once the decrypted text is in the secure string. Once a secure string is converted to a
        # string, that string stays in memory (and possibly disk) for an unknowable amout of time.
        [switch]$AsPlainText
    )

    process
    {
        Set-StrictMode -Version 'Latest'
        Use-CallerPreference -Cmdlet $PSCmdlet -Session $ExecutionContext.SessionState

        [byte[]]$keyBytes = [byte[]]::New(0)

        # When loading a certificate from a file, Windows will temporarily write the private key to disk for the
        # lifetime of the certificate object. To limit the amount of time the private key spends on disk, dispose the
        # certificate object as soon as we are done with it.
        $disposeCertWhenDone = ($PrivateKeyPath -ne '') -and ($PrivateKeyPath -notlike 'Cert:\*')

        # Find and validate the RSA certificate, if needed. We do it here so our try/catch around the actual
        # decryption doesn't handle these errors.
        if( $PSCmdlet.ParameterSetName -like 'RSA*' )
        {
            if( $PSCmdlet.ParameterSetName -notlike '*ByCertificate' )
            {
                if( $PSCmdlet.ParameterSetName -like '*ByThumbprint' )
                {
                    $PrivateKeyPath = "cert:\*\*\$($Thumbprint)"
                }

                $passwordParam = @{ }
                if( $Password )
                {
                    $passwordParam = @{ Password = $Password }
                }

                $certificates = Get-CCertificate -Path $PrivateKeyPath @passwordParam
                $count = $certificates | Measure-Object | Select-Object -ExpandProperty 'Count'
                if( $count -gt 1 )
                {
                    $certificates = $certificates | Where-Object { $_.HasPrivateKey -and $_.PrivateKey }
                    $privateKeyCount = $certificates | Measure-Object | Select-Object -ExpandProperty 'Count'

                    if( $privateKeyCount -gt 1 )
                    {
                        $msg = "Found $($privateKeyCount) certificates (which contain private keys) at ""$($PrivateKeyPath)"". " +
                            'Arbitrarily choosing the first one. If you get errors, consider passing the exact path to ' +
                            'the certificate you want to the "Unprotect-CString" function''s "PrivateKeyPath" parameter.'
                        Write-Warning -Message $msg
                    }
                    elseif( $privateKeyCount -eq 0 )
                    {

                        $installedInCertStoreMsg = ''
                        if ($PSCmdlet.ParameterSetName -eq 'RSAByThumbprint')
                        {
                            $installedInCertStoreMsg =
                                'This is usually because the certificate was installed without a private key or the ' +
                                'current user doesn''t have permission to read the private key.'
                        }

                        "Found $($count) certificates at ""$($PrivateKeyPath)"" but none of them contain a private " +
                        "key or the private key is null.$(' ' + $installedInCertStoreMsg)" | Write-Error
                        return
                    }
                }
                $Certificate = $certificates | Select-Object -First 1
                if( -not $Certificate )
                {
                    return
                }

                if ($disposeCertWhenDone)
                {
                    # Dispose the other unused certificates.
                    foreach ($unusedCert in ($certificates | Select-Object -Skip 1))
                    {
                        $unusedCert.Dispose()
                    }
                }
            }

            $certDesc = "Certificate ""$($Certificate.Subject)"" ($($Certificate.Thumbprint))"
            if( -not $Certificate.HasPrivateKey )
            {
                $msg = "$($certDesc) doesn't have a private key. When decrypting with RSA, secrets are encrypted with " +
                    'the public key, and decrypted with a private key.'
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }

            if( -not $Certificate.PrivateKey )
            {
                $msg = "$($certDesc) has a private key, but it is null or not set. This usually means your certificate " +
                    'was imported incorrectly or was created without a private key. Make sure you''ve generated an ' +
                    'RSA public/private key pair and are using the private key. If the private key is in the Windows ' +
                    'certificate store, make sure the current user has permission to read the private key (use ' +
                    'Carbon.Cryptography''s `Grant-CPrivateKeyPermission` function).'
                Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                return
            }
        }
        elseif( $PSCmdlet.ParameterSetName -eq 'Symmetric' )
        {
            $keyBytes = ConvertTo-AesKey -InputObject $Key -From 'Unprotect-CString'
            if( -not $keyBytes )
            {
                return
            }
        }


        [byte[]]$decryptedBytes = [byte[]]::New(0)
        [byte[]]$encryptedBytes = [Convert]::FromBase64String($ProtectedString)
        try
        {
            if( $PSCmdlet.ParameterSetName -eq 'DPAPI' )
            {
                $decryptedBytes = [Security.Cryptography.ProtectedData]::Unprotect( $encryptedBytes, $null, 0 )
            }
            elseif( $PSCmdlet.ParameterSetName -like 'RSA*' )
            {
                [Security.Cryptography.RSA]$privateKey = $null
                $privateKeyType = $Certificate.PrivateKey.GetType()
                $isRsa = $privateKeyType.IsSubclassOf([Security.Cryptography.RSA])
                if( -not $isRsa )
                {
                    $msg = "$($certDesc) is not an RSA key. Found a private key of type " +
                           """$($privateKeyType.FullName)"", but expected type " +
                           """$([Security.Cryptography.RSA].FullName)"" or one of its sub-types."
                    Write-Error -Message $msg -ErrorAction $ErrorActionPreference
                    return
                }

                if( -not $Padding )
                {
                    $Padding = [Security.Cryptography.RSAEncryptionPadding]::OaepSHA1
                }

                $privateKey = $Certificate.PrivateKey
                $decryptedBytes = $privateKey.Decrypt($encryptedBytes, $padding)
            }
            elseif( $PSCmdlet.ParameterSetName -eq 'Symmetric' )
            {
                $aes = [Security.Cryptography.Aes]::Create()
                try
                {
                    $aes.Padding = [Security.Cryptography.PaddingMode]::PKCS7
                    $aes.KeySize = $keyBytes.Length * 8
                    $aes.Key = $keyBytes
                    $iv = [byte[]]::New($aes.IV.Length)
                    [Array]::Copy($encryptedBytes, $iv, 16)

                    $encryptedBytes = $encryptedBytes[16..($encryptedBytes.Length - 1)]
                    $encryptedStream = New-Object -TypeName 'IO.MemoryStream' -ArgumentList (,$encryptedBytes)
                    try
                    {
                        $cryptoStream =
                            [Security.Cryptography.CryptoStream]::New($encryptedStream,
                                $aes.CreateDecryptor($aes.Key, $iv),
                                ([Security.Cryptography.CryptoStreamMode]::Read))
                        try
                        {
                            $streamReader = [IO.StreamReader]::New($cryptoStream)
                            try
                            {
                                [byte[]]$decryptedBytes = [Text.Encoding]::UTF8.GetBytes($streamReader.ReadToEnd())
                            }
                            finally
                            {
                                $streamReader.Dispose()
                            }
                        }
                        finally
                        {
                            $cryptoStream.Dispose()
                        }
                    }
                    finally
                    {
                        $encryptedStream.Dispose()
                    }
                }
                finally
                {
                    $aes.Dispose()
                }
            }

            $decryptedBytes = [Text.Encoding]::Convert([Text.Encoding]::UTF8, [Text.Encoding]::Unicode, $decryptedBytes)
            if( $AsPlainText )
            {
                return [Text.Encoding]::Unicode.GetString($decryptedBytes)
            }
            else
            {
                $secureString = [Security.SecureString]::New()
                [char[]]$chars = [Text.Encoding]::Unicode.GetChars( $decryptedBytes )
                for( $idx = 0; $idx -lt $chars.Count ; $idx++ )
                {
                    $secureString.AppendChar( $chars[$idx] )
                    $chars[$idx] = 0
                }

                $secureString.MakeReadOnly()
                return $secureString
            }
        }
        catch
        {
            Write-Error -ErrorRecord $_ -ErrorAction $ErrorActionPreference
        }
        finally
        {
            if ($decryptedBytes)
            {
                $decryptedBytes.Clear()
            }

            if ($encryptedBytes)
            {
                $encryptedBytes.Clear()
            }

            if ($keyBytes)
            {
                $keyBytes.Clear()
            }

            if ($disposeCertWhenDone)
            {
                $Certificate.Dispose()
            }
        }
    }
}


function Use-CallerPreference
{
    <#
    .SYNOPSIS
    Sets the PowerShell preference variables in a module's function based on the callers preferences.
 
    .DESCRIPTION
    Script module functions do not automatically inherit their caller's variables, including preferences set by common
    parameters. This means if you call a script with switches like `-Verbose` or `-WhatIf`, those that parameter don't
    get passed into any function that belongs to a module.
 
    When used in a module function, `Use-CallerPreference` will grab the value of these common parameters used by the
    function's caller:
 
     * ErrorAction
     * Debug
     * Confirm
     * InformationAction
     * Verbose
     * WarningAction
     * WhatIf
     
    This function should be used in a module's function to grab the caller's preference variables so the caller doesn't
    have to explicitly pass common parameters to the module function.
 
    This function is adapted from the [`Get-CallerPreference` function written by David Wyatt](https://gallery.technet.microsoft.com/scriptcenter/Inherit-Preference-82343b9d).
 
    There is currently a [bug in PowerShell](https://connect.microsoft.com/PowerShell/Feedback/Details/763621) that
    causes an error when `ErrorAction` is implicitly set to `Ignore`. If you use this function, you'll need to add
    explicit `-ErrorAction $ErrorActionPreference` to every `Write-Error` call. Please vote up this issue so it can get
    fixed.
 
    .LINK
    about_Preference_Variables
 
    .LINK
    about_CommonParameters
 
    .LINK
    https://gallery.technet.microsoft.com/scriptcenter/Inherit-Preference-82343b9d
 
    .LINK
    http://powershell.org/wp/2014/01/13/getting-your-script-module-functions-to-inherit-preference-variables-from-the-caller/
 
    .EXAMPLE
    Use-CallerPreference -Cmdlet $PSCmdlet -SessionState $ExecutionContext.SessionState
 
    Demonstrates how to set the caller's common parameter preference variables in a module function.
    #>
    [CmdletBinding()]
    param (
        [Parameter(Mandatory)]
        #[Management.Automation.PSScriptCmdlet]
        # The module function's `$PSCmdlet` object. Requires the function be decorated with the `[CmdletBinding()]`
        # attribute.
        $Cmdlet,

        [Parameter(Mandatory)]
        # The module function's `$ExecutionContext.SessionState` object. Requires the function be decorated with the
        # `[CmdletBinding()]` attribute.
        #
        # Used to set variables in its callers' scope, even if that caller is in a different script module.
        [Management.Automation.SessionState]$SessionState
    )

    Set-StrictMode -Version 'Latest'

    # List of preference variables taken from the about_Preference_Variables and their common parameter name (taken
    # from about_CommonParameters).
    $commonPreferences = @{
                              'ErrorActionPreference' = 'ErrorAction';
                              'DebugPreference' = 'Debug';
                              'ConfirmPreference' = 'Confirm';
                              'InformationPreference' = 'InformationAction';
                              'VerbosePreference' = 'Verbose';
                              'WarningPreference' = 'WarningAction';
                              'WhatIfPreference' = 'WhatIf';
                          }

    foreach( $prefName in $commonPreferences.Keys )
    {
        $parameterName = $commonPreferences[$prefName]

        # Don't do anything if the parameter was passed in.
        if( $Cmdlet.MyInvocation.BoundParameters.ContainsKey($parameterName) )
        {
            continue
        }

        $variable = $Cmdlet.SessionState.PSVariable.Get($prefName)
        # Don't do anything if caller didn't use a common parameter.
        if( -not $variable )
        {
            continue
        }

        if( $SessionState -eq $ExecutionContext.SessionState )
        {
            Set-Variable -Scope 1 -Name $variable.Name -Value $variable.Value -Force -Confirm:$false -WhatIf:$false
        }
        else
        {
            $SessionState.PSVariable.Set($variable.Name, $variable.Value)
        }
    }
}