VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
25 juin 2008 à 18:18
Amghid2007 Messages postés 14 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 6 mars 2010 - 8 juil. 2008 à 21:01
Amghid2007 Messages postés 14 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 6 mars 2010 - 8 juil. 2008 à 21:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47110-verrouillage-du-lecteur-cd-ejection-sur-mot-de-passe
https://codes-sources.commentcamarche.net/source/47110-verrouillage-du-lecteur-cd-ejection-sur-mot-de-passe
8 juil. 2008 à 21:01
bon travail !!!10/10 ...ca marche a merveille..mais juste pour le mot de pass j'ai met O au lieu de ZERo
sinon j'arive a verouiller mon lecteur ..loll car mes enfants il corient que c un teroire
y aurai il du nouveau dans ce sens ??? on attend
bonne recherche...
30 juin 2008 à 08:45
? base64dec("zABFAH0BGi") : renvoi : ÌEŽ
En quoi est-ce faux ?
Enfin, le principal n'est pas là.
Amicalement,
Us.
29 juin 2008 à 21:29
au pire:
http://www.codyx.org/snippet_chaine-vers-base-64-vice-versa_62.aspx#151
voir code de EBArtSoft ^^
29 juin 2008 à 20:58
Bon... ça pas l'air de t'inspirer mon discours... -:);
Si je comprends bien, en réalité ton cryptage ne sert qu'à éviter d'avoir le "password" en clair dans le code pour le remplacer par un nombre (192 ici)... Pourquoi alors faire si compliqué ? (d'autant que cela refuse de fonctionner chez moi... snifff...)...
On pourait fort bien faire quelque chose de plus simple avec :
=
Function Cle(Password As String) As Long
' RENVOI UN NOMBRE EN FONCTION DU PASSWORD
' afin de ne pas coder en dur le password du programme
' Paramètres
Dim t As Long, let1 As Long
' Algo
For t = 1 To Len(Password)
let1 = Asc(Mid(Password, t, 1))
Cle = Cle + t * let1
Next t
End Function
=
avec comme valeur 4040 pour ton pass zABFAH0BGi
Amicalement,
Us.
27 juin 2008 à 12:26
J'ai fait tes manips, mais rien à observer... pas d'arrêt sur une erreur...
Ensuite, j'ai mis qlq point d'arrêt pour observer pas à pas...
Dans Crypto, dans tous les cas (mot passe ou pas), le test de la ligne :
If (CryptAcquireContext(hProv, vbNullString, vbNullString, PROV_RSA_FULL, 0)) Then
est négatif... avec hprov=0, PROV_RSA_FULL=1... donc jamais le code compris entre ce test n'est exécuté... cela devrait être la même chose pour le monde, non ? ... donc, logiquement crypto renvoit une chaine vide, d'où la valeur nulle...
Si cela peut aider, juste après avoir indiqué le mot de passe "zABFAH0BGi" et cliquer sur le bouton, on a dans "crypto" les variables contenant :
vsInput = IEZ, (avec des accents, que je ne peux reproduire ici)
vsPassword = LockOff (bizarre de ne pas retrouver le vspassword de l'appel dans Testpassword... mais bon...)
vbCrypt = False
Voilà... moi j'm'y perds... enfin, cela tourne autour de tout ça...
Enfin, je ne comprends pas le comportement étrange dans Base64Dec lorsqu'on y met un Msgbox... mais bon...
Amicalement,
Us.
27 juin 2008 à 11:37
partons du principe, donc, que Crypto fonctionne.
presse F8 pour lancer le projet
fais bouton droit dans une fenetre de code,
fais Basculer > Arret sur toutes les erreurs
et presse F5
observe enfin ce qui se passe dans le TestPassword
(ben ouais, tu es mes yeux, mes oreilles ^^)
je pense que tu as MSXML.... enfin, je veux dire, j'ai testé en trafiquant la chaine "MSXML.DOMDocument" ca m'a bien jeté, donc...
27 juin 2008 à 11:31
J'y perds un peu mon latin... mais je pense avoir localisé le pb.
Dans "Base64Dec", j'ai un comportement étrange... En effet, j'ai rajouté un simple Msgbox pour suivre le résultat et là, big bizarre...
Si msgbox est en Rem, aucun message d'erreur n'est généré... si je demande l'affichage, alors j'ai directement le renvoi sur l'étiquette "Handler"... Bref, il me semble que j'ai pas MSXML, et que l'erreur n'est pas gérée correctement... (Je suis peut-être le seul à ne pas avoir MSXML... -:); c'est pour ça que ça tombe sur moi... -:);
=
Private Function Base64Dec(ByRef vsData As String) As Byte()
On Error GoTo Handler
With CreateObject("MSXML.DOMDocument").createElement("Base64")
.dataType = "bin.base64"
.Text = vsData
Base64Dec = .nodeTypedValue
End With
'MsgBox "base = " & Str(Base64Dec)
Exit Function
Handler:
MsgBox "Support XML non présent sur le poste.", vbCritical
End
End Function
=
Amicalement,
Us.
27 juin 2008 à 11:11
En fait la ligne :
If TestPassword(CcTxtPassword.Text, "LockOff") = 1962 Then
dans la même sub, me renvoit toujours zéro, qlq soit le mot de passe, bien que cctxtpassword.text contient bien l'entrée saisie...
C'est donc le calcul du password sous forme numérique qui ne fonctionne pas comme attendu... mais hélas, la fonction "Crypto" est un peu... difficile à analyser, tout même... -:);
Amicalement,
Us.
27 juin 2008 à 10:59
Amicalement,
Us.
27 juin 2008 à 09:25
je piges pas pourquoi tu te fais jeter... au poil chez moi (Vista) et au boulot (Xp)
rappel (reloud, j'imagine)
zABFAH0BGi a saisir dans la zone Textbox
l'autre, c'est a fournir en ligne de commande, pour déverrouillage global.
regardes en pas a pas, si tu veux, pour la saisie du password...
27 juin 2008 à 08:58
Je ne suis pas très doué alors... mais cela me renvoit en permanence "Mot de passe incorrect", et je fais bien attention. J'ai aussi utilisé CTRL+V... ben, marche pôs...
Est-ce parce que c'est un portable ?
Par contre la coupure de courant du lecteur est au poil... c'est toujours ça en moins à payer à EDF... -:);
Amicalement,
Us.
27 juin 2008 à 08:00
simple: j'execute l'IDE en mode administrateur. Et effectivement, si je lance l'exe en mode admin, ca fonctionne: mes lecteurs se verrouillent bien ^^
idem pour le deverrouillage global (mot de passe a fournir en ligne de commande de l'application)
tout semble donc rouler :D
27 juin 2008 à 07:30
US_30, je confirme le mot de passe de deverrouillage...
zABFAH0BGi (gaffe a la casse et au H-ZERO-B ....)
par contre, j'ai des soucis, sous Vista (pas sur Xp, de mémoire) en mode compilé: mes lecteurs ne se bloquent pas
27 juin 2008 à 05:09
J'ai l'impression d'être nargé lorsque la lumière du lecteur est verte et tourne au rouge pendant une seconde lorsqu'on appuie sur le bouton éjecter, avec son petit air de dire : "BEEEEEEPPPP mauvaise réponse, try again later".
P-ê paranoîaque un peu je suis.
26 juin 2008 à 23:02
Euh... si je comprend bien, au démarrage du prog le lecteur CD est bloqué (d'ailleurs l'alimentation semble plus présente), puis lorsqu'on rentre le mot de passe, on devrait débloquer le lecteur (revenir à la normale)... là, où je coince, c'est qu'aucun des deux mots de passe ne sont reconnus... tant pis, j'vais une trombonne...
Amicalement,
Us.
26 juin 2008 à 18:27
et ouai...
25 juin 2008 à 22:45
25 juin 2008 à 18:18
mon lecteur DVD s'ouvre toujours avec ton prog lancé