Improvements and bugfixes

BinaryToPowershellScript/BinaryToPowershellScript.ps1

@@ -59,7 +59,7 @@
 						$ActualCompress=$true
 					}
 					else {
-						Write-Host -NoNewline "compression is useless, disabling it..."
+						Write-Host -NoNewline "compressed file [$([Math]::Round($compressedFileBytes.Length/1024))KB] is longer than original file [$([Math]::Round($inputFileBytes.Length/1024))KB], disabling compression..."
 						$ActualCompress=$false
 					}
 				}
@@ -96,7 +96,12 @@
 
 				[void] $script.Append("`n`tcreateFile `'$file`' `$bytes `$password $hashParameter $decompressParameter`n`n")
 				if (!$SingleFile) {
-					[void] $script.Append("`}`n`ncreateFiles `'$Password`'`n")
+					if ([System.String]::IsNullOrEmpty($Password)) {
+						[void] $script.Append("`}`n`ncreateFiles `'`'`n")
+					}
+					else {
+						[void] $script.Append("`}`n`ncreateFiles ([System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR((Read-Host `'Enter password`' -AsSecureString))))`n")
+					}
 
 					$outputScript = $script.ToString()
 					[System.IO.File]::WriteAllText($outputFile,$outputScript)
@@ -109,7 +114,12 @@
 		}
 		if ($SingleFile)
 		{
-			[void] $script.Append("`}`n`ncreateFiles `'$Password`'`n")
+			if ([System.String]::IsNullOrEmpty($Password)) {
+				[void] $script.Append("`}`n`ncreateFiles `'`'`n")
+			}
+			else {
+				[void] $script.Append("`}`n`ncreateFiles ([System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR((Read-Host `'Enter password`' -AsSecureString))))`n")
+			}
 
 			$outputScript = $script.ToString()
 			[System.IO.File]::WriteAllText($outputFile,$outputScript)
@@ -135,7 +145,7 @@
 		}
 		else {
 			$InputMemoryStream.CopyTo($stream)
-			$stream.Flush()
+			$stream.Dispose()
 		}
 
 		$result = $OutputMemoryStream.ToArray()
@@ -252,7 +262,7 @@
 	`t}
 	`telse {
 	`t`t`$InputMemoryStream.CopyTo(`$stream)
-	`t`t`$stream.Flush()
+	`t`t`$stream.Dispose()
 	`t}
 
 	`t`$result = `$OutputMemoryStream.ToArray()

BinaryToPowershellScript/Program.cs

@@ -106,7 +106,7 @@
             else
             {
                 inputMemoryStream.CopyTo(stream);
-                stream.Flush();
+                stream.Dispose();
             }
 
             return outputMemoryStream.ToArray();
@@ -138,7 +138,7 @@
     }
     else {
         $InputMemoryStream.CopyTo($stream)
-        $stream.Flush()
+        $stream.Dispose()
     }
 
     $result = $OutputMemoryStream.ToArray()
@@ -235,7 +235,7 @@
             }
         }
 ";
-	var hashCode = o.Hash ? hashCodeMultiRow : String.Empty;
+            var hashCode = o.Hash ? hashCodeMultiRow : String.Empty;
 
 
             script.Append($@"function createFile  {{
@@ -278,7 +278,7 @@
 
             var outputFile = Path.Combine(o.OutputFolder, $"SingleScript.ps1");
 
             foreach (var input in o.Inputs)
             {
                 var actualCompress = false;
 
@@ -302,13 +302,13 @@
                     {
                         var compressedFileBytes = CopyBytesToStream(inputBytes, false, encryptedStream => new DeflateStream(encryptedStream, CompressionMode.Compress));
 
-                        if (compressedFileBytes.Length>0 && compressedFileBytes.Length < inputBytes.Length)
+                        if (compressedFileBytes.Length > 0 && compressedFileBytes.Length < inputBytes.Length)
                         {
                             inputBytes = compressedFileBytes;
                             actualCompress = true;
                         }
                         else
-                            Console.Write("compression is useless, disabling it...");
+                            Console.Write($"compressed file [{Math.Round(compressedFileBytes.Length * 1.0 / 1024)}KB] is longer than original file [{Math.Round(inputBytes.Length * 1.0 / 1024)}KB], disabling compression...");
 
                     }
 
@@ -340,7 +340,10 @@
 
                     if (!o.SingleFile)
                     {
-                        script.Append($"}}\n\ncreateFiles '{o.Password}'\n");
+                        if (String.IsNullOrEmpty(o.Password))
+                            script.Append($"}}\n\ncreateFiles ''\n");
+                        else
+                            script.Append($"}}\n\ncreateFiles ([System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR((Read-Host 'Enter password' -AsSecureString))))\n");
 
                         var outputScript = script.ToString();
                         File.WriteAllText(outputFile, outputScript);
@@ -353,7 +356,10 @@
 
             if (o.SingleFile)
             {
-                script.Append($"}}\n\ncreateFiles '{o.Password}'\n");
+                if (String.IsNullOrEmpty(o.Password))
+                    script.Append($"}}\n\ncreateFiles ''\n");
+                else
+                    script.Append($"}}\n\ncreateFiles ([System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR((Read-Host 'Enter password' -AsSecureString))))\n");
 
                 var outputScript = script.ToString();
                 File.WriteAllText(outputFile, outputScript);

BinaryToPowershellScript/SendFileOrKeys.ps1

@@ -0,0 +1,114 @@
+<#
+.SYNOPSIS
+
+Sends a string or a text file as keypresses on the keyobard
+
+.DESCRIPTION
+
+You must specift at least either Filename or Keys parameter.
+You can also specify an optional Delay in seconds and a WindowTitle to activate before sending the keypresses.
+
+.PARAMETER Filename
+Specifies the file name, alternative to Keys parameter
+
+.PARAMETER Keys
+Specifies the keys, alternative to Filename parameter
+
+.PARAMETER Delay
+Specifies the amount of time in seconds to wait before starting sending the keypresses
+
+.PARAMETER WindowTitle
+Specifies the window title to activate before starting sending the keypresses
+
+.INPUTS
+
+None.
+
+.OUTPUTS
+
+None
+
+.EXAMPLE
+
+PS> SendFileOrKeys -f "BinaryToPowershellScript.ps1" -d 10
+
+.EXAMPLE
+
+PS> SendFileOrKeys -k "Write-Host 'Hello how are you ?'" -w "Powershell 7 (x64)"
+
+.EXAMPLE
+
+PS> SendFileOrKeys -k "Write-Host 'Hello how are you ?'"
+
+.LINK
+
+https://github.com/fededim/BinaryToPowershellScript
+
+.NOTES
+
+Implementation of this script is partially borrowed from https://superuser.com/questions/1249976/sendkeys-method-in-powershell.
+Remember to set English keyboard, the SendKeys api does not support other keyboards!
+#>
+function SendFileOrKeys {
+ 	 [CmdletBinding()]
+     param (
+         [Parameter(Mandatory=$false)]  [Alias('f')] [String] $Filename,
+         [Parameter(Mandatory=$false)]  [Alias('k')] [String] $Keys,
+         [Parameter(Mandatory=$false)]  [Alias('d')] [Nullable[int]] $InitialDelay=$null,
+         [Parameter(Mandatory=$false)]  [Alias('i')] [int] $IntraChunkDelayMs=200,
+         [Parameter(Mandatory=$false)]  [Alias('c')] [int] $ChunkSize=100,
+         [Parameter(Mandatory=$false)]  [Alias('w')] [String] $WindowTitle=$null
+     )
+
+     [System.IO.Directory]::SetCurrentDirectory((Convert-Path (Get-Location).Path))
+
+     $wshell = New-Object -ComObject wscript.shell;
+
+     If (![System.String]::IsNullOrEmpty($WindowTitle)) {
+         $wshell.AppActivate($WindowTitle)
+         if ($InitialDelay -eq $null) {
+             $InitialDelay = 1
+         }
+     }
+
+     If ($InitialDelay -ne $null) {
+         Start-Sleep $InitialDelay
+     }
+
+     If (![System.String]::IsNullOrEmpty($Filename)) {  
+
+        $text = (EncodeForSendKeys ([System.IO.File]::ReadAllText($Filename)))
+        Set-Content -Path ".\out.txt" -Value $text
+
+        $wshell.SendKeys($text)
+
+        #$keypresses = [System.Text.RegularExpressions.Regex]::Replace([System.IO.File]::ReadAllText($Filename),"[+^%~(){}]", "{`$0}")   
+        #Set-Content -Path ".\out.txt" -Value $keypresses
+
+        #for ($i=0;$i -lt $keypresses.Length;$i+=$ChunkSize) {
+        #    $wshell.SendKeys($keypresses.Substring($i, [System.Math]::Min($ChunkSize, $keypresses.Length-$i)))
+        #    Start-Sleep -Milliseconds $IntraChunkDelayMs
+        #}
+
+        #$lines = [System.IO.File]::ReadAllLines($Filename)
+
+        #foreach ($line in $lines) {
+        #   $wshell.SendKeys((EncodeForSendKeys $line))
+        #    Start-Sleep -Milliseconds $IntraChunkDelayMs
+        #}
+     }
+     else {
+        $wshell.SendKeys((EncodeForSendKeys $Keys))
+     }
+}
+
+
+function EncodeForSendKeys {
+    [OutputType([String])]
+    param ([String] $string)
+
+    $encode = [System.Text.RegularExpressions.Regex]::Replace($string,"[+^%~(){}]", "{`$0}")
+    $adjustNewLines = [System.Text.RegularExpressions.Regex]::Replace($encode,"(`r`n|`r|`n)+", " %(096){ENTER}")
+
+    return $adjustNewLines.Replace("`t","{TAB}")
+}