Luo VBScript-skriptitiedosto seuraavilla koodeilla. Tallenna tiedosto .vbs-tunnisteella, esimerkiksi: ProductKey.vbs – Kaksoisnapsauta tiedostoa. Jos sinulla on piraatti-ikkunat, näet tyhjän! Mutta jos sinulla on aito Windows, näet tuoteavaimen
Koodi:
Aseta WshShell = CreateObject("WScript. Kuori")
MsgBox ConvertToKey (WshShell. RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
Funktio ConvertToKey (avain)
Const Keyoffset = 52
i = 28
Merkit = "BCDFGHJKMPQRTVWXY2346789"
Tehdä
Cur = 0
x = 14
Tehdä
Cur = Cur * 256
Cur = Avain (x + KeyOffset) + Cur
Avain (x + KeyOffset) = (Cur \ 24) ja 255
Cur = Cur Mod 24
x = x -1
Silmukka kun x >= 0
i = i -1
KeyOutput = Keski (merkit, Cur + 1, 1) & KeyOutput
Jos (((29 – i) Mod 6) = 0) Ja (i -1) Sitten
i = i -1
KeyOutput = "-" & KeyOutput
Loppu Jos
Silmukka kun i >= 0
ConvertToKey = KeyOutput
Lopeta toiminto