Пример троянски на Делфи
- Ние можем да било хубаво да се направи една статия, използвайки BB кодове.
Пример троянски на Delphi.
[Теория]
Нашата троянски ще се състои от две части: клиент и сървър. Сървър - Това е частта, която ще бъде на компютъра на жертвата, тя
Ще се отвори връзка гнездо и да изпълни команда текст-клиент. Клиент - е
откъде знаеш, програмата, която трябва да стоя тук и да управлявате сървъра.
[Практика]
Да започваме!
Сървър и клиент гнезда се намират в раздела Интернет и се наричат ServerSocket и ClientSocket. Внимание! Да не се смесва:
В Delphi 7 от тези компоненти няма стандарт, има само компоненти и TCPServer TCPClient - те ни са
Не е подходящ!. Ако имате Delphi 7, ще трябва да ги инсталирате ръчно, за това отидете на
Компонент >> insall Пакети >> Добавяне >> Direktoriya_Delfi / хамбар / dclsockets70.bpl
[Сървър]
Хвърли за формиране на сървъра компонент. нека да бъде ServerSocket1.
Задайте свойствата равна на порт 45288 е пристанището, че троянецът ще се вземат нашите поръчки и да изпрати тайните на жертвата.
В рамките на програмата променлива Var:
Сега формата на колан като ние не е необходимо, че жертвата може да се види, че тя живее троянски кон:
Изберете формата на процедура (Form1) OnCreate:
Сега нека да напусне Троянският кон е предписана стартиране (в употреба, за да добавите регистър, в Var - регистър: TRegistry
Сега нашата Trojan е не само вижда в списъка с приложения, но той започна с стартиране на Windows. Следващата стъпка - да приема команди от сървъра:
Сървърът за събитие OnClientRead напишете:
И тук отворя място за вашето въображение. Сега можете да го направите:
ако сте получили заповед "да се променят бутоните на мишката, променят бутоните на мишката, и т.н.
Ето как изглежда на Delphi:
Вие сте се научили да приемат и потребителското процес команди, но понякога трябва обратното - да предаде нещо на клиента, като потребителското име. Това се прави по следния начин:
Сега ние прехвърли версията на сървъра.
В същата процедура, като добави:
Както можете да видите, използвайки sendtext отбор изпратихме първото съобщение за клиент "тестовата версия" на.
Не забравяйте да се запишете на проекта.
На сървъра разбрах, клиентът сега.
[Клиент]
Създаване на нов проект.
Вар също декларира променливата аз stringovogo вид информация, получена пускане.
Хвърли в edit'y форма, която ще използваме: IP сървър, текст команда. Ние се отнасят съответно и IP съобщението;
Quit 4 бутон компонент, обърнете се към тях като Connect, изключете, Изпрати, Изход.
Също така ние откриваме ClientSocket и го наричат Client.
И за пълен контрол за състоянието, обадете се на SB, тук ще дойдат отговорите на сървъра.
Следваща обработват събитие за клиента:
Сега обработваме събитието OnClick на бутона: