[Résolu] CleProductKey.exe (Pierre13)

[Dylav]

Bonjour Pierre,

Mon antivirus Avira Free antivirus a renâclé, m'obligeant à extraire ton module de sa quarantaine et à le mettre en liste blanche. Normal, j'étais prévenu. Mais quelques remarques, néanmoins,

• Il faut le lancer en tant qu'administrateur (tu parles de double-clic).
  
• il ne m'a pas rendu de clef d'installation pour Microsoft Office 2003 (j'ai vérifié, Office est bien installé sur mon PC)

N.B.: je suis sous W7 Pro SP1 x64.

[Pierre13]

Bonjour,

 

Je vais passer sous Win 7 pour vérifier.

Merci de m'avoir prévenu.

 

Je te tiens informé..

 

@+

[Pierre13]

Re,

 

Bon, alors pour le double clic, normal j'étais sous une session administrateur...

Donc, il faut bien le lancer avec le clic droit ...Exécuter en tant qu'admin...

 

Pour ce qui est de Office 2003, je l'ai aussi et j'ai bien la clé trouvée.

 

Faudrait vérifier dans le registre si dans la clé

 

HKLM\\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\{9011040C-6000-11D3-8CFE-0150048383C9} (pour un 64 bits)

 

Ou

 

HKLM\\SOFTWARE\Microsoft\Office\11.0\{9011040C-6000-11D3-8CFE-0150048383C9} (pour un 32 bits)

 

Tu as bien quelque chose qui s'appelle DigitalProductId

 

Ne poste surtout pas la valeur...juste me dire si une valeur de suite de chiffres existe.

 

Si ta version d'Office a été enregistrée en 32 bits, alors tu n'auras pas de résultat à cause que j'ai oublié cette éventualité dans le codage.

Je l'ai rajoutée..

Je vais en profiter pour faire de même avec les autres versions.

 

@+

Modifié le 12 janvier 2018 par Pierre13

[Dylav]

J'ai re-téléchargé ton module (qu'Avira n'a à nouveau pas apprécié), qui ne rend toujours pas les clefs de Office.

À noter que c'est sûrement une version 32bit que j'ai installée, mais je ne saurais le prouver.

Quant aux clefs de registre, voici ce que j'ai respectivement sur les deux chemins que tu indiques.

[Pierre13]

Normal, la modif n'a pas encore été faite..

Pour le registre, c'est pas la bonne clé..la bonne clé à regarder est celle ci:

 

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}

 

ou pour Office 15, celle ci:

 

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}

 

Voir ensuite si une valeur DigitalProductId est bien présente.

 

@+

[Pierre13]

Voilà une capture de la clé pour Office 11:

 

[Dylav]

J'ai bien une clef sur le premier chemin, mais les 4 premiers chiffres sont différents : 9112 au lieu de 9011 ?

En tout cas, la valeur DigitalProductId est bien présente.

 

 

 

[Pierre13]

Ah...Voilà la raison du dysfonctionnement...

De toutes façon, mon code ne tient pas compte du truc entre les {...} , ce qui compte, c'est qu'il est bien pris en compte.

Donc, si le souci ne se produit pas chez un autre possesseur d'Office 2003, c'est que tu dois avoir un souci avec le contenu de la valeur du DigitalID

Le script ci dessous va te dire si c'est le cas ou pas..

Public Function sGetOffCDKey()

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit

ReDim Preserve bProductKey(14)

Set objShell = CreateObject("WScript.Shell")

bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9112040C-6000-11D3-8CFE-0150048383C9}\DigitalProductId")

Set objShell = Nothing

For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next

bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8 ) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18 ) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")

For ilByte = 24 To 0 Step -1

nCur = 0

For ilKeyByte = 14 To 0 Step -1
'Step through each byte in the Product Key
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next

sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next

sGetOffCDKey = sCDKey

End Function

Public Function Question()

wscript.echo sGetOffCDKey

End Function

call Question

Ouvrir le Bloc Notes (notepad.exe)

Copier/Coller le code

Enregistrer le fichier avec l'option Tous les fichiers et le nom que tu veux, mais avec l'extension .vbs

 

Double cliques dessus.

Tu devrais voir apparaître un message qui contient la clé de ton Office 11.

 

C'est Ok ou pas ?

Modifié le 12 janvier 2018 par Pierre13

[Dylav]

Il me demande avec quel programme exécuter ce fichier (extension VBS) ?

[Pierre13]

Ha...Normalement, ça devrait se faire tout seul...

C'est le fichier cscript.exe ou Wscript.exe qui se trouve dans Windows\System32

Possible qu'il ait un souci avec les associations de fichier.

Voir sur cette page comment faire pour exécuter un fichier vbs en tant qu'admin.

 

Sinon, tu as cet outil de Falkra qui va réparer les associations de fichier vbs pour Win 7

C'est un fichier reg à fusionner avec un double clic dessus.

Si besoin, redémarrer le PC et retenter avec le fichier vbs

 

Source Libellules

Modifié le 12 janvier 2018 par Pierre13