ANTICHAT — форум по информационной безопасности, OSINT и технологиям

d_seg segment 'data'
child_name db 20 dup (0)
blok_param db 7 dup (0)
str_1 db 'The child is active',10,13,'$'
str_3 db 'Error child process',10,13,'$'
err_c db 0
d_seg ends

c_seg segment 'code'
assume cs:c_seg ,ds:d_seg
; ===============ПОДПРОГРАММА============
Get_cmd proc
       mov si,80h   ;SI=смещение командной строки.
       lodsb        ;Получим кол-во символов.
       cmp al,25    ;Больше 25?
       ja No_string ;Да - на метку No_string 
       or al,al     ;Нет командной строки?
       jz No_string ;На метку No_string 

       inc si       ;Теперь SI указывает на первый символ строки.

Next_char:
       lodsb      ;Получаем очередной символ.
       cmp al,0Dh ;Конец строки?
       je Got_cmd ;Да - на выход... 
       stosb      ;Иначе - сохраним символ в переменной File_name (stosd - запись в память по адресу al)
       jmp short Next_char ;Следующий символ... 

Got_cmd:
       xor al,al ;Строка получена! Допишем ASCII 0 в конец
       stosb
       clc  ;сбросить флаг переноса CF
       ret  ;Выходим из процедуры

No_string:
       stc  ;Строка неверна! Установим флаг переноса СF.
       ret  ;Выходим из процедуры
Get_cmd endp
START:
mov ax,d_seg
mov ds,ax

      mov bx,offset Finish
	  mov cl,4
      shr bx,cl
      inc bx
      mov ah,4Ah
      int 21h    ;Ужимаем размер отведенной памяти до метки Finish
	  
;====================================ПОЛУЧЕНИЕ ИМЕНИ ФАЙЛА ИЗ КОМАНДНОЙ СТРОКИ======================
mov di, offset child_name 
 call Get_cmd ;Получим командную строку.  
;===================================================ЗАПУСК ДОЧЕРНЕГО ПРОЦЕССА========================
      mov ah,4Bh  ;Функция EXEC (EXECute - запус программы)
      mov dx,offset child_name ;Имя файла для запуска
      mov al,0    ;Загрузка и запуск
      int 21h
	  
      jc error
	  mov ah,9h
	  mov dx,offset str_1
	  int 21h
	  mov ah,4ch
	  int 21h
	  
	error:
	mov ah,9h
	mov dx,offset str_3
	mov ah,4ch
	int 21h
Finish:
c_seg ends 
end START

d_seg segment 'data'
fname db 50 dup(0)
envvar db 'WORKFILE='
err_code db 0
str1 db 'CHILD is ACTIV',10,13,'$'
str2 db 'File open',10,13,'$'
str3 db 'Error of opening of a file ',10,13,'$'
str4 db 'Error variable environment', 10,13,'$'
len equ $-envvar ; подстановка
handle dw 0
buf db ?
d_seg ends 

c_seg segment 'code'
assume ds:d_seg,cs:c_seg 
START:
mov ax,d_seg
mov ds,ax

mov ah,9h
lea dx,str1
int 21h
;====================ПОЛУЧЕНИЕ ПАРАМЕТРОВ ИЗ ОКРУЖЕНИЯ====================
mov ax,es:2ch ; сегмент окружения
mov es,ax
;Ищем в окружение подстроку параметров
mov BX,0
cld
next_per:
        mov CX,len
        mov SI, offset envvar
        mov DI,BX
   repe cmpsb 
        je extraction
;Переменная не совпадает ищем дальще
;Ищем конес строки 0
test_nul:
        cmp byte ptr ES:[BX],0 ; сравнение с 0
        je next_nul ; ноль найден
        inc BX
        jmp test_nul 
; Проверка на 0 конец всего окружения
next_nul:
        inc BX
        cmp byte ptr ES:[BX],0 ; сравнение с 0
        jne next_per
; Переменная не найдена 
mov err_code,1
mov ah,9h
mov dx,offset str4
int 21h
jmp fin

extraction:
           mov BX,-1
	no_end:
	       inc BX
		   cmp byte ptr ES:[DI][BX],0 ; сравнение с 0
		   jne no_end
; BX-длина переменной
; DI- первый байт значения переменной
; ES- сегмент окружения
; DS- сегмент данных
;==========================ПЕРЕНОС ЗНАЧЕНИЯ ПЕРЕМЕННОЙ В ПРОГРАММУ=========
mov CX,BX
push ES
push DS
pop ES
pop DS
mov SI,DI
mov DI, offset ES:fname
rep movsb 
push ES
pop DS
;=================ИМЯ ФАЙЛА===============
mov ah,9h
mov dx, offset fname
int 21
;=====================================ОТКРЫВАЕМ ФАИЛ=============================
mov	ax, d_seg
mov	es, ax
mov ah,3dh
mov al,0 ; открываем для чтения
mov dx,offset fname
int 21h
;=====================================ПРОВЕРКА ОТКРЫТИЯ===========================
mov handle,ax
jnc open		; заменил cmp ax, 0

mov err_code,1
mov ah,9h
mov dx,offset str3
int 21h
jmp fin

open:
mov ah,9h
mov dx,offset str2
int 21h

out_text:
	mov ah,3fh
	mov bx, handle		; добавил, как же он будет читать файл без дескриптора
	mov dx,offset buf
	mov cx,1
	int 21h
	cmp ax,0
	je close
	mov ah, 02h
	mov dl, buf
	int 21h
	jmp out_text

close:			; закрываем файл, после чтения
    mov ah,3eh
	int 21h
fin:
	mov ah, 10h
	int 16h
	mov	ah, 4ch
	mov	al, err_code
	int	21h
c_seg ends 
end START