Курсовая работа: Захист файлів від запису

mov si,5

NewDec:

mov dx,0

mov bx,10

div bx

mov cx,ax

add dl,30h

mov InFile [si-1],dl

dec si

mov ax,cx

cmp si,0

jne NewDec

mov ah,40h

mov bx,Handle

mov cx,5

mov dx,offset Infile

int 21h

call ReadPassword; Викликаємо процедуру ReadPassword

mov ah,40h

mov bx,Handle

mov cx,di

mov dx,offset Password

int 21h

mov ah,3eh

mov bx,Handle

int 21h

Ret

WriteFile Endp

WriteData Proc; Процедура запису в файл даних