中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 批处理加密~ 上一主题 | 下一主题
pusofalse
银牌会员




积分 1604
发帖 646
注册 2008-4-13
状态 离线
『楼 主』:  批处理加密~

@echo off & setlocal enabledelayedexpansion
if exist %temp%\access.tmp del %temp%\access.tmp>nul 2>nul
:0
set c=0
set str=abcdefghijklmnopqrstuvwxyz0123456789
:1
set /a n=%random%%%36
call,set /p=%%str:~%n%,1%%<nul>>%temp%\access.tmp
set /a c+=1
if %c% lss 16 goto 1
for /f "delims=" %%a in (%temp%\access.tmp) do (
   set /p pwd=Input the password:
   if !pwd! equ %%a (
   goto succeed
   ) else (
   echo Failed!
   set /a m+=1
   if !m! equ 5 goto :eof
   del %temp%\access.tmp>nul 2>nul
   goto :0
)
)
:succeed
del %temp%\access.tmp >nul 2>nul
echo Succeed!!!
ping 127.1 /n 10 >nul
exit /b

2008-4-17 19:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 2 楼』:  原来是加进入密码啊:

不提倡生成临时文件,批处理可以自身修改密码的。



批处理之家新域名:www.bathome.net
2008-4-17 20:03
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
pusofalse
银牌会员




积分 1604
发帖 646
注册 2008-4-13
状态 离线
『第 3 楼』:  

请高手精简一下~或者指点一下如何不生成临时文件?

2008-4-17 20:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 4 楼』:  请参照链接的4楼代码:

http://www.cn-dos.net/forum/viewthread.php?tid=39347&fpage=6



批处理之家新域名:www.bathome.net
2008-4-17 20:08
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 5 楼』:  随便写了个,希望予你有用:


@echo off
set code=abcdefghijklmnopqrstuvwxyz0123456789-_
for /f "tokens=2" %%i in (%~nx0) do set passwords=%%i
:begin
set /a n=%random%%%38,m+=1
call,set pwd=%pwd%%%code:~%n%,1%%
if %m% lss 16 goto begin
echo.:: %pwd%>>%~nx0
cls
set /p password=请输入密码:
if "%password%"=="%passwords%" goto ok
cls
echo 密码错误&ping /n 2 127.1>nul&goto begin
pause&goto :eof
:ok
echo 密码正确!&pause&goto :eof
:: abcdefghijklmnop
[ Last edited by zw19750516 on 2008-4-17 at 09:16 PM ]



批处理之家新域名:www.bathome.net
2008-4-17 21:15
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复

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


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



论坛跳转: