Initial commit

Author: alan-null

Crypto.RSA/Crypto.RSA.psd1

@@ -0,0 +1,16 @@
+
+@{
+    RootModule        = 'Crypto.RSA.psm1'
+    ModuleVersion     = '1.0.0'
+    GUID              = '17a38e59-e885-411a-89a6-617a4efc5f21'
+    Author            = 'Alan Plocieniak'
+    CompanyName       = 'Alan Plocieniak'
+    Copyright         = '(c) 2022 Alan Plocieniak. All rights reserved.'
+    Description       = 'PowerShell module for cryptography (RSA)'
+    PowerShellVersion = '5.0'
+    FunctionsToExport = '*'
+    PrivateData       = @{
+        PSData = @{
+        }
+    }
+}

Crypto.RSA/Crypto.RSA.psm1

@@ -0,0 +1,14 @@
+#Get public and private function definition files.
+$Public = @( Get-ChildItem -Path $PSScriptRoot\Public -Recurse -Filter *.ps1 -ErrorAction SilentlyContinue )
+$Private = @( Get-ChildItem -Path $PSScriptRoot\Private -Recurse -Filter *.ps1 -ErrorAction SilentlyContinue )
+
+#Dot source the files
+Foreach ($import in @($Public + $Private)) {
+    try {
+        . $import.fullname
+    }
+    catch {
+        Write-Error -Message "Failed to import function $($import.fullname): $_"
+    }
+}
+Export-ModuleMember -Function $Public.Basename

Crypto.RSA/Private/Use.ps1

@@ -0,0 +1,24 @@
+function Use {
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true)]
+        [AllowEmptyString()]
+        [AllowEmptyCollection()]
+        [AllowNull()]
+        [Object]
+        $InputObject,
+
+        [Parameter(Mandatory = $true)]
+        [scriptblock]
+        $ScriptBlock
+    )
+
+    try {
+        . $ScriptBlock
+    }
+    finally {
+        if ($null -ne $InputObject -and $InputObject -is [System.IDisposable]) {
+            $InputObject.Dispose()
+        }
+    }
+}

Crypto.RSA/Public/Get-KeyString.ps1

@@ -0,0 +1,23 @@
+function Get-KeyString {
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0 )]
+          [System.Security.Cryptography.RSAParameters]$publicKey
+    )
+
+    begin {
+        Write-Verbose "Cmdlet Get-KeyString - Begin"
+    }
+
+    process {
+        Write-Verbose "Cmdlet Get-KeyString - Process"
+        $stringWriter = [System.IO.StringWriter]::new()
+        $xmlSerializer = [System.Xml.Serialization.XmlSerializer]::new([System.Security.Cryptography.RSAParameters])
+        $xmlSerializer.Serialize($stringWriter, $publicKey)
+        $stringWriter.ToString()
+    }
+
+    end {
+        Write-Verbose "Cmdlet Get-KeyString - End"
+    }
+}

Crypto.RSA/Public/New-KeyPair.ps1

@@ -0,0 +1,28 @@
+function New-KeyPair {
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $false, Position = 0 )]
+        [System.Security.Cryptography.RSACryptoServiceProvider]$cryptoServiceProvider
+    )
+
+    begin {
+        Write-Verbose "Cmdlet New-KeyPair - Begin"
+    }
+
+    process {
+        Write-Verbose "Cmdlet New-KeyPair - Process"
+        if ($cryptoServiceProvider -eq $null) {
+            $cryptoServiceProvider = [System.Security.Cryptography.RSACryptoServiceProvider]::new(2048)
+        }
+        $privateKey = $cryptoServiceProvider.ExportParameters($true)
+        $publicKey = $cryptoServiceProvider.ExportParameters($false)
+        @{
+            'public'  = Get-KeyString $publicKey
+            'private' = Get-KeyString $privateKey
+        }
+    }
+
+    end {
+        Write-Verbose "Cmdlet New-KeyPair - End"
+    }
+}

Crypto.RSA/Public/Protect-String.ps1

@@ -0,0 +1,35 @@
+function Protect-String {
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0 )]
+        [string]$textToEncrypt,
+
+        [Parameter(Mandatory = $true, Position = 1 )]
+        [string]$publicKeyString
+    )
+
+    begin {
+        Write-Verbose "Cmdlet Protect-String - Begin"
+    }
+
+    process {
+        Write-Verbose "Cmdlet Protect-String - Process"
+
+        $bytesToEncrypt = [System.Text.Encoding]::UTF8.GetBytes($textToEncrypt)
+        Use ($rsa = [System.Security.Cryptography.RSACryptoServiceProvider]::new(2048)) {
+            try {
+                $rsa.FromXmlString($publicKeyString.ToString());
+                $encryptedData = $rsa.Encrypt($bytesToEncrypt, $true);
+                $base64Encrypted = [System.Convert]::ToBase64String($encryptedData);
+                $base64Encrypted;
+            }
+            finally {
+                $rsa.PersistKeyInCsp = $false;
+            }
+        }
+    }
+
+    end {
+        Write-Verbose "Cmdlet Protect-String - End"
+    }
+}

Crypto.RSA/Public/Unprotect-String.ps1

@@ -0,0 +1,37 @@
+function Unprotect-String {
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0 )]
+        [string]$textToDecrypt,
+
+        [Parameter(Mandatory = $true, Position = 1 )]
+        [string]$privateKeyString
+    )
+
+    begin {
+        Write-Verbose "Cmdlet Unprotect-String - Begin"
+    }
+
+    process {
+        Write-Verbose "Cmdlet Unprotect-String - Process"
+
+        Use ($rsa = [System.Security.Cryptography.RSACryptoServiceProvider]::new(2048)) {
+            try {
+
+                $rsa.FromXmlString($privateKeyString);
+
+                $resultBytes = [System.Convert]::FromBase64String($textToDecrypt);
+                $decryptedBytes = $rsa.Decrypt($resultBytes, $true);
+                $decryptedData = [System.Text.Encoding]::UTF8.GetString($decryptedBytes);
+                return $decryptedData.ToString()
+            }
+            finally {
+                $rsa.PersistKeyInCsp = $false;
+            }
+        }
+    }
+
+    end {
+        Write-Verbose "Cmdlet Unprotect-String - End"
+    }
+}

README.md

@@ -0,0 +1,40 @@
+# Crypto.RSA
+
+This is a PowerShell module for doing slack history backups.
+
+# Installation
+Module is available on [Powershell Gallery][gallery]
+
+### Install
+```powershell
+PS> Install-Module -Name Crypto.RSA
+```
+
+### Import
+```powershell
+PS> Import-Module Crypto.RSA
+```
+# Usage
+
+```powershell
+$keys = New-KeyPair
+$plain = "Crypto.RSA"
+$encryptedText = Protect-String $plain $keys.public
+$decryptedText = Unprotect-String $encryptedText $keys.private
+
+Write-Host "Encryption:" -ForegroundColor Green
+Write-Host "[$plain] `t=> `t[$encryptedText]"
+Write-Host "Decryption:" -ForegroundColor Green
+Write-Host "[$decryptedText] `t<= `t[$encryptedText]"
+```
+
+**Output:**
+
+```plain
+Encryption:
+[Crypto.RSA]    =>      [e7BM+iNpec8Uc90me8U8edKWKT7cpxSaBoBu62ReATypqxmq/oagPke3jUX955RMP7sL/mvXcpV75j2/i9QL5EmcPvKpvGpByQ2EIaxIAtV73ukp7v0jXSCsp965mOX6WcvuyWH6sn8y9jZSYauWo0eFoKzddf0GQJBHYDcNqgpUya9GwhzzP4wOuNW9D1kKqgIbnVqt92xuES1o3qe1ecd1n/8eu1I9szjFWu58C9XzHiXYC9lJD+y0be6Ft1gf4n/ASGC7mJCiiXqnzTlNcEP8Pg8UyqealCn/EdbpKLGfwpl5RgSLpk7jZq3SEo+6wrymp/fhDr2ALlv7gACtYw==]
+Decryption:
+[Crypto.RSA]    <=      [e7BM+iNpec8Uc90me8U8edKWKT7cpxSaBoBu62ReATypqxmq/oagPke3jUX955RMP7sL/mvXcpV75j2/i9QL5EmcPvKpvGpByQ2EIaxIAtV73ukp7v0jXSCsp965mOX6WcvuyWH6sn8y9jZSYauWo0eFoKzddf0GQJBHYDcNqgpUya9GwhzzP4wOuNW9D1kKqgIbnVqt92xuES1o3qe1ecd1n/8eu1I9szjFWu58C9XzHiXYC9lJD+y0be6Ft1gf4n/ASGC7mJCiiXqnzTlNcEP8Pg8UyqealCn/EdbpKLGfwpl5RgSLpk7jZq3SEo+6wrymp/fhDr2ALlv7gACtYw==]
+```
+
+[gallery]: https://www.powershellgallery.com/packages/Crypto.RSA