עבור לתוכן
  • צור חשבון
  • מי אנחנו?

    שלום אורח/ת!

     
    שים לב - על מנת להשתתף בקהילה שלנו, להגיב ולפתוח דיונים חדשים, עליך להצטרף כחבר רשום.

    החברים שלנו נהנים מיתרונות רבים, כולל היכולת להשתתף בדיונים, להנות מהגרלות ומבצעים לחברי האתר, ולקבל מידי שבוע את התכנים הבולטים שלנו ישירות במייל.

    לא אוהבים שמציקים לכם במייל? ניתן להירשם לאתר אך לוותר על הרישום לעידכוני המייל השבועיים.

BezratAshem

שחזור מפתח מוצר של מערכת הפעלה מדיסק חיצוני!

Recommended Posts

היי כולם!

כולכם מכירים איך לשחזר את מפתח המוצר של אופיס? ברור! שחזור של מפתח מוצר עבור מערכת הפעלה? גם פשוט!

אבל השבוע נתקלתי במצב שהייתי צריך להוציא מפתח מוצר מתוך דיסק חיצוני.. אז האפשרויות הם רבות אבל יש דרך קלה... שימו לב לצעדים:

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 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

 

שתף דיון


קישור ישיר להודעה
שתף באתרים אחרים

הצטרפ/י לדיון

בשלב זה תוכל/י להצטרף לדיון, ולאחר מכן להצטרף לקהילה שלנו. אם כבר יש לך חשבון אצלנו, אנא התחבר/י עכשיו על מנת להגיב תחת שם המשתמש שלך.
לתשומת לבך: התגובה תופיע לגולשים לאחר אישור של צוות הנהלת הפורומים.

אורח
הוסף תגובה

×   התוכן שהודבק הוא עם עיצוב.   הסר עיצוב

  Only 75 emoji are allowed.

×   הקישור שלך הוטמע אוטומטית.   הצג כקישור רגיל

×   התוכן הקודם שלך שוחזר אוטומטית.   נקה הכל

×   You cannot paste images directly. Upload or insert images from URL.


×
  • צור חדש...
Back to top button
Close
Close