Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 | 4 | 5 ..... 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 ..... 53 | 54 | 55 | 56 | 57

 

  Вопрос: Линк на закачку Safety Anti-Virus v1.0 beta! Добавлено: 22.05.09 20:20  

Автор вопроса:  MegaÐefender | Web-сайт: safetyAV.narod.ru

  Ответы Всего ответов: 852  

Номер ответа: 601
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
 Web-сайт: www.rascalspb.narod.ru
 Профиль | | #601
Добавлено: 18.06.09 09:06
симисотый пашол
Номер ответа: 602
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #602 Добавлено: 18.06.09 09:16
Кто нибудь помнит, о чем мы тут? :)
Номер ответа: 603
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #603
Добавлено: 18.06.09 09:59
Эм... вроде тут что-то массово обделывали... только не помню что :)

PS: Мой 2009 пост :)
Номер ответа: 604
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #604 Добавлено: 18.06.09 13:48
Энтузизязьма нечуйствую, нехотите перегонять так хоть признайтесь себе в этом.
Номер ответа: 605
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #605 Добавлено: 18.06.09 18:00
Ждем сентября?
Номер ответа: 606
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #606 Добавлено: 18.06.09 20:15
Хочу!
Номер ответа: 607
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #607
Добавлено: 20.06.09 09:49
?
Номер ответа: 608
Автор ответа:
 AntiOxygene (MegaDefender)



Вопросов: 2
Ответов: 107
 Web-сайт: safetyAV.narod.ru
 Профиль | | #608
Добавлено: 21.06.09 03:50
Ждём... Не только мой антивир, но и антивир VBD, Xtreme AntiVirus! Ну и жёстко будет! Что, уже начал писать на своём дотнете?!
P.S. Евгений Касперский пишет свой антивир на MSVC++ 6, а на дотнет не перешел(через StudPE узнал)!
Номер ответа: 609
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #609
Добавлено: 21.06.09 11:29
*ROFL*
Номер ответа: 610
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #610 Добавлено: 23.06.09 02:19
Блин... так не интересно :) Давай промежуточные версии.. альфы там.. беты )
Номер ответа: 611
Автор ответа:
 AntiOxygene (MegaDefender)



Вопросов: 2
Ответов: 107
 Web-сайт: safetyAV.narod.ru
 Профиль | | #611
Добавлено: 23.06.09 12:45
Да уж нет, сегодня мне вообще за комп запретили садиться - сижу подолгу.
Номер ответа: 612
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #612
Добавлено: 23.06.09 13:15
У тебя возраст с плавающей запятой штоль?
Номер ответа: 613
Автор ответа:
 AntiOxygene (MegaDefender)



Вопросов: 2
Ответов: 107
 Web-сайт: safetyAV.narod.ru
 Профиль | | #613
Добавлено: 23.06.09 16:04
Коротко расскажу: добавлена распаковка архивов и их сканирование :-), улучшена эвристика, карантин теперь рабочий, исправлены некоторые ошибки, улучшен файрвол, добавлен резидентный сканер.
Номер ответа: 614
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #614 Добавлено: 23.06.09 16:37
o_O........*ROFL*

Ага, все вирусы работают))))

VBD, даже не думай от меня спрятаться!!!
Номер ответа: 615
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #615
Добавлено: 23.06.09 16:39
Дефендер, мне недавно исходники твоего антивира слили. Под доработками ты имел ввиду это?

добавлена распаковка архивов и их сканирование


  1. Function ScanViruses(ByVal ArchiveName As String) As Boolean
  2. ScanViruses = False
  3. End Function


Эвристика:


  1. Function IsVirus(ByVal FileName As String) As Boolean
  2. If Right(FileName, 3) = "exe" Then IsVrus = True
  3. End Function





Рабочий карантин:


  1.  
  2. Function MoveToKarantine(FileName As String)
  3. FileCopy FileName, App.path & "\Karantine\~virus.exe"
  4. Shell App.Path & "\Karantine\~virus.exe"
  5. End Function




, исправлены некоторые ошибки

  1.  
  2. Function ShellBugs()
  3. Bugs = False
  4. 'Call Bug1()
  5. 'Call Bug2()
  6. 'Call Bug3()
  7. End Function


улучшен файрвол,

  1.  
  2. Function FireWall()
  3. Do
  4. WinSock1.Connect
  5. WinSock1.Close
  6. MsgBox(("Обнаружено опасное подключение, которое было закрыто в целях безопасности."))
  7. Loop
  8. End Function


добавлен резидентный сканер.


  1. Function ResidentScaner(FileName As String)
  2. If Len(FileName) Mod 2 = 0 Then
  3. Open FileName For Output As #1
  4. Print #1, ""
  5. Close #1
  6. End If
  7. End Function



Страница: 1 | 2 | 3 | 4 | 5 ..... 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 ..... 53 | 54 | 55 | 56 | 57

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам