中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
« [1] [2] »
作者:
标题: {已结}批处理密盘的源码 上一主题 | 下一主题
chainliq
高级用户

学无尽止


积分 635
发帖 244
注册 2006-4-15
来自 广西贵港
状态 离线
『楼 主』:  {已结}批处理密盘的源码

麻烦高手可以把这个附件的源码贴出来好吗,本人急用!

[ Last edited by chainliq on 2006-11-30 at 07:11 PM ]

   此帖被 -2 点积分    点击查看详情   
评分人:【 namejm 分数: -2  时间:2006-11-27 10:50


附件 1: 求源码.rar (2006-11-22 12:35, 65.7 K, 下载附件所需积分 1 点 ,下载次数: 172)
2006-11-22 12:35
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (86682419)  编辑帖子  回复  引用回复
lxmxn
版主




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


  晕,这是二进制的文件,怎么得到源码啊?


2006-11-22 13:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 3 楼』:  

这个不久前就见过论坛里放出源码了(这个没设使用密码),是打包了的批处理文件,利用回收站的特性存放数据

全部代码请搜索一下论坛

部分代码:

  Quote:
@echo off
color 2f
:start
cls
echo.
echo.
echo.
echo         ==============================================================
echo.
echo                            绿菩提密盘 测试版
echo.
echo                   欢迎使用,请选择选项(1,2,3,4,5,6,7)
echo.
echo                              1.打开密盘
echo                              2.关闭密盘
echo                              3.建立密盘
echo                              4.删除密盘
echo                              5.密盘帮助
echo                              6.关于作者
echo                              7.X键关闭
echo.
echo.                 风里血制作    Email:jie_china@163.com
echo.
echo         ==============================================================
echo.
echo.
set /p choice=
if {%choice%}=={} goto start
if /i %choice%==1 goto open
if /i %choice%==2 goto off
if /i %choice%==3 goto set
if /i %choice%==4 goto del
if /i %choice%==5 goto help
if /i %choice%==6 goto zwj
if /i %choice%==x goto shut
if /i %choice%==kill goto kill
goto start



2006-11-22 13:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 4 楼』:  

可以改造为漂亮的IE界面,使用IE的密码框功能就可以在输入时不让别人看见密码了

2006-11-22 13:50
查看资料  发短消息 网志   编辑帖子  回复  引用回复
chainliq
高级用户

学无尽止


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



  Quote:
Originally posted by zxcv at 2006-11-22 13:24:
这个不久前就见过论坛里放出源码了(这个没设使用密码),是打包了的批处理文件,利用回收站的特性存放数据

全部代码请搜索一下论坛

部分 ...

可是找不到啦呀,你找到的话可以全部贴出来吗?谢谢!

2006-11-22 22:03
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (86682419)  编辑帖子  回复  引用回复
chainliq
高级用户

学无尽止


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

呵呵,麻烦兄弟能把源码贴出来让我们学习学习呀!

[ Last edited by chainliq on 2006-11-24 at 08:31 PM ]

2006-11-22 22:24
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (86682419)  编辑帖子  回复  引用回复
shifuquan
初级用户





积分 64
发帖 25
注册 2006-11-9
状态 离线
『第 7 楼』:  请问下楼主的那个解压缩后,作者是怎么把BAT加密成EXE的

同上

2006-11-27 10:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 8 楼』:  

  其实这个是用 QuickBFD 把bat转换为exe的,这个换后的exe有个特点:当运行该exe后,会在 %tmp% 文件夹下生成一个以 bt+数字.bat 为名的批处理文件,该文件为隐藏属性。当该exe正常退出之后,该bat文件将被删除。既然楼主急用,那我就把代码发出来吧:
@echo off
color 2f
:start
cls
echo.
echo.
echo.
echo         ==============================================================
echo.
echo                            绿菩提密盘 测试版
echo.
echo                   欢迎使用,请选择选项(1,2,3,4,5,6,7)
echo.
echo                              1.打开密盘
echo                              2.关闭密盘
echo                              3.建立密盘
echo                              4.删除密盘
echo                              5.密盘帮助
echo                              6.关于作者
echo                              7.X键关闭
echo.
echo.                 风里血制作    Email:jie_china@163.com
echo.
echo         ==============================================================
echo.
echo.
set /p choice=
if {%choice%}=={} goto start
if /i %choice%==1 goto open
if /i %choice%==2 goto off
if /i %choice%==3 goto set
if /i %choice%==4 goto del
if /i %choice%==5 goto help
if /i %choice%==6 goto zwj
if /i %choice%==x goto shut
if /i %choice%==kill goto kill
goto start

rem ===========================打开密盘==============================
:open
cls
echo.
echo.
echo.
echo.
echo         请输入密盘所在的分区(输入"C"则打开在C盘建立的密盘)
echo.
echo                        返回主菜单(请按X键)
echo.
set /p drv=
if {%drv%}=={} goto open
if /i %drv%==X goto start
if not exist %drv%: goto nodrv
echo 请输入密码:
set /p pass1=
if {%pass1%}=={} goto pw1
if /i %pass1%==X goto start
if not exist %drv%:\Recycle\S-1-5-21-1060284298-%pass1%-13438020086-500\ goto wm
subst z: %drv%:\Recycle\S-1-5-21-1060284298-%pass1%-13438020086-500 >nul 2>nul
echo.
echo.
cls
echo.
echo.
echo    请稍候...5秒后将自动打开密盘
ping 127.0.0.1 -n 5 >nul 2>nul
start z: >nul 2>nul
cls
echo.
echo.
echo    打开密盘成功,密盘为Z盘,请在"我的电脑里"查看
echo    按任意键返回主菜单
pause >nul
goto start
:wm
cls
echo.
echo.
echo    所在分区不存在密盘,或者密码错误,按任意键返回主菜单
pause >nul
goto start
:pw1
echo 密码不能为空,请输入密码:
set /p pass1=
if {%pass1%}=={} goto pw1
if /i %pass1%==X goto start
if not exist %drv%:\Recycle\S-1-5-21-1060284298-%pass1%-13438020086-500\ goto wm
subst z: %drv%:\Recycle\S-1-5-21-1060284298-%pass1%-13438020086-500 >nul 2>nul
start z: >nul 2>nul
cls
echo.
echo.
echo    建立密盘成功,密盘为Z盘,按任意键返回主菜单
pause >nul
goto start
rem ===========================打开密盘结束===========================


rem ===========================关闭密盘===============================
:off
cls
subst z: /d
echo.
echo.
echo.
echo                关闭密盘成功,按任意键返回主菜单
echo.
echo.
echo.
pause >nul
goto start
rem ===========================关闭密盘结束===========================


rem============================建立密盘===============================
:set
cls
echo.
echo.
echo.
echo.
echo        请输入要建立保密文件夹的分区(输入"C"则在C盘建立密盘,依次类推.)
echo.
echo                        返回主菜单(请按X键)
echo.
echo.
set /p drv=
if {%drv%}=={} goto set
if /i %drv%==X goto start
if not exist %drv%: goto nodrv
if exist %drv%:\Recycle goto error
echo 请输入密码:
set /p pass2=
if {%pass2%}=={} goto pw2
if /i %pass2% ==X goto start
md %drv%:\Recycle >nul 2>nul
attrib +s +h %drv%:\Recycle >nul 2>nul
echo [.ShellClassInfo]>>C:\tmp
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>C:\tmp
copy c:\tmp %drv%:\Recycle\desktop.ini >nul 2>nul
del c:\tmp >nul 2>nul
attrib +s +h %drv%:\Recycle\desktop.ini
md %drv%:\Recycle\S-1-5-21-1060284298-%pass2%-13438020086-500 >nul 2>nul
echo 建立密盘成功,请记住建立密盘的分区和密码,按任意键返回主菜单
pause >nul
cls
goto start
:pw2
echo 密码不能为空,请输入密码:
set /p pass2=
if {%pass2%}=={} goto pw2
if /i %pass2% ==X goto start
md %drv%:\Recycle >nul 2>nul
attrib +s +h %drv%:\Recycle >nul 2>nul
echo [.ShellClassInfo]>>C:\tmp
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>C:\tmp
copy c:\tmp %drv%:\Recycle\desktop.ini >nul 2>nul
del c:\tmp >nul 2>nul
attrib +s +h %drv%:\Recycle\desktop.ini
md %drv%:\Recycle\S-1-5-21-1060284298-%pass2%-13438020086-500 >nul 2>nul
echo 建立密盘成功,请记住建立密盘的分区和密码,按任意键返回主菜单
pause >nul
goto start
rem ==========================建立密盘部分结束=======================

rem ============================删除密盘=============================
:del
subst z: /d >nul 2>nul
cls
echo.
echo.
echo.
echo           请删除之前确认密盘里面没有任何秘密文档.(Y/N)
echo.
echo                        返回主菜单(请按X键)
echo.
set /p yesorno=
if {%yesorno%}=={} goto del
if /i %yesorno%==y goto start2del
if /i %yesorno%==n goto start
if /i %yesorno%==X goto start
goto del
:start2del
echo 请输入密盘所在的分区(输入"C"则删除在C盘建立的密盘)
set /p drv=
if {%drv%}=={} goto del
if /i %drv%==X goto start
if not exist %drv%: goto nodrv
echo 请输入密码:
set /p pass3=
if {%pass3%}=={} goto pw3
if /i %pass3%==X goto start
if not exist %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ goto pwfail
attrib -s -h %drv%:\Recycle\desktop.ini >nul 2>nul
del %drv%:\Recycle\desktop.ini >nul 2>nul
rd %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ /q >nul 2>nul
rd %drv%:\Recycle\ /q >nul 2>nul
if exist %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ goto fail
echo 成功删除!按任意键返回主菜单
pause >nul
goto start
:fail
cls
echo.
echo.
echo 删除失败,密盘有文档,或者密盘不存在.
echo [.ShellClassInfo]>>C:\tmp
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>C:\tmp
copy c:\tmp %drv%:\Recycle\desktop.ini >nul 2>nul
del c:\tmp >nul 2>nul
attrib +s +h %drv%:\Recycle\desktop.ini >nul 2>nul
echo.
echo.
echo 按任意键返回主菜单
pause >nul
cls
goto start
:pw3
echo 密码不能为空,请输入密码:
set /p pass2=
if {%pass3%}=={} goto pw3
if /i %pass3%==X goto start
attrib -s -h %drv%:\Recycle\desktop.ini >nul 2>nul
del %drv%:\Recycle\desktop.ini >nul 2>nul
if not exist %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ goto fail
rd %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ /q >nul 2>nul
rd %drv%:\Recycle\ /q >nul 2>nul
if exist %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ goto fail
echo 成功删除!按任意键返回主菜单
pause >nul
goto start
:pwfail
cls
echo.
echo.
echo 密码错误,或者密盘不存在.
echo 按任意键返回主菜单
pause >nul
goto start
rem ==============================删除密盘结束=========================
rem
rem ==============================有了加密文件夹错误=================================
:error
echo 此分区已经有了加密文件夹,请选择其他分区.按任意键返回主菜单
pause >nul
cls
goto start
rem ==============================错误结束=============================
rem
rem ==============================驱动器不存在错误结束=============================
:nodrv
cls
echo.
echo.
echo.
echo    指定的驱动器不存在,按任意键返回主菜单
pause >nul
goto start
rem ==============================错误结束=============================
rem ==============================帮助=============================
:help
cls
echo.
echo.
echo.
echo.
echo.
echo   此密盘适用于XP系统,由此密盘造成的一切损失,本人不负任何责任.
echo   !!如果你不愿意,可以放弃使用!!
echo.  使用方法: 1  建立密盘,请牢记建立密盘的分区和密码!!
echo.            2  打开密盘,密盘将被设为Z盘,请在我的电脑里查看.
echo.            3  像使用其他分区一样,可以拷贝删除.
echo.            4  使用完后,请关闭密盘,重启以后密盘自动关闭.
echo.            5  删除密盘前,必须清空密盘,包括隐藏文件.负则密盘无法删除.
echo.            6  在密盘里, 没有必要把文件设为隐藏.
echo.
echo    本软件为免费软件欢迎大家使用
echo    按任意键返回主菜单
pause >nul
goto start
rem ==============================帮助结束=============================
rem ==============================关于作者=============================
:zwj
cls
echo.
echo.
echo.
echo.
echo.
echo      本软件为免费软件欢迎大家使用
echo      此软件用批处理写成,软件现在为测试阶段,难免存在错误.
echo      欢迎大家提出宝贵意见,以便本人及时改进.
echo      本人不会编程,但是是个批处理狂热爱好者,希望和您交流.
echo      Email:jie_china@163.com
echo      一些原创 http://5690271.ys168.com
echo      留言: http://free.cnyys.com/my/5690271/ly/index.asp
echo      QQ:283435390  
echo      2006.6.5
echo.
echo.
echo.
echo                     。▍ ★∴
echo                ....▍▍..    █▍ ☆ ★∵ ..../
echo                   ◥ 祝你   █ 永远 ██  快乐  ██◤
echo                     ◥███████████████◤
echo                       ◥█████████████◤  
echo.
echo.
echo.
echo.
echo.
echo      按任意键返回主菜单
pause >nul
goto start
rem ==============================关于作者结束=============================
rem ==============================关闭程序=============================
:shut
exit
rem ==============================关闭程序结束=============================
rem ==============================恢复默认=============================
:kill
cls
echo.
echo.
echo.
echo            请恢复默认之前确认密盘里面没有重要文档.(Y/N)
echo            !!!将强制删除C,D,E,F,G盘可能存在损坏密盘,包括数据!!!
echo            !!包括数据!!  请认真考虑  ! 本人不负任何责任
echo.
echo                        返回主菜单(请按X键)
echo.
set /p yesorno=
if {%yesorno%}=={} goto kill
if /i %yesorno%==y goto kill2
if /i %yesorno%==n goto start
if /i %yesorno%==X goto start
goto kill
:kill2
rd c:\Recycle /s /q >nul 2>nul
rd d:\Recycle /s /q >nul 2>nul
rd e:\Recycle /s /q >nul 2>nul
rd f:\Recycle /s /q >nul 2>nul
rd g:\Recycle /s /q >nul 2>nul
echo  恢复默认成功,按任意键返回主菜单
pause >nul
goto start
rem ==============================恢复默认=============================




尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2006-11-27 10:48
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 9 楼』:  

正打算把这个程序改造为 IE 界面的,可以直接用鼠标点击选择,而且输入密码时显示为“●●●●●●”。

2006-11-27 11:07
查看资料  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 10 楼』:  

这个bat,作者,挺用心的。值得学习,有两处不懂
echo [.ShellClassInfo]>>C:\tmp
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>C:\tmp
copy c:\tmp %drv%:\Recycle\desktop.ini >nul 2>nul

2006-11-27 11:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chainliq
高级用户

学无尽止


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

呵呵,问题解决啦,谢谢斑竹帮助和各位的帮忙,真不好意,由于问题急~没考虑的标题的模糊,在这儿我向各位陪个不是,对不起呀——

2006-11-27 12:53
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (86682419)  编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 12 楼』:  

这类密盘根本不值一提。伪装的很弱不说,还做成exe的。国内的技术就这个SB样




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-11-27 23:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zerostudy
中级用户





积分 266
发帖 98
注册 2006-4-21
状态 离线
『第 13 楼』:  

批处理加密也没用啊??



纵是千年万年 亦难以忘记
2006-11-28 00:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ciao
初级用户





积分 20
发帖 10
注册 2006-11-26
状态 离线
『第 14 楼』:  

好东西咯!``~` 拿下

2006-11-28 06:38
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wydos
中级用户





积分 304
发帖 117
注册 2006-4-4
状态 离线
『第 15 楼』:  

rd %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ /q >nul
这行代码应该改为:
rd  /s %drv%:\Recycle\S-1-5-21-1060284298-%pass3%-13438020086-500\ /q >nul
不然无法删掉密盘

2006-11-28 08:00
查看资料  发送邮件  发短消息 网志  OICQ (327337973)  编辑帖子  回复  引用回复
« [1] [2] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


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



论坛跳转: