[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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
谢谢.
收藏 分享
Why join the navy, if you can be a pirate? - Steve Jobs

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
2楼
发表于 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()
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
3楼
发表于 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
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
4楼
发表于 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
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
5楼
发表于 2021-10-10 10:27 | 只看该作者
回复 4# HOPE2021
        #4. 已经加密的文件

        例子:
  1. ਍汃൳䀊捅潨传晦਍摃㸮┢⸰慂≴਍潆⁲䘯∠歳灩㘽搠汥浩㵳•┥⁩湩⠠吧灹⁥〥⤧䐠捅潨┮椥㸠￣┢⸰慂≴਍瑓牡⁴∢∠〥䈮瑡ഢ倊畡敳㸠丠汵਍਍䕀档晏൦䔊档⹯效汬Ɐ潗汲Ⅴ਍慐獵⁥￣畎
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
6楼
发表于 2021-10-10 10:40 | 只看该作者
回复 5# HOPE2021
2. 加密方法

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

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

        #3. 将程序另存为 EasyEnCode.Bat 或 EasyEnCode.Cmd ，在命令行输入: EasyEnCode "文件名"
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
7楼
发表于 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
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
8楼
发表于 2021-10-10 12:11 | 只看该作者
合作
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
9楼
发表于 2021-10-10 12:19 | 只看该作者
好家伙，自动创建快捷方式
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
10楼
发表于 2021-10-10 12:21 | 只看该作者
回复 9# cmd1152
当然,所以不支持Win2000或更早版本
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
11楼
发表于 2021-10-10 12:55 | 只看该作者
回复 10# HOPE2021


    调试器功能安装中，请不要进行更新......
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
12楼
发表于 2021-10-10 13:09 | 只看该作者

Debug安装完成

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

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

   本代码存在已经被解决的BUG，请去此楼获得代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
13楼
发表于 2021-10-10 13:11 | 只看该作者
抱歉，刚刚的DeBug出现了一个小问题，请稍后...
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
14楼
发表于 2021-10-10 13:15 | 只看该作者
正在优化代码并增加详细的Debug
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
15楼
发表于 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
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

12
返回列表