; 8086 subroutine to encrypt/decrypt lower case characters using xlat 

name "crypt"

org 100h



jmp start

; string has '$' in the end: 
string1 db 'hello world!', 0Dh,0Ah, '$'


;                       'abcdefghijklmnopqrstvuwxyz' 

table1 db 97 dup (' '), 'klmnxyzabcopqrstvuwdefghij'

table2 db 97 dup (' '), 'hijtuvwxyzabcdklmnoprqsefg'


start:

; encrypt: 
lea bx, table1
lea si, string1
call parse

; show result: 
lea dx, string1
; output of a string at ds:dx 
mov ah, 09
int 21h



; decrypt: 
lea bx, table2
lea si, string1
call parse

; show result: 
lea dx, string1
; output of a string at ds:dx 
mov ah, 09
int 21h

; wait for any key... 
mov ah, 0
int 16h


ret   ; exit to operating system. 




; subroutine to encrypt/decrypt 
; parameters:  
;             si - address of string to encrypt 
;             bx - table to use. 
parse proc near

next_char:
	cmp [si], '$'      ; end of string? 
	je end_of_string

	mov al, [si]
	cmp al, 'a'
	jb  skip
	cmp al, 'z'
	ja  skip
	; xlat algorithm: al = ds:[bx + unsigned al]  
	xlatb     ; encrypt using table2.   
	mov [si], al
skip:
	inc si
	jmp next_char

end_of_string:


ret
parse endp



end