Discussion :

[farouk95]

bonsoir amis developpeurs

voici mon souci jai a ma disposition un script VBS ke je dois déchiffrer mai j'ai déjà du mal des le premier terme alors si une âme charitable pourrais m' aiguiller ce serai sympathique voici le script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
If Wscript.Arguments.Count = 0 Then
    strComputer = inputbox("Entrez le nom de l ordinateur dont vous voulez la clé","Nom de l ordinateur")
    if strComputer = "" then wscript.quit
Else
    strCOmputer = Wscript.Arguments.Item(0)
End If
 
 
Dim Digits (24)
 
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
 
Dim HexBuf (100), HexDigitalPID (15)
'Création d'un objet 
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
objReg.GetBinaryValue &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId", HexBuf
StartOffset = 52 : EndOffset =67
 
For i = StartOffset to EndOffset
  HexDigitalPID (i-StartOffset) = HexBuf(i)
next
 
' Convertit la clé produit codée en clé d activation
dLen = 29 : sLen = 15
 
KEYSTRING =""
for i=dLen-1 to 0 step -1
  if ((i + 1) mod 6) = 0 then
    KEYSTRING = KEYSTRING & "-"
  else
    HN = 0
    For N = (sLen -1) to 0 step -1
      Value = ( (HN *2^8 ) Or HexDigitalPID (N))
      HexDigitalPID (N) = Value \ 24
      HN = (Value mod 24)
    next
    KEYSTRING = KEYSTRING & Digits(HN)
  end if
next
 
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo KEYSTRING2

Merci d'avance

ha petite précision ce script affiche pour un nom d'un pc sur un réseau donné la clé windows de ce pc

[spantemonium]

Le script vérifie s'il y a une valeur passée en paramètre.

s'il il y en a une, elle l'affecte à la variable strCOmputer, s'il n'y en a pas elle affiche une InputBox qui permet la saisie de cette valeur, pour ensuite l'affecter à la variable strCOmputer.

Ensuite il a l'air d'aller chercher la clé windows du pc et l'affiche.

[ced600]

Dans quel but veux tu comprendre ce script ?
Pour faire quel type de modification ?

Si on le sait on pourrait t'expliquer plus en détail la partie qui doit être impacté par les modifications.

Mais en gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Wscript.Arguments.Count = 0 Then
    strComputer = inputbox("Entrez le nom de l ordinateur dont vous voulez la clé","Nom de l ordinateur")
    if strComputer = "" then wscript.quit
Else
    strCOmputer = Wscript.Arguments.Item(0)
End If

Le script vérifie s'il y a une valeur passée en paramètre.

s'il il y en a une, elle l'affecte à la variable strCOmputer, s'il n'y en a pas elle affiche une InputBox qui permet la saisie de cette valeur, pour ensuite l'affecter à la variable strCOmputer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

On crée un tableau et on le remplit de caractère.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim HexBuf (100), HexDigitalPID (15)
'Création d'un objet 
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
objReg.GetBinaryValue &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId", HexBuf
StartOffset = 52 : EndOffset =67
 
For i = StartOffset to EndOffset
  HexDigitalPID (i-StartOffset) = HexBuf(i)
next

Recherche dans la base de registre de la clé d'activation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' Convertit la clé produit codée en clé d activation
dLen = 29 : sLen = 15
 
KEYSTRING =""
for i=dLen-1 to 0 step -1
  if ((i + 1) mod 6) = 0 then
    KEYSTRING = KEYSTRING & "-"
  else
    HN = 0
    For N = (sLen -1) to 0 step -1
      Value = ( (HN *2^8 ) Or HexDigitalPID (N))
      HexDigitalPID (N) = Value \ 24
      HN = (Value mod 24)
    next
    KEYSTRING = KEYSTRING & Digits(HN)
  end if
next
 
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo KEYSTRING2

La clé est convertie en chaine de caractère et elle est affiché.

[farouk95]

Dans quel but veux tu comprendre ce script ?
Pour faire quel type de modification ?

Je travaille pour un Administrateur réseau, et il m'a confié ce script et ma demandé de le comprendre de A a Z. J'ai commencé a apprendre les bases du langage mais c'est plutôt compliqué.

Afin d'évoluer on y rajoutera quelque information tel que connaitre le système d'exploitation ainsi que les configuration matériel des différente machine.


Un truc m'échappe a premières vue pourquoi toute les lettres de l'alphabet ne sont pas dans le tableau?
Windows utilise que certaine lettre pour ses clé CD?

Je vais potasser tout cela et reviendrais poster des questions merci

Bonne journée ced600!

[ced600]

Je travaille pour un Administrateur réseau, et il m'a confié ce script et ma demandé de le comprendre de A a Z. J'ai commencé a apprendre les bases du langage mais c'est plutôt compliqué.

Pour cela que je pensais que tu voulais faire une modification. C'est compliqué comme script pour un débutant.
En général on commence par plus simple.

Un truc m'échappe a premières vue pourquoi toute les lettres de l'alphabet ne sont pas dans le tableau?
Windows utilise que certaine lettre pour ses clé CD?

Je ne sais pas pourquoi il n'y a pas les voyelles, pose la question sur le sous forums windows, peut être que quelqu'un pourra répondre à la questio.
Peut être une histoire de compatibilité à cause des accents sur les voyelles ?