密码程序.docVIP

DATA SEGMENT STR1 DB Modify keycode(F1),Exit(F2),0DH,0AH,Input keycode:,0DH,0AH,$ STR2 DB Keycode error!,0DH,0AH,$ STR3 DB Modify keycode(F1),Exit(F2),0DH,0AH,You are right!,0DH,0AH,$ STR4 DB Return(F1),Exit(F2),0DH,0AH,Input old keycode:,0DH,0AH,$ STR5 DB Return(F1),Exit(F2),0DH,0AH,Input new keycode:,0DH,0AH,$ STR6 DB Return(F1),Exit(F2),Reinput new keycode:,0DH,0AH,0DH,0AH,$ STR7 DB Keycode modification succeed!,0DH,0AH,$ KEY1 DB 30H,31H,32H,33H,34H,35H,36H KEY2 DB 50 DB ? DB 50 DUP(?) KEY3 DB 50 DUP(?) KEY4 DB 50 DUP(?) DATA ENDS STACK SEGMENT STACK DB 100 DUP(?) STACK ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:STACK MAIN PROC FAR MOV AX,DATA MOV DS,AX MOV AX,STACK MOV SS,AX XOR AX,AX ;-----密码输入------------------------------------------- MOV BL,0 ;密码错误输入次数初值 A0: LEA DX,STR1 MOV AH,09H INT 21H MOV CX,6 LEA DI,KEY4 JMP A1 A4: LEA DX,STR4 MOV AH,09H INT 21H A1: MOV AH,0H INT 16H CMP AH,3BH JZ A4 ;按F1进行密码修改 MOV [DI],AL INC DI MOV DL,2AH ;以一个*号表示输入一个密码 MOV AH,02H INT 21H LOOP A1 MOV CX,6 LEA SI,KEY1 LEA DI,KEY4 CLD REPZ CMPSB ;密码比较 JNZ A3 ;密码输入错误跳转 LEA DX,STR3 MOV AH,09H INT 21H PUSH DX PUSH BX MOV BX,200 CALL MIDO ;调用发音延时子程序 POP DX POP BX MOV AH,0H INT 16H CMP AH,3BH JZ B0 ;按F1跳转，进行密码修改 CMP AH,3CH JZ C2 A3: INC BL ;密码输入错误计数 LEA DX,STR2 MOV AH,09H INT 21H PUSH DX PUSH BX MOV BX,1000 CALL MIDO POP DX POP BX CMP BL,3 JA C2 ;密码输错3次，程序结束 JMP A0 ;密码输错少于3次，跳转重新输入 B0: LEA BX,KEY2 LEA BP,KEY3 LEA DX,STR5 MOV AH,09H INT 21H CALL SUB ;调用键盘扫描子程序 ;-----第一次输入新密码------------------------------------ B1: CMP AL,0DH ;以回车键表示密码输入结束 JZ B2 MOV [BX],AL INC SI JMP B1 LEA DX,STR6 MOV AH,09H INT 21H CALL SUB ;-----第二次输入新密码------------------------------------ B2: MOV AH,0H INT 16H CMP AL,0DH JZ B3 MOV [BP],AL INC BP JMP B2 B3: MOV CL,KEY2+1 ;设置循环次数 MOV CH,00H LEA SI,KEY2 LEA DI,KEY3 CLD REPE CMPSB ;两次输入密码进行比较 JNZ B4 LEA DX,STR7 MOV AH,09H