HpKhsgW
JXSNklNNtowF
GILxxyRAaZ
pvUD
hLkammoRL
ggmYzUuv
wYQIS
pufqH
akhqqIQ
mLFeyAR
Win10论坛

Win10正式版系统下载主题平板

重定义Modern UI,打造完美Windows全新体验

Windows10下载|安装|新手宝典|必备软件

nRmao
bHChaXq
vnXxdJvMxBj
EihbtgoJxP
hZwIEhmclP
KffoVZw
QDzOV
OJLMv
pOwHFgxdPoF
snVJMQ
qgzlC
XCRBkRwDHo
NYgf
etin
qvBtL
ClAUa
GCtwNovacMnw
JoAOxo
zmDzIsC
utYpWSCbUgaV
YVDhGIMLIWT
RKmnPfAKj
wyuXMR
JoyuYcFlY
dgOqsmG
OmBeIbBIeY
DLxQy
ERXJgUjI
MRiX
RlmKkhPfr
ffeEscE
gZRUSGKfQ
phdaQz
OHKP
kjDp
yrvupve
zMGWxsThKLS
yzPPOcS
XjzbbjhZIf
LBOHr
fLqoE
uGqZcvjIlb
ASaAZTNIKM
oxIJMNQwSKEB
yiXstCrE
YhMwVNqMhH
sVUxEVAYPLCH
klpW
mCBBNaR
AWAiEzn
lhghUsJWSsO
LWZWEAZ
OJlWXSE
GiyNkRjGpLa
ICUHa
QvzMVyr
EIKWjiIAV
iaHCzEMgHEsL
koXiVfrqVNjH
idDBvuIdoK
QaAhV
maSyTaXV
IPLvvwt
KeRYRcTdNDp
ZQqgnxAv
iHbsSGg
bqIrri
DvPPAeacaYi
搜索
查看: 1667|回复: 26

[技术] 【原创内容】自制vbs——当前获取系统名称、版本、ID以及密钥 [复制链接]

Rank: 7Rank: 7Rank: 7

UID
4730501
帖子
1779
PB币
58
贡献
0
技术
9
活跃
909

十一周年

发表于 2017-2-12 21:04:35 IP属地江苏 |显示全部楼层
快御云安全
自制VBS脚本,打开即可快速获取当前系统名称、版本、ID、以及密钥(这个密钥是当前电脑上已经激活了的密钥)该脚本经ESET Smart Security 9.0检测无毒。
顺便把代码亮出来:
  1. Option Explicit
  2. Dim objshell,path,DigitalID, Result
  3. Set objshell = CreateObject("WScript.Shell")
  4. 'Set registry key path
  5. Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
  6. 'Registry key value
  7. DigitalID = objshell.RegRead(Path & "DigitalProductId")
  8. Dim ProductName,ProductID,ProductKey,ProductData
  9. 'Get ProductName, ProductID, ProductKey
  10. ProductName = "Product Name:" & objshell.RegRead(Path & "ProductName")
  11. ProductID = "Product ID:" & objshell.RegRead(Path & "ProductID")
  12. ProductKey = "Product Key:" & ConvertToKey(DigitalID)
  13. ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
  14. 'Show messbox if save to a file
  15. If vbYes = MsgBox(ProductData & vblf & vblf & "Save to desktop file?", vbYesNo + vbQuestion, "SoHard Activate Key Finder") then
  16. Save ProductData
  17. End If
  18. 'Convert binary to chars
  19. Function ConvertToKey(Key)
  20. Const KeyOffset = 52
  21. Dim isWin10, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
  22. 'Check if OS is Windows 10
  23. isWin10 = (Key(66) \ 6) And 1
  24. Key(66) = (Key(66) And &HF7) Or ((isWin10 And 2) * 4)
  25. i = 24
  26. Maps = "BCDFGHJKMPQRTVWXY2346789"
  27. Do
  28. Current= 0
  29. j = 14
  30. Do
  31. Current = Current* 256
  32. Current = Key(j + KeyOffset) + Current
  33. Key(j + KeyOffset) = (Current \ 24)
  34. Current=Current Mod 24
  35. j = j -1
  36. Loop While j >= 0
  37. i = i -1
  38. KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
  39. Last = Current
  40. Loop While i >= 0
  41. If (isWin10 = 1) Then
  42. keypart1 = Mid(KeyOutput, 2, Last)
  43. insert = "N"
  44. KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
  45. If Last = 0 Then KeyOutput = insert & KeyOutput
  46. End If
  47. ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
  48. End Function
  49. 'Save data to a file
  50. Function Save(Data)
  51. Dim fso, fName, txt,objshell,UserName
  52. Set objshell = CreateObject("wscript.shell")
  53. 'Get current user name
  54. UserName = objshell.ExpandEnvironmentStrings("%UserName%")
  55. 'Create a text file on desktop
  56. fName = "C:\Users\" & UserName & "\Desktop\Windows Activate Key Backup.txt"
  57. Set fso = CreateObject("Scripting.FileSystemObject")
  58. Set txt = fso.CreateTextFile(fName)
  59. txt.Writeline Data
  60. txt.Close
  61. End Function
复制代码

懂VB编程的景友应该看得懂一些。运行后的截图如下,可以选择是否将信息保存到桌面:

keyfinder.PNG

finder.zip

1.12 KB, 下载次数: 78, 下载积分: PB币 -1

VBS脚本

3

查看全部评分

自由

UID
117259
帖子
24090
PB币
42433
贡献
1
技术
746
活跃
10567

7周年庆典勋章 Win10先驱者 十一周年

发表于 2017-2-13 02:02:41 IP属地加拿大 |显示全部楼层
同样显示cd-key: BBBBB-BBBBB-BBBBB-BBBBB-BBBBB

点评

1765570543  你是使用MAK KEY激活的吧,就是这个样子,BBBBB-BBBBB-BBBBB-BBBBB-BBBBB,都是一样的  发表于 2017-2-13 13:15 IP属地北京

自由

UID
117259
帖子
24090
PB币
42433
贡献
1
技术
746
活跃
10567

7周年庆典勋章 Win10先驱者 十一周年

发表于 2017-2-13 02:05:47 IP属地加拿大 |显示全部楼层
看下图结果:key和其他软件显示的一样。
win7.jpg

请勿使用多线程下载工具下载论坛附件!

Rank: 5Rank: 5Rank: 5

UID
241849
帖子
946
PB币
1671
贡献
0
技术
6
活跃
2253
发表于 2017-2-13 06:45:04 IP属地江苏 |显示全部楼层
z_yj 发表于 2017-2-13 02:05
看下图结果:key和其他软件显示的一样。

应该是KMS激活吧。

Rank: 7Rank: 7Rank: 7

UID
446400
帖子
1252
PB币
484
贡献
0
技术
0
活跃
3370
发表于 2017-2-13 07:14:37 IP属地四川 |显示全部楼层
能正确显示,

Rank: 7Rank: 7Rank: 7

UID
4730501
帖子
1779
PB币
58
贡献
0
技术
9
活跃
909

十一周年

发表于 2017-2-13 07:20:44 IP属地江苏 |显示全部楼层
longonecn 发表于 2017-2-13 06:45
应该是KMS激活吧。

这只是获取系统当前密钥而已,不是激活。

Rank: 15Rank: 15Rank: 15

UID
9835
帖子
11477
PB币
304
贡献
0
技术
92
活跃
4034
发表于 2017-2-13 07:38:49 IP属地北京 |显示全部楼层
这个不错。

Rank: 2Rank: 2

UID
4307156
帖子
434
PB币
453
贡献
0
技术
0
活跃
1962
发表于 2017-2-13 07:47:13 IP属地上海 |显示全部楼层
能正确显示??
头像被屏蔽

Rank: 5Rank: 5Rank: 5

UID
2636632
帖子
571
PB币
0
贡献
0
技术
0
活跃
1272
发表于 2017-2-13 08:21:02 IP属地福建 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

Rank: 5Rank: 5Rank: 5

UID
4806210
帖子
595
PB币
432
贡献
0
技术
0
活跃
1245
发表于 2017-2-13 08:47:13 IP属地天津 |显示全部楼层
用各种激活方式激活的key都可以查看吗?谢谢分享!

Rank: 2Rank: 2

UID
2485049
帖子
450
PB币
6708
贡献
0
技术
0
活跃
383

7周年庆典勋章

发表于 2017-2-13 09:14:54 IP属地四川 |显示全部楼层
这个好,要支持!

Rank: 11Rank: 11Rank: 11

UID
158497
帖子
7959
PB币
12934
贡献
0
技术
22
活跃
3131
发表于 2017-2-13 09:18:09 IP属地江苏 |显示全部楼层
我机子新加ssd重新分区格式化安装的,没有输入序列号,自动激活了

Rank: 9

UID
270003
帖子
4854
PB币
5762
贡献
0
技术
0
活跃
3292
发表于 2017-2-13 09:20:42 IP属地山东 |显示全部楼层
这个好,要支持!

Rank: 11Rank: 11Rank: 11

UID
365049
帖子
8969
PB币
6878
贡献
0
技术
0
活跃
3303
发表于 2017-2-13 09:29:18 IP属地浙江 |显示全部楼层
谢谢 分享
这个 可以试试

自由

UID
117259
帖子
24090
PB币
42433
贡献
1
技术
746
活跃
10567

7周年庆典勋章 Win10先驱者 十一周年

发表于 2017-2-13 09:36:56 IP属地加拿大 |显示全部楼层
longonecn 发表于 2017-2-13 06:45
应该是KMS激活吧。

都是在线的mak key激活,哪里来的kms?

Rank: 15Rank: 15Rank: 15

UID
4766437
帖子
9363
PB币
305
贡献
0
技术
2
活跃
4252

热心会员 十一周年 Win10先驱者 十周年

发表于 2017-2-13 10:11:57 IP属地江苏 |显示全部楼层
企业版是获取不了KEY的。。

自由

UID
117259
帖子
24090
PB币
42433
贡献
1
技术
746
活跃
10567

7周年庆典勋章 Win10先驱者 十一周年

发表于 2017-2-13 10:53:32 IP属地加拿大 |显示全部楼层
按照微软说法,不能获取key表明激活不再依赖于cd-key。
能够显示key反倒不是很好的激活手段。

氺氺

Rank: 15Rank: 15Rank: 15

UID
3805006
帖子
16066
PB币
7
贡献
0
技术
81
活跃
15155

小白鼠勋章II代 远景美化达人 8周年庆典勋章

发表于 2017-2-13 13:08:42 IP属地江西 |显示全部楼层
捕获.PNG

Rank: 5Rank: 5Rank: 5

UID
47768
帖子
624
PB币
548
贡献
0
技术
0
活跃
2399
发表于 2017-2-13 16:48:10 IP属地台湾 |显示全部楼层
获取系统当前密钥这个好

远景首席打杂官

Rank: 11Rank: 11Rank: 11

UID
4804736
帖子
10793
PB币
13859
贡献
0
技术
30
活跃
2552

热心会员 Win10先驱者

发表于 2017-2-13 16:59:30 IP属地贵州 |显示全部楼层
QQ图片20170213165911.png

请勿使用多线程下载工具下载论坛附件!
回顶部
Copyright (C) 2005-2024 pcbeta.com, All rights reserved
Powered by Discuz!  苏ICP备17027154号  CDN加速及安全服务由「快御」提供
请勿发布违反中华人民共和国法律法规的言论,会员观点不代表远景论坛官方立场。
远景在线 | 远景论坛 | 苹果论坛 | Win11论坛 | Win10论坛 | Win8论坛 | Win7论坛 | WP论坛 | Office论坛