Ροή

Οδηγός: Πως να βρείτε το κλειδί των Windows σας!

RC_Andreas

Administrator
Joined
3 June 2010
Μηνύματα
4,599
Βαθμολογία
9
Points
38
Location
Ελλάδα
Website
www.eltube.gr
Πολλοί από εμάς έχουμε πολλά χρόνια έναν desktop PC ή Λάπτοπ, με αποτέλεσμα το ειδικό αυτοκόλλητο που αναγράφει το κλειδί ενεργοποίησης των Windows (product Key) να έχει ξεθωριάσει!

shmeiomatario.jpg

Ανοίγοντας το σημειωματάριο, επικολλούμε τον κώδικα
Δεν προνοήσαμε να το γράψουμε σε κάποιο σημειωματάριο, και σε επερχόμενο φορματ θα ήταν αναγκαίο να το γνωρίζουμε! Εμείς σας έχουμε τον τρόπο να το βρείτε εύκολα και γρήγορα χωρίς κάποιο ειδικό λογισμικό!

Το μόνο που έχετε να κάνετε είναι να ανοίξετε το σημειωματάριο των Windows και να επικολλήσετε τον παρακάτω κώδικα:

Code:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, 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
ConvertToKey = KeyOutput
End Function

Αφού το επικολλήσετε, θα πρέπει να σώσετε το αρχείο με κατάληξη .vbs Μπροστά βάλτε ότι θέλετε, πχ Product key.vbs. Αυτό ήταν! Τώρα αφού κάνετε διπλό κλικ στο αρχείο, θα σας εμφανίσει το Κλειδί των Windows!
Καλή επιτυχία!

vds.jpg

Προσέχουμε η κατάληξη του αρχείου να είναι σε .vbs
 
Top Bottom