Assembly language experiment----Encryption

Title Encryption program
;-----------------------------------------------------------
;Discription: TO encrypt data from a file.
;Author: Dan Lee, Sun Yat-sen University  All rights reserved
;-----------------------------------------------------------
.model small, c
.386
Encrypt proto cell:ptr byte          ; function protatype

count=30
keyboard  struct   
   maxin    byte count
   incount  byte ?
   buf      byte count dup(?)
keyboard  ends


.data  
   BufSize = 500
   kydbdata  keyboard <>
   prompt    byte "Please input file name under current directory...",10,13,'$'
   fmsg      byte "file not found...",10,13,'$'  
   Handle    WORD ?
   buffer    BYTE BufSize DUP(?)
   bytesRead WORD ?
.code

.startup
 
again:
;Prompt to input file name
   mov  dx,offset Prompt
   mov  ah,9h
   int  21h  
  
;Get file name from cosole
   mov ah,0Ah
   mov dx,offset kydbdata 
   int 21h                           ; input file name 
   mov bl,kydbdata.incount
   cmp bl,0
   je  quit                          ; if no input filename, then exit the program
   mov di,offset kydbdata
   mov al,kydbdata.incount
   xor ah,ah
   add di,ax
   mov ax,2
   add di,ax 
   mov byte ptr [di],0               ; To make the filename end with 0 
    
; Open the input file
   mov ax,716Ch                      ; extended create or open
   mov bx,0                          ; mode = read-only
   mov cx,0                          ; normal attribute
   mov dx,1                          ; action: open
   mov si,OFFSET kydbdata.buf
   int 21h                           ; call MS-DOS
   jnc succ                          ; quit if error
   mov dx,offset fmsg
   mov ah,9h
   int 21h
   jmp again
    

    
succ:
     mov  Handle,ax

; Read the input file
     mov  ah,3Fh                         ; read file or device
     mov  bx,Handle                       ; file handle
     mov  cx,BufSize                     ; max bytes to read
     mov  dx,OFFSET buffer               ; buffer pointer
     int  21h
     jc   quit                           ; quit if error
     mov  bytesRead,ax

; Display the buffer
     mov  ah,40h                         ; write file or device
     mov  bx,1                           ; console output handle
     mov  cx,bytesRead                   ; number of bytes
     mov  dx,OFFSET buffer               ; buffer pointer
     int  21h
     jc   quit                           ; quit if error
  
; Close the file
     mov  ah,3Eh                       ; function: close file
     mov  bx,Handle                       ; input file handle
     int  21h                            ; call MS-DOS
     jc   quit                           ; quit if error
    
;Encrypttion procession
   mov  cx,bytesRead
   mov  di,OFFSET buffer
mark:
   invoke Encrypt,di
   Inc  di
   loop mark 
    
   call WriteSpace                   ; Write Spaces to seperate the output
   call WriteSpace
   call WriteSpace
; Display the buffer
     mov  ah,40h                         ; write file or device
     mov  bx,1                           ; console output handle
     mov  cx,bytesRead                   ; number of bytes
     mov  dx,OFFSET buffer               ; buffer pointer
     int  21h
     jc   quit      
    
; Reopen the input file for write
     mov  ax,716Ch                        ; extended create or open
     mov  bx,1                           ; mode = write
     mov  cx,0                           ; normal attribute
     mov  dx,1                            ; action: open
     mov  si,OFFSET kydbdata.buf
     int  21h                            ; call MS-DOS
     jc  quit                             ; quit if error
     mov Handle,ax                       ; save handle

; Write buffer to new file
     mov ah,40h                           ; write file or device
     mov bx,Handle                       ; output file handle
     mov cx,bytesRead                     ; number of bytes
     mov dx,OFFSET buffer                 ; buffer pointer
     int 21h
     jc  quit                             ; quit if error

; Close the file
     mov  ah,3Eh                         ; function: close file
     mov  bx,Handle                       ; output file handle
     int  21h                            ; call MS-DOS
    
quit:
.exit 0

;-----------------------------------------------------------
;Discription:This procedure implement Encrypting  data 
;             using the demand algorithm of the book
;             design by Dan Lee
;Recives:  one byte char of its address
;Return:   explicitly nothing, but in fact a string of
;          characters by passing by reference
;-----------------------------------------------------------
Encrypt proc  cell:ptr byte          ;passing by reference
   push  si
   push  ax
   mov   si,cell                     ; get address 
   mov   al,[si]                     ; get element
   .if (AL>='A')&& (AL<='Z')         ; process
     mov   al,'Z'
     sub   al,[si]
     add   al,'A'
     mov   [si],al
   .endif
   .if (AL>='a')&& (AL<='z')
     mov   al,'z'
     sub   al,[si]
     add   al,'a'
     mov   [si],al
   .endif
   pop  ax
   pop  si
   ret
Encrypt  endp

;----------------------------------------------------------
WriteSpace PROC
; Write a single space to standard output.
; This procedure is copied from Assembly Language for 
; Intel-based Computers fourth edition by Kip R.Irvine
;----------------------------------------------------------
     push ax
     mov  ah,2                           ; function: display character
     mov  dl,20h                         ; 20h = space
     int  21h
     pop  ax
     ret
WriteSpace ENDP
      end

 Assembly language experiment。