Crée une clé d'enregistrement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 392 fois - Téléchargée 65 fois

Contenu du snippet

Montrer comment faire une cle d'enregistrement d'un programme dans la base de registre et la faire verifier ensuite par le programme.

Source / Exemple :


'Pour cree la cle d'enregistrement:
SaveSetting "prog", "piste", "enreg", "025631"

'Pour verifie la cle d'enregistrement par votre programme:

Dim strx2 As String
strx2 = GetSetting("prog", "piste", "enreg")
    If strx2 <> "025631" Then
    MsgBox "pas enregistrer quitte le programme": end
Else
    MsgBox "enregistrer continue le programme"
End If

Conclusion :


Voila, c'est tout simple !

A voir également

Ajouter un commentaire

Commentaires

fabse
Messages postés
1
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
9 mai 2007
-
bonjour voila j'ai un problemme avec windows vista je suis un peut con mais bon voila j'ai instaler sur le pc de ma seour est apres je l'ai instaler sur le miens c le problemme j'ai pas trouver de clef pur la activer voila merci d'avance
Je cherche comment générer une clè d'activation d'une application en contrôlant les licences?
Pourriez-vous m'aider
Merci
-
bah ten qua ça met

if text1.text = "clédeCD" then
form1.show
else
msgbox"mauvais mot de pass"
end if

...lol :)
C'est vrai que tu n'aurais pas du mettre ton source dans la rubrique "sécurité", mais plutôt dans "Base de registre"...
Ce qui n'est pas très fin, c'est que tu utilises les fonctions VB pour écrire dans la base de registre. Le probleme, c'est qu'il suffit alors d'aller chercher dans "HKEY_CURRENT_USERSoftwareVB and VBA Program Settings" et de faire une petite recherche ...
Par contre en utilisant les api windows, tu peux alors écrire ta clé à peu près n'importe où dans la base de registre. Le domaine de recherche devient alors beaucoup plus vaste pour celui qui veut chercher (et qui n'y connait rien en assembleur => genre moi).
quand tu le compile
la protect se presente comme ca =>
mov dword ptr [ebp-40], ebx
mov dword ptr [ebp-48], edi
mov dword ptr [ebp-30], ebx
mov dword ptr [ebp-38], edi
je 00401B19
lea edx, dword ptr [ebp-68]
lea ecx, dword ptr [ebp-28]
mov [ebp-60], 00401878
mov [ebp-68], 00000008

tu change le je en jmps et c'est terminer !! 74 => eb

ca m'a pris 30 sec ! avec hiew

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.