Sommaire

1. Introduction
2. Script

I- Introduction

Bonjour à toutes et à tous.

Voici un script VBS qui devrait récupérer votre clé d’activation de votre Windows XP.

Informations :

• Difficulté : Facile
• Source : www.labo-microsoft.org
• 

II- Script

Ouvrez votre éditeur de code (Bloc-note, Notepad++, ...).
Enregistrez le script en .vbs.

Code : Tout sélectionner

1. If Wscript.Arguments.Count = 0 Then
2.     strComputer = inputbox("Saisissez le nom de l'ordinateur","Récupérer sa clé Windows XP")
3.     if strComputer = "" then wscript.quit
4. Else
5.     strCOmputer = Wscript.Arguments.Item(0)
6. End If
7. Dim Digits (24)
8.     Digits (0) = "B" : Digits (1) = "C" : Digits (2) = "D" : Digits (3) = "F" :
9.     Digits (4) = "G" : Digits (5) = "H" : Digits (6) = "J" : Digits (7) = "K" :
10.     Digits (8) = "M" : Digits (9) = "P" : Digits (10) = "Q" : Digits (11) = "R" :
11.     Digits (12) = "T" : Digits (13) = "V" : Digits (14) = "W" : Digits (15) = "X" :
12.     Digits (16) = "Y" : Digits (17) = "2" : Digits (18) = "3" : Digits (19) = "4" :
13.     Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8" : Digits (23) = "9"
14. Dim HexBuf (100), HexDigitalPID (15)
15. Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
16.     objReg.GetBinaryValue &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId", HexBuf
17.     StartOffset = 52 : EndOffset =67
18. For i = StartOffset to EndOffset
19.     HexDigitalPID (i-StartOffset) = HexBuf(i)
20. next
21.     dLen = 29 : sLen = 15
22.     keygen =""
23. for i=dLen-1 to 0 step -1
24.     if ((i + 1) mod 6) = 0 then
25.         keygen = keygen & "-"
26.     else
27.         HN = 0
28.     For N = (sLen -1) to 0 step -1
29.         Value = ( (HN *2^8 ) Or HexDigitalPID (N))
30.         HexDigitalPID (N) = Value \ 24
31.         HN = (Value mod 24)
32.     next
33.         keygen = keygen & Digits(HN)
34.     end if
35. next
36.     keygen2 = StrReverse (keygen)
37.     WScript.Echo keygen2

Copiez et collez le code ci-dessus et enregistrez.
Une fois enregistré, double-cliquez sur le fichier pour lancer le script.
Saisissez dans le champ le nom de votre ordinateur et cliquez sur Ok

La clé de votre XP s’affiche.

Si vous perdez votre clé Windows XP rien de mieux qu’un petit script comme celui-ci


darky.