Izveidojiet VBScript skripta failu ar tālāk norādītajiem kodiem. Saglabājiet failu ar paplašinājumu .vbs, piemēram: ProductKey.vbs — vienkārši veiciet dubultklikšķi uz faila. Ja jums ir pirātiski logi, jūs redzēsit tukšu! Bet, ja jums ir oriģinālā Windows, jūs varēsit redzēt produkta atslēgu
Kods:
Iestatīt WshShell = CreateObject (“WScript. Apvalks)
MsgBox ConvertToKey (WshShell. RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
Funkcija ConvertToKey (atslēga)
Const Key Offset = 52
i = 28
Rakstzīmes = “BCDFGHJKMPQRTVWXY2346789”
Darīt
Cur = 0
x = 14
Darīt
Cur = Cur * 256
Cur = taustiņš (x + Key Offset) + Cur
Taustiņš (x + atslēgas nobīde) = (Cur \ 24) un 255
Cur = Cur Mod 24
x = x -1
Cilpa, kamēr x >= 0
i = i -1
Taustiņu izvade = vidēja (rakstzīmes, Cur + 1, 1) un taustiņu izvade
Ja (((29 – i) Mod 6) = 0) Un (i -1) Tad
i = i -1
KeyOutput = “-” & Key Output
Beigas Ja
Cilpa, kamēr i >= 0
ConvertToKey = Key Output
Beigu funkcija