Clé de securité

Zack Moya Messages postés 3 Date d'inscription mardi 1 octobre 2013 Statut Membre Dernière intervention 6 décembre 2013 - 1 oct. 2013 à 17:21
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 3 oct. 2013 à 11:11
Bonjour,
je suis un stagiaire ,j'ai un Question si vous plaît comment faire programmer une Clé de sécurité externe Qui donne un Mot de passe Pour Ouvrir une Application Vb.net déployer

Nb: L'application n'execute pas c'est la Clé usb ne connecté pas au pc

Merci

2 réponses

ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 4
3 oct. 2013 à 11:05
Bonjour

Pour détecter la clef USB :

  Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Int32
  Private Const DRIVE_REMOVABLE = 2
  Private Const DRIVE_FIXED = 3
  Private Const DRIVE_REMOTE = 4
  Private Const DRIVE_CDROM = 5
  Private Const DRIVE_RAMDISK = 6 ' global
  '
  Sub clefUSB()
    Dim nomClefUSB(4) As String ' local
    Dim drives As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives()
    Dim i As Integer = 0
    For i = 1 To 4
      nomClefUSB(i) = ""
    Next i
    For i = 0 To drives.Length - 1
      If drives(i).DriveType = System.IO.DriveType.Removable Then ' CLEF USB
        Dim nomClefUSB(i) = Mid(drives(i).Name, 1, 1)
      End If
    Next i
    MsgBox(nomClefUSB(1) & nomClefUSB(2) & nomClefUSB(3) & nomClefUSB(4))
  End Sub


Ensuite tu fais une lecture normale de fichier sur les clefs pour trouver celle qui a le fichier du mot de passe.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
3 oct. 2013 à 11:11
peine perdue si la clé usb n'est pas un dongle de sécurité, puisqu'une clé USB simple est parfaitement duplicable
0
Rejoignez-nous