შექმენით VBScript სკრიპტის ფაილი შემდეგი კოდებით. შეინახეთ ფაილი .vbs გაფართოებით, მაგალითად: ProductKey.vbs – უბრალოდ ორჯერ დააწკაპუნეთ ფაილზე. თუ თქვენ გაქვთ პირატული Windows, ნახავთ ცარიელ! მაგრამ თუ თქვენ გაქვთ ნამდვილი Windows, თქვენ შეძლებთ ნახოთ productKey
კოდი:
დააყენეთ WshShell = CreateObject (“WScript. ჭურვი”)
MsgBox ConvertToKey (WshShell. RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
ფუნქცია ConvertToKey (გასაღები)
Const KeyOffset = 52
მე = 28
სიმბოლოები = „BCDFGHJKMPQRTVWXY2346789“
Კეთება
Cur = 0
x = 14
Კეთება
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
გასაღები (x + KeyOffset) = (Cur \ 24) და 255
Cur = Cur Mod 24
x = x -1
Loop while x >= 0
i = i -1
KeyOutput = Mid (charms, Cur + 1, 1) & KeyOutput
თუ (((29 – i) Mod 6) = 0) და (i -1) მაშინ
i = i -1
KeyOutput = "-" & KeyOutput
Დაასრულე თუ
Loop while i >= 0
ConvertToKey = KeyOutput
დასრულების ფუნქცია