begin process at 2012 02 04 11:53:25
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API

 > VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE

VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :7 792 / 718
Auteur : Renfield

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

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

Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ...
Source avec Zip Source avec une capture JSON PARSER - ANALYSE DE CHAINES JSON
Source avec Zip Source avec une capture MODULE DE TÉLÉCHARGEMENT DE FICHIER BASIQUE (SYNCHRONE / ASY...
Source avec Zip COURS DE PILOTAGE........D'APPLICATIONS
Source avec Zip CSOCKET - REMPLACEZ WINSOCK PAR LA VERSION 2 DES API
Toutes les sources de Renfield

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami
Toutes les sources de la catégorie API

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LECTEUR MULTIMÉDIA par lartiguef
Source avec Zip Source avec une capture Source .NET (Dotnet) A.S.S.B BELGIUM LECTEUR EID par iblsysteme
Source avec Zip Source avec une capture Source .NET (Dotnet) LECTEUR PLAYER MULTIMÉDIA (MUSIQUES ET VIDÉOS) par aus3004
Source avec Zip Source avec une capture LECTEUR ENREGISTREUR GRAVEUR par cednoir
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROL POUR UTILISER PLUS FACILEMENT FMODEX.DLL par Luciol44

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


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Water in the Beginning of the Grand Canyon
Photo Green Energy Solutions With Light Bulb Morphed Into Landscape 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,201 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)