Utwórz plik skryptu VBScript z następującymi kodami. Zapisz plik z rozszerzeniem .vbs, na przykład: ProductKey.vbs – Wystarczy dwukrotnie kliknąć plik. Jeśli masz pirackie okna, zobaczysz puste! Ale jeśli masz oryginalny system Windows, zobaczysz klucz produktu
Kod:
Ustaw WshShell = CreateObject („WScript. Powłoka")
MsgBox ConvertToKey (WshShell. RegRead („HKLM OPROGRAMOWANIE Microsoft Windows NT Aktualna wersja „DigitalProductId”))
Funkcja ConvertToKey (Klucz)
Stałe odsunięcie klucza = 52
ja = 28
Znaki = „BCDFGHJKMPQRTVWXY2346789”
Robić
Cur = 0
x = 14
Robić
Cur = Cur * 256
Cur = Klucz (x + KeyOffset) + Cur
Klucz (x + KeyOffset) = (Cur \ 24) I 255
Cur = Cur Mod 24
x = x -1
Pętla, gdy x >= 0
ja = ja -1
KeyOutput = Mid (Chars, Cur + 1, 1) i KeyOutput
Jeśli (((29 – i) Mod 6) = 0) I (i -1) Wtedy
ja = ja -1
KeyOutput = „-” i KeyOutput
Zakończ, jeśli
Pętla, gdy ja >= 0
ConvertToKey = KeyOutput
Koniec funkcji