[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
16楼 跳转到 »
发表于 2021-10-10 13:35 | 只看该作者
本帖最后由 cmd1152 于 2021-10-10 13:52 编辑

1.0.0003
修复窗口太小
优化快捷方式和Debug
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.         set Version=1.0.0003

  5. 	Cls

  6. 	call :msg "设置窗口大小"

  7. 	Mode Con: Cols=120 Lines=68800

  8. 	call :msg "设置颜色"

  9. 	Color 0F

  10. 	call :msg "设置标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :msg "设置编码"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :msg "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :msg "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope ^& Cms1152 Corp.

  30. 	

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 		call :msg "没有调用参数"

  34. 	) Else (

  35. 		Set FileNum=2

  36. 		call :msg "有参数"

  37. 	)

  38. 	call :msg "创建文件夹"

  39. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  40. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  41.     call :msg "set"

  42. 	Set "Pro=%0"

  43. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  44. 	Set "Pro=%Pro:"=%"

  45. 	call :msg "创建快捷方式"

  46. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  47. 

  48. @Goto :Main

  49. 

  50. :Main

  51. 	Echo.

  52. 	Set "FileName=///*无此文件*///"

  53. 

  54. 	If "%FileNum%"=="1" (

  55. 		call :msg "输入"

  56. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  57. 	) Else (

  58. 	    call :msg "参数显示"

  59. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  60. 		Echo.

  61. 		Set FileName=%~1

  62. 		Set FileNum=1

  63. 	)

  64.     call :msg "set"

  65. 	Set "FileName=%FileName:"=%"

  66. 

  67. 	For /F %%I in ('Dir /b') Do (

  68. 		If "%%I"=="%FileName%" (

  69. 			Set "FileName=%Cd%\%FileName%"

  70. 		)

  71. 	)

  72. 

  73. 	Set FileName="%FileName%"

  74. 

  75. 	If Not Exist %FileName% (

  76. 		call :msg "返回：加密错误：找不到文件"

  77. 		Echo.

  78. 		Echo.  ^>^> 无此文件!无法加密...

  79. 		@Goto :Main

  80. 	)

  81. 

  82. 	Set FilenameExtension=%FileName:~-5%

  83. 	Set FilenameExtension=%FilenameExtension:~0,4%

  84. 

  85. 	For /L %%i in (1,1,2048) Do (

  86. 		If Not Exist "File-%%i\" (

  87. 			Md "File-%%i\" >Nul 2>Nul

  88. 			Set EnCodeDir=File-%%i\

  89. 			Set Num=%%i

  90. 			@Goto :EnCode

  91. 		)

  92. 	)

  93.     call :msg "加密失败：内存错误：文件夹超过2048"

  94. 	Echo.

  95. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  96. 

  97. @Goto :Main

  98. 

  99. :EnCode

  100. 

  101. 	Set "Choice="

  102. call :msg "文件判断"

  103. 	If /I Not "%FilenameExtension%"==".Bat" (

  104. 		call :msg "不是bat文件"

  105. 		If /I Not "%FilenameExtension%"==".Cmd" (

  106. 			call :msg "不是批处理文件"

  107. 			@Goto :Choice

  108. 		)

  109. 	)

  110.     call :msg "for 17"

  111. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  112. 

  113. 	Echo.

  114. 	call :msg "绘图"

  115. 	Call :Type "  "

  116. 	Call :Type "+"

  117. 	Call :Type "=" 4

  118. 	Call :Type "正在加密"

  119. 	Call :Type "=" 4

  120. 	Call :Type "+"

  121. 	Call :Type "=" 98

  122. 	Echo.

  123. 

  124. 	Echo.

  125. 	Echo.  文件名: %FileName%

  126. 	Echo.

  127.     call :msg "正在加密..."

  128. 	Cd %EnCodeDir%

  129. 

  130. 	Copy %FileName% "%cd%\File.Bat" > Nul

  131. 

  132. 	For /F %%i in ('dir /b File.Bat') do (

  133. 		For /L %%j in (1,1,%%~zi) do (

  134. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  135. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  136. 		)

  137. 	)

  138. 	Echo.

  139. 

  140. 	Call :VBScript_EnCode

  141.     call :msg "打开EnCode.vbs，等待他结束"

  142. 	Start /W "" "EnCode.VBS"

  143.     Del /f "EnCode.VBS" 2>nul

  144. 

  145. 	>> "EnCode.Bat" Echo.

  146. 	>> "EnCode.Bat" Echo.Cls

  147. 	Type "File.Bat" >> "EnCode.Bat"

  148. 

  149. 	Del /f "File.Bat" 2>nul

  150.     call :msg "完成"

  151. 	Echo.

  152. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  153. 	Echo.

  154. 

  155. 	For /F %%i in ('dir /b EnCode.Bat') do (

  156. 		For /L %%j in (1,1,%%~zi) do (

  157. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  158. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  159. 		)

  160. 	)

  161. 	Echo.

  162.     call :msg "Msg"

  163. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  164.     call :msg "用资源管理器打开文件夹"

  165. 	Start Explorer "%Cd%"

  166.     call :msg "用记事本打开程序"

  167. 	Start "" "Notepad" "EnCode.Bat"

  168. 

  169. 	Cd..

  170.     call :msg "绘图"

  171. 	Echo.

  172. 	Call :Type "  "

  173. 	Call :Type "+"

  174. 	Call :Type "=" 4

  175. 	Call :Type "=" 8

  176. 	Call :Type "=" 4

  177. 	Call :Type "+"

  178. 	Call :Type "=" 98

  179. 	Echo.

  180. 

  181. @Goto :Main

  182. 

  183. :RepeatBS

  184.     call :msg "Set Bs"

  185. 	Set "Bs=%Bs%"

  186. @Goto :Eof

  187. 

  188. :Type <Text> [Num]

  189. call :msg "循环字体"

  190. 	%=Company {Hope Studio}=%

  191. 

  192. 	%=Author  {Hope Studio}=%

  193. 

  194. 	If '%2'=='' (

  195. 		Set /p Text=#%~1<Nul

  196. 		@Goto :Eof

  197. 	)

  198. 	If Not '%2'=='' (

  199. 		For /l %%I in (1,1,%2) Do (

  200. 			Set /p Text=#%~1<Nul

  201. 		)

  202. 	)

  203. 

  204. @Goto :Eof

  205. 

  206. :VBScript_EnCode

  207.     call :msg "写入文件EnCode.vbs"

  208. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  209. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  210. 	>> EnCode.VBS Echo..Open

  211. 	>> EnCode.VBS Echo..type = 2

  212. 	>> EnCode.VBS Echo..WriteText text

  213. 	>> EnCode.VBS Echo..SaveToFile strPath

  214. 	>> EnCode.VBS Echo..close()

  215. 	>> EnCode.VBS Echo.End With

  216. 	>> EnCode.VBS Echo.End Function

  217. 	>> EnCode.VBS Echo.

  218. 	>> EnCode.VBS Echo.Dim EnCode

  219. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  220. 	call :msg "写入文件EnCode.vbs完成"

  221. @Goto :Eof

  222. 

  223. :Choice

  224.     call :msg "[信息]"

  225. 	Echo.

  226. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  227. 	Echo.

  228. 	Set /p "Choice=#  >> "

  229. 	If /I Not "%Choice%"=="Y" (

  230. 		call :msg "继续"

  231. 		@Goto :Main

  232. 	)

  233. 	call :msg "变量FilenameExtension=.Bat"

  234. 	Set "FilenameExtension=.Bat"

  235. @Goto :EnCode

  236. 

  237. 

  238. :Msg

  239.     if %debug%==1 (

  240.     	set /P=                                                     调试：%~1<nul

  241.     	echo;

  242.     )

  243. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
17楼
发表于 2021-10-10 15:02 | 只看该作者
回复 16# cmd1152
版本1.0.0004
增加程序调试和查看源码功能
  1. @Echo Off

  2. 	Cls

  3. 	Mode Con: Cols=120 Lines=16384

  4. 	Color 0F

  5. 	Title Hope(R) Office EasyCommand EasyEnCode

  6. 	Chcp 936 > Nul

  7. 	Rem Hope(R) Office EasyCommand EasyEnCode

  8. 	Echo.

  9. 	Call :Type "  "

  10. 	Call :Type "#" 116

  11. 	Echo.

  12. 	Call :Type " " 55

  13. 	Call :Type "EasyEnCode"

  14. 	Echo.

  15. 	Call :Type "  "

  16. 	Call :Type "#" 116

  17. 	Echo.

  18. 	Echo.

  19. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0004]

  20. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  21. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  22. 	If "%~1"=="" (

  23. 		Set FileNum=1

  24. 	) Else (

  25. 		Set FileNum=2

  26. 	)

  27. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  28. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  29. 

  30. 	Set "Pro=%0"

  31. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0004]"

  32. 	Set "Pro=%Pro:"=%"

  33. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version 1.0.0004].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  34. 

  35. @Goto :Main

  36. 

  37. :Main

  38. 	Echo.

  39. 	Set "FileName=///*无此文件*///"

  40. 

  41. 	If "%FileNum%"=="1" (

  42. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  43. 	) Else (

  44. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  45. 		Echo.

  46. 		Set FileName=%~1

  47. 		Set FileNum=1

  48. 	)

  49. 

  50. 	Set "FileName=%FileName:"=%"

  51. 

  52. 	For /F %%I in ('Dir /b') Do (

  53. 		If "%%I"=="%FileName%" (

  54. 			Set "FileName=%Cd%\%FileName%"

  55. 		)

  56. 	)

  57. 

  58. 	Set FileName="%FileName%"

  59. 

  60. 	If Not Exist %FileName% (

  61. 		Echo.

  62. 		Echo.  ^>^> 无此文件!无法加密...

  63. 		@Goto :Main

  64. 	)

  65. 

  66. 	Set FilenameExtension=%FileName:~-5%

  67. 	Set FilenameExtension=%FilenameExtension:~0,4%

  68. 

  69. 	For /L %%i in (1,1,2048) Do (

  70. 		If Not Exist "File-%%i\" (

  71. 			Md "File-%%i\" >Nul 2>Nul

  72. 			Set EnCodeDir=File-%%i\

  73. 			Set Num=%%i

  74. 			@Goto :EnCode

  75. 		)

  76. 	)

  77. 

  78. 	Echo.

  79. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  80. 

  81. @Goto :Main

  82. 

  83. :EnCode

  84. 

  85. 	Set "Choice="

  86. 

  87. 	If /I Not "%FilenameExtension%"==".Bat" (

  88. 		If /I Not "%FilenameExtension%"==".Cmd" (

  89. 			@Goto :Choice

  90. 		)

  91. 	)

  92. 

  93. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  94. 

  95. 	Echo.

  96. 	Call :Type "  "

  97. 	Call :Type "+"

  98. 	Call :Type "=" 4

  99. 	Call :Type "正在加密"

  100. 	Call :Type "=" 4

  101. 	Call :Type "+"

  102. 	Call :Type "=" 98

  103. 	Echo.

  104. 

  105. 	Echo.

  106. 	Echo.  开始加密时间: %Time%

  107. 	Echo.

  108. 	Echo.  文件名: %FileName%

  109. 	Echo.

  110. 

  111. 	Cd %EnCodeDir%

  112. 

  113. 	Copy %FileName% "%cd%\File.Bat" > Nul

  114. 

  115. 	For /F %%i in ('dir /b File.Bat') do (

  116. 		For /L %%j in (1,1,%%~zi) do (

  117. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s]<Nul

  118. 		)

  119. 	)

  120. 	Echo.

  121. 

  122. 	Call :VBScript_EnCode

  123. 

  124. 	Start /Wait "" "EnCode.VBS"

  125. 

  126. 	If Exist "EnCode.VBS" Del "EnCode.VBS"

  127. 

  128. 	>> "EnCode.Bat" Echo.

  129. 	>> "EnCode.Bat" Echo.Cls

  130. 	Type "File.Bat" >> "EnCode.Bat"

  131. 

  132. 	If Exist "File.Bat" Del "File.Bat"

  133. 

  134. 	Echo.

  135. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  136. 	Echo.

  137. 

  138. 	For /F %%i in ('dir /b EnCode.Bat') do (

  139. 		For /L %%j in (1,1,%%~zi) do (

  140. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s]<Nul

  141. 		)

  142. 	)

  143. 	Echo.

  144. 

  145. 

  146. 	Echo.

  147. 	Echo.  加密结束时间: %Time%

  148. 

  149. 	Echo.

  150. 	Call :Type "  "

  151. 	Call :Type "+"

  152. 	Call :Type "=" 4

  153. 	Call :Type "=" 8

  154. 	Call :Type "=" 4

  155. 	Call :Type "+"

  156. 	Call :Type "=" 98

  157. 	Echo.

  158. 

  159. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0004]")(window.close)

  160. 

  161. 	Start Explorer "%Cd%"

  162. 

  163. 	Start "" "Notepad" "EnCode.Bat"

  164. 

  165. 	Echo.

  166. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  167. 	Echo.

  168. 	Set /p "Choice=#  ^>^> "

  169. 	Echo.

  170. 

  171. 	Call :Type "  "

  172. 	Call :Type "+"

  173. 	Call :Type "=" 4

  174. 	Call :Type "=" 8

  175. 	Call :Type "=" 4

  176. 	Call :Type "+"

  177. 	Call :Type "=" 98

  178. 	Echo.

  179. 

  180. 	If /I Not "%Choice%"=="Y" (

  181. 		Cd..

  182. 		@Goto :Main

  183. 	)

  184. 

  185. 	Start "" "EnCode.Bat"

  186. 

  187. 	Echo.

  188. 

  189. 	Call :Type "  "

  190. 	Call :Type "_" 116

  191. 	Echo.

  192. 	Call :Type "  "

  193. 	Call :Type "_" 4

  194. 	Call :Type "Code"

  195. 	Call :Type "_" 108

  196. 	Echo.

  197. 	Echo.

  198. 

  199. 	More "EnCode.Bat"

  200. 

  201. 	Echo.

  202. 

  203. 	Call :Type "  "

  204. 	Call :Type "_" 116

  205. 	Echo.

  206. 	Echo.

  207. 

  208. 	Cd..

  209. 

  210. @Goto :Main

  211. 

  212. :RepeatBS

  213. 	Set "Bs=%Bs%"

  214. @Goto :Eof

  215. 

  216. :Type <Text> [Num]

  217. 

  218. 	%=Company {Hope Studio}=%

  219. 

  220. 	%=Author  {Hope Studio}=%

  221. 

  222. 	If '%2'=='' (

  223. 		Set /p Text=#%~1<Nul

  224. 		@Goto :Eof

  225. 	)

  226. 	If Not '%2'=='' (

  227. 		For /l %%I in (1,1,%2) Do (

  228. 			Set /p Text=#%~1<Nul

  229. 		)

  230. 	)

  231. 

  232. @Goto :Eof

  233. 

  234. :VBScript_EnCode

  235. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  236. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  237. 	>> EnCode.VBS Echo..Open

  238. 	>> EnCode.VBS Echo..type = 2

  239. 	>> EnCode.VBS Echo..WriteText text

  240. 	>> EnCode.VBS Echo..SaveToFile strPath

  241. 	>> EnCode.VBS Echo..close()

  242. 	>> EnCode.VBS Echo.End With

  243. 	>> EnCode.VBS Echo.End Function

  244. 	>> EnCode.VBS Echo.

  245. 	>> EnCode.VBS Echo.Dim EnCode

  246. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  247. @Goto :Eof

  248. 

  249. :Choice

  250. 	Echo.

  251. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  252. 	Echo.

  253. 	Set /p "Choice=#  ^>^> "

  254. 	If /I Not "%Choice%"=="Y" (

  255. 		@Goto :Main

  256. 	)

  257. 	Set "FilenameExtension=.Bat"

  258. @Goto :EnCode
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
18楼
发表于 2021-10-10 15:11 | 只看该作者
回复 16# cmd1152
版本1.0.0005
修复了需要加密文件大小为0时的显示和加密错误
  1. @Echo Off

  2. 	Cls

  3. 	Mode Con: Cols=120 Lines=16384

  4. 	Color 0F

  5. 	Title Hope(R) Office EasyCommand EasyEnCode

  6. 	Chcp 936 > Nul

  7. 	Rem Hope(R) Office EasyCommand EasyEnCode

  8. 	Echo.

  9. 	Call :Type "  "

  10. 	Call :Type "#" 116

  11. 	Echo.

  12. 	Call :Type " " 55

  13. 	Call :Type "EasyEnCode"

  14. 	Echo.

  15. 	Call :Type "  "

  16. 	Call :Type "#" 116

  17. 	Echo.

  18. 	Echo.

  19. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0005]

  20. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  21. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  22. 	If "%~1"=="" (

  23. 		Set FileNum=1

  24. 	) Else (

  25. 		Set FileNum=2

  26. 	)

  27. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  28. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  29. 

  30. 	Set "Pro=%0"

  31. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0005]"

  32. 	Set "Pro=%Pro:"=%"

  33. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version 1.0.0005].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  34. 

  35. @Goto :Main

  36. 

  37. :Main

  38. 	Echo.

  39. 	Set "FileName=///*无此文件*///"

  40. 

  41. 	If "%FileNum%"=="1" (

  42. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  43. 	) Else (

  44. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  45. 		Echo.

  46. 		Set FileName=%~1

  47. 		Set FileNum=1

  48. 	)

  49. 

  50. 	Set "FileName=%FileName:"=%"

  51. 

  52. 	For /F %%I in ('Dir /b') Do (

  53. 		If "%%I"=="%FileName%" (

  54. 			Set "FileName=%Cd%\%FileName%"

  55. 		)

  56. 	)

  57. 

  58. 	Set FileName="%FileName%"

  59. 

  60. 	If Not Exist %FileName% (

  61. 		Echo.

  62. 		Echo.  ^>^> 无此文件!无法加密...

  63. 		@Goto :Main

  64. 	)

  65. 

  66. 	Set FilenameExtension=%FileName:~-5%

  67. 	Set FilenameExtension=%FilenameExtension:~0,4%

  68. 

  69. 	For /L %%i in (1,1,2048) Do (

  70. 		If Not Exist "File-%%i\" (

  71. 			Md "File-%%i\" >Nul 2>Nul

  72. 			Set EnCodeDir=File-%%i\

  73. 			Set Num=%%i

  74. 			@Goto :EnCode

  75. 		)

  76. 	)

  77. 

  78. 	Echo.

  79. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  80. 

  81. @Goto :Main

  82. 

  83. :EnCode

  84. 

  85. 	Set "Choice="

  86. 

  87. 	If /I Not "%FilenameExtension%"==".Bat" (

  88. 		If /I Not "%FilenameExtension%"==".Cmd" (

  89. 			@Goto :Choice

  90. 		)

  91. 	)

  92. 

  93. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  94. 

  95. 	Echo.

  96. 	Call :Type "  "

  97. 	Call :Type "+"

  98. 	Call :Type "=" 4

  99. 	Call :Type "正在加密"

  100. 	Call :Type "=" 4

  101. 	Call :Type "+"

  102. 	Call :Type "=" 98

  103. 	Echo.

  104. 

  105. 	Echo.

  106. 	Echo.  开始加密时间: %Time%

  107. 	Echo.

  108. 	Echo.  文件名: %FileName%

  109. 	Echo.

  110. 

  111. 	Cd %EnCodeDir%

  112. 

  113. 	Copy %FileName% "%cd%\File.Bat" > Nul

  114. 

  115. 	For /F %%i in ('dir /b File.Bat') do (

  116. 		For /L %%j in (0,1,%%~zi) do (

  117. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s]<Nul

  118. 		)

  119. 	)

  120. 	Echo.

  121. 

  122. 	Call :VBScript_EnCode

  123. 

  124. 	Start /Wait "" "EnCode.VBS"

  125. 

  126. 	If Exist "EnCode.VBS" Del "EnCode.VBS"

  127. 

  128. 	>> "EnCode.Bat" Echo.

  129. 	>> "EnCode.Bat" Echo.Cls

  130. 	Type "File.Bat" >> "EnCode.Bat"

  131. 

  132. 	If Exist "File.Bat" Del "File.Bat"

  133. 

  134. 	Echo.

  135. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  136. 	Echo.

  137. 

  138. 	For /F %%i in ('dir /b EnCode.Bat') do (

  139. 		For /L %%j in (0,1,%%~zi) do (

  140. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s]<Nul

  141. 		)

  142. 	)

  143. 	Echo.

  144. 

  145. 

  146. 	Echo.

  147. 	Echo.  加密结束时间: %Time%

  148. 

  149. 	Echo.

  150. 	Call :Type "  "

  151. 	Call :Type "+"

  152. 	Call :Type "=" 4

  153. 	Call :Type "=" 8

  154. 	Call :Type "=" 4

  155. 	Call :Type "+"

  156. 	Call :Type "=" 98

  157. 	Echo.

  158. 

  159. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0005]")(window.close)

  160. 

  161. 	Start Explorer "%Cd%"

  162. 

  163. 	Start "" "Notepad" "EnCode.Bat"

  164. 

  165. 	Echo.

  166. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  167. 	Echo.

  168. 	Set /p "Choice=#  ^>^> "

  169. 	Echo.

  170. 

  171. 	Call :Type "  "

  172. 	Call :Type "+"

  173. 	Call :Type "=" 4

  174. 	Call :Type "=" 8

  175. 	Call :Type "=" 4

  176. 	Call :Type "+"

  177. 	Call :Type "=" 98

  178. 	Echo.

  179. 

  180. 	If /I Not "%Choice%"=="Y" (

  181. 		Cd..

  182. 		@Goto :Main

  183. 	)

  184. 

  185. 	Start "" "EnCode.Bat"

  186. 

  187. 	Echo.

  188. 

  189. 	Call :Type "  "

  190. 	Call :Type "_" 116

  191. 	Echo.

  192. 	Call :Type "  "

  193. 	Call :Type "_" 4

  194. 	Call :Type "Code"

  195. 	Call :Type "_" 108

  196. 	Echo.

  197. 	Echo.

  198. 

  199. 	More "EnCode.Bat"

  200. 

  201. 	Echo.

  202. 

  203. 	Call :Type "  "

  204. 	Call :Type "_" 116

  205. 	Echo.

  206. 	Echo.

  207. 

  208. 	Cd..

  209. 

  210. @Goto :Main

  211. 

  212. :RepeatBS

  213. 	Set "Bs=%Bs%"

  214. @Goto :Eof

  215. 

  216. :Type <Text> [Num]

  217. 

  218. 	%=Company {Hope Studio}=%

  219. 

  220. 	%=Author  {Hope Studio}=%

  221. 

  222. 	If '%2'=='' (

  223. 		Set /p Text=#%~1<Nul

  224. 		@Goto :Eof

  225. 	)

  226. 	If Not '%2'=='' (

  227. 		For /l %%I in (1,1,%2) Do (

  228. 			Set /p Text=#%~1<Nul

  229. 		)

  230. 	)

  231. 

  232. @Goto :Eof

  233. 

  234. :VBScript_EnCode

  235. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  236. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  237. 	>> EnCode.VBS Echo..Open

  238. 	>> EnCode.VBS Echo..type = 2

  239. 	>> EnCode.VBS Echo..WriteText text

  240. 	>> EnCode.VBS Echo..SaveToFile strPath

  241. 	>> EnCode.VBS Echo..close()

  242. 	>> EnCode.VBS Echo.End With

  243. 	>> EnCode.VBS Echo.End Function

  244. 	>> EnCode.VBS Echo.

  245. 	>> EnCode.VBS Echo.Dim EnCode

  246. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  247. @Goto :Eof

  248. 

  249. :Choice

  250. 	Echo.

  251. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  252. 	Echo.

  253. 	Set /p "Choice=#  ^>^> "

  254. 	If /I Not "%Choice%"=="Y" (

  255. 		@Goto :Main

  256. 	)

  257. 	Set "FilenameExtension=.Bat"

  258. @Goto :EnCode
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
19楼
发表于 2021-10-10 15:34 | 只看该作者
回复 18# HOPE2021


    正在安装Debug...
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
20楼
发表于 2021-10-10 15:55 | 只看该作者
本帖最后由 cmd1152 于 2021-10-10 15:58 编辑

Version=1.0.0005 优化+Debug 版
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.     set "Version=1.0.0005 优化+Debug 版"

  5. 	Cls

  6. 	call :Debug "修改窗口大小"

  7. 	Mode Con: Cols=120 Lines=16384

  8. 	call :Debug "修改颜色"

  9. 	Color 0F

  10. 	call :Debug "修改标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :Debug "修改代码页"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :Debug "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :Debug "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  30. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 	) Else (

  34. 		Set FileNum=2

  35. 	)

  36. 	call :Debug "新建文件夹"

  37. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  38. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  39.     call :Debug "变量设置"

  40. 	Set "Pro=%0"

  41. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  42. 	Set "Pro=%Pro:"=%"

  43. 	call :Debug "创建快捷方式"

  44. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  45. 

  46. @Goto :Main

  47. 

  48. :Main

  49. 	Echo.

  50. 	Set "FileName=///*无此文件*///"

  51. 

  52. 	If "%FileNum%"=="1" (

  53. 		call :Debug "没有调用函数"

  54. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  55. 	) Else (

  56. 	    call :Debug "有调用函数"

  57. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  58. 		Echo.

  59. 		Set FileName=%~1

  60. 		Set FileNum=1

  61. 	)

  62. 	Set "FileName=%FileName:"=%"

  63.     call :Debug "查找文件"

  64. 	For /F %%I in ('Dir /b') Do (

  65. 		If "%%I"=="%FileName%" (

  66. 			Set "FileName=%Cd%\%FileName%"

  67. 		)

  68. 	)

  69. 

  70. 	Set FileName="%FileName%"

  71.     call :Debug "判断文件是否存在"

  72. 	If Not Exist %FileName% (

  73. 		call :Debug "没有找到文件"

  74. 		Echo.

  75. 		Echo.  ^>^> 无此文件!无法加密...

  76. 		@Goto :Main

  77. 	)

  78. 

  79. 	Set FilenameExtension=%FileName:~-5%

  80. 	Set FilenameExtension=%FilenameExtension:~0,4%

  81.     call :Debug "文件夹名字的递增"

  82. 	For /L %%i in (1,1,2048) Do (

  83. 		If Not Exist "File-%%i\" (

  84. 			Md "File-%%i\" >Nul 2>Nul

  85. 			Set EnCodeDir=File-%%i\

  86. 			Set Num=%%i

  87. 			@Goto :EnCode

  88. 		)

  89. 	)

  90.     call :Debug "文件夹超过2048"

  91. 	Echo.

  92. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  93. 

  94. @Goto :Main

  95. 

  96. :EnCode

  97. 

  98. 	Set "Choice="

  99.     call :Debug "判断文件是否是批处理"

  100. 	If /I Not "%FilenameExtension%"==".Bat" (

  101. 		call :Debug "不是.bat文件"

  102. 		If /I Not "%FilenameExtension%"==".Cmd" (

  103. 			call :Debug "不是.Cmd文件"

  104. 			@Goto :Choice

  105. 		)

  106. 	)

  107. 	call :Debug "B变量设置"

  108. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  109.     call :Debug "绘图"

  110. 	Echo.

  111. 	Call :Type "  "

  112. 	Call :Type "+"

  113. 	Call :Type "=" 4

  114. 	Call :Type "正在加密"

  115. 	Call :Type "=" 4

  116. 	Call :Type "+"

  117. 	Call :Type "=" 98

  118. 	Echo.

  119.     call :Debug "[信息]"

  120. 	Echo.

  121. 	Echo.  开始加密时间: %Time%

  122. 	Echo.

  123. 	Echo.  文件名: %FileName%

  124. 	Echo.

  125.     call :Debug "加密过程"

  126. 	Cd %EnCodeDir%

  127. 

  128. 	Copy %FileName% "%cd%\File.Bat" > Nul

  129. 

  130. 	For /F %%i in ('dir /b File.Bat') do (

  131. 		For /L %%j in (0,1,%%~zi) do (

  132. 		    call :Debug for返回%%j，最后会返回%%~zi

  133. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  134. 		)

  135. 	)

  136. 	Echo.

  137. 

  138. 	Call :VBScript_EnCode

  139.     call :Debug "打开EnCode.VBS，并等待运行结束"

  140. 	Start /W "" "EnCode.VBS"

  141.     call :Debug "删除EnCode.VBS"

  142. 	Del /f "EnCode.VBS" >nul 2>nul

  143.     call :Debug "写入EnCode.Bat"

  144. 	>> "EnCode.Bat" Echo.

  145. 	>> "EnCode.Bat" Echo.Cls

  146. 	Type "File.Bat" >> "EnCode.Bat"

  147.     call :Debug "删除File.Bat"

  148. 	Del /f "File.Bat" >nul 2>nul

  149.     call :Debug "[信息]"

  150. 	Echo.

  151. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  152. 	Echo.

  153. 

  154. 	For /F %%i in ('dir /b EnCode.Bat') do (

  155. 		For /L %%j in (0,1,%%~zi) do (

  156. 		    call :Debug for返回%%j，最后会返回%%~zi

  157. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  158. 		)

  159. 	)

  160. 	Echo.

  161. 

  162.     call :Debug "返回加密时间"

  163. 	Echo.

  164. 	Echo.  加密结束时间: %Time%

  165.     call :Debug "绘图"

  166. 	Echo.

  167. 	Call :Type "  "

  168. 	Call :Type "+"

  169. 	Call :Type "=" 4

  170. 	Call :Type "=" 8

  171. 	Call :Type "=" 4

  172. 	Call :Type "+"

  173. 	Call :Type "=" 98

  174. 	Echo.

  175.     call :Debug "Msg"

  176. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  177.     call :Debug 用资源管理器打开%CD%

  178. 	Start Explorer "%Cd%"

  179.     call :Debug "用记事本打开EnCode.Bat"

  180. 	Start "" "Notepad" "EnCode.Bat"

  181.     call :Debug "加密完毕"

  182. 	Echo.

  183. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  184. 	Echo.

  185. 	Set /p "Choice=#  ^>^> "

  186. 	Echo.

  187.     call :Debug "绘图"

  188. 	Call :Type "  "

  189. 	Call :Type "+"

  190. 	Call :Type "=" 4

  191. 	Call :Type "=" 8

  192. 	Call :Type "=" 4

  193. 	Call :Type "+"

  194. 	Call :Type "=" 98

  195. 	Echo.

  196. 

  197. 	If /I Not "%Choice%"=="Y" (

  198. 		call :Debug "返回上一级"

  199. 		Cd..

  200. 		@Goto :Main

  201. 	)

  202.     call :Debug "运行EnCode.Bat"

  203. 	Start "" "EnCode.Bat"

  204. 

  205. 	Echo.

  206.     call :Debug "绘图"

  207. 	Call :Type "  "

  208. 	Call :Type "_" 116

  209. 	Echo.

  210. 	Call :Type "  "

  211. 	Call :Type "_" 4

  212. 	Call :Type "Code"

  213. 	Call :Type "_" 108

  214. 	Echo.

  215. 	Echo.

  216.     call :Debug "逐屏显示输出内容"

  217. 	More "EnCode.Bat"

  218. 

  219. 	Echo.

  220.     call :Debug "绘图"

  221. 	Call :Type "  "

  222. 	Call :Type "_" 116

  223. 	Echo.

  224. 	Echo.

  225. 

  226. 	Cd..

  227. 

  228. @Goto :Main

  229. 

  230. :RepeatBS

  231.     call :Debug "Bs的设置"

  232. 	Set "Bs=%Bs%"

  233. @Goto :Eof

  234. 

  235. :Type <Text> [Num]

  236. call :Debug "绘图引擎"

  237. 	%=Company {Hope Studio}=%

  238. 

  239. 	%=Author  {Hope Studio}=%

  240. 

  241. 	If '%2'=='' (

  242. 		Set /p Text=#%~1<Nul

  243. 		@Goto :Eof

  244. 	)

  245. 	If Not '%2'=='' (

  246. 		For /l %%I in (1,1,%2) Do (

  247. 			Set /p Text=#%~1<Nul

  248. 		)

  249. 	)

  250. 

  251. @Goto :Eof

  252. 

  253. :VBScript_EnCode

  254. call :Debug "写入EnCode.VBS"

  255. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  256. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  257. 	>> EnCode.VBS Echo..Open

  258. 	>> EnCode.VBS Echo..type = 2

  259. 	>> EnCode.VBS Echo..WriteText text

  260. 	>> EnCode.VBS Echo..SaveToFile strPath

  261. 	>> EnCode.VBS Echo..close()

  262. 	>> EnCode.VBS Echo.End With

  263. 	>> EnCode.VBS Echo.End Function

  264. 	>> EnCode.VBS Echo.

  265. 	>> EnCode.VBS Echo.Dim EnCode

  266. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  267. call :Debug "写入EnCode.VBS结束"

  268. @Goto :Eof

  269. 

  270. :Choice

  271.     call :Debug "[提示信息]"

  272. 	Echo.

  273. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  274. 	Echo.

  275. 	Set /p "Choice=#  ^>^> "

  276. 	If /I Not "%Choice%"=="Y" (

  277. 		@Goto :Main

  278. 	)

  279. 	call :Debug "变量FilenameExtension=.Bat"

  280. 	Set "FilenameExtension=.Bat"

  281. @Goto :EnCode

  282. 

  283. goto :eof

  284. :Debug

  285.     if %debug%==1 (

  286.     	set /P=                                                                    调试：%~1<nul

  287.     	echo;

  288.     )

  289. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
21楼
发表于 2021-10-10 16:12 | 只看该作者
回复 17# HOPE2021


    查看源码是没有用的
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
22楼
发表于 2021-10-10 16:27 | 只看该作者
回复 21# cmd1152
查看加密的源码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
23楼
发表于 2021-10-10 16:33 | 只看该作者
回复 22# HOPE2021


    我还以为是
源码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
24楼
发表于 2021-10-11 12:40 | 只看该作者
本帖最后由 cmd1152 于 2021-10-11 12:49 编辑

Version=1.0.0005 优化+Debug+加速 版
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.     set "Version=1.0.0005 优化+Debug+加速 版"

  5. 	Cls

  6. 	call :Debug "修改窗口大小"

  7. 	Mode Con: Cols=120 Lines=16384

  8. 	call :Debug "修改颜色"

  9. 	Color 0F

  10. 	call :Debug "修改标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :Debug "修改代码页"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :Debug "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :Debug "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  30. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 	) Else (

  34. 		Set FileNum=2

  35. 	)

  36. 	call :Debug "新建文件夹"

  37. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  38. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  39.     call :Debug "变量设置"

  40. 	Set "Pro=%0"

  41. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  42. 	Set "Pro=%Pro:"=%"

  43. 	call :Debug "创建快捷方式"

  44. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  45. 

  46. @Goto :Main

  47. 

  48. :Main

  49. 	Echo.

  50. 	Set "FileName=///*无此文件*///"

  51. 

  52. 	If "%FileNum%"=="1" (

  53. 		call :Debug "没有调用函数"

  54. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  55. 	) Else (

  56. 	    call :Debug "有调用函数"

  57. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  58. 		Echo.

  59. 		Set FileName=%~1

  60. 		Set FileNum=1

  61. 	)

  62. 	Set "FileName=%FileName:"=%"

  63.     call :Debug "查找文件"

  64. 	For /F %%I in ('Dir /b') Do (

  65. 		If "%%I"=="%FileName%" (

  66. 			Set "FileName=%Cd%\%FileName%"

  67. 		)

  68. 	)

  69. 

  70. 	Set FileName="%FileName%"

  71.     call :Debug "判断文件是否存在"

  72. 	If Not Exist %FileName% (

  73. 		call :Debug "没有找到文件"

  74. 		Echo.

  75. 		Echo.  ^>^> 无此文件!无法加密...

  76. 		@Goto :Main

  77. 	)

  78. 

  79. 	Set FilenameExtension=%FileName:~-5%

  80. 	Set FilenameExtension=%FilenameExtension:~0,4%

  81.     call :Debug "文件夹名字的递增"

  82. 	For /L %%i in (1,1,2048) Do (

  83. 		If Not Exist "File-%%i\" (

  84. 			Md "File-%%i\" >Nul 2>Nul

  85. 			Set EnCodeDir=File-%%i\

  86. 			Set Num=%%i

  87. 			@Goto :EnCode

  88. 		)

  89. 	)

  90.     call :Debug "文件夹超过2048"

  91. 	Echo.

  92. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  93. 

  94. @Goto :Main

  95. 

  96. :EnCode

  97. 

  98. 	Set "Choice="

  99.     call :Debug "判断文件是否是批处理"

  100. 	If /I Not "%FilenameExtension%"==".Bat" (

  101. 		call :Debug "不是.bat文件"

  102. 		If /I Not "%FilenameExtension%"==".Cmd" (

  103. 			call :Debug "不是.Cmd文件"

  104. 			@Goto :Choice

  105. 		)

  106. 	)

  107. 	call :Debug "B变量设置"

  108. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  109.     call :Debug "绘图"

  110. 	Echo.

  111. 	Call :Type "  "

  112. 	Call :Type "+"

  113. 	Call :Type "=" 4

  114. 	Call :Type "正在加密"

  115. 	Call :Type "=" 4

  116. 	Call :Type "+"

  117. 	Call :Type "=" 98

  118. 	Echo.

  119.     call :Debug "[信息]"

  120. 	Echo.

  121. 	Echo.  开始加密时间: %Time%

  122. 	Echo.

  123. 	Echo.  文件名: %FileName%

  124. 	Echo.

  125.     call :Debug "加密过程"

  126. 	Cd %EnCodeDir%

  127. 

  128. 	Copy %FileName% "%cd%\File.Bat" > Nul

  129. 

  130. 	For /F %%i in ('dir /b File.Bat') do (

  131. 		For /L %%j in (0,2362,%%~zi) do (

  132. 		    call :Debug for返回%%j，最后会返回%%~zi

  133. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  134. 		)

  135.                 Set /P Bytes[FileName]=%Bs%  文件大小: %%~zi Byte[s] <Nul

  136. 	)

  137. 	Echo.

  138. 

  139. 	Call :VBScript_EnCode

  140.     call :Debug "打开EnCode.VBS，并等待运行结束"

  141. 	Start /W "" "EnCode.VBS"

  142.     call :Debug "删除EnCode.VBS"

  143. 	Del /f "EnCode.VBS" >nul 2>nul

  144.     call :Debug "写入EnCode.Bat"

  145. 	>> "EnCode.Bat" Echo.

  146. 	>> "EnCode.Bat" Echo.Cls

  147. 	Type "File.Bat" >> "EnCode.Bat"

  148.     call :Debug "删除File.Bat"

  149. 	Del /f "File.Bat" >nul 2>nul

  150.     call :Debug "[信息]"

  151. 	Echo.

  152. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  153. 	Echo.

  154. 

  155. 	For /F %%i in ('dir /b EnCode.Bat') do (

  156. 		For /L %%j in (0,2362,%%~zi) do (

  157. 		    call :Debug for返回%%j，最后会返回%%~zi

  158. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  159. 		)

  160.                 Set /P Bytes[FileName]=%Bs%  加密后的大小: %%~zi Byte[s] <Nul

  161. 	)

  162. 	Echo.

  163. 

  164.     call :Debug "返回加密时间"

  165. 	Echo.

  166. 	Echo.  加密结束时间: %Time%

  167.     call :Debug "绘图"

  168. 	Echo.

  169. 	Call :Type "  "

  170. 	Call :Type "+"

  171. 	Call :Type "=" 4

  172. 	Call :Type "=" 8

  173. 	Call :Type "=" 4

  174. 	Call :Type "+"

  175. 	Call :Type "=" 98

  176. 	Echo.

  177.     call :Debug "Msg"

  178. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  179.     call :Debug 用资源管理器打开%CD%

  180. 	Start Explorer "%Cd%"

  181.     call :Debug "用记事本打开EnCode.Bat"

  182. 	Start "" "Notepad" "EnCode.Bat"

  183.     call :Debug "加密完毕"

  184. 	Echo.

  185. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  186. 	Echo.

  187. 	Set /p "Choice=#  >> "

  188. 	Echo.

  189.     call :Debug "绘图"

  190. 	Call :Type "  "

  191. 	Call :Type "+"

  192. 	Call :Type "=" 4

  193. 	Call :Type "=" 8

  194. 	Call :Type "=" 4

  195. 	Call :Type "+"

  196. 	Call :Type "=" 98

  197. 	Echo.

  198. 

  199. 	If /I Not "%Choice%"=="Y" (

  200. 		call :Debug "返回上一级"

  201. 		Cd..

  202. 		@Goto :Main

  203. 	)

  204.     call :Debug "运行EnCode.Bat"

  205. 	Start "" "EnCode.Bat"

  206. 

  207. 	Echo.

  208.     call :Debug "绘图"

  209. 	Call :Type "  "

  210. 	Call :Type "_" 116

  211. 	Echo.

  212. 	Call :Type "  "

  213. 	Call :Type "_" 4

  214. 	Call :Type "Code"

  215. 	Call :Type "_" 108

  216. 	Echo.

  217. 	Echo.

  218.     call :Debug "逐屏显示输出内容"

  219. 	More "EnCode.Bat"

  220. 

  221. 	Echo.

  222.     call :Debug "绘图"

  223. 	Call :Type "  "

  224. 	Call :Type "_" 116

  225. 	Echo.

  226. 	Echo.

  227. 

  228. 	Cd..

  229. 

  230. @Goto :Main

  231. 

  232. :RepeatBS

  233.     call :Debug "Bs的设置"

  234. 	Set "Bs=%Bs%"

  235. @Goto :Eof

  236. 

  237. :Type <Text> [Num]

  238. call :Debug "绘图引擎"

  239. 	%=Company {Hope Studio}=%

  240. 

  241. 	%=Author  {Hope Studio}=%

  242. 

  243. 	If '%2'=='' (

  244. 		Set /p Text=#%~1<Nul

  245. 		@Goto :Eof

  246. 	)

  247. 	If Not '%2'=='' (

  248. 		For /l %%I in (1,1,%2) Do (

  249. 			Set /p Text=#%~1<Nul

  250. 		)

  251. 	)

  252. 

  253. @Goto :Eof

  254. 

  255. :VBScript_EnCode

  256. call :Debug "写入EnCode.VBS"

  257. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  258. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  259. 	>> EnCode.VBS Echo..Open

  260. 	>> EnCode.VBS Echo..type = 2

  261. 	>> EnCode.VBS Echo..WriteText text

  262. 	>> EnCode.VBS Echo..SaveToFile strPath

  263. 	>> EnCode.VBS Echo..close()

  264. 	>> EnCode.VBS Echo.End With

  265. 	>> EnCode.VBS Echo.End Function

  266. 	>> EnCode.VBS Echo.

  267. 	>> EnCode.VBS Echo.Dim EnCode

  268. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  269. call :Debug "写入EnCode.VBS结束"

  270. @Goto :Eof

  271. 

  272. :Choice

  273.     call :Debug "[提示信息]"

  274. 	Echo.

  275. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  276. 	Echo.

  277. 	Set /p "Choice=#  >> "

  278. 	If /I Not "%Choice%"=="Y" (

  279. 		@Goto :Main

  280. 	)

  281. 	call :Debug "变量FilenameExtension=.Bat"

  282. 	Set "FilenameExtension=.Bat"

  283. @Goto :EnCode

  284. 

  285. goto :eof

  286. :Debug

  287.     if %debug%==1 (

  288.     	set /P=                                                                    调试：%~1<nul

  289.     	echo;

  290.     )

  291. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
25楼
发表于 2021-10-11 12:49 | 只看该作者
本帖最后由 cmd1152 于 2021-10-11 18:14 编辑 
  1. Set /p "Choice=#  >> "
复制代码
>>不用转义
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
26楼
发表于 2021-10-11 21:22 | 只看该作者
以前写的，和这个差不多是一样的，都是更改文件开头编码声明，但我这个能解密
http://www.bathome.net/viewthrea ... 6%C0%ED%BC%D3%C3%DC
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
27楼
发表于 2021-10-11 21:25 | 只看该作者
你这个好像是不可逆的，能安全保护批处理
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
28楼
发表于 2021-10-12 16:53 | 只看该作者
回复 27# cmd1152
并不是不可逆的，这个是没有混淆可以查看

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
29楼
发表于 2021-10-12 17:06 | 只看该作者
回复 28# xp3000


    升级成 混淆 的试试
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

12
返回列表