HopeEasyCommandEasyDeCode批處理解密器

HopeEasyCommandEasyDeCode批處理解密器____更新日志______________________________________版本 1.0.0000 /10/15 本樓代碼

@Echo Off
Cls
Mode Con: Cols=120 Lines=16384
Color 0F
Title Hope(R) Office EasyCommand EasyDeCode
Chcp 936 > Nul
Rem Hope(R) Office EasyCommand EasyDeCode
Echo.
Call :Type 
Call :Type # 116
Echo.
Call :Type   55
Call :Type EasyDeCode
Echo.
Call :Type 
Call :Type # 116
Echo.
Echo.
Echo.^>^> Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000]
Echo.^>^> (C) Copyright - Hope Corp.
Echo.^>^> (C) Copyright - Hope ^& Cmd1152 Corp.
If %~1== (
Set FileNum=1
) Else (
Set FileNum=2
)
Md %UserProFile%Desktop >Nul 2>Nul
Set Pro=%0
Set lnk=Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000]
Set Pro=%Pro:=%
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
@Goto :Main
:Main
Echo.
Set FileName=////
If %FileNum%==1 (
Set /P FileName=#^>^> 請將需要解密的文件拖動至此窗體:
) Else (
Set /P FileName=#^>^> 請將需要解密的文件拖動至此窗體:%~1<Nul
Echo.
Set FileName=%~1
Set FileNum=1
)
Set FileName=%FileName:=%
For /F %%I in ('Dir /b') Do (
If %%I==%FileName% (
Set FileName=%Cd%%FileName%
)
)
Set FileName=%FileName%
If Not Exist %FileName% (
Echo.
Echo.^>^> 無此文件!無法解密...
@Goto :Main
)
Set FilenameExtension=%FileName:~-5%
Set FilenameExtension=%FilenameExtension:~0,4%
For /L %%i in (1,1,2048) Do (
If Not Exist File-%%i (
Md File-%%i >Nul 2>Nul
Set DeCodeDir=File-%%i
Set Num=%%i
@Goto :DeCode
)
)
Echo.
Echo.^>^> 可分配的內存已經占滿,無法解密...
@Goto :Main
:DeCode
Set Choice=
If /I Not %FilenameExtension%==.Bat (
If /I Not %FilenameExtension%==.Cmd (
@Goto :Choice
)
)
For /L %%i in (1,1,47) Do Call :RepeatBS
Echo.
Call :Type 
Call :Type +
Call :Type = 4
Call :Type 正在解密
Call :Type = 4
Call :Type +
Call :Type = 98
Echo.
Echo.
Echo.開始解密時間: %Time%
Echo.
Echo.文件名: %FileName%
Echo.
Cd %DeCodeDir%
Copy %FileName% %cd%File.Bat > Nul
For /F %%i in ('dir /b File.Bat') do (
For /L %%j in (0,1,%%~zi) do (
Set /P Bytes[FileName]=%Bs%文件大小: %%j Byte[s]<Nul
)
)
Echo.
> File2.Bat Echo.@Echo Off & Rem 由 Hope Studio 提供技術支持
For /F tokens=* %%i in (File.Bat) do (
>> File2.Bat Echo.%%i
)
More File2.Bat +3 > DeCode.Bat
Echo.
Echo.解密后的文件: %Cd%DeCode.Bat
Echo.
If Exist File.Bat Del File.Bat
If Exist File2.Bat Del File2.Bat
For /F %%i in ('dir /b DeCode.Bat') do (
For /L %%j in (0,1,%%~zi) do (
Set /P Bytes[FileName]=%Bs%解密后的大小: %%j Byte[s]<Nul
)
)
Echo.
Echo.
Echo.解密結束時間: %Time%
Echo.
Call :Type 
Call :Type +
Call :Type = 4
Call :Type = 8
Call :Type = 4
Call :Type +
Call :Type = 98
Echo.
Mshta VBscript:msgbox(解密%FileName:~1,-1%文件成功,64,Hope(R) Office EasyCommand EasyDeCode [Version 1.0.0000])(window.close)
Start Explorer %Cd%
Start  Notepad DeCode.Bat
Echo.
Echo.^>^> 解密完畢,是否要調試?[Y/N][輸入完畢后請按下回車]
Echo.
Set /p Choice=#^>^> 
Echo.
Call :Type 
Call :Type +
Call :Type = 4
Call :Type = 8
Call :Type = 4
Call :Type +
Call :Type = 98
Echo.
If /I Not %Choice%==Y (
Cd..
@Goto :Main
)
Start  DeCode.Bat
Echo.
Call :Type 
Call :Type _ 116
Echo.
Call :Type 
Call :Type _ 4
Call :Type Code
Call :Type _ 108
Echo.
Echo.
More DeCode.Bat
Echo.
Call :Type 
Call :Type _ 116
Echo.
Echo.
Cd..
@Goto :Main
:RepeatBS
Set Bs=%Bs%
@Goto :Eof
:Type <Text> [Num]
%=Company {Hope Studio}=%
%=Author{Hope Studio}=%
If '%2'=='' (
Set /p Text=#%~1<Nul
@Goto :Eof
)
If Not '%2'=='' (
For /l %%I in (1,1,%2) Do (
Set /p Text=#%~1<Nul
)
)
@Goto :Eof
:Choice
Echo.
Echo.^>^> 此文件不是批處理文件,是否要解密?[Y/N][輸入完畢后請按下回車]
Echo.
Set /p Choice=#^>^> 
If /I Not %Choice%==Y (
@Goto :Main
)
Set FilenameExtension=.Bat
@Goto :DeCode
nclick="copycode($('code0'));">復制代碼

By Hope謝謝.