title***简单密码输入 by lluct***
datasegment　;定义数据段
input　 db　　　100 dup (?)
;定义输入的字符串,字符串必须用db定义,长度为100个字节
cmpare　db　　　'5201314','$'
;定义密码
msg1　　db　　　'PASSWORD RIGHT!','$'
;定义输入密码正确后显示出来的信息
msg2　　db　　　'PASSWORD ERROR!','$'
;定义输入密码错误后显示出来的信息
headmsg db　　　'ENTER YOUR PASSWORD:','$'
;头信息
dataends　;数据段结尾
　　codesegment　;定义代码段
assumecs:code　;规定cs的内容
assumeds:data　;规定ds的内容
　　start:movax,data　;程序从start开始
movds,ax　;ds置初值,data的段地址
movsi,0　;变址寄存器置初值0
　　call　　enter　;调用显示回车换行子程序
　　　　lea　　 dx,headmsg;输出头信息字符串的偏移地址
　　　　call　　dispchs　;调用显示字符串子程序
repeat:movah,01h　
;定义repeat标号,用于循环输入单个字符.调用1号功能:从键盘输入一个字符并回显
int21h　;完成输入回显
　　　　cmp　　 al,0dh　;输入的字符和cr(回车)比较
jefinish　;如果等于回车就转移到finish
movinput[si],al;把al的置传送到input的si地址中(好像是这样吧)
incsi　;si加1
jmprepeat　;无条件转移到repeat
finish:movinput[si],24h;给输入完成的字符串加上结束标志($)
callenter
　　mov　　 si,0　;源变址寄存器置初值0
　　　　mov　　 di,0　;目的变址寄存器置初值0
　　　　mov　　 cx,8　;设置密码检查位数(结束标志也要算进去)
check:　cmp　　 cx,0　;置位数为0.
　　　　je　　　right　;如果密码检查完成,转移到right
　　　　mov　　 bl,input[si];把input的si地址中的数据传送到bl
　　　　mov　　 dl,cmpare[di];把cmpare的di地址中的数据传送到dl
　　　　cmp　　 dl,bl　;dl和bl比较
　　　　jne　　 error　;如果不相等,就转移到error
　　　　inc　　 si　;si加1
　　　　inc　　 di　;di加1
　　　　dec　　 cx　;cx减1
　　　　jmp　　 check　;无条件转移到check
　　right:　call　　enter
　　　　lea　　 dx,msg1　
　　　　call　　dispchs
　　　　call　　enter
　　　　jmp　　 exit
　　error:　call　　enter
　　　　lea　　 dx,msg2
　　　　call　　dispchs
　　　　mov　　 dl,07h　;输出ascii码的报警(响铃)控制符bel(07h)
　　　　call　　dispch
　　　　call　　enter
　　　　jmp　　 exit
exit:movah,4ch　;4c号功能调用:终止当前程序并返回
int21h　;返回dos
　　enterprocnear　;显示回车换行子程序
movdl,0dh　;输出ascii码的回车控制符cr(odh)
calldispch
movdl,0ah　;输出ascii码的换行控制符lf(0ah)
calldispch
ret　;返回
enterendp　;子程序结尾
　　dispchprocnear　;显示单个字符子程序
movah,02h　;2号功能调用:显示器输出字符
int21h　;完成输出显示
ret
dispchendp
　　dispchsprocnear　;显示字符串子程序
movah,09h　;9号功能调用:显示字符串
int21h　;完成输出显示
ret
dispchsendp
　　codeends　;代码段结尾
endstart　;结束汇编
　　;把以上代码复制到记事本等文本程序中,并保存.(如passwrod.asm)
;编译:masm password.asm
;连接:link password.obj
;执行:password.exe
　　=================================================================
　　带星号的密码输入
title***简单密码输入进阶 by lluct***
　　datasegment　;定义数据段
headmsg db　　　' ',0dh,0ah
db'+----------------------------------------------+',0dh,0ah
db'| Simple input password system for asm program |',0dh,0ah
db'|　　　　　　　　have a fun.^-^.　　　　　　　 |',0dh,0ah
db'| Poor Programmer:lluct　　 Date:march,21 2004 |',0dh,0ah
db'+----------------------------------------------+',0dh,0ah
　　　　db　　　0dh,0ah,'PLEASE INPUT PASSWORD:','$'
;定义头信息组
msg1db'PASSWORD RIGHT!','$'
;定义输入密码正确后显示出来的信息
msg2db'PASSWORD ERROR!','$'
;定义输入密码错误后显示出来的信息
cmparedb'5201314','$'
;定义密码
inputdb100 dup (?)
;定义输入的字符串,字符串必须用db定义,长度为100个字节
dataends　;数据段结尾
　　codesegment　;定义代码段
assumecs:code　;规定cs的内容
assumeds:data　;规定ds的内容
　　start_program:　;程序从这里开始
movax,data　;把data段地址赋给ax
movds,ax　;ds置初值,data的段地址
movsi,0　;变址寄存器初值为0
　　callenter　;调用显示回车换行子程序
　　　　lea　　 dx,headmsg;输出头信息组的偏移地址
calldispchs　;调用显示字符串子程序
　　repeat_input:　;循环输入单个字符
movah,08h　;调用8号功能:键盘输入字符(无回显)
int21h　;完成输入
　　　　mov　　 dl,2ah　;输出ascii码的*号
　　　　push　　ax　;保护原来输入的字符
　　　　calldispch　;调用单个字符回显子程序
　　　　pop　　 ax　;恢复原来输入的字符
　　　　cmpal,0dh　;是否回车
jefinished_input;是就转移到finished_input
movinput[si],al;保存单个字符
incsi　;访问下一个相对地址
jmprepeat_input;无条件转移到repeat_input
　　finished_input:　;完成输出
movinput[si],24h;给刚才输入的字符串加结束标志($)
callenter
　　movsi,0　;si置0
movdi,0　;di置0
movcx,8　;设置检测密码的长度,要包括结束标志
check_password:　;检测密码
cmpcx,0　;cx为是否为0
jeright　;是就转移到right
movbl,input[si];把input的si的地址内的信息传送到bl
movdl,cmpare[di];把cmpare的di的地址内的信息传送到dl
cmpdl,bl　;检查dl和bl是否一样
jneerror　;不是就转移到error
incsi　;si加1
incdi　;di加1
deccx　;cx减1
jmpcheck_password
　　right:
call enter
leadx,msg1
calldispchs
callenter
jmpexit
　　error:
callenter
leadx,msg2
calldispchs
movdl,07h　;输出ascii码的报警(响铃)控制符bel(07h)
　　　　call　　dispch
callenter
jmpexit
　　exit:　 mov　　 ah,4ch　;4c号功能调用:终止当前程序并返回
int21h　;返回dos
　　enterprocnear　;显示回车换行子程序
movdl,0dh　;输出ascii码的回车控制符cr
calldispch
movdl,0ah　;输出ascii码的换行控制符lf
calldispch
ret　;返回
enterendp
　　dispchprocnear　;显示单个字符子程序
　　　　mov　　 ah,02h　;2号功能调用:显示器输出字符
int21h　;完成输出显示
　　　　ret
dispchendp
　　dispchsprocnear　;显示字符串子程序
movah,09h　;9号功能调用:显示字符串
int21h
ret
dispchsendp
　　codeends　;代码段结尾
　　　　end　　 start_program;结束汇编
;把以上代码复制到记事本等文本程序中,并保存.(如passwd2.asm)
;编译:masm passwd2.asm
;连接:link passwd2.obj
;执行:passwd2.exe