สร้างไฟล์สคริปต์ VBScript ด้วยรหัสต่อไปนี้ บันทึกไฟล์ที่มีนามสกุล .vbs เช่น ProductKey.vbs – เพียงดับเบิลคลิกที่ไฟล์ หากคุณมีหน้าต่างละเมิดลิขสิทธิ์ คุณจะเห็นว่างเปล่า! แต่ถ้าคุณมี Windows ของแท้ คุณจะเห็น productKey
รหัส:
ตั้งค่า WshShell = CreateObject (“WScript. เปลือก")
MsgBox ConvertToKey (ไฟล์ WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
ฟังก์ชัน ConvertToKey (คีย์)
Const KeyOffset = 52
ผม = 28
ตัวอักษร = “BCDFGHJKMPQRTVWXY2346789”
ทำ
Cur = 0
x = 14
ทำ
Cur = Cur * 256
Cur = คีย์ (x + KeyOffset) + Cur
คีย์ (x + KeyOffset) = (Cur \ 24) และ 255
Cur = Cur Mod 24
x = x -1
วนรอบขณะ x >= 0
ผม = ผม -1
KeyOutput = กลาง (Chars, Cur + 1, 1) & KeyOutput
ถ้า (((29 – i) Mod 6) = 0) และ (i -1) แล้ว
ผม = ผม -1
KeyOutput = “-” & KeyOutput
จบถ้า
วนรอบในขณะที่ฉัน >= 0
ConvertToKey = KeyOutput
ฟังก์ชั่นสิ้นสุด