1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
| ; tsr.asm
; ЏаЁ¬Ґа Ї*ббЁў*®© १Ё¤Ґ*в*®© Їа®Ја*¬¬л б ЇҐаҐ*®б®¬ Є®¤* ў PSP.
; ‡*ЇаҐй*Ґв г¤*«Ґ*ЁҐ д*©«®ў ** ¤ЁбЄҐ, гЄ*§***®¬ ў Є®¬**¤*®© бва®ЄҐ ўбҐ¬
; Їа®Ја*¬¬*¬, ЁбЇ®«м§гойЁ¬ б।бвў* DOS
; ђҐ§Ё¤Ґ*в**п Їа®Ја*¬¬* §**Ё¬*Ґв ў Ї*¬пвЁ 208 Ў*©в
;
; Љ®¬ЇЁ«пжЁп:
; TASM:
; tasm /m tsr.asm
; tlink /t /x tsr.obj
; MASM:
; ml /c tsr.asm
; link tsr.obj,,NUL,,,
; exe2bin tsr.exe tsr.com
; WASM:
; wasm tsr.asm
; wlink file tsr.obj form DOS COM
;
.model tiny
.code
org 2Ch
envseg dw ? ; ᥣ¬Ґ*в*л© *¤аҐб Є®ЇЁЁ ®Єа㦥*Ёп DOS
org 80h
cmd_len db ? ; ¤«Ё** Є®¬**¤*®© бва®ЄЁ
cmd_line db ? ; **з*«® Є®¬**¤*®© бва®ЄЁ
org 100h ; COM-Їа®Ја*¬¬*
start:
jmp short initialize ; ЇҐаҐе®¤ Ё*ЁжЁ*«Ё§Ёагойго з*бвм
int21h_handler proc far ; ®Ўа*Ў®взЁЄ ЇаҐалў**Ёп 21h
pushf ; б®еа**Ё¬ д«*ЈЁ
cmp ah,41h ; Ґб«Ё ўл§ў*«Ё дг*ЄжЁо 41h (г¤*«Ёвм д*©«)
je fn41h
cmp ax,7141h ; Ё«Ё 7141h (г¤*«Ёвм д*©« б ¤«Ё**л¬ Ё¬Ґ*Ґ¬)
je fn41h ; **з*вм **и ®Ўа*Ў®взЁЄ
jmp short not_fn41h ; Ё**зҐ - ЇҐаҐ¤*вм гЇа*ў«Ґ*ЁҐ ў DOS
fn41h:
push ax ; б®еа**Ё¬ ¬®¤ЁдЁжЁагҐ¬л© аҐЈЁбва
push bx
mov bx,dx
cmp byte ptr [bx+1],':' ; Ґб«Ё ўв®а®© бЁ¬ў®«
; ASCIZ-бва®ЄЁ, ЇҐаҐ¤***®© INT 21h
; ¤ў®Ґв®зЁҐ - §**зЁв ЇҐаўл© бЁ¬ў®« -
; - Ё¬п ¤ЁбЄ*.
je full_spec
mov ah,19h ; Ё**зҐ:
int 21h ; ”г*ЄжЁп DOS 19h - ®ЇаҐ¤Ґ«Ёвм ⥪гйЁ© ¤ЁбЄ
add al,'A' ; ЇаҐ®Ўа*§®ў*вм *®¬Ґа ¤ЁбЄ* Є §*Ј«*ў*®© ЎгЄўҐ
jmp short compare ; ЇҐаҐ©вЁ Є ба*ў*Ґ*Ёо
full_spec:
mov al,byte ptr [bx] ; AL=Ё¬п ¤ЁбЄ* Ё§ ASCIZ-бва®ЄЁ
and al,11011111b ; ЇаҐ®Ўа*§®ў*вм Є §*Ј«*ў*®© ЎгЄўҐ
compare:
db 3Ch ; CMP AL, (**з*«® Є®¤* Є®¬**¤л cmp al,зЁб«®)
drive_letter db 'D' ; бо¤* Їа®жҐ¤га* Ё*ЁжЁ*«Ё§*жЁЁ §*ЇЁиҐв *г¦*го
; ЎгЄўг
pop bx
pop ax ; AX Ў®«миҐ *Ґ Ї®вॡгҐвбп
; Ґб«Ё ¤ЁбЄЁ б®ўЇ*¤*ов
je access_denied ; §*ЇаҐвЁвм г¤*«Ґ*ЁҐ
not_fn41h:
popf ; Ё д«*ЈЁ
; Ё ЇҐаҐ¤*вм гЇа*ў«Ґ*ЁҐ ЇаҐ¤л¤г饬㠮Ўа*Ў®взЁЄг INT 21h:
db 0EAh ; JMP FAR (**з*«® Є®¤* Є®¬**¤л ¤*«м*ҐЈ® ЇҐаҐе®¤*)
old_int21h dd 0 ; бо¤* Їа®жҐ¤га* Ё*ЁжЁ*«Ё§*жЁЁ §*ЇЁиҐв *¤аҐб
; ЇаҐ¤л¤г饣® ®Ўа*Ў®взЁЄ* INT 21h
access_denied:
; ў®ббв**®ўЁвм
popf ; д«*ЈЁ
push bp
mov bp,sp
or word ptr [bp+6],1 ; гбв**®ўЁвм д«*Ј ЇҐаҐ*®б*
; (ЎЁв 1) ў ॣЁбвॠд«*Ј®ў, Є®в®ал© Ї®¬ҐбвЁ«* Є®¬**¤*
; INT 21h ў б⥪ ЇҐаҐ¤ *¤аҐб®¬ ў®§ўа*в*
pop bp
mov ax,5 ; ў®§ўа*вЁвм Є®¤ ®иЁЎЄЁ
; "¤®бвгЇ §*ЇаҐйс*"
iret ; ўҐа*гвмбп ў Їа®Ја*¬¬г
int21h_handler endp
tsr_length equ $-int21h_handler
initialize proc near
cmp byte ptr cmd_len,3 ; Їа®ўҐаЁвм а*§¬Ґа Є®¬**¤*®© бва®ЄЁ
jne not_install ; ¤®«¦*® Ўлвм 3 (Їа®ЎҐ«, ¤ЁбЄ, ¤ў®Ґв®зЁҐ)
cmp byte ptr cmd_line[2],':' ; Їа®ўҐаЁвм ваҐвЁ© бЁ¬ў®« Є®¬**¤*®©
; бва®ЄЁ (¤®«¦*® Ўлвм ¤ў®Ґв®зЁҐ)
jne not_install
mov al, byte ptr cmd_line[1]
and al,11011111b ; ЇаҐ®Ўа*§®ў*вм ўв®а®© бЁ¬ў®«
; Є §*Ј«*ў*®© ЎгЄўҐ
cmp al,'A' ; Їа®ўҐаЁвм зв® нв® *Ґ
jb not_install ; ¬Ґ*миҐ 'A' Ё *Ґ Ў®«миҐ
cmp al,'Z' ; 'Z'
ja not_install ; Ґб«Ё е®вм ®¤*® Ё§ нвЁе
; гб«®ўЁ© *Ґ ўлЇ®«*пҐвбп - ўл¤*вм Ё*д®а¬*жЁо ® Їа®Ја*¬¬Ґ Ё ўл©вЁ
; Ё**зҐ - **з*вм Їа®жҐ¤гаг Ё*ЁжЁ*«Ё§*жЁЁ
mov byte ptr drive_letter,al ; ЇҐаҐ¤*вм AL ў ⥫®
; १Ё¤Ґ*в*
push es
mov ax,3521h ; AH=35h, AL=*®¬Ґа ЇаҐалў**Ёп
int 21h ; Ї®«гзЁвм *¤аҐб ®Ўа*Ў®взЁЄ* INT 21h
mov word ptr old_int21h,bx ; Ё Ї®¬ҐбвЁвм ҐЈ® ў ⥫® १Ё¤Ґ*в*
mov word ptr old_int21h+2,es ;
pop es
cld ; ЇҐаҐ*®б Є®¤* १Ё¤Ґ*в*
mov si,offset int21h_handler ;**зЁ**п б нв®Ј® *¤аҐб*
mov di,80h ; ў PSP:0080h
mov cx,tsr_length
rep movsb
mov ax,2521h ; AH = 25h, AL=*®¬Ґа ЇаҐалў**Ёп
mov dx,80h ; DS:DX - *¤аҐб **襣® ®Ўа*Ў®взЁЄ*
; (Є®в®ал© Ї®б«Ґ ЇҐаҐ*®б* - PSP:80h)
int 21h ; гбв**®ўЁвм ҐЈ®
mov ah,49h ; AH=49h
mov es,word ptr envseg ; ES=ᥣ¬Ґ*в*л© *¤аҐб Ў«®Є* б Є®ЇЁҐ©
; ЇҐаҐ¬Ґ**ле б।л DOS
int 21h ; ®бў®Ў®¤Ёвм Ї*¬пвм, ЁбЇ®«м§гҐ¬го нвЁ¬ Ў«®Є®¬
mov dx,80h+tsr_length ; DX - *¤аҐб ЇҐаў®Ј® Ў*©в* §* Є®*殬
; १Ё¤Ґ*в*®© Їа®Ја*¬¬л
int 27h ; §*ўҐаиЁвм ўлЇ®«*Ґ*ЁҐ, ®бв*ўиЁбм
; १Ё¤Ґ*⮬
not_install:
mov ah,9 ; AH=09h
mov dx,offset usage ; DS:DX=*¤аҐб бва®ЄЁ б Ё*д®а¬*жЁҐ© ®Ў
; ЁбЇ®«м§®ў**ЁЁ Їа®Ја*¬¬л
int 21h ; ўлў®¤ бва®ЄЁ ** нЄа**
ret ; ®Ўлз*®Ґ §*ўҐаиҐ*ЁҐ Їа®Ја*¬¬л
; ⥪бв, Є®в®ал© ўл¤*св Їа®Ја*¬¬* ЇаЁ §*ЇгбЄҐ б *ҐЇа*ўЁ«м*®© Є®¬**¤*®©
; бва®Є®©
usage db 'Usage: tsr.com D:',0Dh,0Ah
db 'Denies delete on drive D:',0Dh,0Ah
db '$'
initialize endp
end start |
(
