Public-Mirrors
/
Windows-10-Setup-Script
mirror of https://github.com/farag2/Windows-10-Setup-Script.git
1
0
Fork 0
Code Issues Releases Wiki Activity
Browse Source

02.03.2021 v5.0.5

pull/149/head
Dmitry Nefedov 3 years ago
committed by GitHub
parent
ec2142707b
commit
02dde5cf08
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 501 additions and 61 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 32
      Sophia/LTSC/Sophia.ps1
  2. BIN
      Sophia/LTSC/Sophia.psd1
  3. 530
      Sophia/LTSC/Sophia.psm1

32
Sophia/LTSC/Sophia.ps1
View File

@ -2,8 +2,8 @@
.SYNOPSIS .SYNOPSIS
Default preset file for "Windows 10 Sophia Script" (LTSC version) Default preset file for "Windows 10 Sophia Script" (LTSC version)
Version: v5.0.4 Version: v5.0.5
Date: 20.02.2021 Date: 02.03.2021
Copyright (c) 2021 farag & oZ-Zo Copyright (c) 2021 farag & oZ-Zo
https://github.com/farag2 https://github.com/farag2
@ -57,7 +57,7 @@ param
Clear-Host Clear-Host
$Host.UI.RawUI.WindowTitle = "Windows 10 Sophia Script for LTSC v5.0.4 | $([char]0x00A9) farag & oz-zo, 2015–2021" $Host.UI.RawUI.WindowTitle = "Windows 10 Sophia Script for LTSC v5.0.5 | $([char]0x00A9) farag & oz-zo, 2015–2021"
Remove-Module -Name Sophia -Force -ErrorAction Ignore Remove-Module -Name Sophia -Force -ErrorAction Ignore
Import-Module -Name $PSScriptRoot\Sophia.psd1 -PassThru -Force Import-Module -Name $PSScriptRoot\Sophia.psd1 -PassThru -Force
@ -459,8 +459,8 @@ StorageSenseRecycleBin -Enable
# StorageSenseRecycleBin -Disable # StorageSenseRecycleBin -Disable
#endregion StorageSense #endregion StorageSense
# Disable hibernation if the device is not a laptop # Disable hibernation
# Отключить режим гибернации, если устройство не является ноутбуком # Отключить режим гибернации
Hibernate -Disable Hibernate -Disable
# Enable hibernate (default value) # Enable hibernate (default value)
@ -581,8 +581,8 @@ LatestInstalled.NET -Enable
# Не использовать последнюю установленную версию .NET для всех приложений (значение по умолчанию) # Не использовать последнюю установленную версию .NET для всех приложений (значение по умолчанию)
# LatestInstalled.NET -Disable # LatestInstalled.NET -Disable
# Do not allow the computer (if device is not a laptop) to turn off the network adapters to save power # Do not allow the computer to turn off the network adapters to save power
# Запретить отключение всех сетевых адаптеров для экономии энергии (если устройство не является ноутбуком) # Запретить отключение всех сетевых адаптеров для экономии энергии
PCTurnOffDevice -Disable PCTurnOffDevice -Disable
# Allow the computer to turn off the network adapters to save power (default value) # Allow the computer to turn off the network adapters to save power (default value)
@ -703,6 +703,22 @@ SmartActiveHours -Enable
# Do not automatically adjust active hours for me based on daily usage (default value) # Do not automatically adjust active hours for me based on daily usage (default value)
# Не изменять автоматически период активности для этого устройства на основе действий (значение по умолчанию) # Не изменять автоматически период активности для этого устройства на основе действий (значение по умолчанию)
# SmartActiveHours -Disable # SmartActiveHours -Disable
<#
Register app, calculate hash, and set as default for specific extension without the "How do you want to open this?" pop-up
Зарегистрировать приложение, вычислить хэш и установить как приложение по умолчанию для конкретного расширения без всплывающего окошка "Каким образом вы хотите открыть этот файл?"
Examples:
Примеры:
Set-Association -ProgramPath "C:\SumatraPDF.exe" -Extension .pdf -Icon "shell32.dll,100"
Set-Association -ProgramPath "C:\Program Files\Notepad++\notepad++.exe" -Extension .psm1 -Icon "C:\Program Files\Notepad++\notepad++.exe,0"
The app must be installed
Приложение должно быть установлено
Do not use relative paths like "%Program Files%"
Не используйте относительные пути вида "%Program Files%"
#>
# Set-Association -ProgramPath "C:\Program Files\Notepad++\notepad++.exe" -Extension .psm1 -Icon "C:\Program Files\Notepad++\notepad++.exe,0"
#endregion System #endregion System
#region Start menu #region Start menu
@ -855,7 +871,7 @@ PUAppsDetection -Enable
There is a bug in KVM with QEMU: enabling this function causes VM to freeze up during the loading phase of Windows There is a bug in KVM with QEMU: enabling this function causes VM to freeze up during the loading phase of Windows
Включить песочницу для Microsoft Defender Включить песочницу для Microsoft Defender
В KVM с QEMU присутсвует баг: включение этой функции приводит ВМ к зависанию во время загрузки Windows В KVM с QEMU присутствует баг: включение этой функции приводит ВМ к зависанию во время загрузки Windows
#> #>
DefenderSandbox -Enable DefenderSandbox -Enable

BIN
Sophia/LTSC/Sophia.psd1
View File

Binary file not shown.

530
Sophia/LTSC/Sophia.psm1
View File

@ -463,9 +463,9 @@ function ScheduledTasks
"XblGameSaveTask" "XblGameSaveTask"
) )
# If device is not a laptop disable FODCleanupTask too # Check if device has a camera
# Если устройство не является ноутбуком, отключить также и FODCleanupTask $DeviceHasCamera = Get-CimInstance -ClassName Win32_PnPEntity | Where-Object -FilterScript {($_.PNPClass -eq "Camera") -or ($_.PNPClass -eq "Image")}
if ((Get-CimInstance -ClassName Win32_ComputerSystem).PCSystemType -ne 2) if (-not $DeviceHasCamera)
{ {
# Windows Hello # Windows Hello
$CheckedScheduledTasks += "FODCleanupTask" $CheckedScheduledTasks += "FODCleanupTask"
@ -545,7 +545,7 @@ function ScheduledTasks
{ {
[void]$SelectedTasks.Remove($Task) [void]$SelectedTasks.Remove($Task)
} }
if ($SelectedTasks.Count -gt 0) if ($SelectedTasks.Count -gt 0)
{ {
$Button.IsEnabled = $true $Button.IsEnabled = $true
@ -1182,7 +1182,6 @@ function OpenFileExplorerTo
<# <#
.SYNOPSIS .SYNOPSIS
Hide Task View button on the taskbar Hide Task View button on the taskbar
Скрыть кнопку Просмотра задач
.PARAMETER Hide .PARAMETER Hide
Show Task View button on the taskbar Show Task View button on the taskbar
@ -1835,7 +1834,7 @@ function TaskbarSearch
<# <#
.SYNOPSIS .SYNOPSIS
Always show/hide all icons in the notification area Configure icons in the notification area
.PARAMETER Show .PARAMETER Show
Always show all icons in the notification area Always show all icons in the notification area
@ -2753,7 +2752,7 @@ function StorageSenseRecycleBin
Configure hibernation Configure hibernation
.PARAMETER Disable .PARAMETER Disable
Disable hibernation (if the device is not a laptop) Disable hibernation
.PARAMETER Enable .PARAMETER Enable
Enable hibernation Enable hibernation
@ -2765,6 +2764,7 @@ function StorageSenseRecycleBin
Hibernate -Disable Hibernate -Disable
.NOTES .NOTES
Do not recommend turning it off on laptops
Current user Current user
#> #>
function Hibernate function Hibernate
@ -2794,10 +2794,7 @@ function Hibernate
} }
"Disable" "Disable"
{ {
if ((Get-CimInstance -ClassName Win32_ComputerSystem).PCSystemType -ne 2) POWERCFG /HIBERNATE OFF
{
POWERCFG /HIBERNATE OFF
}
} }
} }
} }
@ -3375,21 +3372,12 @@ function WindowsFeatures
# Initialize an array list to store the selected Windows features # Initialize an array list to store the selected Windows features
$SelectedFeatures = New-Object -TypeName System.Collections.ArrayList($null) $SelectedFeatures = New-Object -TypeName System.Collections.ArrayList($null)
# The following FODv2 items will have their checkboxes checked # The following Windows features will have their checkboxes checked
[string[]]$CheckedFeatures = @( [string[]]$CheckedFeatures = @(
# Legacy Components # Legacy Components
# Компоненты прежних версий # Компоненты прежних версий
"LegacyComponents", "LegacyComponents",
<#
Media Features
Компоненты работы с мультимедиа
If you want to leave "Multimedia settings" in the advanced settings of Power Options do not disable this feature
Если вы хотите оставить параметр "Параметры мультимедиа" в дополнительных параметрах электропитания, не отключайте этот компонент
#>
"MediaPlayback",
# PowerShell 2.0 # PowerShell 2.0
"MicrosoftWindowsPowerShellV2", "MicrosoftWindowsPowerShellV2",
"MicrosoftWindowsPowershellV2Root", "MicrosoftWindowsPowershellV2Root",
@ -3402,6 +3390,18 @@ function WindowsFeatures
# Клиент рабочих папок # Клиент рабочих папок
"WorkFolders-Client" "WorkFolders-Client"
) )
# The following Windows features will have their checkboxes unchecked
[string[]]$UncheckedFeatures = @(
<#
Media Features
Компоненты работы с мультимедиа
If you want to leave "Multimedia settings" in the advanced settings of Power Options do not disable this feature
Если вы хотите оставить параметр "Параметры мультимедиа" в дополнительных параметрах электропитания, не отключайте этот компонент
#>
"MediaPlayback"
)
#endregion Variables #endregion Variables
#region XAML Markup #region XAML Markup
@ -3538,10 +3538,15 @@ function WindowsFeatures
$CheckBox.IsChecked = $true $CheckBox.IsChecked = $true
# If feature checked add to the array list # If feature checked add to the array list
if ($CheckBox.IsChecked) if ($UnCheckedFeatures | Where-Object -FilterScript {$Feature.FeatureName -like $_})
{ {
[void]$SelectedFeatures.Add($Feature) $CheckBox.IsChecked = $false
# Exit function if item is not checked
return
} }
# If feature checked add to the array list
[void]$SelectedFeatures.Add($Feature)
} }
} }
#endregion Functions #endregion Functions
@ -3568,7 +3573,7 @@ function WindowsFeatures
# Getting list of all optional features according to the conditions # Getting list of all optional features according to the conditions
$OFS = "|" $OFS = "|"
$Features = Get-WindowsOptionalFeature -Online | Where-Object -FilterScript { $Features = Get-WindowsOptionalFeature -Online | Where-Object -FilterScript {
($_.State -in $State) -and ($_.FeatureName -cmatch $CheckedFeatures) ($_.State -in $State) -and (($_.FeatureName -cmatch $UncheckedFeatures) -or ($_.FeatureName -cmatch $CheckedFeatures))
} | ForEach-Object -Process {Get-WindowsOptionalFeature -FeatureName $_.FeatureName -Online} } | ForEach-Object -Process {Get-WindowsOptionalFeature -FeatureName $_.FeatureName -Online}
$OFS = " " $OFS = " "
@ -3630,18 +3635,17 @@ function WindowsCapabilities
Add-Type -AssemblyName PresentationCore, PresentationFramework Add-Type -AssemblyName PresentationCore, PresentationFramework
#region Variables #region Variables
# Initialize an array list to store the selected FODv2 items # Initialize an array list to store the selected optional features
$SelectedCapabilities = New-Object -TypeName System.Collections.ArrayList($null) $SelectedCapabilities = New-Object -TypeName System.Collections.ArrayList($null)
# The following FODv2 items will have their checkboxes checked # The following optional features will have their checkboxes checked
[string[]]$CheckedCapabilities = @( [string[]]$CheckedCapabilities = @(
# Microsoft Quick Assist # Microsoft Quick Assist
# Быстрая поддержка (Майкрософт) # Быстрая поддержка (Майкрософт)
"App.Support.QuickAssist*" "App.Support.QuickAssist*"
) )
# The following FODv2 items will have their checkboxes unchecked # The following optional features will have their checkboxes unchecked
# Следующие дополнительные компоненты будут иметь чекбоксы неотмеченными
[string[]]$UncheckedCapabilities = @( [string[]]$UncheckedCapabilities = @(
# Internet Explorer 11 # Internet Explorer 11
"Browser.InternetExplorer*", "Browser.InternetExplorer*",
@ -3664,7 +3668,7 @@ function WindowsCapabilities
"OpenSSH.Client*" "OpenSSH.Client*"
) )
# The following FODv2 items will be excluded from the display # The following optional features will be excluded from the display
[string[]]$ExcludedCapabilities = @( [string[]]$ExcludedCapabilities = @(
# The DirectX Database to configure and optimize apps when multiple Graphics Adapters are present # The DirectX Database to configure and optimize apps when multiple Graphics Adapters are present
# База данных DirectX для настройки и оптимизации приложений при наличии нескольких графических адаптеров # База данных DirectX для настройки и оптимизации приложений при наличии нескольких графических адаптеров
@ -3939,7 +3943,7 @@ function UpdateMicrosoftProducts
{ {
"Disable" "Disable"
{ {
if ((New-Object -ComObject Microsoft.Update.ServiceManager).Services | Where-Object {$_.ServiceID -eq "7971f918-a847-4430-9279-4a52d1efe18d"} ) if ((New-Object -ComObject Microsoft.Update.ServiceManager).Services | Where-Object {$_.ServiceID -eq "7971f918-a847-4430-9279-4a52d1efe18d"})
{ {
(New-Object -ComObject Microsoft.Update.ServiceManager).RemoveService("7971f918-a847-4430-9279-4a52d1efe18d") (New-Object -ComObject Microsoft.Update.ServiceManager).RemoveService("7971f918-a847-4430-9279-4a52d1efe18d")
} }
@ -3956,7 +3960,7 @@ function UpdateMicrosoftProducts
Configure the power management scheme Configure the power management scheme
.PARAMETER High .PARAMETER High
Set the power management scheme on "High performance" if device is a desktop Set the power management scheme on "High performance"
.PARAMETER Balanced .PARAMETER Balanced
Set the power management scheme on "Balanced" Set the power management scheme on "Balanced"
@ -3968,6 +3972,7 @@ function UpdateMicrosoftProducts
PowerManagementScheme -Balanced PowerManagementScheme -Balanced
.NOTES .NOTES
Do not recommend turning "High performance" scheme on on laptops
Current user Current user
#> #>
function PowerManagementScheme function PowerManagementScheme
@ -3993,10 +3998,7 @@ function PowerManagementScheme
{ {
"High" "High"
{ {
if ((Get-CimInstance -ClassName Win32_ComputerSystem).PCSystemType -eq 1) POWERCFG /SETACTIVE SCHEME_MIN
{
POWERCFG /SETACTIVE SCHEME_MIN
}
} }
"Balanced" "Balanced"
{ {
@ -4060,7 +4062,7 @@ function LatestInstalled.NET
<# <#
.SYNOPSIS .SYNOPSIS
Configure all network adapters to be disabled to save power Configure network adapters to save power
.PARAMETER Disable .PARAMETER Disable
Do not allow the computer to turn off the network adapters to save power Do not allow the computer to turn off the network adapters to save power
@ -4075,7 +4077,7 @@ function LatestInstalled.NET
PCTurnOffDevice -Enable PCTurnOffDevice -Enable
.NOTES .NOTES
If device is not a laptop Do not recommend turning it on on laptops
.NOTES .NOTES
Current user Current user
@ -4105,24 +4107,18 @@ function PCTurnOffDevice
{ {
"Disable" "Disable"
{ {
if ((Get-CimInstance -ClassName Win32_ComputerSystem).PCSystemType -ne 2) foreach ($Adapter in $Adapters)
{ {
foreach ($Adapter in $Adapters) $Adapter.AllowComputerToTurnOffDevice = "Disabled"
{ $Adapter | Set-NetAdapterPowerManagement
$Adapter.AllowComputerToTurnOffDevice = "Disabled"
$Adapter | Set-NetAdapterPowerManagement
}
} }
} }
"Enable" "Enable"
{ {
if ((Get-CimInstance -ClassName Win32_ComputerSystem).PCSystemType -ne 2) foreach ($Adapter in $Adapters)
{ {
foreach ($Adapter in $Adapters) $Adapter.AllowComputerToTurnOffDevice = "Enabled"
{ $Adapter | Set-NetAdapterPowerManagement
$Adapter.AllowComputerToTurnOffDevice = "Enabled"
$Adapter | Set-NetAdapterPowerManagement
}
} }
} }
} }
@ -4242,10 +4238,11 @@ function SetUserShellFolderLocation
.EXAMPLE .EXAMPLE
UserShellFolder -UserFolder Desktop -FolderPath "$env:SystemDrive:\Desktop" -RemoveDesktopINI UserShellFolder -UserFolder Desktop -FolderPath "$env:SystemDrive:\Desktop" -RemoveDesktopINI
.LINK
https://docs.microsoft.com/en-us/windows/win32/api/shlobj_core/nf-shlobj_core-shgetknownfolderpath
.NOTES .NOTES
User files or folders won't me moved to a new location User files or folders won't me moved to a new location
https://docs.microsoft.com/en-us/windows/win32/api/shlobj_core/nf-shlobj_core-shgetknownfolderpath
#> #>
function UserShellFolder function UserShellFolder
{ {
@ -4408,8 +4405,8 @@ public extern static int SHSetKnownFolderPath(ref Guid folderId, uint flags, Int
.EXAMPLE .EXAMPLE
ShowMenu -Menu $ListOfItems -Default $DefaultChoice ShowMenu -Menu $ListOfItems -Default $DefaultChoice
.NOTES .LINK
https://qna.habr.com/user/MaxKozlov https://qna.habr.com/answer?answer_id=1522379
#> #>
function ShowMenu function ShowMenu
{ {
@ -5556,6 +5553,433 @@ function SmartActiveHours
} }
} }
} }
<#
.SYNOPSIS
Register app, calculate hash, and set as default for specific extension without the "How do you want to open this" pop-up
.PARAMETER ProgramPath
Set path to the .exe
.PARAMETER Extension
Set extension type
.PARAMETER Icon
Set path to the icon
.EXAMPLE
Set-Association -ProgramPath "C:\SumatraPDF.exe" -Extension .pdf -Icon "shell32.dll,100"
.EXAMPLE
Set-Association -ProgramPath "C:\Program Files\Notepad++\notepad++.exe" -Extension .psm1 -Icon "C:\Program Files\Notepad++\notepad++.exe,0"
.LINK
https://github.com/DanysysTeam/PS-SFTA
.NOTES
The app must be installed
Do not use relative paths like "%Program Files%"
Current user
#>
function Set-Association
{
[CmdletBinding()]
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[ValidateScript({Test-Path -Path $_})]
[String]
$ProgramPath,
[Parameter(
Position = 1,
Mandatory = $true
)]
[String]
$Extension,
[Parameter(
Position = 3,
Mandatory = $false
)]
[String]
$Icon
)
$ProgId = "Applications\" + (Get-Item -Path $ProgramPath).BaseName + $Extension
if (-not (Test-Path -Path "HKCU:\SOFTWARE\Classes\$Extension\OpenWithProgids"))
{
New-Item -Path "HKCU:\SOFTWARE\Classes\$Extension\OpenWithProgids" -Force
}
New-ItemProperty -Path "HKCU:\SOFTWARE\Classes\$Extension\OpenWithProgids" -Name $ProgId -PropertyType None -Value ([byte[]]@()) -Force
if (-not (Test-Path -Path "HKCU:\SOFTWARE\Classes\$ProgId\shell\open\command"))
{
New-Item -Path "HKCU:\SOFTWARE\Classes\$ProgId\shell\open\command" -Force
}
New-ItemProperty -Path "HKCU:\SOFTWARE\Classes\$ProgId\shell\open\command" -Name "(Default)" -PropertyType String -Value "`"$ProgramPath`" `"%1`"" -Force
function Set-FTA
{
[CmdletBinding()]
param
(
[Parameter(Mandatory = $true)]
[String]
$ProgId,
[Parameter(Mandatory = $true)]
[String]
$Extension,
[String]
$Icon
)
function local:Set-Icon
{
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[String]
$ProgId,
[Parameter(
Position = 1,
Mandatory = $true
)]
[String]
$Icon
)
if (-not (Test-Path -Path "HKCU:\SOFTWARE\Classes\$ProgId\DefaultIcon"))
{
New-Item -Path "HKCU:\SOFTWARE\Classes\$ProgId\DefaultIcon" -Force
}
New-ItemProperty -Path "HKCU:\SOFTWARE\Classes\$ProgId\DefaultIcon" -Name "(Default)" -PropertyType String -Value $Icon -Force
}
function local:Write-ExtensionKeys
{
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[String]
$ProgId,
[Parameter(
Position = 1,
Mandatory = $true
)]
[String]
$Extension,
[Parameter(
Position = 2,
Mandatory = $true
)]
[String]
$ProgHash
)
function local:Remove-UserChoiceKey
{
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[String]
$Key
)
$Signature = @{
Namespace = "Registry"
Name = "Utils"
Language = "CSharp"
MemberDefinition = @"
[DllImport("advapi32.dll", SetLastError = true)]
private static extern int RegOpenKeyEx(UIntPtr hKey, string subKey, int ulOptions, int samDesired, out UIntPtr hkResult);
[DllImport("advapi32.dll", SetLastError=true, CharSet = CharSet.Unicode)]
private static extern uint RegDeleteKey(UIntPtr hKey, string subKey);
public static void DeleteKey(string key)
{
UIntPtr hKey = UIntPtr.Zero;
RegOpenKeyEx((UIntPtr)0x80000001u, key, 0, 0x20019, out hKey);
RegDeleteKey((UIntPtr)0x80000001u, key);
}
"@
}
if (-not ("Registry.Utils" -as [type]))
{
Add-Type @Signature
}
[Registry.Utils]::DeleteKey($Key)
}
Remove-UserChoiceKey -Key "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\$Extension\UserChoice"
if (-not (Test-Path -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\$Extension\UserChoice"))
{
New-Item -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\$Extension\UserChoice" -Force
}
New-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\$Extension\UserChoice" -Name Hash -PropertyType String -Value $ProgHash -Force
New-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\$Extension\UserChoice" -Name ProgId -PropertyType String -Value $ProgId -Force
}
function local:Get-HexDateTime
{
[OutputType([string])]
$now = [DateTime]::Now
$dateTime = [DateTime]::New($now.Year, $now.Month, $now.Day, $now.Hour, $now.Minute, 0)
$fileTime = $dateTime.ToFileTime()
$hi = ($fileTime -shr 32)
$low = ($fileTime -band 0xFFFFFFFFL)
$dateTimeHex = ($hi.ToString("X8") + $low.ToString("X8")).ToLower()
return $dateTimeHex
}
function Get-Hash
{
[CmdletBinding()]
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[string]
$BaseInfo
)
function local:Get-ShiftRight
{
[CmdletBinding()]
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[long]
$iValue,
[Parameter(
Position = 1,
Mandatory = $true
)]
[int]
$iCount
)
if ($iValue -band 0x80000000)
{
return (($iValue -shr $iCount) -bxor 0xFFFF0000)
}
else
{
return ($iValue -shr $iCount)
}
}
function local:Get-Long
{
[CmdletBinding()]
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
[byte[]]
$Bytes,
[Parameter(Position = 1)]
[int]
$Index = 0
)
return ([BitConverter]::ToInt32($Bytes, $Index))
}
function local:Convert-Int32
{
param
(
[Parameter(
Position = 0,
Mandatory = $true
)]
$Value
)
[byte[]]$bytes = [BitConverter]::GetBytes($Value)
return [BitConverter]::ToInt32($bytes, 0)
}
[byte[]]$bytesBaseInfo = [System.Text.Encoding]::Unicode.GetBytes($baseInfo)
$bytesBaseInfo += 0x00, 0x00
$MD5 = New-Object -TypeName System.Security.Cryptography.MD5CryptoServiceProvider
[byte[]]$bytesMD5 = $MD5.ComputeHash($bytesBaseInfo)
$lengthBase = ($baseInfo.Length * 2) + 2
$length = (($lengthBase -band 4) -le 1) + (Get-ShiftRight -iValue $lengthBase -iCount 2) - 1
$base64Hash = ""
if ($length -gt 1)
{
$Map = @{
PDATA = 0
CACHE = 0
COUNTER = 0
INDEX = 0
MD51 = 0
MD52 = 0
OUTHASH1 = 0
OUTHASH2 = 0
R0 = 0
R1 = @(0, 0)
R2 = @(0, 0)
R3 = 0
R4 = @(0, 0)
R5 = @(0, 0)
R6 = @(0, 0)
R7 = @(0, 0)
}
$Map.CACHE = 0
$Map.OUTHASH1 = 0
$Map.PDATA = 0
$Map.MD51 = (((Get-Long -Bytes $bytesMD5) -bor 1) + 0x69FB0000L)
$Map.MD52 = ((Get-Long -Bytes $bytesMD5 -Index 4) -bor 1) + 0x13DB0000L
$Map.INDEX = Get-ShiftRight -iValue ($length - 2) -iCount 1
$Map.COUNTER = $Map.INDEX + 1
while ($Map.COUNTER)
{
$Map.R0 = Convert-Int32 -Value ((Get-Long -Bytes $bytesBaseInfo -Index $Map.PDATA) + [long]$Map.OUTHASH1)
$Map.R1[0] = Convert-Int32 -Value (Get-Long -Bytes $bytesBaseInfo -Index ($Map.PDATA + 4))
$Map.PDATA = $Map.PDATA + 8
$Map.R2[0] = Convert-Int32 -Value (($Map.R0 * ([long]$Map.MD51)) - (0x10FA9605L * ((Get-ShiftRight -iValue $Map.R0 -iCount 16))))
$Map.R2[1] = Convert-Int32 -Value ((0x79F8A395L * ([long]$Map.R2[0])) + (0x689B6B9FL * (Get-ShiftRight -iValue $Map.R2[0] -iCount 16)))
$Map.R3 = Convert-Int32 -Value ((0xEA970001L * $Map.R2[1]) - (0x3C101569L * (Get-ShiftRight -iValue $Map.R2[1] -iCount 16) ))
$Map.R4[0] = Convert-Int32 -Value ($Map.R3 + $Map.R1[0])
$Map.R5[0] = Convert-Int32 -Value ($Map.CACHE + $Map.R3)
$Map.R6[0] = Convert-Int32 -Value (($Map.R4[0] * [long]$Map.MD52) - (0x3CE8EC25L * (Get-ShiftRight -iValue $Map.R4[0] -iCount 16)))
$Map.R6[1] = Convert-Int32 -Value ((0x59C3AF2DL * $Map.R6[0]) - (0x2232E0F1L * (Get-ShiftRight -iValue $Map.R6[0] -iCount 16)))
$Map.OUTHASH1 = Convert-Int32 -Value ((0x1EC90001L * $Map.R6[1]) + (0x35BD1EC9L * (Get-ShiftRight -iValue $Map.R6[1] -iCount 16)))
$Map.OUTHASH2 = Convert-Int32 -Value ([long]$Map.R5[0] + [long]$Map.OUTHASH1)
$Map.CACHE = ([long]$Map.OUTHASH2)
$Map.COUNTER = $Map.COUNTER - 1
}
[byte[]] $outHash = @(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
[byte[]] $buffer = [BitConverter]::GetBytes($Map.OUTHASH1)
$buffer.CopyTo($outHash, 0)
$buffer = [BitConverter]::GetBytes($Map.OUTHASH2)
$buffer.CopyTo($outHash, 4)
$Map = @{
PDATA = 0
CACHE = 0
COUNTER = 0
INDEX = 0
MD51 = 0
MD52 = 0
OUTHASH1 = 0
OUTHASH2 = 0
R0 = 0
R1 = @(0, 0)
R2 = @(0, 0)
R3 = 0
R4 = @(0, 0)
R5 = @(0, 0)
R6 = @(0, 0)
R7 = @(0, 0)
}
$Map.CACHE = 0
$Map.OUTHASH1 = 0
$Map.PDATA = 0
$Map.MD51 = ((Get-Long -Bytes $bytesMD5) -bor 1)
$Map.MD52 = ((Get-Long -Bytes $bytesMD5 4) -bor 1)
$Map.INDEX = Get-ShiftRight -iValue ($length - 2) -iCount 1
$Map.COUNTER = $Map.INDEX + 1
while ($Map.COUNTER)
{
$Map.R0 = Convert-Int32 -Value ((Get-Long -Bytes $bytesBaseInfo -Index $Map.PDATA) + ([long]$Map.OUTHASH1))
$Map.PDATA = $Map.PDATA + 8
$Map.R1[0] = Convert-Int32 -Value ($Map.R0 * [long]$Map.MD51)
$Map.R1[1] = Convert-Int32 -Value ((0xB1110000L * $Map.R1[0]) - (0x30674EEFL * (Get-ShiftRight -iValue $Map.R1[0] -iCount 16)))
$Map.R2[0] = Convert-Int32 -Value ((0x5B9F0000L * $Map.R1[1]) - (0x78F7A461L * (Get-ShiftRight -iValue $Map.R1[1] -iCount 16)))
$Map.R2[1] = Convert-Int32 -Value ((0x12CEB96DL * (Get-ShiftRight -iValue $Map.R2[0] 16)) - (0x46930000L * $Map.R2[0]))
$Map.R3 = Convert-Int32 -Value ((0x1D830000L * $Map.R2[1]) + (0x257E1D83L * (Get-ShiftRight -iValue $Map.R2[1] -iCount 16)))
$Map.R4[0] = Convert-Int32 -Value ([long]$Map.MD52 * ([long]$Map.R3 + (Get-Long -Bytes $bytesBaseInfo -Index ($Map.PDATA - 4))))
$Map.R4[1] = Convert-Int32 -Value ((0x16F50000L * $Map.R4[0]) - (0x5D8BE90BL * (Get-ShiftRight -iValue $Map.R4[0] -iCount 16)))
$Map.R5[0] = Convert-Int32 -Value ((0x96FF0000L * $Map.R4[1]) - (0x2C7C6901L * (Get-ShiftRight -iValue $Map.R4[1] -iCount 16)))
$Map.R5[1] = Convert-Int32 -Value ((0x2B890000L * $Map.R5[0]) + (0x7C932B89L * (Get-ShiftRight -iValue $Map.R5[0] -iCount 16)))
$Map.OUTHASH1 = Convert-Int32 -Value ((0x9F690000L * $Map.R5[1]) - (0x405B6097L * (Get-ShiftRight -iValue ($Map.R5[1]) -iCount 16)))
$Map.OUTHASH2 = Convert-Int32 -Value ([long]$Map.OUTHASH1 + $Map.CACHE + $Map.R3)
$Map.CACHE = ([long]$Map.OUTHASH2)
$Map.COUNTER = $Map.COUNTER - 1
}
$buffer = [BitConverter]::GetBytes($Map.OUTHASH1)
$buffer.CopyTo($outHash, 8)
$buffer = [BitConverter]::GetBytes($Map.OUTHASH2)
$buffer.CopyTo($outHash, 12)
[byte[]]$outHashBase = @(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
$hashValue1 = ((Get-Long -Bytes $outHash -Index 8) -bxor (Get-Long -Bytes $outHash))
$hashValue2 = ((Get-Long -Bytes $outHash 12) -bxor (Get-Long -Bytes $outHash -Index 4))
$buffer = [BitConverter]::GetBytes($hashValue1)
$buffer.CopyTo($outHashBase, 0)
$buffer = [BitConverter]::GetBytes($hashValue2)
$buffer.CopyTo($outHashBase, 4)
$base64Hash = [Convert]::ToBase64String($outHashBase)
}
return $base64Hash
}
# Get current user SID
$userSid = (Get-CimInstance -ClassName Win32_UserAccount | Where-Object -FilterScript {$_.Name -eq $env:USERNAME}).SID
# Secret static string stored in %SystemRoot%\SysWOW64\shell32.dll
$userExperience = "User Choice set via Windows User Experience {D18B6DD5-6124-4341-9318-804003BAFA0B}"
$userDateTime = Get-HexDateTime
$baseInfo = "$Extension$userSid$ProgId$userDateTime$userExperience".ToLower()
$ProgHash = Get-Hash -BaseInfo $baseInfo
# Handle Extension
Write-ExtensionKeys -ProgId $ProgId -Extension $Extension -ProgHash $ProgHash
if ($Icon)
{
Set-Icon -ProgId $ProgId -Icon $Icon
}
}
Set-FTA -ProgId $ProgId -Extension $Extension -Icon $Icon
}
#endregion System #endregion System
#region Start menu #region Start menu

Write Preview
Loading…
Cancel
Save