无忧启动论坛

标题: Resource Tuner v2.23 VBSCript 破解脚本 [打印本页]
作者: chishingchan    时间: 2022-1-23 17:25
标题: Resource Tuner v2.23 VBSCript 破解脚本
本帖最后由 chishingchan 于 2023-9-4 23:13 编辑

ResTuner_setup.vbs

  1. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  2. Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
  3. For Each objItem in colItems
  4.         OSA = objItem.OSArchitecture
  5. Next

  7. Const HKCU = &H80000001
  8. Const HKLM = &H80000002

  10. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

  12. If OSA = "64-bit" Or OSA = "64 位" Then
  13.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
  14.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
  15.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
  16. Else
  17.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
  18.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
  19.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
  20. End If

  22. Set WshShell = CreateObject("WScript.Shell")

  24. Set objFSO = CreateObject("Scripting.FileSystemObject")

  26. If IsNull(IL) Then
  27.         WshShell.Popup "软件可能未安装！",5,"错误",0
  28.         WScript.Quit
  29. End If

  31. If Not objFSO.FileExists(IL & "restuner.exe") Then
  32.         WshShell.Popup "目标文件不存在！",5,"错误",0
  33.         WScript.Quit
  34. End If

  36. If DV <> "2.23" Then
  37.         WshShell.Popup "软件版本不支持！",5,"错误",0
  38.         WScript.Quit
  39. End If

  41. Name = Array("restuner.exe")
  42. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
  43. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
  44. For Each objProcess In colProcessList
  45.         For Each Process In Name
  46.                 If LCase(objProcess.Name) = LCase(Process) Then
  47.                         objProcess.Terminate()
  48.                 End If
  49.         Next
  50. Next

  52. Set ado_stream = CreateObject("ADODB.Stream")
  53.         ado_stream.Type = 1
  54.         ado_stream.open
  55.         ado_stream.LoadFromFile IL & "restuner.exe"
  56.         ado_stream.position = 1267962        '08000000E87DFBECFFBB01000000
  57.         ado_stream.Write HexToByte("00000000E87DFBECFFEB20909090")
  58.         ado_stream.position = 1716204        '修改为：W.i.n.d.o.w.s.
  59.         ado_stream.Write HexToByte("570069006E0064006F00770073000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
  60.         ado_stream.position = 1719400        '修改为：B.u.s.i.n.e.s.s. .L.i.c.e.n.s.e.
  61.         ado_stream.Write HexToByte("42007500730069006E0065007300730020004C006900630065006E00730065000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
  62.         ado_stream.position = 1721168        '修改为：5. .U.s.e.r.
  63.         ado_stream.Write HexToByte("35002000550073006500720000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
  64.         ado_stream.position = 1725000        '修改为：0.5./.1.7./.2.0.8.3.
  65.         ado_stream.Write HexToByte("300035002F00310037002F0032003000380033000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
  66.         ado_stream.position = 3016208        '8B15CC1175008B12
  67.         ado_stream.Write HexToByte("BAEC3B5A00909090")
  68.         ado_stream.position = 3016246        '8B1558FF74008B12
  69.         ado_stream.Write HexToByte("BA68485A00909090")
  70.         ado_stream.position = 3016284        '8B15C81175008B12
  71.         ado_stream.Write HexToByte("BA504F5A00909090")
  72.         ado_stream.position = 3016322        '8B15740675008B12
  73.         ado_stream.Write HexToByte("BA485E5A00909090")
  74.         ado_stream.position = 3390546        '83F802
  75.         ado_stream.Write HexToByte("3BC090")
  76.         ado_stream.position = 3413077        '88
  77.         ado_stream.Write HexToByte("FE")
  78.         ado_stream.SaveToFile IL & "restuner.exe", 2
  79.         ado_stream.Close
  80. Set ado_stream = Nothing

  82. WshShell.Popup "已破解主程序！"& vbcrlf & vbcrlf & "VBScript by ChiShingChan", 10, DN & " v" & DV, 0

  84. Function HexToByte(hexStr)
  85.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
  86.         Set byteObj= xmldom.createElement("byteObj")
  87.         byteObj.dataType = "bin.hex"
  88.         byteObj.nodeTypedValue = hexStr
  89.         HexToByte=byteObj.nodeTypedValue
  90. End Function
复制代码


作者: chishingchan    时间: 2022-1-23 17:27
安装包：http://bbs.wuyou.net/forum.php?mod=viewthread&tid=428688
作者: 2010hook    时间: 2022-1-23 21:44
运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考：

restuner_console_v2.03_Inc.Patcher.7z

60.55 KB, 下载次数: 16, 下载积分: 无忧币 -2

作者: lily9718    时间: 2022-1-24 07:46
谢谢
作者: chishingchan    时间: 2022-1-24 10:43
2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...

这个版本已破！本想与这个一起放出来，现在等版本更新。
作者: Anson4    时间: 2022-1-24 22:38
这工具的特色是什么呢？
作者: tcog    时间: 2022-2-22 14:56
有什么用功????
作者: 2010hook    时间: 2023-9-2 19:32
chishingchan 发表于 2022-1-24 10:43
这个版本已破！本想与这个一起放出来，现在等版本更新。

这软件已经成熟，无需更新，希望分享 Console 2.22版本的破解脚本，感谢！
作者: 2010yuhongxi    时间: 2023-9-4 14:31
谢谢分享
作者: martin313    时间: 2023-9-4 14:46
2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...

Resource Tuner Console 与 Resource Tuner，啥区别？
作者: 2010hook    时间: 2023-9-4 14:49
martin313 发表于 2023-9-4 14:46
Resource Tuner Console 与 Resource Tuner，啥区别？

Console 是命令行版本，用于批处理执行，没操作窗口的。
作者: martin313    时间: 2023-9-4 14:49
使用脚本后，会不会出现下述情况：

打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Version 处生成 Comments 的问题
Comments Value: Modified by an unpaid evaluation copy of Resource Tuner 2 (www.heaventools.com)
作者: martin313    时间: 2023-9-4 15:03
2010hook 发表于 2023-9-4 14:49
Console 是命令行版本，用于批处理执行，没操作窗口的。


好的，了解了
作者: martin313    时间: 2023-9-4 15:12
没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做修改的话，那么应该也会。
作者: yaojil    时间: 2023-9-4 15:44
谢谢分享
作者: chishingchan    时间: 2023-9-4 21:32
martin313 发表于 2023-9-4 15:12
没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做 ...

这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！
作者: martin313    时间: 2023-9-4 21:49
chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！


吾爱有分享 2.23 的完美版

完美简体中文语言包与完美简体中文帮助文件，纯净无个人信息
作者: lyyf007    时间: 2023-9-4 22:05
来学习
作者: martin313    时间: 2023-9-4 22:08
chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！


那个 2.22 版，无Comments 的问题？
作者: chishingchan    时间: 2023-9-4 23:15
martin313 发表于 2023-9-4 14:49
使用脚本后，会不会出现下述情况：

打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Ver ...

代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！
作者: martin313    时间: 2023-9-5 05:04
本帖最后由 martin313 于 2023-9-5 05:09 编辑
chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

厉害！厉害！
感谢分享
这个破解脚本是怎么使用？双击 .vbs 文件，会自动执行破解程序吗？执行一次即可吗还是每次都得运行一下？
作者: martin313    时间: 2023-9-5 06:08
chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！


啥时对 diskgenius V5.5.1  动个刀 ?
作者: martin313    时间: 2023-9-7 06:41
chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

楼主这脚本是怎么搞出来的？这么强悍！
作者: chishingchan    时间: 2023-9-7 07:39
martin313 发表于 2023-9-7 06:41
楼主这脚本是怎么搞出来的？这么强悍！

技术积累！
作者: martin313    时间: 2023-9-7 08:32
chishingchan 发表于 2023-9-7 07:39
技术积累！


佩服佩服
向楼主学习
作者: 201287zr    时间: 2023-9-9 16:22
佩服膜拜，测试确实可行，如果加上提权的代码就好了，在win10系统目录下运行会出错。
作者: 荣耀    时间: 2023-9-11 15:56
楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？
作者: martin313    时间: 2023-9-11 16:03
荣耀 发表于 2023-9-11 15:56
楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？


为何找旧版本啊
作者: 荣耀    时间: 2023-9-11 16:07
martin313 发表于 2023-9-11 16:03
为何找旧版本啊

官网上显示，这个命令行版本。当前最新的就是 2.2.2 啊
w去w掉w.heaventools.com/rtconsole-news.htm



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3