Aşağıdaki kodlarla bir VBScript komut dosyası oluşturun. Dosyayı bir .vbs uzantısıyla kaydedin, örneğin: ProductKey.vbs – Dosyaya çift tıklayın. Korsan bir pencereniz varsa, boş göreceksiniz! Ancak Orijinal bir Windows'unuz varsa, productKey'i görebileceksiniz.
Kod:
Set WshShell = CreateObject(“WScript. Kabuk")
MsgBox ConvertToKey (WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
İşlev ConvertToKey (Anahtar)
Sabit Tuş Ofseti = 52
ben = 28
Karakterler = “BCDFGHJKMPQRTVWXY2346789”
Yapmak
Kür = 0
x = 14
Yapmak
Kür = Kür * 256
Cur = Tuş (x + KeyOffset) + Cur
Tuş (x + KeyOffset) = (Cur \ 24) Ve 255
Cur = Cur Mod 24
x = x -1
Döngü x >= 0 iken
ben = ben -1
KeyOutput = Orta (Karakterler, Cur + 1, 1) ve KeyOutput
Eğer (((29 – i) Mod 6) = 0) Ve (i -1) ise
ben = ben -1
KeyOutput = “-” ve KeyOutput
Bitir
Döngü i >= 0 iken
ConvertToKey = KeyOutput
Bitiş İşlevi