Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:28:08

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE

Information sur la source

Catégorie :API Classé sous : verrou, bloquer, ejection, lecteur, verrouillage Niveau : Débutant Date de création : 25/06/2008 Date de mise à jour : 27/06/2008 07:29:19 Vu / téléchargé: 6 292 / 607

Auteur : Renfield

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

10,00 / 10

Commentaire sur cette source (18)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Bonjour,

J'ai posté il y a quelques temps une petite source qui montre entre autres comment verrouiller un lecteur CD.

on m'a contacté, car la mise en oeuvre ne parait pas aisée.

voici donc un projet concrêt, qui permet de verrouiller tous les lecteur CD au lancement de l'application. Une fois fermée, les lecteurs restent lockés (ca survit même parfois au reboot).

un gros bouton "Ejection" permet d'ejecter le lecteur, sous reserve d'avoir saisi le mot de passe qui va bien. le lecteur se reverrouille aussitôt.
Le mot de passe est crypté, et n'apparait pas en clair dans la source, ni dans l'Exe.

en passant le parametre qui va bien à l'application, tous les lecteurs se déverrouillent.

Source

'# a vous de voir, tout est commenté...
'#
'# Quel est le but, me direz vous ?
'# Nos chères têtes blondes, au Collège jouent avec les lecteurs,
'# y insèrent toutes sortes de choses,
'# enlèvent les courroies...
'#
'# fichtre! que c'est drôle !

'# a vous de voir, tout est commenté...
'# 
'# Quel est le but, me direz vous ? 
'# Nos chères têtes blondes, au Collège jouent avec les lecteurs, 
'# y insèrent toutes sortes de choses, 
'# enlèvent les courroies... 
'# 
'# fichtre! que c'est drôle !

Conclusion

les mots de passes actuels sont :

zABFAH0BGi => commande de l'ejection
zABEAKwgMC => deverrouillage global (voir fichier bat)

étrange, en mode compilé, ca ne fonctionne plus aussi bien (lecteur non verrouillé au démarrage)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

deverrouillage.bat 24 octets
FrmMain.frm 3 853 octets
FrmMain.frx3 534 octets
ModMain.bas 9 444 octets
Projet1.vbp 738 octets

Télécharger le zip

Historique

25 juin 2008 15:47:20 :: ajout de sauts de lignes dans la description
27 juin 2008 07:29:19 :: corrections mineures. toujours des soucis en mode compilé (lecteurs non verrouillés)

Sources du même auteur

TRI DES ITEMS DE LISTVIEW (DATE, NUMÉRIQUE OU PERSO)

INFOS WMI DES DISQUES DURS (LIEN LECTEUR LOGIQUE / LECTEUR P...

GENERATEUR DE DICTIONNAIRES DE CLÉS WPA POUR LIVEBOX

ISOLATOR - GÉNÉREZ LES FICHIERS .MANIFEST POUR VOS EXE, DLL ...

CONVERTIR VOS VIDÉOS POUR TOMTOM

Toutes les sources de Renfield

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

LECTEUR RSS EN VB6 par vbnino

LECTEUR DE MEDIA, AFFICHEUR DE LYRICS - JODAPLAYER par johndave

BLOQUER/DEBLOQUER UN FICHIER NTFS par EBArtSoft

CHANGEMENT DE LETTRE D'UN LECTEUR (XP & 2000) par NHenry

DÉTECTION DES CHANGEMENTS SUR LES LECTEURS CD ET USB par erdna

Commentaires et avis

Commentaire de gillardg le 25/06/2008 18:18:25

ça ne fonctionne pas !
mon lecteur DVD s'ouvre toujours avec ton prog lancé

Commentaire de Renfield le 25/06/2008 22:45:42 administrateur CS

... capricieux, je le reconnais (je viens de tester en demi succès sous Vista)

Commentaire de EBArtSoft le 26/06/2008 18:27:13 administrateur CS

Tu oublies le 'ti trou qui sert a ouvrir le lecteur cd quand ya plus de courant en y inserant un epingle à cheveux !
et ouai...

Commentaire de us_30 le 26/06/2008 23:02:52

Bonsoir à tous,

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.

Commentaire de max12 le 27/06/2008 05:09:44 administrateur CS

Concept amusant, parfois très chiant. Phénomène observé sous Linux, mais pour l'insertion normale d'un CD.

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.

Commentaire de Renfield le 27/06/2008 07:30:56 administrateur CS

mis à jour.

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

Commentaire de Renfield le 27/06/2008 08:00:29 administrateur CS

quelle difference entre IDE/Compilé sous Vista ?

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

Commentaire de us_30 le 27/06/2008 08:58:35

Bonjour,

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.

Commentaire de Renfield le 27/06/2008 09:25:49 administrateur CS

...
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...

Commentaire de us_30 le 27/06/2008 10:59:23

Hum... bizarre... En retirant le test du mot de passe dans "CcBtnOk_Click", tout fonctionne correctement. Le lecteur se réactive normalement, puis s'ouvre... donc c'est bien le mot de passe qui coince, et rien d'autre... pourquoi ? mystère... je cherche...

Amicalement,
Us.

Commentaire de us_30 le 27/06/2008 11:11:19

Euh... oui, je rajoute...
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.

Commentaire de us_30 le 27/06/2008 11:31:36

Re,

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.

Commentaire de Renfield le 27/06/2008 11:37:51 administrateur CS

c'est la voir du fleimard pour faire joujou avec la base64, j'aurai pu placer l'algo là, remarques...
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...

Commentaire de us_30 le 27/06/2008 12:26:17

Ouais... ben, c'est bizarre comme truc ton machin... (je progresse dans mon vocable -:); )

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.

Commentaire de us_30 le 29/06/2008 20:58:25

Bonsoir Renfield,

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.

Commentaire de Renfield le 29/06/2008 21:29:31 administrateur CS

ce qui coince, c'est juste le passage en Base 64...(ou plutot de Base 64)

au pire:
http://www.codyx.org/snippet_chaine-vers-base-64-vice-versa_62.aspx#151

voir code de EBArtSoft ^^

Commentaire de us_30 le 30/06/2008 08:45:43 10/10

Dans Debug :
? base64dec("zABFAH0BGi") : renvoi : ÌE´
En quoi est-ce faux ?

Enfin, le principal n'est pas là.

Amicalement,
Us.

Commentaire de Amghid2007 le 08/07/2008 21:01:16

salut...
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...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

ejection des lecteur autre que cdrom [ par RV57000 ] Salut à tousvoilà mon problème, depuis quelques jours je cherche quel est la commande pour faire éjecter un disque ZIP, y'à p Bloquer accès lecteur Active Directory [ par seb520 ] Bonjour ,Je demande de l'aide pour savoir s'il est possible de bloquer l'accès aux lecteurs de cd-rom et aux ports USB d'un utilisateur d'un domaine a Mappage lecteur [ par lesaffranchis ] Bonjour,Je souhaite mapper des lecteurs reseaux selon le groupe d'appartenance, mais nous avons plusieurs groupes AD qui utilise le même mappage , j'a Bloquer l'ajout directe d'éléments sur une combo [ par basamir ] Bonsoir,Comment SVP faire pour ne plus changer ni supprimer ni ajouter des items dans une combo.MerciLe savoir est la lumière de nous tous, partageons lecteur string pour XML [ par videaste ] bonjour à tous,je recupere une variable string formater en donner XML.je veux la lire à partir de lecteur Xml mais je trouve que des lecteurs de fichi Exécuter le lecteur multimedia par défaut [ par fabbb001 ] Bonjour, je suis débutant en vb et j'ai un petit problème. Je fait présentement une application qui exécute un .vob à l'aide d'un bouton. Puisque wind lecteur mp3 [ par bourleur ] voila g fé plusieur lecteur mp3 pour le modifier a ma façon mé tout les lecteur ne son pas a mon stylecomme pour charger des fichiers c sois une playl REQ Connection Auto + Déco Auto de lecteur Reseaux au Démarrage de Windows [ par ryo_perso ] Bonjour,Voilà je recherche un Script afin d'effectuer une Déconnexion automatique de l'ensemble des Lecteurs Réseaux présent sur le Système,Et par la lecteur XML string [ par videaste ] bonjour à tous,je suis desole mais je n'ai pas trouver de lecteur XML string comme pour le text ou l'element est "stringreader".est ce que quelqu'un p