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
| code segment use16
assume cs:code, ds:code, ss:code
org 100h
debut:
;corp du program
mov ah, 3dh
mov dx, offset chem
mov al, 2
int 21h
mov bx, ax
mov ah, 3fh
mov cx, 10000
mov dx, offset ress
int 21h
jc ereu
mov ah, 3eh
int 21h
jc ere
mov cx, ax
xor di, di
cript:
not byte ptr ds:[ress + di]
inc di
loop cript
mov ah, 40h
mov cx, 10000
mov dx, offset ress
int 21h
jc e
mov ah, 3eh
int 21h
mov ah, 09h
mov dx, offset messfin
int 21h
ret
ereu :
mov ah, 09h
mov dx, offset messe
int 21h
ret
ere :
mov ah, 09h
mov dx, offset mess
int 21h
ret
er :
mov ah, 09h
mov dx, offset mes
int 21h
ret
e :
mov ah, 09h
mov dx, offset me
int 21h
ret
;fin du corp du program
;-----------donées---------------
chem db "az.txt", '$'
ress db 10009 dup(?)
messe db 10, 13, "ereur le program va etre arreter ! 1", 10, 13, '$'
mess db 10, 13, "ereur le program va etre arreter ! 2", 10, 13, '$'
mes db 10, 13, "ereur le program va etre arreter ! 3", 10, 13, '$'
me db 10, 13, "ereur le program va etre arreter ! 4", 10, 13, '$'
chemar db "az", '$'
messfin db 10, 13, "le fichier a bien ete cripter!!!", 10, 13, '$'
code ends
end debut |
Partager