在批处理输入密码显示星号(利用choice命令) - 中国DOS联盟论坛

我在网吧工作，做了很多批处理。其中有些让用户登陆的，但输入密码的时候都是明文显示。能不能像其他应用程序那样用星号屏蔽输入的密码呢？很早就有这样的想法了，但一直摸不到头绪。在网上看到几个也是生成其他程序的。好像至今还没有做出来的？请恕我孤陋寡闻！直到接触到choice命令（XP系统里没有，没有深入研究过）才豁然开朗。原理很简单，小弟班门弄斧了！
我写的用星号代替输入的密码的批处理基本的输入密码，读取密码都可以准确实现，甚至可以用一定的算法加密。但是有几个难题还是无法解决的：
1、密码只能用指定个数的字符。
2、输入密码时会轻微闪屏。
3、不能删除输入错误的字符（原来想加入退格符作为choice的选项，但是choice的有效字符只能是数字和字母，只好作罢）
4、输入指定个数后自动确定，不能用回车（这个问题并不是不能解决，只是感觉改了以后完全多余）
本人刚学批处理不长时间，代码难免有错误或多余的部分，希望高手们给小弟多加指点！也可以联系我的QQ，我的QQ号码是376076482
注：程序需要用到choice，如果您使用的是XP系统，请将choice.exe文件放到system32文件夹下。我已经把文件上传到“中国DOS联盟文件上传系统”。

代码如下：

@echo off
color 3a
title 输入密码显示星号批处理
echo.
echo.
echo 还有一个难题未解决：就是密码必须是指定个数的字母或数字！
echo.
echo 本演示程序指定密码字符限制为8个
echo.
echo 默认用户名是guest。请设置密码。用户名和密码不区分大小写。
pause
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::在下面输入密码，输入后跳转到编译模块，将choice的返回码编译成输入的字符::
::之后跳转到下一个字符并在屏幕输出上加一个星号字符。并把密码保存到文件。::
::使用时可以美化界面，甚至做成和正规程序差不多的登陆界面。保存密码的文件::
::也可以保存到隐秘的位置或者网络路径。甚至还可以按一定的算法把密码保存成::
::加密的，登录时再进行反运算恢复。原来我还想加入退格符使它可以有退格删除::
::的功能，但是choice的选项只能是字母和数字，只好作罢。为保持代码整洁凑字::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:pass
cls
set jindu=1
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码: /n
goto bianyi
:1
cls
set jindu=2
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:* /n
goto bianyi
:2
cls
set b=%a%
set jindu=3
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:** /n
goto bianyi
:3
cls
set c=%a%
set jindu=4
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:*** /n
goto bianyi
:4
cls
set d=%a%
set jindu=5
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:**** /n
goto bianyi
:5
cls
set e=%a%
set jindu=6
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:***** /n
goto bianyi
:6
cls
set f=%a%
set jindu=7
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:****** /n
goto bianyi
:7
cls
set g=%a%
set jindu=8
choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:******* /n
goto bianyi
:8
cls
echo 请输入密码:********
if '%login%'=='1' goto yanzheng
set h=%a%
echo %a%%b%%c%%d%%e%%f%%g%%h% >password
echo 密码设置成功，即将转到登陆界面！
ping 127.1>nul&goto login
:bianyi
if %errorlevel% lss 10 set a=%errorlevel%&&goto %jindu%
if '%errorlevel%'=='10' set a=0
if '%errorlevel%'=='11' set a=a
if '%errorlevel%'=='12' set a=b
if '%errorlevel%'=='13' set a=c
if '%errorlevel%'=='14' set a=d
if '%errorlevel%'=='15' set a=e
if '%errorlevel%'=='16' set a=f
if '%errorlevel%'=='17' set a=g
if '%errorlevel%'=='18' set a=h
if '%errorlevel%'=='19' set a=i
if '%errorlevel%'=='20' set a=j
if '%errorlevel%'=='21' set a=k
if '%errorlevel%'=='22' set a=l
if '%errorlevel%'=='23' set a=m
if '%errorlevel%'=='24' set a=n
if '%errorlevel%'=='25' set a=o
if '%errorlevel%'=='26' set a=p
if '%errorlevel%'=='27' set a=q
if '%errorlevel%'=='28' set a=r
if '%errorlevel%'=='29' set a=s
if '%errorlevel%'=='30' set a=t
if '%errorlevel%'=='31' set a=u
if '%errorlevel%'=='32' set a=v
if '%errorlevel%'=='33' set a=w
if '%errorlevel%'=='34' set a=x
if '%errorlevel%'=='35' set a=y
if '%errorlevel%'=='36' set a=z
goto %jindu%
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::以下是登陆模块:::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:login
cls
set login=1
echo 默认用户名是guest。用户名和密码不区分大小写。
set name=
set /p name=请输入用户名：
if /i '%name%'=='guest' goto pass
if /i not '%name%'=='guest' echo 用户名输入错误，请按任意键重新输入！&pause>nul&goto login
:yanzheng
set a=%a%%b%%c%%d%%e%%f%%g%%h%
for /f %%p in (password) do set p=%%p
if /i '%a%'=='%p%' echo 密码正确，登陆成功！&ping 127.1>nul&goto start
echo 密码错误，请重新输入！&ping 127.1>nul&goto pass
pause>nul&exit
:start
cls
echo 这里是程序正文......
echo 演示结束，按任意键退出...
pause>nul&exit

第1楼　ljxinfeixiang	发表于 2008-03-24 17:02
新手上路　发帖 2　积分 6
[原创]在批处理输入密码显示星号(利用choice命令) 我在网吧工作，做了很多批处理。其中有些让用户登陆的，但输入密码的时候都是明文显示。能不能像其他应用程序那样用星号屏蔽输入的密码呢？很早就有这样的想法了，但一直摸不到头绪。在网上看到几个也是生成其他程序的。好像至今还没有做出来的？请恕我孤陋寡闻！直到接触到choice命令（XP系统里没有，没有深入研究过）才豁然开朗。原理很简单，小弟班门弄斧了！我写的用星号代替输入的密码的批处理基本的输入密码，读取密码都可以准确实现，甚至可以用一定的算法加密。但是有几个难题还是无法解决的： 1、密码只能用指定个数的字符。 2、输入密码时会轻微闪屏。 3、不能删除输入错误的字符（原来想加入退格符作为choice的选项，但是choice的有效字符只能是数字和字母，只好作罢） 4、输入指定个数后自动确定，不能用回车（这个问题并不是不能解决，只是感觉改了以后完全多余）本人刚学批处理不长时间，代码难免有错误或多余的部分，希望高手们给小弟多加指点！也可以联系我的QQ，我的QQ号码是376076482 注：程序需要用到choice，如果您使用的是XP系统，请将choice.exe文件放到system32文件夹下。我已经把文件上传到“中国DOS联盟文件上传系统”。代码如下： @echo off color 3a title 输入密码显示星号批处理 echo. echo. echo 还有一个难题未解决：就是密码必须是指定个数的字母或数字！ echo. echo 本演示程序指定密码字符限制为8个 echo. echo 默认用户名是guest。请设置密码。用户名和密码不区分大小写。 pause :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::在下面输入密码，输入后跳转到编译模块，将choice的返回码编译成输入的字符:: ::之后跳转到下一个字符并在屏幕输出上加一个星号字符。并把密码保存到文件。:: ::使用时可以美化界面，甚至做成和正规程序差不多的登陆界面。保存密码的文件:: ::也可以保存到隐秘的位置或者网络路径。甚至还可以按一定的算法把密码保存成:: ::加密的，登录时再进行反运算恢复。原来我还想加入退格符使它可以有退格删除:: ::的功能，但是choice的选项只能是字母和数字，只好作罢。为保持代码整洁凑字:: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :pass cls set jindu=1 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码: /n goto bianyi :1 cls set jindu=2 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:* /n goto bianyi :2 cls set b=%a% set jindu=3 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码: /n goto bianyi :3 cls set c=%a% set jindu=4 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:* /n goto bianyi :4 cls set d=%a% set jindu=5 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:** /n goto bianyi :5 cls set e=%a% set jindu=6 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:* /n goto bianyi :6 cls set f=%a% set jindu=7 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:** /n goto bianyi :7 cls set g=%a% set jindu=8 choice /c 1234567890abcdefghijklmnopqrstuvwxyz /m 请输入密码:*** /n goto bianyi :8 cls echo 请输入密码:****** if '%login%'=='1' goto yanzheng set h=%a% echo %a%%b%%c%%d%%e%%f%%g%%h% >password echo 密码设置成功，即将转到登陆界面！ ping 127.1>nul&goto login :bianyi if %errorlevel% lss 10 set a=%errorlevel%&&goto %jindu% if '%errorlevel%'=='10' set a=0 if '%errorlevel%'=='11' set a=a if '%errorlevel%'=='12' set a=b if '%errorlevel%'=='13' set a=c if '%errorlevel%'=='14' set a=d if '%errorlevel%'=='15' set a=e if '%errorlevel%'=='16' set a=f if '%errorlevel%'=='17' set a=g if '%errorlevel%'=='18' set a=h if '%errorlevel%'=='19' set a=i if '%errorlevel%'=='20' set a=j if '%errorlevel%'=='21' set a=k if '%errorlevel%'=='22' set a=l if '%errorlevel%'=='23' set a=m if '%errorlevel%'=='24' set a=n if '%errorlevel%'=='25' set a=o if '%errorlevel%'=='26' set a=p if '%errorlevel%'=='27' set a=q if '%errorlevel%'=='28' set a=r if '%errorlevel%'=='29' set a=s if '%errorlevel%'=='30' set a=t if '%errorlevel%'=='31' set a=u if '%errorlevel%'=='32' set a=v if '%errorlevel%'=='33' set a=w if '%errorlevel%'=='34' set a=x if '%errorlevel%'=='35' set a=y if '%errorlevel%'=='36' set a=z goto %jindu% :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::以下是登陆模块::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :login cls set login=1 echo 默认用户名是guest。用户名和密码不区分大小写。 set name= set /p name=请输入用户名： if /i '%name%'=='guest' goto pass if /i not '%name%'=='guest' echo 用户名输入错误，请按任意键重新输入！&pause>nul&goto login :yanzheng set a=%a%%b%%c%%d%%e%%f%%g%%h% for /f %%p in (password) do set p=%%p if /i '%a%'=='%p%' echo 密码正确，登陆成功！&ping 127.1>nul&goto start echo 密码错误，请重新输入！&ping 127.1>nul&goto pass pause>nul&exit :start cls echo 这里是程序正文...... echo 演示结束，按任意键退出... pause>nul&exit

第2楼　Orilla	发表于 2008-03-24 17:04
新手上路　发帖 1　积分 2
说支持必须得过来支持。。。。。呵呵

第3楼　yuseecn	发表于 2008-03-28 18:13
初级用户　发帖 14　积分 30
支持

第4楼　Shinaterry	发表于 2008-03-30 12:40
初级用户　发帖 51　积分 97
支持, 希望继续完善..

第5楼　bat-zw	发表于 2008-03-30 13:16
金牌会员　发帖 1,276　积分 3,105
加油，大家共同提高：可惜XP没有CHOICE命令，也没细看，先顶了再说。

第6楼　Shinaterry	发表于 2008-03-30 16:30
初级用户　发帖 51　积分 97
觉得非常有必要加入"回车"..

第7楼　topmcs	发表于 2008-04-02 12:46
初级用户　发帖 16　积分 25　来自湖南
呵呵。。。。支持啊。。。。希望可以修好BUG啊