Napravite VBScript datoteku skripte sa sljedećim kodovima. Spremite datoteku s nastavkom .vbs, na primjer: ProductKey.vbs – Samo dvaput kliknite na datoteku. Ako imate piratske prozore, vidjet ćete prazno! Ali ako imate originalni Windows, moći ćete vidjeti productKey
Kodirati:
Postavite WshShell = CreateObject(“WScript. Ljuska")
MsgBox ConvertToKey (WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Funkcija ConvertToKey (Ključ)
Const KeyOffset = 52
i = 28
Znakovi = “BCDFGHJKMPQRTVWXY2346789”
Čini
Cur = 0
x = 14
Čini
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Tipka (x + KeyOffset) = (Cur \ 24) i 255
Cur = Cur Mod 24
x = x -1
Petlja Dok je x >= 0
i = i -1
KeyOutput = Srednji (znakovi, Cur + 1, 1) & KeyOutput
Ako je (((29 – i) Mod 6) = 0) I (i -1) Tada
i = i -1
Izlaz ključa = “-” & Izlaz ključa
Završi ako
Petlja dok je i >= 0
ConvertToKey = KeyOutput
Završna funkcija