最新消息:

windows 系统key读取脚本(三)

cmd 永恒心锁 2525浏览 0评论
@echo off & setlocal enabledelayedexpansion
set tokens=%WinDir%\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\tokens.dat
set vbs=winkey.vbs
for /f "delims=:" %%a in ('findstr /n /b ":vbs" %0') do (more +%%a %0>"%vbs%")
for /f "delims=" %%a in ('cscript //nologo "%vbs%"') do set key=%%a
del "%vbs%"
cls
echo.&echo 提取密钥:%key%
>> .\winkey.ini echo [winkey]
>> .\winkey.ini echo key=%key%
:vbs
ON ERROR RESUME NEXT
Dim objShell
Set objShell = CreateObject("WScript.Shell")
WScript.Echo GetKey(objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function GetKey(rpk)
 Const rpkOffset=52:i=28
 szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
 Do
 dwAccumulator=0 : j=14
 Do
 dwAccumulator=dwAccumulator*256
 dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
 rpk(j+rpkOffset)=(dwAccumulator\24) and 255
 dwAccumulator=dwAccumulator Mod 24
 j=j-1
 Loop While j>=0
 i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
 if (((29-i) Mod 6)=0) and (i<>-1) then
 i=i-1 : szProductKey="-"&szProductKey
 End If
 Loop While i>=0
 GetKey=szProductKey
End Function
免责声明:根据《计算机软件保护条例》第十七条规定“为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。”您需知晓本站所有内容资源均来源于网络,仅供用户交流学习与研究使用,版权归属原版权方所有,版权争议与本站无关,用户本人下载后不能用作商业或非法用途,需在24个小时之内从您的电脑中彻底删除上述内容,否则后果均由用户承担责任;如果您访问和下载此文件,表示您同意只将此文件用于参考、学习而非其他用途,否则一切后果请您自行承担,如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。丨本站为个人博客非盈利性站点,所有软件信息均来自网络,所有资源仅供学习参考研究目的,并不贩卖软件,不存在任何商业目的及用途。丨本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » windows 系统key读取脚本(三)

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址