Hope EasyCommand EasyDeCode 批处理解密器

HOPE2021

____更新日志______________________________________
    版本 1.0.0000 2021/10/15 本楼

代码

1. @Echo Off
   
2.         Cls
   
3.         Mode Con: Cols=120 Lines=16384
   
4.         Color 0F
   
5.         Title Hope(R) Office EasyCommand EasyDeCode
   
6.         Chcp 936 > Nul
   
7.         Rem Hope(R) Office EasyCommand EasyDeCode
   
8.         Echo.
   
9.         Call :Type "  "
   
10.         Call :Type "#" 116
    
11.         Echo.
    
12.         Call :Type " " 55
    
13.         Call :Type "EasyDeCode"
    
14.         Echo.
    
15.         Call :Type "  "
    
16.         Call :Type "#" 116
    
17.         Echo.
    
18.         Echo.
    
19.         Echo.  ^>^> Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000]
    
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. 
    
29.         Set "Pro=%0"
    
30.         Set "lnk=Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000]"
    
31.         Set "Pro=%Pro:"=%"
    
32.         Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyDeCode [Version 1.0.0000].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul
    
33. 
    
34. @Goto :Main
    
35. 
    
36. :Main
    
37.         Echo.
    
38.         Set "FileName=///*无此文件*///"
    
39. 
    
40.         If "%FileNum%"=="1" (
    
41.                 Set /P FileName=#  ^>^> 请将需要解密的文件拖动至此窗体:
    
42.         ) Else (
    
43.                 Set /P FileName=#  ^>^> 请将需要解密的文件拖动至此窗体:%~1<Nul
    
44.                 Echo.
    
45.                 Set FileName=%~1
    
46.                 Set FileNum=1
    
47.         )
    
48. 
    
49.         Set "FileName=%FileName:"=%"
    
50. 
    
51.         For /F %%I in ('Dir /b') Do (
    
52.                 If "%%I"=="%FileName%" (
    
53.                         Set "FileName=%Cd%\%FileName%"
    
54.                 )
    
55.         )
    
56. 
    
57.         Set FileName="%FileName%"
    
58. 
    
59.         If Not Exist %FileName% (
    
60.                 Echo.
    
61.                 Echo.  ^>^> 无此文件!无法解密...
    
62.                 @Goto :Main
    
63.         )
    
64. 
    
65.         Set FilenameExtension=%FileName:~-5%
    
66.         Set FilenameExtension=%FilenameExtension:~0,4%
    
67. 
    
68.         For /L %%i in (1,1,2048) Do (
    
69.                 If Not Exist "File-%%i" (
    
70.                         Md "File-%%i" >Nul 2>Nul
    
71.                         Set DeCodeDir=File-%%i\
    
72.                         Set Num=%%i
    
73.                         @Goto :DeCode
    
74.                 )
    
75.         )
    
76. 
    
77.         Echo.
    
78.         Echo.  ^>^> 可分配的内存已经占满,无法解密...
    
79. 
    
80. @Goto :Main
    
81. 
    
82. :DeCode
    
83. 
    
84.         Set "Choice="
    
85. 
    
86.         If /I Not "%FilenameExtension%"==".Bat" (
    
87.                 If /I Not "%FilenameExtension%"==".Cmd" (
    
88.                         @Goto :Choice
    
89.                 )
    
90.         )
    
91. 
    
92.         For /L %%i in (1,1,47) Do Call :RepeatBS
    
93. 
    
94.         Echo.
    
95.         Call :Type "  "
    
96.         Call :Type "+"
    
97.         Call :Type "=" 4
    
98.         Call :Type "正在解密"
    
99.         Call :Type "=" 4
    
100.         Call :Type "+"
     
101.         Call :Type "=" 98
     
102.         Echo.
     
103. 
     
104.         Echo.
     
105.         Echo.  开始解密时间: %Time%
     
106.         Echo.
     
107.         Echo.  文件名: %FileName%
     
108.         Echo.
     
109. 
     
110.         Cd %DeCodeDir%
     
111. 
     
112.         Copy %FileName% "%cd%\File.Bat" > Nul
     
113. 
     
114.         For /F %%i in ('dir /b File.Bat') do (
     
115.                 For /L %%j in (0,1,%%~zi) do (
     
116.                         Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s]<Nul
     
117.                 )
     
118.         )
     
119.         Echo.
     
120. 
     
121.         > File2.Bat Echo.@Echo Off & Rem 由 Hope Studio 提供技术支持
     
122.         For /F "tokens=*" %%i in (File.Bat) do (
     
123.                 >> "File2.Bat" Echo.%%i
     
124.         )
     
125.         More File2.Bat +3 > DeCode.Bat
     
126. 
     
127.         Echo.
     
128.         Echo.  解密后的文件: "%Cd%\DeCode.Bat"
     
129.         Echo.
     
130. 
     
131.         If Exist "File.Bat" Del "File.Bat"
     
132.         If Exist "File2.Bat" Del "File2.Bat"
     
133. 
     
134.         For /F %%i in ('dir /b DeCode.Bat') do (
     
135.                 For /L %%j in (0,1,%%~zi) do (
     
136.                         Set /P Bytes[FileName]=%Bs%  解密后的大小: %%j Byte[s]<Nul
     
137.                 )
     
138.         )
     
139.         Echo.
     
140. 
     
141. 
     
142.         Echo.
     
143.         Echo.  解密结束时间: %Time%
     
144. 
     
145.         Echo.
     
146.         Call :Type "  "
     
147.         Call :Type "+"
     
148.         Call :Type "=" 4
     
149.         Call :Type "=" 8
     
150.         Call :Type "=" 4
     
151.         Call :Type "+"
     
152.         Call :Type "=" 98
     
153.         Echo.
     
154. 
     
155.         Mshta VBScript:msgbox("解密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000]")(window.close)
     
156. 
     
157.         Start Explorer "%Cd%"
     
158. 
     
159.         Start "" "Notepad" "DeCode.Bat"
     
160. 
     
161.         Echo.
     
162.         Echo.  ^>^> 解密完毕,是否要调试?[Y/N][输入完毕后请按下回车]
     
163.         Echo.
     
164.         Set /p "Choice=#  ^>^> "
     
165.         Echo.
     
166. 
     
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. 
     
176.         If /I Not "%Choice%"=="Y" (
     
177.                 Cd..
     
178.                 @Goto :Main
     
179.         )
     
180. 
     
181.         Start "" "DeCode.Bat"
     
182. 
     
183.         Echo.
     
184. 
     
185.         Call :Type "  "
     
186.         Call :Type "_" 116
     
187.         Echo.
     
188.         Call :Type "  "
     
189.         Call :Type "_" 4
     
190.         Call :Type "Code"
     
191.         Call :Type "_" 108
     
192.         Echo.
     
193.         Echo.
     
194. 
     
195.         More "DeCode.Bat"
     
196. 
     
197.         Echo.
     
198. 
     
199.         Call :Type "  "
     
200.         Call :Type "_" 116
     
201.         Echo.
     
202.         Echo.
     
203. 
     
204.         Cd..
     
205. 
     
206. @Goto :Main
     
207. 
     
208. :RepeatBS
     
209.         Set "Bs=%Bs%"
     
210. @Goto :Eof
     
211. 
     
212. :Type <Text> [Num]
     
213. 
     
214.         %=Company {Hope Studio}=%
     
215. 
     
216.         %=Author  {Hope Studio}=%
     
217. 
     
218.         If '%2'=='' (
     
219.                 Set /p Text=#%~1<Nul
     
220.                 @Goto :Eof
     
221.         )
     
222.         If Not '%2'=='' (
     
223.                 For /l %%I in (1,1,%2) Do (
     
224.                         Set /p Text=#%~1<Nul
     
225.                 )
     
226.         )
     
227. 
     
228. @Goto :Eof
     
229. 
     
230. :Choice
     
231.         Echo.
     
232.         Echo.  ^>^> 此文件不是批处理文件,是否要解密?[Y/N][输入完毕后请按下回车]
     
233.         Echo.
     
234.         Set /p "Choice=#  ^>^> "
     
235.         If /I Not "%Choice%"=="Y" (
     
236.                 @Goto :Main
     
237.         )
     
238.         Set "FilenameExtension=.Bat"
     
239. @Goto :DeCode

复制代码

By Hope2021
谢谢.

cmd1152

为什么你不做一个不可逆的加密器

HOPE2021

回复 2# cmd1152
以我的技术,在短时间内不可能.

cmd1152

回复 3# HOPE2021


    利用VB的自编译功能生成文件

cmd1152

[批处理之家专享]VB实现不可逆加密Bat文件 - [阅读权限 6]