trouver sa clef de windows

Aller en bas

trouver sa clef de windows

Message par modérateur LOU0000 le Dim 5 Fév - 21:08

ouvrir  un bloc-note vierge

copier dedans



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



puis enregistrer sous bureau par exemple et type tous les fichier et le nom du fichier CléWindows.vbs puis enregister



sa le mettra sur le bureau en forme de fichier  d une grande lettre S

puis cliquer dessus 2 fois et voila la clef sa-fiche  
avatar
modérateur LOU0000
Admin

Messages : 126
Date d'inscription : 09/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum