次のコードを使用してVBScriptスクリプトファイルを作成します。 拡張子が.vbsのファイルを保存します。例:ProductKey.vbs –ファイルをダブルクリックするだけです。 海賊版のウィンドウがある場合は、空白が表示されます。 ただし、正規のWindowsを使用している場合は、productKeyを表示できます。
コード:
WshShell = CreateObject(“ WScript。 シェル")
MsgBox ConvertToKey(WshShell。 RegRead(“ HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId”))
関数ConvertToKey(キー)
Const KeyOffset = 52
i = 28
文字=「BCDFGHJKMPQRTVWXY2346789」
行う
Cur = 0
x = 14
行う
Cur = Cur * 256
Cur = Key(x + KeyOffset)+ Cur
Key(x + KeyOffset)=(Cur \ 24)そして255
Cur = Cur Mod 24
x = x -1
ループWhilex> = 0
i = i -1
KeyOutput = Mid(Chars、Cur + 1、1)&KeyOutput
If(((29 – i)Mod 6)= 0)And(i -1)Then
i = i -1
KeyOutput =“-”&KeyOutput
終了する場合
ループWhilei> = 0
ConvertToKey = KeyOutput
終了機能