Buat file skrip VBScript dengan kode berikut. Simpan file dengan ekstensi .vbs, misalnya: ProductKey.vbs – Cukup klik dua kali pada file tersebut. Jika Anda memiliki jendela bajakan, Anda akan melihat kosong! Tetapi jika Anda memiliki Windows Asli, Anda akan dapat melihat ProductKey
Kode:
Setel WshShell = CreateObject(“WScript. Kerang")
MsgBox ConvertToKey (WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Fungsi ConvertToKey (Kunci)
Const KeyOffset = 52
saya = 28
Karakter = “BCDFGHJKMPQRTVWXY2346789”
Mengerjakan
Cur = 0
x = 14
Mengerjakan
Cur = Cur * 256
Cur = Kunci (x + KeyOffset) + Cur
Kunci (x + KeyOffset) = (Sur \ 24) Dan 255
Cur = Cur Mod 24
x = x -1
Loop Sementara x >= 0
saya = saya -1
KeyOutput = Pertengahan (Chars, Cur + 1, 1) & KeyOutput
Jika (((29 – i) Mod 6) = 0) Dan (i -1) Maka
saya = saya -1
KeyOutput = “-” & KeyOutput
Berakhir jika
Loop Sementara i >= 0
ConvertToKey = KeyOutput
Fungsi Akhir