BezratAshem פורסם 2017 בדצמבר 24 Share פורסם 2017 בדצמבר 24 היי כולם! כולכם מכירים איך לשחזר את מפתח המוצר של אופיס? ברור! שחזור של מפתח מוצר עבור מערכת הפעלה? גם פשוט! אבל השבוע נתקלתי במצב שהייתי צריך להוציא מפתח מוצר מתוך דיסק חיצוני.. אז האפשרויות הם רבות אבל יש דרך קלה... שימו לב לצעדים: 1. חיבור הדיסק החיצוני. 2. הפעלת REGISTRY של מערכת הפעלה המארחת. 3. עומדים על HKLM 4. לוחצים על FILE, LOAD HIVE 5. ניגשים אל תיקיית מערכת ההפעלה בדיסק החיצוני אל תוך התיקיה: \windows\system32\config\software 6. לחיצה על אישור כבוחרים את SOFTWARE נתבקש לתת שם, תנו מה שתרצו.. למשל WINDOWS8 7. ואז מריצים את פקודת הVBS המוכרת עם שינוי קל... תעתיקו מלמטה: 8. השינוי היחיד שצריכים לבצע הוא: בשורה השניה להחליף את \hklm\software לשם שנתנו בסעיף 6 (למשל windows8) 9. דוגמא לשינוי: KeyPath = "HKLM\windows8\Microsoft\Windows NT\CurrentVersion\DigitalProductId" 10. שמירת הקובץ כVBS והרצה שלו יתן לכם את מפתח המוצר!! תהנו! Activation Key for Windows modified By BezratAshem - Avihai Amar Set WshShell = WScript.CreateObject("WScript.Shell") KeyPath = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" MsgBox ExtractKey(WshShell.RegRead(KeyPath)) Function ExtractKey(KeyInput) Const KeyOffset = 52 i = 28 CharWhitelist = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = KeyInput(x + KeyOffset) + Cur KeyInput(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(CharWhitelist, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ExtractKey = KeyOutput End Function קישור לתוכן שתף באתרים אחרים More sharing options...
Recommended Posts
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.