Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 499 fois - Téléchargée 65 fois
'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
Pourriez-vous m'aider
Merci
if text1.text = "clédeCD" then
form1.show
else
msgbox"mauvais mot de pass"
end if
...lol :)
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).
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.