Hope EasyCommand EasyEnCode 批处理加密器

cmd1152

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

复制代码

HOPE2021

回复 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

复制代码

HOPE2021

回复 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

复制代码

cmd1152

回复 18# HOPE2021


    正在安装Debug...

cmd1152

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

复制代码

cmd1152

回复 17# HOPE2021


    查看源码是没有用的

HOPE2021

回复 21# cmd1152
查看加密的源码

cmd1152

回复 22# HOPE2021


    我还以为是

源码

cmd1152

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

复制代码

cmd1152

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

复制代码

>>不用转义

cmd1152

以前写的，和这个差不多是一样的，都是更改文件开头编码声明，但我这个能解密
http://www.bathome.net/viewthrea ... 6%C0%ED%BC%D3%C3%DC

cmd1152

你这个好像是不可逆的，能安全保护批处理

xp3000

回复 27# cmd1152
并不是不可逆的，这个是没有混淆可以查看

cmd1152

回复 28# xp3000


    升级成 混淆 的试试