中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 超难问题 上一主题 | 下一主题
nhai163
初级用户




积分 43
发帖 13
注册 2006-11-23
状态 离线
『楼 主』:  超难问题

怎样样写一个输入密码的对话框。而且密码不能是明文的



哈哈,又胡了
2006-12-2 14:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:  


  用VBS应该可以实现,不过我不会。


2006-12-2 14:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 3 楼』:  

还有一种万不得已的解决办法(权当玩笑~~):

当要输入密码的时候,按显示器上的关闭电源的按钮,然后输入密码:)
等输入完了以后,再打开显示器电源~:)


) 虽然是玩笑贴,但当你使用 NET 等命令增加并添加用户帐户密码时,而周围存有你要防范的人员……
  则可以先将命令输入好,然后将光标移到要输入密码的地方,然后关掉显示器。
  输入完密码以后,命令已经执行了。
  别开显示器,键入 CLS 清屏,然后再开显示~:)
  密码别人自然看不到了。

) 但是,传统的输入密码时屏幕不显示密码的功能还需要改进:

  因为你输入的密码在屏幕上是被*代替了,别人看不到。
  但是,有心的人他同样会看你手指键入的键盘次序,一般非打字高手输入密码时同样会被有心人看到。
  所以,传统的以*星不显示密码的功能还待更改。

  建议以后再输入密码时可以设置屏幕显示*星,同样键盘左移n位等方式,
  即你很慢的速度输入了 WIN  ,但实际密码确是: QUB (它们全左移一位)
  
) 不好意思,权当玩笑贴~:)



    Redtek,一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2006-12-3 00:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
DOSforever
金牌会员





积分 4639
发帖 2239
注册 2005-1-30
状态 离线
『第 4 楼』:  

参考一下这里

http://www.cn-dos.net/forum/viewthread.php?tid=24833

第7楼的提示。不清楚的可以再问。



DOS倒下了,但永远不死
DOS NEVER DIES !

投票调查:
http://www.cn-dos.net/forum/viewthread.php?tid=46187

本人尚未解决的疑难问题:
http://www.cn-dos.net/forum/viewthread.php?tid=15135
http://www.cn-dos.net/forum/viewthread.php?tid=47663
http://www.cn-dos.net/forum/viewthread.php?tid=48747
2006-12-3 06:20
查看资料  发短消息 网志   编辑帖子  回复  引用回复
chainliq
高级用户

学无尽止


积分 635
发帖 244
注册 2006-4-15
来自 广西贵港
状态 离线
『第 5 楼』:  

>%Temp%\Temp.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=270
>>%Temp%\Temp.vbs echo ie.height=200
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1

>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>请输入管理员口令</title><body bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>请输入管理员口令</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write " 管理员口令: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=确定> <input id=cancel type=button value=取消>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%Temp%\Temp.vbs echo end with

>>%Temp%\Temp.vbs echo dim wmi
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")

>>%Temp%\Temp.vbs echo do while true
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("输入密码 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop

>>%Temp%\Temp.vbs echo sub event_onquit
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub

>>%Temp%\Temp.vbs echo sub cancel
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub

>>%Temp%\Temp.vbs echo sub confirm
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo    exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo           请输入管理口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
  set "pass=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 加载密码信息...........
ping 192.168.2.248 -n 2 >nul 2>nul
echo.



:................................................................
if "%pass%"=="设置您的密码" goto mulu   给密码正确后定位运行的程序
set /a num=%num% + 1
if %num%==3 goto NO 密码不正确转向退出
echo.
echo 密码验证失败!
mshta javascript:alert("密码错误,请重新输入!");window.close();
goto loop
goto end








呵呵,兄弟这个也是我前几日问的问题呀,现在贴在这儿给你看看吧,
得用网页来设密码!

2006-12-3 06:53
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (86682419)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: