org 100h

.MODEL SMALL
.DATA
chiper db 00ah, 0dch, 0cbh, 040h, 033h, 0deh, 07bh, 0d8h, 001h, 0c6h, 00bh, 0dch, 001h, 0eeh, 093h, 0d2h, 0a3h, 0cah, 001h, 0c6h, 07bh, 0c8h, 02bh, 040h, 0a3h, 0d0h, 00bh, 0e8h, 001h, 0c2h, 001h, 0c6h, 07bh, 0dah, 083h, 0eah, 0a3h, 0cah, 093h, 040h, 01bh, 0c2h, 073h, 040h, 0abh, 0dch, 023h, 0cah, 093h, 0e6h, 0a3h, 0c2h, 073h, 0c8h, 071h, 040h, 03ah, 0deh, 07bh, 0c8h, 001h, 0e0h, 093h, 0deh, 03bh, 0e4h, 00bh, 0dah, 06bh, 0cah, 093h, 0e6h, 001h, 0eeh, 093h, 0d2h, 0a3h, 0cah, 001h, 0c6h, 07bh, 0c8h, 02bh, 040h, 0a3h, 0d0h, 00bh, 0e8h, 001h, 0d0h, 0abh, 0dah, 00bh, 0dch, 09bh, 040h, 01bh, 0c2h, 073h, 040h, 0abh, 0dch, 023h, 0cah, 093h, 0e6h, 0a3h, 0c2h, 073h, 0c8h, 001h, 050h, 06ah, 0c2h, 093h, 0e8h, 04bh, 0dch, 001h, 08ch, 07bh, 0eeh, 063h, 0cah, 093h, 052h, 071h, 024h,

printdecrypted db 'd','e','c','r','y','p','t','e','d',':',0ah,0dh,'$'
printchanged db 0ah,0ah,0dh,'c','h','a','n','g','e','d',':',0ah,0dh,'$'

.CODE
.STARTUP
lea si, chiper
mov cx, 80h
dekripsi proc
 dkr:
 push cx
 mov al, [si]
 cmp al, '$'
 jz dkr_sel

 mov bx, cx
 and bx, 1h
 shl bl, 1h
 mov cl, 5h
 add cl, bl

 rol al, cl
 pop cx

 dkr_sel:
 mov [si], al

 inc si
 loop dkr

dekripsi endp

lea dx, printdecrypted
mov ah,09h
int 21h

lea dx, chiper
mov ah,09h
int 21h


lea si,chiper
mov cx,80h

gantihuruf:
 mov al,[si]
 cmp al,'A'
 jz rubah
 cmp al,'a'
 jz rubah
 jmp lanjut

 rubah:
  add al,4h
 lanjut:
  mov [si],al

  inc si
 loop gantihuruf

lea dx, printchanged
mov ah,09h
int 21h

lea dx, chiper
mov ah,09h
int 21h
.EXIT
END