Aller au contenu
Dylav

[Résolu] CleProductKey.exe (Pierre13)

Messages recommandés

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) icon_Doute.gif

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

Partager ce message


Lien à poster
Partager sur d’autres sites

Bonjour,

 

Je vais passer sous Win 7 pour vérifier.

Merci de m'avoir prévenu.

 

Je te tiens informé..

 

@+

Partager ce message


Lien à poster
Partager sur d’autres sites

Re,

 

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

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é par Pierre13

Partager ce message


Lien à poster
Partager sur d’autres sites

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.

180112060338511042.jpg180112060338566534.jpg

Partager ce message


Lien à poster
Partager sur d’autres sites

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.

 

@+

Partager ce message


Lien à poster
Partager sur d’autres sites

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

180112062710668227.jpg

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

 

 

 

Partager ce message


Lien à poster
Partager sur d’autres sites

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é par Pierre13

Partager ce message


Lien à poster
Partager sur d’autres sites

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

Partager ce message


Lien à poster
Partager sur d’autres sites

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é par Pierre13

Partager ce message


Lien à poster
Partager sur d’autres sites

Votre contenu devra être approuvé par un modérateur

Invité
Vous postez un commentaire en tant qu’invité. Si vous avez un compte, merci de vous connecter.
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement

×