49660 (Захист файлів від запису), страница 2
Описание файла
Документ из архива "Захист файлів від запису", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49660"
Текст 2 страницы из документа "49660"
int 21h
Ret
SetDTA Endp
Perevod Proc
mov ah,2
mov dl,13
int 21h
mov ah,2
mov dl,10
int 21h
Ret
Perevod Endp
ReadBoot Proc; Процедура читання BOOT сектора
mov al,0
mov dx,0
mov cx,1
mov bx,offset Boot
int 25h
pop dx
Ret
ReadBoot Endp
CntFat Proc
mov ah,Boot [16h]
mov Size_Fat,ah
Ret
CntFat Endp
ReadFat Proc; Процедура читання FAT
mov cx,0
mov al,0
mov dx,1
mov cl,Size_Fat
mov bx,offset Fat1
int 25h
pop dx
Ret
ReadFat Endp
ReadRoot Proc
mov al,0
mov dx, 19
mov cx,8
mov bx,offset Root
int 25h
pop dx
Ret
ReadRoot Endp
ReadNameFile Proc; Процедура читання ім’я файлу
mov ah,09h
mov dx,offset Inp_File
int 21h
call SetDTA
mov di,0
NewSimFileName:
mov ah,1
int 21h
cmp al,13
je EndVvod
cmp al,'a'
jl NotBig
cmp al,'z'
jg NotBig
sub al, 20h
NotBig:
mov FileName [di],al
mov File_Nam [di],al
inc di
cmp di,13
jne NewSimFileName
EndVvod:
mov di,0
NewSimPath:
mov ah,FileName [di]
mov Path [di+3],ah
cmp ah,0
je EndPath
inc di
jmp NewSimPath
EndPath:
mov ah,4eh
mov dx,offset Path
mov cx,3Fh
int 21h
jnc FileOk
call Perevod
mov ah,09h
mov dx,offset Err_File
int 21h
mov ah,1
int 21h
jmp Exit0
FileOk:
mov di,12
mov si,10
NewSimName:
mov ah,FileName [di]
dec di
cmp ah,0
je NewS
mov FileName [si],ah
mov bh,0
mov FileName [di+1],bh
dec si
NewS:
cmp ah,'. '
jne NewSimName
mov bh,0
mov FileName [si+1],bh
mov di,0
NewS1:
mov ah,FileName [di]
cmp ah,0
jne NewS2
mov bh,' '
mov FileName [di],bh
NewS2:
inc di
cmp di,11
jne NewS1
Ret
ReadNameFile Endp
NumClust Proc; Процедура, що зчитує номер кластера
mov di,0
NewSimRoot:
mov di,el_Root
mov ah,Root [di]
mov di,el_DTA
mov al,FileName [0]
cmp ah,al
jne Dalee
mov bx,el_Root
mov di,0
mov el_DTA,di
NewSimEqu:
mov di,el_Root
mov ah,Root [di]
mov di,el_DTA
mov al,FileName [di]
cmp ah,al
jne NotEqu
inc CntSim
NotEqu: inc el_Root
inc el_DTA
mov di,el_DTA
cmp di,11
jne NewSimEqu
cmp di,CntSim
jne NotThisFile
sub di,11
mov Save_di,di
jmp Read_Clust
NotThisFile:
mov di,0
mov el_DTA,di
mov CntSim,di
mov el_Root,bx
Dalee: inc di
inc el_Root
mov di,el_Root
cmp di,3200
jne NewSimRoot
Read_Clust:
mov di,el_Root
sub di,11
mov al,Root [di+1ah]
mov ah,Root [di+1bh]
mov Clust,ax
mov bx,0
NewSimRecord:
mov ah,Root [di+bx]
mov RootRecord [bx],ah
inc bx
cmp bx,32
jne NewSimRecord
Ret
NumClust Endp
ReadClusts Proc; Процедура читання кластера
mov ax,Clust
mov bx,0
mov dx,0
mov ax,Clust
mov bx,3
mul bx
mov bx,2
div bx
mov bx,ax
mov cx,Clust
and cx,1
jne NeChet
mov al,Fat1 [bx]
mov ah,Fat1 [bx+1]
mov cx,ax
shr cx,12
shl cx,12
add cx,0FF7h
mov Fat1 [bx],cl
mov Fat1 [bx+1],ch
shl ax,4
shr ax,4
mov MassOne,ax
jmp EndClust
NeChet:
mov al,Fat1 [bx]
mov ah,Fat1 [bx+1]
mov cx,ax
shl cx,12
shr cx,12
add cx,0FF70h
mov Fat1 [bx],cl
mov Fat1 [bx+1],ch
shr ax,4
mov MassOne,ax
EndClust:
Ret
ReadClusts Endp
ReadPassword Proc; Процедура, що читає пароль
call Perevod
mov ah,09h
mov dx,offset Inp_Pass
int 21h
mov di,0
NewSimPassword:
mov ah,8
int 21h
cmp al,13
je EndVvodPass
mov Password [di],al
inc di
cmp di,8
jne NewSimPassword
EndVvodPass:
Ret
ReadPassword Endp
WriteFile Proc; Процедура запису в файл
mov di,0
NewSimN_File:
mov ah,File_Nam [di]
cmp ah,0
je EndVvodN_File
mov New_File [di],ah
inc di
cmp di,13
jne NewSimN_File
EndVvodN_File:
mov ah,'_'
mov New_File [di-1],ah
mov ah,3Ch
mov dx,offset New_File
mov cx,0
int 21h
jnc N_FileOk
mov ah,09h
mov dx,offset Err_File
int 21h
mov ah,1
int 21h
jmp Exit0
N_FileOk:
mov Handle,ax
mov di,Save_di
mov ah,40h
mov bx,Handle
mov cx,32
mov dx,offset RootRecord
int 21h
mov di,0
mov ax,MassOne
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; Процедура запису в файл даних
mov ax,0
mov cx,0
mov al,0
mov dx,1
mov cl,Size_Fat
mov bx,offset Fat1
int 26h
pop dx
jnc no_err
call Perevod
mov ah,09h
mov dx,offset Err_WrtF
int 21h
mov ah,1
int 21h
jmp Exit0
no_err:
Ret
WriteData Endp
Coder Proc
call Perevod
call ReadBoot
call CntFat
call ReadFat
call ReadRoot
call ReadNameFile
call NumClust
call ReadClusts
call WriteFile
call WriteData
Ret
Coder Endp
FindNullRecord Proc; Процедура знаходження нульового запису
mov di,0
NewSimFindRecord:
mov ah,Root [di]
inc di
cmp ah,229
jne NewSimFindRecord
dec di
mov Save_di,di
Ret
FindNullRecord Endp
ReadNameFileW Proc; Процедура читання імені записаного файлу
mov ah,09h
mov dx,offset Inp_File
int 21h
call SetDTA
mov di,0
W_NewSimFileName:
mov ah,1
int 21h
cmp al,13
je W_EndVvod
cmp al,'a'
jl W_NotBig
cmp al,'z'
jg W_NotBig
sub al, 20h
W_NotBig:
mov FileName [di],al
inc di
cmp di,13
jne W_NewSimFileName
W_EndVvod:
mov ah,4eh
mov dx,offset FileName
mov cx,3Fh
int 21h
jnc W_FileOk
call Perevod
mov ah,09h
mov dx,offset Err_File
int 21h
mov ah,1
int 21h
jmp Exit0
W_FileOk:
Ret
ReadNameFileW Endp
ReadFile Proc; Процедура читання файлу
mov ah,3dh
mov dx,offset FileName
mov al,2
int 21h
jnc R_FileOk
call Perevod
mov ah,09h
mov dx,offset Err_File
int 21h
mov ah,1
int 21h
jmp Exit0
R_FileOk:
mov Handle,ax
mov ah,3fh
mov bx,Handle
mov cx,32
mov dx,offset RootRecord
int 21h
mov di,0
mov ah,3fh
mov bx,Handle
mov cx,5
mov dx,offset InFile
int 21h
mov di,0
mov ax,0
mov MassOne,ax
mov bx,10000
mov cx,10
NewDec_R:
mov dx,0
mov al, InFile [di]
sub al,30h
mul bx
mov Sim,ax
mov dx,0
mov ax,bx
div cx
mov bx,ax
mov ax,Sim
add MassOne,ax
mov ax,0
inc di
cmp di,5
jne NewDec_R
mov ax,MassOne
call ReadPassword
mov ah,3fh
mov bx,Handle
mov cx,8
mov dx,offset Passwd
int 21h
mov bx,ax
mov ax,0
mov di,0
mov CntSim,ax
NewSimPw:
mov ah,Password [di]
mov al,Passwd [di]
cmp ah,al
jne Dalee0
inc CntSim
Dalee0:
inc di
cmp di,bx
jne NewSimPw
cmp di,CntSim
je PasswdOk
call Perevod
mov ah,09h
mov dx,offset Err_Pass
int 21h
mov ah,1
int 21h
jmp Exit0
PasswdOk:
mov di,Save_di
mov bx,0
NewRR:
mov ah,RootRecord [bx]
mov Root [di+bx],ah
inc bx
cmp bx,32
jne NewRR
Ret
ReadFile Endp
WriteClusts Proc; Процедура запису в файл кластера
mov al,RootRecord [1ah]
mov ah,RootRecord [1bh]
mov Clust,ax
mov ax,Clust
mov bx,0
mov dx,0
mov ax,Clust
mov bx,3
mul bx
mov bx,2
div bx
mov bx,ax
mov cx,Clust
and cx,1
jne NeChetW
mov al,Fat1 [bx]
mov ah,Fat1 [bx+1]
mov cx,ax
shr cx,12
shl cx,12
add cx,MassOne
mov Fat1 [bx],cl
mov Fat1 [bx+1],ch
jmp EndClustW
NeChetW:
mov al,Fat1 [bx]
mov ah,Fat1 [bx+1]
mov cx,MassOne
shl cx,4
mov MassOne,cx
mov cx,ax
shl cx,12
shr cx,12
add cx,MassOne
mov Fat1 [bx],cl
mov Fat1 [bx+1],ch
EndClustW:
Ret
WriteClusts Endp
DeleteFile Proc; Процедура знищення файлу
mov ah,41h
mov dx,offset FileName
int 21h
Ret
DeleteFile Endp
DeCoder Proc
call Perevod
call ReadBoot
call CntFat
call ReadFat
call ReadRoot
call FindNullRecord
call ReadNameFileW
call ReadFile
call WriteClusts
call WriteData
call DeleteFile
Ret
DeCoder Endp
Select_Operation Proc
NewSelect:
call Perevod
mov ah,09h
mov dx,offset Select
int 21h
mov ah,1
int 21h
cmp al,31h
jne NotCoder
call Coder
jmp EndSelect
NotCoder:
cmp al,32h
jne NotDeCoder
call DeCoder
jmp EndSelect
NotDeCoder:
jmp NewSelect
EndSelect:
call Perevod
Ret
Select_Operation Endp
Main Proc
mov ax,@data
mov ds,ax
call Select_Operation
Exit0: mov ah,04ch
int 21h
Main Endp
End Main
Б![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
лок-схема алгоритму
Продовження блок-схеми алгоритму:
