Board logo

标题: [文本处理] Hope EasyCommand EasyEnCode 批处理加密器 [打印本页]
作者: HOPE2021    时间: 2021-10-10 10:10     标题: Hope EasyCommand EasyEnCode 批处理加密器

本帖最后由 HOPE2021 于 2021-10-10 15:12 编辑

____更新日志______________________________________
    版本 1.0.0000 2021/10/10 本楼
    版本 1.0.0001 2021/10/10 7楼
    版本 1.0.0002 2021/10/10 15楼
    版本 1.0.0003 2021/10/10 16楼
    版本 1.0.0004 2021/10/10 17楼
    版本 1.0.0005 2021/10/10 18楼

____操作手册______________________________________
http://www.bathome.net/redirect.php?goto=findpost&pid=246538&ptid=60317

代码
  1. @Echo Off

  2. 	Cls

  3. 	Mode Con: Cols=120

  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.0000]

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

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

  22. 		Set FileNum=1

  23. 	) Else (

  24. 		Set FileNum=2

  25. 	)

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

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

  28. 

  29. 	Set "Pro=%0"

  30. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [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 EasyEnCode [Version 1.0.000].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. 	For /L %%i in (1,1,2048) Do (

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

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

  68. 			Set EnCodeDir=File-%%i\

  69. 			Set Num=%%i

  70. 			@Goto :EnCode

  71. 		)

  72. 	)

  73. 

  74. 	Echo.

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

  76. 

  77. @Goto :Main

  78. 

  79. :EnCode

  80. 

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

  82. 

  83. 	Echo.

  84. 	Call :Type "  "

  85. 	Call :Type "+"

  86. 	Call :Type "=" 4

  87. 	Call :Type "正在加密"

  88. 	Call :Type "=" 4

  89. 	Call :Type "+"

  90. 	Call :Type "=" 98

  91. 	Echo.

  92. 

  93. 	Echo.

  94. 	Echo.  文件名: %FileName%

  95. 	Echo.

  96. 

  97. 	Cd %EnCodeDir%

  98. 

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

  100. 

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

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

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

  104. 		)

  105. 	)

  106. 	Echo.

  107. 

  108. 	Call :VBScript_EnCode

  109. 

  110. 	Start /Wait "" "EnCode.VBS"

  111. 

  112. 	If Exist "EnCode.VBS" Del "EnCode.VBS"

  113. 

  114. 	>> "EnCode.Bat" Echo.

  115. 	>> "EnCode.Bat" Echo.Cls

  116. 	Type "File.Bat" >> "EnCode.Bat"

  117. 

  118. 	If Exist "File.Bat" Del "File.Bat"

  119. 

  120. 	Echo.

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

  122. 	Echo.

  123. 

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

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

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

  127. 		)

  128. 	)

  129. 	Echo.

  130. 

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

  132. 

  133. 	Start Explorer "%Cd%"

  134. 

  135. 	Start "" "Notepad" "EnCode.Bat"

  136. 

  137. 	Cd..

  138. 

  139. 	Echo.

  140. 	Call :Type "  "

  141. 	Call :Type "+"

  142. 	Call :Type "=" 4

  143. 	Call :Type "=" 8

  144. 	Call :Type "=" 4

  145. 	Call :Type "+"

  146. 	Call :Type "=" 98

  147. 	Echo.

  148. 

  149. @Goto :Main

  150. 

  151. :RepeatBS

  152. 	Set "Bs=%Bs%"

  153. @Goto :Eof

  154. 

  155. :Type <Text> [Num]

  156. 

  157. 	%=Company {Hope Studio}=%

  158. 

  159. 	%=Author  {Hope Studio}=%

  160. 

  161. 	If '%2'=='' (

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

  163. 		@Goto :Eof

  164. 	)

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

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

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

  168. 		)

  169. 	)

  170. 

  171. @Goto :Eof

  172. 

  173. :VBScript_EnCode

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

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

  176. 	>> EnCode.VBS Echo..Open

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

  178. 	>> EnCode.VBS Echo..WriteText text

  179. 	>> EnCode.VBS Echo..SaveToFile strPath

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

  181. 	>> EnCode.VBS Echo.End With

  182. 	>> EnCode.VBS Echo.End Function

  183. 	>> EnCode.VBS Echo.

  184. 	>> EnCode.VBS Echo.Dim EnCode

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

  186. @Goto :Eof
复制代码
By Hope2021
谢谢.
作者: HOPE2021    时间: 2021-10-10 10:13

本帖最后由 HOPE2021 于 2021-10-10 10:47 编辑

回复 1# HOPE2021
Hope(R) Office EasyCommand EasyEnCode 操作使用指南

___目录_________________________________________________

1. 那些文件不适合加密?

        #1. 调用PowerShell

        #2. 内嵌脚本,内嵌脚本无法加密

        #3. 用For来处理自身文件的文本[并输出]

        #4. 已经加密的文件

2. 加密方法

___正文_________________________________________________

1. 那些文件不适合加密?

        #1. 调用PowerShell

        例子:
  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & exit

  2. cls

  3. #------------------------初始化区------------------------------------

  4. [void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") #加载WinForm库

  5. [void][System.Reflection.Assembly]::LoadWithPartialName("System.Web.Extensions")

  6. $url = 'http://dict-co.iciba.com/api/dictionary.php?type=json&key=C6AAC87C99A4223504F6B7A79C628120&w={0}'

  7. #Windows API

  8. $code=@"

  9.     using System;

  10.     using System.Runtime.InteropServices;

  11.     public static class GetApi{

  12.         [DllImport("user32.dll")]

  13.         public static extern bool SetWindowPos(IntPtr hWnd,IntPtr hWnd0,uint x,uint y,uint cx,uint cy,uint flag); //声明 Windows API 函数

  14.         [DllImport("user32.dll")]

  15.         private static extern bool ShowWindow(IntPtr hWnd,uint showType); //声明 Windows API 函数

  16.         [DllImport("kernel32.dll")]

  17.         private static extern IntPtr GetConsoleWindow(); //声明 Windows API 函数

  18. 		public static bool ShowConsoleWindow(uint showType){

  19. 			return ShowWindow(GetConsoleWindow(),showType);

  20. 		}

  21.     }

  22. "@

  23. Add-Type -TypeDefinition $code 

  24. #隐藏控制台窗口

  25. [void][GetApi]::ShowConsoleWindow(0)

  26. 

  27. #------------------------界面区-------------------------------------

  28. #0.设置主窗口尺寸

  29. $mainFormWidth = 400                 #主窗口宽度

  30. $mainFormHeight = 300                #主窗口高度

  31. 

  32. #1.创建主窗口

  33. $form_main = New-Object "System.Windows.Forms.Form"

  34. $form_main.Width = $mainFormWidth                                                   #设置主窗口宽度

  35. $form_main.Height = $mainFormHeight                                                 #设置主窗口高度

  36. $form_main.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen   #主窗口居中屏幕

  37. $form_main.Text = "在线英汉词典"                                                    #主窗口标题

  38. #主窗口置顶

  39. [GetApi]::SetWindowPos($form_main.Handle,-1,$form_main.Location.X,$form_main.Location.Y,$form_main.Width,$form_main.Height,64)

  40. 

  41. #2.创建输入框

  42. $tb_input = New-Object 'System.Windows.Forms.TextBox'

  43. $tb_input.Height = $form_main.Height / 5

  44. $tb_input.Width = $form_main.Width

  45. $tb_input.BackColor = '#012456'

  46. $tb_input.ForeColor = 'yellow'

  47. $form_main.Controls.Add($tb_input)

  48. 

  49. #创建显示框

  50. $rtb_show = New-Object 'System.Windows.Forms.RichTextBox'

  51. $rtb_show.Height = $form_main.Height - $tb_input.Height

  52. $rtb_show.Width = $form_main.Width

  53. $rtb_show.Location = New-Object 'System.Drawing.Point' 0,$tb_input.Height

  54. $rtb_show.BackColor = '#012456'

  55. $rtb_show.ForeColor = '#F5F5F5'

  56. $rtb_show.ReadOnly = $true

  57. $form_main.Controls.Add($rtb_show)

  58. 

  59. #自定义方法

  60. function Print-Host($obj){ Write-Host ($obj | Out-String) }

  61. $js = New-Object 'System.Web.Script.Serialization.JavaScriptSerializer'

  62. $whr = New-Object -ComObject 'WinHttp.WinHttpRequest.5.1'

  63. #------------------------事件区-------------------------------------

  64. $tb_input.add_TextChanged({

  65.     cls

  66.     $whr.Open('GET',($url -f $tb_input.Text),$false)

  67.     $errMsg = '';

  68.     try{$whr.Send()}catch{$errMsg = $_.Exception.Message}

  69.     if($whr.Status -ne 200){

  70.         [System.Windows.Forms.MessageBox]::Show(('错误代码:{0} {1} {2}' -f $whr.Status,$whr.StatusText,$errMsg),'网络连接失败')

  71.         return

  72.     }

  73.     $str = [System.Text.RegularExpressions.Regex]::Unescape($whr.ResponseText);

  74.     $means = [System.Text.RegularExpressions.Regex]::Matches($str,'"means":\[".*?"\]}')

  75.     if($means.Count -eq 0){ $means = [regex]::Matches($str,'"word_mean":".*?"') }

  76.     $str = ''

  77.     for($i = 0;$i -lt $means.Count;$i++){

  78.         $str += '' + ($i + 1) + ":"

  79.         $parts = ($means[$i].Value -replace '^.*:\["|"\]}$|word_mean|:','' -replace '，',',') -split '","'

  80.         for($j = 0;$j -lt $parts.Count;$j++){ $str += "`t" + ($parts[$j] -replace '"','') + "`r`n" }

  81.         $str += "`r`n"

  82.     }

  83.     Print-Host $str

  84.     $rtb_show.Text = $str

  85. })

  86. $form_main.add_SizeChanged({

  87.     $tb_input.Width = $form_main.Width

  88.     $rtb_show.Height = $form_main.Height - $tb_input.Height

  89.     $rtb_show.Width = $form_main.Width

  90. })

  91. $form_main.add_Load({$tb_input.Focus()})

  92. #------------------------结  束-------------------------------------

  93. #4.显示主窗口

  94. $form_main.ShowDialog()
复制代码
作者: HOPE2021    时间: 2021-10-10 10:15

回复 2# HOPE2021
        #2. 内嵌脚本,内嵌脚本无法加密

        例子:
  1. @echo off

  2. Rem 来自https://www.dostips.com/forum/viewtopic.php?f=3&t=9848&p=63348

  3. Rem 作者Lauri

  4. chcp 936 > nul

  5. title 劳里的幻想世界

  6. color 03

  7. @goto INSTALL_COLOR

  8. 

  9. :INSTALL_COLOR

  10. echo.

  11. echo.正在加载图形引擎...

  12. (

  13. echo.@echo off

  14. echo.chcp 936 ^> nul

  15. echo.Setlocal EnableDelayedExpansion

  16. echo.REM setlocal enableextensions

  17. echo.set dstdir=c:\tmpColorDirtoDelete

  18. echo.IF EXIST %%dstdir%% goto errExist

  19. echo.@mkdir %%dstdir%%

  20. echo.@cd %%dstdir%%

  21. echo.set count=0

  22. echo.REM DEFINISCO IL CARATTERE BACKSPACE!

  23. echo.set "$Defines=$BS"    & set "$Details=Create $ESC Ascii-0x1B-27, Expansion insensitive"

  24. echo.   for /f "delims=#" %%%%a in ^(

  25. echo.      '"prompt #$H# &echo on &for %%%%b in (1) do rem"'

  26. echo.   ^) do ^(

  27. echo.      set "%%$Defines%%=%%%%a"

  28. echo.      set "%%$Defines%%=!$BS:~0,1!"

  29. echo.   ^)

  30. echo.FOR %%%%a IN ^(%%*^) DO ^(

  31. echo. FOR /F "usebackq delims=# tokens=1,*" %%%%b IN ^('%%%%a'^) DO ^(

  32. echo.    REM echo %%%%b sara' di colore %%%%c

  33. echo.    set /A count=!count!+1

  34. echo.    set nomefile=%%%%b

  35. echo.    IF %%%%c.==. ^(

  36. echo.        set colore=03

  37. echo.    ^) ELSE ^(

  38. echo.    set colore=%%%%c

  39. echo.    ^)

  40. echo.    REM SET /P ".=" %%%%b

  41. echo.    SET /P ".=%%$BS%% " ^<nul ^>%%%%b

  42. echo.    REM echo !count!^>%%%%b

  43. echo.    REM echo FINDSTR /A:%%%%c /C:"!count!" /S "%%%%b"

  44. echo.    REM more %%%%b

  45. echo.    set bin=%%%%b

  46. echo. ^)

  47. echo. REM FINE INNER FOR

  48. echo.    REM echo FINDSTR /A:!colore! /C:"!count!" /S "!nomefile!"

  49. echo.    FINDSTR /A:!colore! /C:" " /S "!nomefile!"

  50. echo.    REM goto end

  51. echo.^)

  52. echo.REM FINE OUTER FOR

  53. echo.echo.

  54. echo.REM ERROR HANDLING

  55. echo.goto chiusura

  56. echo.:errExist

  57. echo.echo 临时目录%%dstdir%%已存在.在继续或更改批处理中的路径之前将其删除.

  58. echo.goto pulizia

  59. echo.:chiusura

  60. echo.:pulizia

  61. echo.cd..

  62. echo.rd /S /Q %%dstdir%%

  63. echo.goto end

  64. echo.:end

  65. ) > color.bat

  66. SetLocal EnableDelayedExpansion
复制代码
作者: HOPE2021    时间: 2021-10-10 10:24

回复 3# HOPE2021
        #3. 用For来处理自身文件的文本[并输出]

        例子:
  1. @Echo Off

  2. Cd.>"%0.Bat"

  3. For /F "skip=6 delims=" %%i in ('Type %0') Do Echo.%%i >> "%0.Bat"

  4. Start "" "%0.Bat"

  5. Pause > Nul

  6. 

  7. @Echo Off

  8. Echo.Hello,World!

  9. Pause > Nul
复制代码
作者: HOPE2021    时间: 2021-10-10 10:27

回复 4# HOPE2021
        #4. 已经加密的文件

        例子:
  1. ਍汃൳䀊捅潨传晦਍摃㸮┢⸰慂≴਍潆⁲䘯∠歳灩㘽搠汥浩㵳•┥⁩湩⠠吧灹⁥〥⤧䐠捅潨┮椥㸠￣┢⸰慂≴਍瑓牡⁴∢∠〥䈮瑡ഢ倊畡敳㸠丠汵਍਍䕀档晏൦䔊档⹯效汬Ɐ潗汲Ⅴ਍慐獵⁥￣畎
复制代码
作者: HOPE2021    时间: 2021-10-10 10:40

回复 5# HOPE2021
2. 加密方法

        #1. 打开程序，将需要加密的文件拖入窗体

        #2. 将需要加密的文件拖入到程序图标中

        #3. 将程序另存为 EasyEnCode.Bat 或 EasyEnCode.Cmd ，在命令行输入: EasyEnCode "文件名"
作者: HOPE2021    时间: 2021-10-10 11:24

回复 1# HOPE2021
版本 1.0.0001
  1. @Echo Off

  2. 	Cls

  3. 	Mode Con: Cols=120 Lines=2001

  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.0001]

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

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

  22. 		Set FileNum=1

  23. 	) Else (

  24. 		Set FileNum=2

  25. 	)

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

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

  28. 

  29. 	Set "Pro=%0"

  30. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0001]"

  31. 	Set "Pro=%Pro:"=%"

  32. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version 1.0.0001].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 EnCodeDir=File-%%i\

  72. 			Set Num=%%i

  73. 			@Goto :EnCode

  74. 		)

  75. 	)

  76. 

  77. 	Echo.

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

  79. 

  80. @Goto :Main

  81. 

  82. :EnCode

  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.  文件名: %FileName%

  106. 	Echo.

  107. 

  108. 	Cd %EnCodeDir%

  109. 

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

  111. 

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

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

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

  115. 		)

  116. 	)

  117. 	Echo.

  118. 

  119. 	Call :VBScript_EnCode

  120. 

  121. 	Start /Wait "" "EnCode.VBS"

  122. 

  123. 	If Exist "EnCode.VBS" Del "EnCode.VBS"

  124. 

  125. 	>> "EnCode.Bat" Echo.

  126. 	>> "EnCode.Bat" Echo.Cls

  127. 	Type "File.Bat" >> "EnCode.Bat"

  128. 

  129. 	If Exist "File.Bat" Del "File.Bat"

  130. 

  131. 	Echo.

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

  133. 	Echo.

  134. 

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

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

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

  138. 		)

  139. 	)

  140. 	Echo.

  141. 

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

  143. 

  144. 	Start Explorer "%Cd%"

  145. 

  146. 	Start "" "Notepad" "EnCode.Bat"

  147. 

  148. 	Cd..

  149. 

  150. 	Echo.

  151. 	Call :Type "  "

  152. 	Call :Type "+"

  153. 	Call :Type "=" 4

  154. 	Call :Type "=" 8

  155. 	Call :Type "=" 4

  156. 	Call :Type "+"

  157. 	Call :Type "=" 98

  158. 	Echo.

  159. 

  160. @Goto :Main

  161. 

  162. :RepeatBS

  163. 	Set "Bs=%Bs%"

  164. @Goto :Eof

  165. 

  166. :Type <Text> [Num]

  167. 

  168. 	%=Company {Hope Studio}=%

  169. 

  170. 	%=Author  {Hope Studio}=%

  171. 

  172. 	If '%2'=='' (

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

  174. 		@Goto :Eof

  175. 	)

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

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

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

  179. 		)

  180. 	)

  181. 

  182. @Goto :Eof

  183. 

  184. :VBScript_EnCode

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

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

  187. 	>> EnCode.VBS Echo..Open

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

  189. 	>> EnCode.VBS Echo..WriteText text

  190. 	>> EnCode.VBS Echo..SaveToFile strPath

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

  192. 	>> EnCode.VBS Echo.End With

  193. 	>> EnCode.VBS Echo.End Function

  194. 	>> EnCode.VBS Echo.

  195. 	>> EnCode.VBS Echo.Dim EnCode

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

  197. @Goto :Eof

  198. 

  199. :Choice

  200. 	Echo.

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

  202. 	Echo.

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

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

  205. 		@Goto :Main

  206. 	)

  207. 	Set "FilenameExtension=.Bat"

  208. @Goto :EnCode
复制代码
作者: cmd1152    时间: 2021-10-10 12:11

合作
作者: cmd1152    时间: 2021-10-10 12:19

好家伙，自动创建快捷方式
作者: HOPE2021    时间: 2021-10-10 12:21

回复 9# cmd1152
当然,所以不支持Win2000或更早版本
作者: cmd1152    时间: 2021-10-10 12:55

回复 10# HOPE2021


    调试器功能安装中，请不要进行更新......
作者: cmd1152    时间: 2021-10-10 13:09     标题: Debug安装完成

本帖最后由 cmd1152 于 2021-10-10 13:26 编辑

Version 1.0.0002
打开Debug时for显示的Backspce字符被禁用，是因为不禁用会吃掉]

   本代码存在已经被解决的BUG，请去此楼获得代码
作者: cmd1152    时间: 2021-10-10 13:11

抱歉，刚刚的DeBug出现了一个小问题，请稍后...
作者: cmd1152    时间: 2021-10-10 13:15

正在优化代码并增加详细的Debug
作者: cmd1152    时间: 2021-10-10 13:22

本帖最后由 cmd1152 于 2021-10-10 13:28 编辑

Version 1.0.0002
代码优化完成
Debug安装完成
  1. @set DeBug=1 %   0代表关闭DeBug，1代表打开DeBug   %

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

  3. @Echo Off

  4. 	Cls

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

  6. 	Mode Con: Cols=120 Lines=6550

  7. 	call :msg "设置颜色"

  8. 	Color 0F

  9. 	call :msg "设置标题"

  10. 	Title Hope(R) Office EasyCommand EasyEnCode

  11. 	call :msg "设置编码"

  12. 	Chcp 936 > Nul

  13. 	Rem Hope(R) Office EasyCommand EasyEnCode

  14. 	Echo.

  15. 	call :msg "绘图"

  16. 	Call :Type "  "

  17. 	Call :Type "#" 116

  18. 	Echo.

  19. 	Call :Type " " 55

  20. 	Call :Type "EasyEnCode"

  21. 	Echo.

  22. 	Call :Type "  "

  23. 	Call :Type "#" 116

  24. 	Echo.

  25. 	call :msg "版权声明"

  26. 	Echo.

  27. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0002]

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

  29. 	

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

  31. 		Set FileNum=1

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

  33. 	) Else (

  34. 		Set FileNum=2

  35. 		call :msg "有参数"

  36. 	)

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

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

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

  40.     call :msg "set"

  41. 	Set "Pro=%0"

  42. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0001]"

  43. 	Set "Pro=%Pro:"=%"

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

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

  46. 

  47. @Goto :Main

  48. 

  49. :Main

  50. 	Echo.

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

  52. 

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

  54. 		call :msg "输入"

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

  56. 	) Else (

  57. 	    call :msg "参数显示"

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

  59. 		Echo.

  60. 		Set FileName=%~1

  61. 		Set FileNum=1

  62. 	)

  63.     call :msg "set"

  64. 	Set "FileName=%FileName:"=%"

  65. 

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

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

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

  69. 		)

  70. 	)

  71. 

  72. 	Set FileName="%FileName%"

  73. 

  74. 	If Not Exist %FileName% (

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

  76. 		Echo.

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

  78. 		@Goto :Main

  79. 	)

  80. 

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

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

  83. 

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

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

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

  87. 			Set EnCodeDir=File-%%i\

  88. 			Set Num=%%i

  89. 			@Goto :EnCode

  90. 		)

  91. 	)

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

  93. 	Echo.

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

  95. 

  96. @Goto :Main

  97. 

  98. :EnCode

  99. 

  100. 	Set "Choice="

  101. call :msg "文件判断"

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

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

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

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

  106. 			@Goto :Choice

  107. 		)

  108. 	)

  109.     call :msg "for 17"

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

  111. 

  112. 	Echo.

  113. 	call :msg "绘图"

  114. 	Call :Type "  "

  115. 	Call :Type "+"

  116. 	Call :Type "=" 4

  117. 	Call :Type "正在加密"

  118. 	Call :Type "=" 4

  119. 	Call :Type "+"

  120. 	Call :Type "=" 98

  121. 	Echo.

  122. 

  123. 	Echo.

  124. 	Echo.  文件名: %FileName%

  125. 	Echo.

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

  127. 	Cd %EnCodeDir%

  128. 

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

  130. 

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

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

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

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

  135. 		)

  136. 	)

  137. 	Echo.

  138. 

  139. 	Call :VBScript_EnCode

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

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

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

  143. 

  144. 	>> "EnCode.Bat" Echo.

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

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

  147. 

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

  149.     call :msg "完成"

  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 (1,1,%%~zi) do (

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

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

  158. 		)

  159. 	)

  160. 	Echo.

  161.     call :msg "Msg"

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

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

  164. 	Start Explorer "%Cd%"

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

  166. 	Start "" "Notepad" "EnCode.Bat"

  167. 

  168. 	Cd..

  169.     call :msg "绘图"

  170. 	Echo.

  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. @Goto :Main

  181. 

  182. :RepeatBS

  183.     call :msg "Set Bs"

  184. 	Set "Bs=%Bs%"

  185. @Goto :Eof

  186. 

  187. :Type <Text> [Num]

  188. call :msg "循环字体"

  189. 	%=Company {Hope Studio}=%

  190. 

  191. 	%=Author  {Hope Studio}=%

  192. 

  193. 	If '%2'=='' (

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

  195. 		@Goto :Eof

  196. 	)

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

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

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

  200. 		)

  201. 	)

  202. 

  203. @Goto :Eof

  204. 

  205. :VBScript_EnCode

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

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

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

  209. 	>> EnCode.VBS Echo..Open

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

  211. 	>> EnCode.VBS Echo..WriteText text

  212. 	>> EnCode.VBS Echo..SaveToFile strPath

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

  214. 	>> EnCode.VBS Echo.End With

  215. 	>> EnCode.VBS Echo.End Function

  216. 	>> EnCode.VBS Echo.

  217. 	>> EnCode.VBS Echo.Dim EnCode

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

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

  220. @Goto :Eof

  221. 

  222. :Choice

  223.     call :msg "[信息]"

  224. 	Echo.

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

  226. 	Echo.

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

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

  229. 		call :msg "继续"

  230. 		@Goto :Main

  231. 	)

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

  233. 	Set "FilenameExtension=.Bat"

  234. @Goto :EnCode

  235. 

  236. 

  237. :Msg

  238.     if %debug%==1 (

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

  240.     	echo;

  241.     )

  242. goto :eof
复制代码
作者: cmd1152    时间: 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
复制代码
作者: HOPE2021    时间: 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
复制代码
作者: HOPE2021    时间: 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
复制代码
作者: cmd1152    时间: 2021-10-10 15:34

回复 18# HOPE2021


    正在安装Debug...
作者: cmd1152    时间: 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
复制代码
作者: cmd1152    时间: 2021-10-10 16:12

回复 17# HOPE2021


    查看源码是没有用的
作者: HOPE2021    时间: 2021-10-10 16:27

回复 21# cmd1152
查看加密的源码
作者: cmd1152    时间: 2021-10-10 16:33

回复 22# HOPE2021


    我还以为是
源码
作者: cmd1152    时间: 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
复制代码
作者: cmd1152    时间: 2021-10-11 12:49

本帖最后由 cmd1152 于 2021-10-11 18:14 编辑 
  1. Set /p "Choice=#  >> "
复制代码
>>不用转义
作者: cmd1152    时间: 2021-10-11 21:22

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

你这个好像是不可逆的，能安全保护批处理
作者: xp3000    时间: 2021-10-12 16:53

回复 27# cmd1152
并不是不可逆的，这个是没有混淆可以查看
作者: cmd1152    时间: 2021-10-12 17:06

回复 28# xp3000


    升级成 混淆 的试试



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2