Bài tập 3 - NNHT FULL

Code:




Tab        EQU  9
Backspace  EQU  8
Enterz    EQU  13
ESCz      EQU  27
Space      EQU  32
;-------------------------------
MyCOM  GROUP  CodeSeg, DataSeg
    ASSUME  CS:MyCOM, DS:MyCOM
CodeSeg  SEGMENT  PUBLIC  ;
    ORG  100h
Main  PROC
    call NhapPass
   lea  dx,TB1
    call  WriteStr
    call XulyPass
   jnc  Tieptuc
   int  20h
 Tieptuc:
    call OpenPWFile
   jnc  ReadPWFile
   call SavePW1
   call NhapPass
   lea  dx,TB8
    call  WriteStr
    call XulyPass
   jc  Exitmain
   call ComparePW
   jne  InvalidPW
   lea  dx,TB6
    call WriteStr
   call SavePW2File
   int 20h
 Exitmain:
    int 20h
 InvalidPW:
    lea  dx,TB5
    call  WriteStr
    int 20h
 ReadPWFile:
    CALL  ReadPW2Mem
   CALL  ComparePW
   Jne    InvalidPW
   lea    Dx,TB6
   CALL  WriteStr
    int    20h   
Main  ENDP
;-------------------------------
ReadPW2Mem Proc
    MOV  AH,3Fh
   LEA  DX,PW1
   mov  ch,0
   mov  cl,127
   int  21h   
   mov  Len1,al
   mov  ah,3Eh  ;dong file
   int  21h
   ret
ReadPW2Mem Endp
;-------------------------------
SavePW2File  Proc
    Mov AH,3Ch
   MOV Cx,20h
   lea dx,PWFile
    int 21h    ;tao 1 file
   mov bx,ax  ;cap the file
   lea dx,buffer  ;ghi file
   mov ch,0
   mov cl,len  ; so file can ghi
   mov ah,40h
   int 21h      ;ghi file
   mov ah,3Eh
   int 21h    ;Dong file
   ret
SavePW2File  Endp
;-------------------------------
ComparePW    Proc
    Mov  CH,0
   Mov  Cl,Len
   cmp  CL,Len1
   JNZ  Exit2
   LEA  SI,Buffer
   LEA  DI,PW1
   REP  CMPSB
Exit2:
    ret
ComparePW    Endp
;-------------------------------
Readkey  PROC
    mov  ah,8
    int 21h
    ret
ReadKey  ENDP
;-------------------------------
SavePW1  Proc
    MOV  CH,0
   MOV  CL,Len
   MOv  Len1,cl
   LEA  SI,Buffer
   LEA  DI,PW1
   REP  MOVSB ;copy tu Buffer -> PW1
   RET
SavePW1  Endp
;-------------------------------
OpenPWFile Proc
    LEA dx,PWFile
   mov ah,3Dh
   mov al,0
    int 21h
   mov bx,ax ;cap the file tu ax vao bx
   ret
OpenPWFile Endp
;-------------------------------
NhapPass  PROC
    mov  Len,0
    ret
NhapPass  ENDP
;-------------------------------
XuatPass  PROC
    jnc  WritePass
   ret
 Exit1:
    ret
 WritePass:
    lea  dx,TB1
    call  WriteStr
    lea  si,Buffer
    mov  ch,0
    mov  cl,Len
 LoadAL:
    lodsb
    mov  dl,al
    call  WriteChar
    Loop  LoadAL
XuatPass  ENDP
;-------------------------------
XulyPass  PROC
    lea    di,Buffer
 ReadPass:
    call  Readkey
    cmp  al,Tab
    jz    Tabkey
   cmp  al,Space
    jz    Spacekey
   cmp  al,Enterz
    jz    Exit
   cmp  al,ESCz
    jz    ESCkey
   cmp  al,Backspace
    jz    Backspacekey
   stosb
   inc  Len
   mov  dl,'*'
   call  WriteChar
   jmp  Short  ReadPass
   clc
   ret
 Tabkey:
    lea    dx,TB3
    call  WriteStr
    stc   
    ret
 Spacekey:
    lea    dx,TB4
    call  WriteStr
 Errorz:
    stc   
    ret
 Exit:
    cmp  Len,0
   jz    Errorz
    clc
    ret
  ESCkey:
    lea    dx,TB1
    call  WriteStr
   mov    Len,0
   call  NhapPass
    jmp    Short  ReadPass
   ret
 Backspacekey:
    cmp  Len,0
   jz    ReadPass
   mov  dl,Backspace
    call  WriteChar
   mov  dl,' '
   call  WriteChar
   mov  dl,Backspace
    call  WriteChar
   dec  Len
   dec  di
   jmp  Short  ReadPass
XulyPass  ENDP
;-------------------------------
WriteStr  PROC
  mov  ah,9
  int  21h
  ret
WriteStr  ENDP
;-------------------------------
WriteChar  PROC
  mov  ah,2
  int  21h
  ret
WriteChar  ENDP
;-------------------------------
CodeSeg  ENDS
DataSeg  SEGMENT  PUBLIC
  TB1    DB  0Ah,0Dh,'Password:$'
  TB3    DB  0Ah,0Dh,'Huy bo nhap password!$'
  TB4    DB  0Ah,0Dh,'Password khong hop le!$'
  TB5    DB  0Dh,0Ah,'Mat khau khong khop!$'
  TB6    DB  0Dh,0Ah,'Dang nhap thanh cong!$'
  TB7    DB  0Dh,0Ah,'Dang nhap that bai!$'
  TB8    DB  0Dh,0Ah,'Confrim:$'
  PWFile  DB  'Password.dat',0
   ;---------------------
   Len        DB    0
   Buffer      DB    128 DUP(0)
   Len1        DB    0
   PW1        DB    128 DUP(0)
   ;--------------------
DataSeg      ENDS
  END  Main





tieulongnu_ct đã viết:admin ơi cho mình hỏi cái:nếu đề bài như trên mà thêm nội dung như này thì làm sao hả,chỉ mình với:

-Nếu đăng nhập lần đầu(chưa có file password.dat)
.Nhập mật khẩu
.Lưu mật khẩu vào file password.dat(yêu cầu mật hóa mật khẩu chống chép trộm)
.Nhập mật khẩu
.Mở file password.dat,đọc mật khẩu trong file
.Đối chiếu 2 mật khẩu
-Nếu khớp,thông bảo đăng nhập thành công
-Nếu kg khớp báo lỗi
-Thoát

-Giúp mình với mình đang cần gấp.thks