[文本处理] Hope EasyCommand EasyDeCode 批处理解密器

HOPE2021

____更新日志______________________________________
    版本 1.0.0000 2021/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 2016-2021 Hope Corp.
	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& 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
复制代码

By Hope2021
谢谢.

cmd1152

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

HOPE2021

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

cmd1152

回复 3# HOPE2021


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

cmd1152

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