Aller au contenu


Photo
- - - - -

[Résolu] CleProductKey.exe (Pierre13)


  • Veuillez vous connecter pour répondre
18 réponses à ce sujet

#11 Dylav

Dylav

    Modérateur

  • Modérateur [Dylav]
  • 30 318 messages

Posté 12 janvier 2018 - 11:20

J'ai fait tourner le petit outil de Falkra, puis ton script a fonctionné...

180112112117589263.jpg

Il me rend bien la clef produit de Microsoft Office Standard Edition 2003 icon_Super.gif

Question : sais-tu pourquoi ton outil CleProductKey.exe ne le fait pas ?

 

 


  • 0

PUBLICITÉ

    Annonces Google

#12 Pierre13

Pierre13

    Godlike Member

  • Equipe Sécurité
  • 3 268 messages

Posté 12 janvier 2018 - 11:28

Ok, c'est donc que ta clé est correcte icon_Super.gif

 

Comme tu as, d'après les captures, plusieurs versions d'Office, est ce que mon outil t'a donné les autres ProductKeys ?

Je parle de celui des Office et celui de Windows 7.

 

Si tu n'as rien de tout cela, va falloir que je reprenne mon code.

Mais pour ça, faut que j'en sache plus sur la source du problème.

 

Tu as re essayé avec mon outil après cette réparation ?

 

@+


Modifié par Pierre13, 12 janvier 2018 - 11:31 .

  • 0

#13 Dylav

Dylav

    Modérateur

  • Modérateur [Dylav]
  • 30 318 messages

Posté 12 janvier 2018 - 11:43

À ma connaissance, je n'ai qu'un seul Office, la version 2003 ?

Panneau de configuration > Programmes et Fonctionnalités m'indique ceci.

180112114258253517.jpg

Ton outil CleProductKey.exe ne me rend que la clef de Windows.

 

Nota : j'ai trouvé un jour le script VBS ci-dessous, qui rend les clefs de Windows, d'Internet Explorer et de Office.

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

  • 0

#14 Pierre13

Pierre13

    Godlike Member

  • Equipe Sécurité
  • 3 268 messages

Posté 12 janvier 2018 - 11:47

Ok...Ce script est très différent de celui que je t'ai donné surtout au niveau de la clé de registre.

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId

Je vais étudier ça de plus près..Merci pour ce script qui va m'aider à comprendre le souci icon_Super.gif

Je te tiendrai au jus.

 

@++


  • 0

#15 Dylav

Dylav

    Modérateur

  • Modérateur [Dylav]
  • 30 318 messages

Posté 12 janvier 2018 - 11:55

You're welcome ! ;)


  • 0

#16 Pierre13

Pierre13

    Godlike Member

  • Equipe Sécurité
  • 3 268 messages

Posté 13 janvier 2018 - 12:02

Bizarre ce script...

Je l'ai essayé et il me donne bien un Productkey, mais il n'a rien à voir avec les miens..???

 

De plus, tu as dû faire plusieurs nouvelles installations d'Office au fur et à mesure de leurs sorties..

On peut le voir sur cette capture:

 

180112060338511042.jpg

 

On y voit les clés de Office 11.0, 12.0, 15.0 et d'autres plus bas.

Ce doit être des restes d'anciennes installations je suppose.

 

On verra ça à tête reposée...

 

Bonne nuit.icon_Sleep2.gif


  • 0

#17 Dylav

Dylav

    Modérateur

  • Modérateur [Dylav]
  • 30 318 messages

Posté 13 janvier 2018 - 12:20

Bonjour Pierre,

 

Non, je n'ai installé Office 2003 qu'une seule fois, peu après l'achat de mon PC début 2014. En revanche, Windows Update m'a longtemps proposé de nombreuses mises à jour concernant Office 2007 et Office 2010 (que je n'ai jamais possédés), ainsi que le module de compatibilité pour les .DOCX.

 

Voici ce que donne la dernière version de ton module CleProductKey (daté de 08:41 aujourd'hui).

ProductKey (Pierre13)
============================
ProductKey Produits Windows
Attention ! Ne pas publier !
============================
Microsoft Windows 7 Professionnel  64 bits Service Pack 1
ProductKey  : *****-*****-*****-*****-*****
ProductID   : *****-OEM-*******-*****
Office 2003 : *****-*****-*****-*****-*****

Ce fichier est sur le bureau : C:\Users\DRJMLAPS\Desktop\Notes.txt

Ces trois clefs sont bien identiques à celles rendues par le script Clef_Windows.vbs listé ci-dessus. icon_wink.gif

 

 

 

 

 


  • 0

#18 Pierre13

Pierre13

    Godlike Member

  • Equipe Sécurité
  • 3 268 messages

Posté 13 janvier 2018 - 01:35

Bonjour Dylav,

 

Ok, alors c'est parfait icon_Super.gif

 

Le souci venait du fait des différentes versions de Windows.

Il a fallu que j'ajoute une routine supplémentaire pour prendre en compte certaines spécificités de Win 7 X64

 

Le principal est que c'est bon maintenant.

Les liens sont mis à jour dans le sujet principal.

 

Merci pour ton aide et ta patience pour ce problème icon_Super.gif

 

Bon Week end..

 

@++


  • 0

#19 Dylav

Dylav

    Modérateur

  • Modérateur [Dylav]
  • 30 318 messages

Posté 13 janvier 2018 - 07:08

C'est moi qui te remercie ! :jap:

Je marque le sujet résolu...


  • 0









Sujets similaires :     x