Protéger votre ordinateur avec un carte a puce
5/5 (17 avis)
Vue 10 102 fois - Téléchargée 1 564 fois
Description
protection d'un microordinateur avec un carte a puce et l'utelesation le compsantt mscomm de visual basic6
Source / Exemple :
Private Sub Command1_Click() Dim a(64) 'tabl de 64 donne i = 0 'initial i=0 Text1.Text = "" ' efface tout les zone textbox Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" MSComm1.PortOpen = True 'ouvrir la port com1 '//rest de la carte --------_____----- For y = 0 To 300 MSComm1.RTSEnable = True Next MSComm1.RTSEnable = False '//fin de rest MSComm1.InputLen = 1 'donne qui recoi dan le tampon Do If MSComm1.InBufferCount Then GoTo 10 ' attend le donne carte --------> micro 20: l = l + 1 If l = 10000 Then GoTo fin Loop 10: donne = MSComm1.Input ' donne 'a(i) = Hex(Asc(b)) ' if la donne affiche en hexadicimal a(i) = donne i = i + 1 l = 0 ProgressBar1.Value = i If i < 64 Then GoTo 20 ' 64 donne envoi For i = 0 To 7 ' affichage les donne don la de text Text1.Text = Text1.Text & a(i) Next For i = 8 To 15 Text2.Text = Text2.Text & a(i) Next For i = 16 To 23 Text3.Text = Text3.Text & a(i) Next For i = 24 To 31 Text4.Text = Text4.Text & a(i) Next For i = 32 To 39 Text5.Text = Text5.Text & a(i) Next For i = 40 To 47 Text6.Text = Text6.Text & a(i) Next For i = 48 To 55 Text7.Text = Text7.Text & a(i) Next For i = 56 To 63 Text8.Text = Text8.Text & a(i) Next Command2.Enabled = True fin: MSComm1.PortOpen = False ProgressBar1.Value = 0 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim lngRetVal As Long Dim blnPrevValue As Boolean lngRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _ blnPrevValue, 0&) Command2.Enabled = False End Sub Private Sub Option1_Click() MSComm1.CommPort = 1 ' choit com1 End Sub Private Sub Option2_Click() MSComm1.CommPort = 2 'choit com2 End Sub
Codes Sources
A voir également
- Smartmouse
- Visual Basic / VB.NET : Lecteur de cartes à puce pc/sc - CodeS SourceS - Guide
- Visual Basic / VB.NET : Cartes à puce - utilitaire de nettoyage des fichiers hexa (.hex) - Co - Guide
- Proteger le pc par des mots de passe - Codes sources - Visual Basic / VB.NET (API)
- Une petite sécurité supplémentaire pour protéger son ordinateur des curieux du réseau. - Codes sources - Javascript (Trucs & Astuces)
- Visual Basic / VB.NET : Proteger votre pc quan quelqun d'autre vien dessus - CodeS SourceS - Guide
11 déc. 2007 à 15:42
Et enfin j'ai réussi à programmer ma carte à puces.Maintenant en faisant demarrer le soft de SAMSAM, en appuyant sur le botton "lecture" je n'arrive à lire le contenu de la carte( pour les deux modes PIC /JDM et PHOENIX).quelqu'un pour m'expliquer ce qui ne va pas et comment faire fonctionner le soft de SAMSAM? merci à l'avance. (c'est très important pour moi...!!).
26 nov. 2007 à 00:19
s'il na pas marcher contacter moi sur mhr.live@gmail.com
25 nov. 2007 à 15:40
Mon projet est de sécuriser un PC via une carte à puce, après des recherches sur le NET
j'ai trouvé le soft de samsam très intéressant pour moi.Alors je sollicite vos aides qui seront precieuses pour moi et j'aimerais bien que vous m'expliquiez le fonctionnement de ce programme.
(Est-ce-que le PC me demande la carte et on doit saisir le nom, le prenom,et les codes pour chaque démarrage ?)
D'abord je vous donne quelques détails, et voici étape par étape ce que j'ai fait
déja, je dispose de windows XP
mon lecteur de carte est un CAR-04
(Programmateurs de cartes à puces multimodes
Phoenix / Smartmouse / I2Cbus / AVR-SPIprog / PIC-JDMprog)
j'ai 2 cartes golde l'une avec des composants de surfarface (pic 16F84A et eeprom 24c16)
l'autre avec les memes composants intégrés.
Tout d'abord, je mets en mode PIC/JDM à 3.57 MHZ puis j'écris le driver.hex dans le PIC
ensuite, je mets le jumper sur le mode phoenix à 3.57 MHZ et j'écris le driver.hex dans l'eeprom
puis je reviens sur le mode PIC/JDM à 3.57 MHZ pour effacer le PIC.
enfin, je demarre votre soft et j'appuis sur le bouton "lecture" mais hélas, rien ne se passe !
et je n'arrive pas à lire ce qu'il y a sur ma carte !
Remarque: le voyant lumineux vert du lecteur s'allume une fraction de seconde en mode PIC/JDM à 3.57 MHZ mais en phoenix, pas du tout ...
Merci à l'avance de m'expliquer comment fonctionne ce soft et ou se trouve l'anomalie.
electronicsoftabc@yahoo.fr
19 avril 2007 à 14:06
avec un carte golde toujour pas de resultat du programm!!!!!!
SVP aider nous
1 nov. 2005 à 12:19
mais je n'arrive toujours pas à lire ce qu'il y a sur ma carte !
voici étape par étape ce que jai fait, pouvez vous me dire ce qu'il ne va pas svp :
déja, je dispose de windows XP (je me suis demandé si ca cela n'était pas un source de pb?)
mon lecteur de carte est un CAR-04
(Programmateurs de cartes à puces multimodes
Phoenix / Smartmouse / I2Cbus / AVR-SPIprog / PIC-JDMprog)
j'ai 2 cartes une disposant d'un pic 16F84 et d'un éprom 24c16
l'autre Pic16F84A + eprom 24WC16J
(avec les 2 cartes je n'y arrive pas)
Tout d'abord, je met en mode JDM à 3.57 mhz puis j'écrit le driver.hex (j'ai verifié si il n'y a pa eu d'érreur d'écriture par comparaison)
ensuite, je démarre le soft de samsam, je met en mode phoenix (changement de jumper sur mon lecteur), je laisse en 3.57mhz
j'appuis sur le bouton "lecture" mais là, rien ne se passe !
le plus étonnant, c'est que j'ai un voyant lumineux sur mon lecteur de carte qui s'allume lorsque la carte est lu, en jdm, ce voyant s'allume une fraction de seconde, mais en phoenix, pas du tout ...
merci de m'indiquer ce qu'il ne va pas svp
cordialement, Nabil
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.