Clé de securité

Signaler
Messages postés
3
Date d'inscription
mardi 1 octobre 2013
Statut
Membre
Dernière intervention
6 décembre 2013
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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

Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
4
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.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
225
peine perdue si la clé usb n'est pas un dongle de sécurité, puisqu'une clé USB simple est parfaitement duplicable