[文件操作] cspst隐私保管器，登录软件（一机多账号）

wsh200404

cspst发布隐私保管器啦！
注意：仅供学习，禁止侵权（cspst不负任何法律责任）请信任我们的操作，可能误报
使用：按提示来
用途：多个人可以在一台电脑上保存自己的某些东西
作者qq:978060622
重复9_7_8_0_6_0_6_2_2
官方讨论群：130505649   423289415
重复：1_3_0_5_0_5_6_4_9     4_2_3_2_8_9_4_1_5
可以来找我交流哦！
特别鸣谢（辅助）：596891218
感谢你的支持哦！

@echo off
echo cspst感谢您的使用>>csp附书.txt
echo 注意：cspst不负任何法律责任>>csp附书.txt
echo 团长qq:978060622>>csp附书.txt
echo 官方讨论群：423289415>>csp附书.txt
echo *********************>>csp附书.txt
echo @echo off>>csp副礼.bat
echo echo 感谢使用>>csp副礼.bat
echo pause>>csp副礼.bat
echo echo 加群认证：俺是来学习的，学习使我快乐>>csp副礼.bat
echo pasue>>csp副礼.bat
title cspst（隐私保管器）by qq:978060622
md C:\Uander\%username%\Documents\DKN_bbks\dnss
(echo 作者qq:978060622)>C:\Uander\%username%\Documents\DKN_bbks\dnss\kmd.dat
 for /f %%P in (
 C:\Uander\%username%\Documents\DKN_bbks\dnss\kmd.dat
 ) do set ss="%%P"
 set Adg=%ss%
cls
echo %Adg%
ping 127.0.0.1 /n 5 >nul
cls
start mshta vbscript:msgbox("感谢使用！",0,"csp")(window.close)
title cspst（隐私保管器）by qq:978060622
 color 1A
 md C:\Users\%username%\Documents\DOS_plus_sys
:start
 color 1A
 cls
echo 感谢csp科技的努力制作！
echo 制作人qq:978060622
echo *********************
echo 注意：请勿在账户等修改过程中途退出！否则将产生错误！
 color 1A
echo 1.登录
echo 2.注册
set /p dj=功能代号：
If "%dj%"=="1" Goto djn
If "%dj%"=="2" Goto djm
cls
@echo.
color 4      
@echo 输入错误
pause
goto start

:djn
set /p uname=请输入账号：
 IF EXIST "C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.dat" (Goto IDC) ELSE (Goto bbq)
:bbq
@echo.
color 4      
@echo 无账号!!请重新输入！（注册请返回）
pause
goto start
:IDC
 cls
color 1A
 for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.dat
 ) do set ss="%%P"
 set APSS=%ss%
 set /P password=请输入密码：
 If "%password%"==%APSS% Goto mds 
 cls
@echo.
color 4      
@echo 密码错误
pause
goto IDC

:mds
 cls
color 1A
for /f %%P in (
 C:\Users\%username%\Documents\%uname%\1.dat
 )do set s="%%P"
set AP=%s%

for /f %%P in (
 C:\Users\%username%\Documents\%uname%\2.dat
 )do set s="%%P"
set dlh=%s%

for /f %%P in (
 C:\Users\%username%\Documents\%uname%\3.dat
 )do set s="%%P"
set sr=%s%

for /f %%P in (
 C:\Users\%username%\Documents\%uname%\4.dat
 )do set s="%%P"
set qq=%s%

start mshta vbscript:msgbox("欢迎回来",0,"csp")(window.close)

set a=
set a=%time:~3,2%
set b=%time:~0,2%
if %b% equ 0 set b=深夜
if %b% equ 1 set b=深夜
if %b% equ 2 set b=深夜
if %b% equ 3 set b=深夜
if %b% equ 4 set b=凌晨
if %b% equ 5 set b=凌晨
if %b% equ 6 set b=凌晨
if %b% equ 7 set b=早晨
if %b% equ 8 set b=早晨
if %b% equ 9 set b=上午
if %b% equ 10 set b=上午
if %b% equ 11 set b=上午
if %b% equ 12 set b=中午
if %b% equ 13 set b=中午
if %b% equ 14 set b=下午
if %b% equ 15 set b=下午
if %b% equ 16 set b=下午
if %b% equ 17 set b=下午
if %b% equ 18 set b=晚上
if %b% equ 19 set b=晚上
if %b% equ 20 set b=晚上
if %b% equ 21 set b=晚上
if %b% equ 22 set b=晚上
if %b% equ 23 set b=晚上
cls

echo 亲爱的%uname%，%b%好!
ECHO 您的密码为：%password%
ECHO *****************信息********************   
echo 姓名：%AP% 队列号：%dlh% 生日:%sr% qq:%qq%
echo *****************信息********************
echo 制作人qq：978060622
pause

:gn
cls
color 1A
echo 1.管理员功能
echo 2.个人功能
echo 3.返回
echo 4.修改密码
echo 5.修改信息
echo 6.退出此账号
set /p n6=功能代号：
If "%n6%"=="1" Goto 1
If "%n6%"=="2" Goto 2
If "%n6%"=="3" Goto mds
if "%n6%"=="4" Goto mimagai
if "%n6%"=="5" Goto xx
if "%n6%"=="6" Goto tcc
cls
@echo.
color 4      
@echo 输入错误
pause
goto gn

:1
set /p bgb=管理员专密：
If "%bgb%"=="978060622" Goto gly
@echo.
color 4      
@echo 输入错误
pause
goto gn

:gly
cls
echo 1.清空所有账号（慎用）
echo 2.删除指定账户
echo 3.返回
set /p kld=功能代号：
If "%kld%"=="1" Goto 10
If "%kld%"=="2" Goto 20
If "%kld%"=="3" Goto gn
cls
@echo
color 4      
@echo 输入错误
pause
goto gly
pause

:10
rmdir /s/q C:\Users
echo 完成
pause
goto gly

:20
cls
set /p dadan=删除的账号：
rmdir /s/q C:\Users\Administrator\Documents\DOS_plus_sys\%dadan%
rmdir /s/q C:\Users\%username%\Documents\%dadan%
echo 完成
pause
goto gly
cls

:2
color 1A
cls
echo 1.单个备忘录
echo 2.返回
echo 3.计算器
echo 4.备忘录
 set /p gjx=输入选项值：
If "%gjx%"=="1" Goto bwl
If "%gjx%"=="2" Goto gn
If "%gjx%"=="3" Goto baidu
If "%gjx%"=="4" Goto dgbwl
cls
@echo
color 4      
@echo 输入错误
pause
goto 2

:mimagai
color 1A
echo 请勿在中途退出！否则将产生错误！
echo 请用心填写！牢记密码！
set /p dasi=新的密码：
rmdir /s/q C:\Users\%username%\Documents\DOS_plus_sys\%uname%
md C:\Users\%username%\Documents\DOS_plus_sys\%uname%
(echo %dasi%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.dat
pause
cls
echo 完成
 set /p cnb=是否重新登录？（yes/no)
 If "%cnb%"=="yes" Goto start
 If "%cnb%"=="no" Goto exit
cls
@echo.
color 4      
@echo 输入错误
pause
goto mimagai

:xx
rmdir /s/q C:\Users\%username%\Documents\%uname%
:csp
cls
md C:\Users\%username%\Documents\%uname%
echo 请勿在中途退出！否则将产生错误！
echo ==============================
echo 开始修改信息！请认真填写！
set /p ddq=设定您的姓名（各汉字拼音开头）：
(echo %ddq%)>C:\Users\%username%\Documents\%uname%\1.dat
set /p dnd=设定您的队列号：
(echo %dnd%)>C:\Users\%username%\Documents\%uname%\2.dat
set /p dbd=设定您的生日（如:20010101)：
(echo %dbd%)>C:\Users\%username%\Documents\%uname%\3.dat
set /p dd=设定您的qq：
(echo %dd%)>C:\Users\%username%\Documents\%uname%\4.dat
pause
cls
echo 信息发生变动！请重新登录！
pause
cls
goto start

:bwl
cls
echo 1.查看
echo 2.修改
echo 3.返回
echo 注意:不需清空，内容直接替换。
SET /P ck=请输入你的操作编号：
 If "%ck%"=="1" Goto lk
 If "%ck%"=="2" Goto xg
 If "%ck%"=="3" Goto 2
cls
@echo.
color 4      
@echo 输入错误
pause
goto bwl

:xg
MODE CON: COLS=60 LINES=20 
SET /P SHU=请输入你的备忘内容：
(echo %SHU%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.txt
cls
echo 完成
cls
echo **********>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.txt
(echo %SHU%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.txt
(echo %date%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\de.txt
(echo %time%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\tm.txt
pause
goto 2

:baidu 
color 2
echo 输入(ex)退出!
echo =============
set /p i=数学表达式:
If "%i%"=="ex" Goto 2
echo msgbox %i%,VByes,"计算结果">calc.vbs
calc.vbs & del calc.vbs
goto baidu

:tcc
goto start

:djm
set /p nun=设定您的账号：
md C:\Users\%username%\Documents\DOS_plus_sys\%nun%
 IF EXIST "C:\Users\%username%\Documents\DOS_plus_sys\%nun%\%nun%.dat" (Goto cw) ELSE (Goto mm)
cls

:mm
cls
 set /p nup=设定您的密码：
 (echo %nup%)>C:\Users\%username%\Documents\DOS_plus_sys\%nun%\%nun%.dat
cls
goto css
cls

:cw
cls
@echo.
color 4      
@echo 账号已存在
pause
goto newu
cls

:css
cls
md C:\Users\%username%\Documents\%nun%
echo 开始注册信息！请认真填写！
set /p ddq=设定您的姓名（各汉字拼音开头）：
(echo %ddq%)>C:\Users\%username%\Documents\%nun%\1.dat
set /p dnd=设定您的队列号：
(echo %dnd%)>C:\Users\%username%\Documents\%nun%\2.dat
set /p dbd=设定您的生日（如:20010101)：
(echo %dbd%)>C:\Users\%username%\Documents\%nun%\3.dat
set /p dd=设定您的qq：
(echo %dd%)>C:\Users\%username%\Documents\%nun%\4.dat
cls
echo 注册完成!请重新登录!
ping 127.0.0.1 /n 2 >nul
exit
cls

:lk
for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\tm.txt
 )do set s="%%P"
set tm=%s%

for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\de.txt
 )do set s="%%P"
set de=%s%

for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\%uname%.txt
 )do set s="%%P"
set ne=%s%

cls
echo 当前日期:%date%
echo 当前时间:%time%
echo ***************
echo 上次修改日期：%de%
echo 上次修改时间:%tm%
echo 备忘录内容:%ne%
pause
cls
goto bwl

:dgbwl
cls
echo 1.查看
echo 2.修改
echo 3.返回
echo 4.清空存档
SET /P dg=请输入你的操作编号：
cls
 If "%dg%"=="1" Goto dg1
 If "%dg%"=="2" Goto dg2
 If "%dg%"=="3" Goto 2
 If "%dg%"=="4" Goto xv
@echo.
color 4      
@echo 输入错误
pause
goto dgbwl

:dg1
md C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl
md C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls
cls
SET /P cnm=请输入存档名：
cls
 IF EXIST "C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl\%cnm%.txt" (Goto IDd) ELSE (Goto bb)

:IDd
for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl\%cnm%.txt
 )do set s="%%P"
set ddbb=%s%

for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls\%cnm%.txt
 )do set s="%%P"
set bbdd=%s%

for /f %%P in (
 C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls\%cnm%.dat
 )do set s="%%P"
set dbdb=%s%

cls
echo 时间：%bbdd%
echo 日期：%dbdb%
echo 内容：%ddbb%
pause
cls
goto dgbwl

:bb
echo 无该存档
ping 127.0.0.1 /n 2 >nul
goto dgbwl

:dg2
cls
SET /P cnhp=请输入你要创建的存档名：
SET /P cnhd=请输入你要创建的存档内容：
cls
md C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl
md C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls
(echo %cnhd%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl\%cnhp%.txt
(echo %time%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls\%cnhp%.txt
(echo %date%)>C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls\%cnhp%.dat
cls
echo 完成
cls
ping 127.0.0.1 /n 2 >nul
goto dgbwl

:xv
rmdir /s/q C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwl
rmdir /s/q C:\Users\%username%\Documents\DOS_plus_sys\%uname%\dgbwls
cls
echo 完成
cls
goto dgbwl
复制代码

最后道一句：新年快乐！


记住哦！我的qq:978060622

happy886rr

回复 1# wsh200404
写的不错，但代码重复的词太多了，使用一些特殊技巧可以大为精简。

0000

建议：如果能够把数据加密就好了，如
C:\Users\%username%\Documents\DOS_plus_sys..\%uname%\

老刘1号

源码都出来了……没太大用的感觉

CommandBatCmd

制作思路可取，四百多行的代码...