前几日有个Win10关联命令行工具的帖子谁知道在哪？

nttwqz · 发表于 2023-9-12 10:25:31

本帖最后由 nttwqz 于 2023-9-13 00:10 编辑

想研究以下竟然如何斗找不到了，好几个区翻了好半天，也不知道这个帖子的标题怎么命名的。

分别尝试了以下关键字，均未找到
10
11
Win10
关联
关
联
有人
人
尝试
试

已找到
一个程序，一个PS脚本

SFTA_1.3.1.7z (74.01 KB, 下载次数: 11)

SFTA_PS.7z (4.96 KB, 下载次数: 8)
另一个作者写的PS脚本

<#
Set-UserFTA
Set File Type Association Default Application Command Line Windows 10
Usage
.\Set-UserFTA.ps1 -Ext <extension> -ProgId <progid>
Example
.\Set-UserFTA.ps1 -Ext ".txt" -ProgId "txtfile"
.\Set-UserFTA.ps1 -Ext ".pdf" -ProgId "AcroExch.Document.DC"
.\Set-UserFTA.ps1 -Ext ".htm" -ProgId "ChromeHTML"
#>
param([string]$Ext, [string]$ProgId)
function Calc-Value($a, $b, $c){return ($a * $c + $b * ($c -shr 0x10)) -band 0xFFFFFFFFL}
function Get-MSHash([byte[]]$MD5, [string]$Data)
{
$MD51 = [BitConverter]::ToUInt32($MD5, 0) -bor 1
$MD52 = [BitConverter]::ToUInt32($MD5, 4) -bor 1
for ($i = 0; $i -lt [uint32][math]::Floor($Data.length / 4); $i++)
{
$D = ([uint32]$Data[$i * 4 + 0]) + ([uint32]$Data[$i * 4 + 1] -shl 0x10)
$X0 = ($D + $X1) -band 0xFFFFFFFFL
$X1 = ($MD51 * $X0) -band 0xFFFFFFFFL
$X0 = Calc-Value 0x69FB0000L 0xEF0569FBL $X0
$X1 = ($X1 + $X0) -band 0xFFFFFFFFL
$X1 = Calc-Value 0x79F8A395L 0x689B6B9FL $X1
$X1 = Calc-Value 0xEA970001L 0xC3EFEA97L $X1
$Y0 = ($D + $Y1) -band 0xFFFFFFFFL
$Y1 = ($MD51 * $Y0) -band 0xFFFFFFFFL
$Y1 = Calc-Value 0xB1110000L 0xCF98B111L $Y1
$Y1 = Calc-Value 0x5B9F0000L 0x87085B9FL $Y1
$Y1 = Calc-Value 0xB96D0000L 0x12CEB96DL $Y1
$Y1 = Calc-Value 0x1D830000L 0x257E1D83L $Y1
$X2 = ($X1 + $X2) -band 0xFFFFFFFFL
$Y2 = ($Y1 + $Y2) -band 0xFFFFFFFFL
$D = ([uint32]$Data[$i * 4 + 2]) + ([uint32]$Data[$i * 4 + 3] -shl 0x10)
$X0 = ($D + $X1) -band 0xFFFFFFFFL
$X1 = ($MD52 * $X0) -band 0xFFFFFFFFL
$X0 = Calc-Value 0x13DB0000L 0xC31713DBL $X0
$X1 = ($X1 + $X0) -band 0xFFFFFFFFL
$X1 = Calc-Value 0x59C3AF2DL 0xDDCD1F0FL $X1
$X1 = Calc-Value 0x1EC90001L 0x35BD1EC9L $X1
$X2 = ($X1 + $X2) -band 0xFFFFFFFFL
$Y0 = ($D + $Y1) -band 0xFFFFFFFFL
$Y1 = ($MD52 * $Y0) -band 0xFFFFFFFFL
$Y1 = Calc-Value 0x16F50000L 0xA27416F5L $Y1
$Y1 = Calc-Value 0x96FF0000L 0xD38396FFL $Y1
$Y1 = Calc-Value 0x2B890000L 0x7C932B89L $Y1
$Y1 = Calc-Value 0x9F690000L 0xBFA49F69L $Y1
$Y2 = ($Y1 + $Y2) -band 0xFFFFFFFFL
}
$H1 = [uint64]($X1 -bxor $Y1)
$H2 = [uint64]($X2 -bxor $Y2)
$H0 = [uint64](($H2 -shl 32) + $H1)
$MSHash = [BitConverter]::GetBytes($H0)
Write-Output $MSHash
}
$Time = ([uint64][math]::Floor((Get-Date).ToFileTime() / 600000000L) * 600000000L).ToString("X16")
$SID = ([System.Security.Principal.WindowsIdentity]::GetCurrent()).User.Value
$UserExp = "user choice set via windows user experience {d18b6dd5-6124-4341-9318-804003bafa0b}"
$Data = (($Ext + $SID + $ProgId + $Time + $UserExp) + "`0").ToLower()
$MD5 = [System.Security.Cryptography.HashAlgorithm]::Create("MD5").ComputeHash([System.Text.Encoding]::Unicode.GetBytes($Data))
$MSHash = Get-MSHash $MD5 $Data
$Hash = [Convert]::ToBase64String($MSHash)
echo $Hash
$Path = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FileExts" + $Ext + "\UserChoice"
$Key = "HKCU:" + $Path
if (-not (Test-Path $Key)) { New-Item $Key | Out-Null }
$Reg = [Microsoft.Win32.Registry]::CurrentUser.OpenSubKey($Path,[Microsoft.Win32.RegistryKeyPermissionCheck]::ReadWriteSubTree,[System.Security.AccessControl.RegistryRights]::ChangePermissions)
$Acl = $Reg.GetAccessControl()
$Rules = $Acl.Access | ? {$_.AccessControlType -eq 'Deny' -and $_.RegistryRights -eq "SetValue"}
Foreach ($Rule in $Rules) {$Acl.RemoveAccessRule($Rule) | Out-Null}
$Reg.SetAccessControl($Acl)
Set-ItemProperty -Path $Key -Name "ProgId" -Value $ProgId -Type "String"
Set-ItemProperty -Path $Key -Name "Hash" -Value $Hash -Type "String"

复制代码

hua_wuxin · 发表于 2023-9-12 11:04:48

SetUserFTA ？

dnine999 · 发表于 2023-9-12 23:28:07

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=436996

nttwqz · 发表于 2023-9-12 23:56:32

dnine999 发表于 2023-9-12 23:28
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=436996

我发现，好东西总是被挡在墙外，SFTA的官方danysys.com在我这儿无法访问。。。

wjgyz740526 · 发表于 2023-9-13 06:44:04

nttwqz 发表于 2023-9-12 23:56
我发现，好东西总是被挡在墙外，SFTA的官方danysys.com在我这儿无法访问。。。

win11试了下，360极速浏览器，文件关联全部成功，但默认浏览器还是不正确。

昨天我尝试找出关键的注册表项，突然发现，新版本的360浏览器用下面的参数又可以了
--make-default-browser

今天试试新版浏览器+这个工具

		自动登录	找回密码
密码			注册

[已解决] 前几日有个Win10关联命令行工具的帖子谁知道在哪？

评分

点评

评分

点评