Récupérer la clef cd windows d un pc distant

Soyez le premier à donner votre avis sur cette source.

Vue 19 963 fois - Téléchargée 1 412 fois

Description

comme son titre l' indique ce code sert a recupérer la clef cd xp d un poste distant

la vrai clef cd

pour une recupe de la local ne mettre que l adresse ip de son ordi et ne pas remplir les autres champs tel que login et mdp
ce code n est pas entierement de moi je l ai juste modifier pour recupérer a distance

Source / Exemple :


Private Sub Command1_Click()
On Error Resume Next
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit
strUser = Text1.Text
strPassword = Text2.Text
strcomputer = Text3.Text
ReDim Preserve bProductKey(14)
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set Namespace = objLocator.ConnectServer(strcomputer, "\root\Default", strUser, strPassword)
Const HKEY_LOCAL_MACHINE = &H80000002
Set objReg = Namespace.Get("StdRegProv")
'endroit ou se trouve la clef
strKeyPath = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"
strValueName = "DigitalProductId"
objReg.GetBinaryValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, arrvalues
If objReg.GetBinaryValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName, arrValueData) = 0 Then
For ilByte = 52 To 66
bProductKey(ilByte - 52) = arrValueData(ilByte)
Next
'caractere possible dans la clef cd
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

    Label1.Caption = sCDKey
    
    End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_danone
Messages postés
28
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 octobre 2009
-
je recherchai comment acceder a la base de registre a distance
merci
cs_hinou
Messages postés
1
Date d'inscription
jeudi 6 janvier 2005
Statut
Membre
Dernière intervention
28 juin 2006
-
Il est a noté aussi que le service wmi doit etre activé sur les machines, que l'acces à la base de registre a distance soit activé et pour que la récupération fonctionne completement le firewall de windows soit désactivé, ou tout autre firewall local pouvant poser problème.

Et bien sur il faut que le compte qui demande l'acces au wmi distant ai les droits nécessaires

Autre correction ton script attaque directement la clef registre. Sous 9x cette clef n'est pas la même ton code ne fonctionnera donc pas sur ce type de machine.

Pour attaquer la machine locale un "." fonctionne aussi normalement.

Pour le nt 4 ou un 95 il faut installer le service wmi
cs_eldim
Messages postés
961
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
-
tes deux dernières réponses sont inutiles... je suis sur xpsp2 en local en tant qu'administrateur... des lettres diffèrent... mais c'est pas grave l'idée est pas mal
edisnotdead
Messages postés
5
Date d'inscription
lundi 22 août 2005
Statut
Membre
Dernière intervention
12 mars 2007
-
raaa j ai oublié :(

pour nt ca ne marche pas la clef n est pas codé pareil et de plus elle n a pas le service wmi si je ne me trompe pas
mais 2000 ou xp ca marche
2003 pas testé et 95 98 non plus
edisnotdead
Messages postés
5
Date d'inscription
lundi 22 août 2005
Statut
Membre
Dernière intervention
12 mars 2007
-
Alors ya plusieur chose a savoir dejas en worgroup ca marche pas

ensuite on passe donc par un domaine
il faut donc que le compte soit declaré dans le domaine (administrateur ou pas peu importe )
et qu il soit declaré sur la machine en local
( la par contre administrateur)
je peu pas fair tou les test vu qu au boulot le serveur de compte est géré par samba
mais chez moi ca marche a tous les coups

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.