itsho

using System;

namespace MontyHallProblemSimulation
{
    public class Program
    {
        private static Random _rnd = null;
        private static char[] _arrDoors;

        private const char DOOR_WITH_CAR = '*';

itsho

# A self elevating PowerShell script
# https://blogs.msdn.microsoft.com/virtual_pc_guy/2010/09/23/a-self-elevating-powershell-script/

# Get the ID and security principal of the current user account
$myWindowsID=[System.Security.Principal.WindowsIdentity]::GetCurrent()
$myWindowsPrincipal=new-object System.Security.Principal.WindowsPrincipal($myWindowsID)
 
# Get the security principal for the Administrator role
$adminRole=[System.Security.Principal.WindowsBuiltInRole]::Administrator
 

itsho

// ----------------Compare versions - start ------------------
// source: http://www.arvydas.co.uk/2015/04/compare-version-strings-with-innosetup/
// Procedure to split a string into an array of integers
procedure Explode(var Dest: TArrayOfInteger; Text: String; Separator: String);
var
  i, p: Integer;
begin
  i := 0;
  repeat
    SetArrayLength(Dest, i+1);

itsho

<Window x:Class="TabletKeyboardAutoOpen.MainWindow"
		xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
		xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
		xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
		xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
		xmlns:local="clr-namespace:TabletKeyboardAutoOpen"
		mc:Ignorable="d"
		FontSize="30"
		Title="MainWindow"
		WindowStartupLocation="CenterScreen"

itsho

# Enable -Verbose option
[CmdletBinding()]

Param(
    [string]$dllsFolder = "$PSScriptRoot",
    [string]$txtWithFileList = "$PSScriptRoot\ListOfFilesToUseInThemida.txt",
    [string]$themida32Path = "C:\Program Files\Themida\Themida.exe",
    [string]$themidaProject = "D:\ThemidaProject.tmd",
    [int]$totalProcesses = 8
)

itsho

#requires -version 4.0
 
[cmdletbinding()]
Param([Parameter(Position=0,ValueFromPipeline,ValueFromPipelineByPropertyName)]
			[string]$Path )
 
Process {
	Write-verbose "Creating hash for input file..."

	$hash = (Get-FileHash -Path $Path -Algorithm "SHA256").Hash

itsho

# self elevate this script to run as admin
if (!([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator")) { 
    Start-Process powershell.exe "-NoProfile -ExecutionPolicy Bypass -File `"$PSCommandPath`"" -Verb RunAs; exit 
}

$newCertContent = "# Certificate name for easy search
-----BEGIN CERTIFICATE-----
MIITHISISMYCERT_hereBeDragonshereBeDragons
-----END CERTIFICATE-----
"

itsho

Write-Host "Encrypt folder with GnuPG."
Write-Host "Itamar 2021-11-17"
$gpgExeLocaiton = "C:\Program Files (x86)\GnuPG\bin\gpg.exe"
$inputFolder = "C:\Temp\origin"
$outputFolder = "C:\temp\output"
$recipientEmail = "my@email.com"

if ([string]::IsNullOrEmpty("$inputFolder") -or -not (Test-Path -Path "$inputFolder" -PathType Container)){
    Write-Error "input folder does not exist."
    exit 1

itsho

// ----------------------------------------------------
// Notice, this code is using BouncyCastle NuGet:
// https://www.nuget.org/packages/BouncyCastle/1.8.4/
// Created by:    Itsho
// Creation Date: 20 December 2018
// ----------------------------------------------------

using Org.BouncyCastle.Asn1.Pkcs;
using Org.BouncyCastle.Crypto;
using Org.BouncyCastle.Crypto.Generators;

itsho

Public Sub AddFilter(ByVal p_strNameOfRemoteTable As String, ByVal p_strWhereClause As String)
	Dim db As Database
        Dim td As TableDef
        Dim propFilter As Object
        
        Set db = CurrentDb()
        Set td = db.TableDefs(p_strNameOfRemoteTable)
        
        With td
            ' Enforce table to load data with filter (This property is promised to be exists)