49660 (Захист файлів від запису), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Захист файлів від запису", который расположен в категории "". Всё это находится в предмете "информатика" из 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


Б










лок-схема алгоритму

Продовження блок-схеми алгоритму:










Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4144
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее