قم بإنشاء ملف برنامج نصي VBScript مع الرموز التالية. احفظ الملف بامتداد .vbs ، على سبيل المثال: ProductKey.vbs - فقط انقر نقرًا مزدوجًا على الملف. إذا كان لديك نوافذ مقرصنة ، فسترى فارغة! ولكن إذا كان لديك نسخة أصلية من Windows ، فستتمكن من رؤية مفتاح المنتج
الشفرة:
قم بتعيين WshShell = CreateObject (“WScript. صدفة")
تحويل MsgBox إلى مفتاح (WshShell. RegRead ("HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId"))
وظيفة ConvertToKey (مفتاح)
Const KeyOffset = 52
أنا = 28
حرف = "BCDFGHJKMPQRTVWXY2346789"
يفعل
Cur = 0
س = 14
يفعل
Cur = Cur * 256
Cur = مفتاح (x + KeyOffset) + Cur
المفتاح (x + KeyOffset) = (Cur \ 24) و 255
Cur = Cur Mod 24
س = س -1
التكرار بينما x> = 0
أنا = أنا -1
KeyOutput = منتصف (Chars ، Cur + 1 ، 1) & KeyOutput
إذا كان (((29 - i) Mod 6) = 0) و (i -1) ثم
أنا = أنا -1
KeyOutput = "-" & KeyOutput
إنهاء إذا
حلقة بينما أنا> = 0
ConvertToKey = KeyOutput
وظيفة النهاية