用bat給文件夾加密

『壹』 如何用bat調用bandizip加密壓縮當前目錄的所有文件夾

您可以使用以下 bat 腳本來實現上述功能：
@echo off
for /d %%d in (*) do (
"C:\Program Files\Bandizip\Bandizip.exe" a -p123 -m0=lzma2 -mx=9 -y "%%d.7z" "%%d\"
)
echo Done.
上面的腳本會遍歷當前目錄下的所有文件夾，並使用 Bandizip 進行加辯手冊攜宏密壓縮。密碼為 123，壓縮演算法為 LZMA2，最高壓縮級別為 9，-y 參薯罩數用於在不詢問的情況下覆蓋已存在的壓縮包。

『貳』 如何利用bat為txt文件加密

給bat文件加密,你可以使用文件夾加密超級大師
文件夾加密超級大師是一款安全性極高的文件和文件夾加密軟體。她功能強大，速度快，效果好。
使用方法非常簡單，所有功能只需點一二下滑鼠，設定一個密碼即可。
主要功能有文件加密（保護文本，文檔，電子表，圖片，網頁等內容），文件夾加密、隱藏、加鎖，文件隱藏、粉碎等。可
滿足日常工作和生活中的安全保密需求，您盡可放心使用。

『叄』 bat如何創建文件打開文件，如何加密文件或文件夾 xp系統

你說的方試是實現不了的，系統本身也沒有這樣的功能，一定要用軟體才可以的。
推薦易通文件夾鎖軟體，安全老明亮易用的文件夾加密軟體。支持所有windows系統。可以加密文件夾，加密文件，加密磁碟，安全易用。加密後的資料防刪除，復制。
第一步：下載安裝易通文件夾鎖軟體
第二步：右擊你想要加密的文件或文件夾，右鍵菜單里有易通侍寬加密菜單，直接就可以加密。
第三步：雙擊你已加密的文件或文件夾，將彈槐並出密碼框輸入你加密設置的密碼，即可解密碼。
軟體下載參考地址：http://..com/question/109992099.htm

『肆』 bat如何創建文件打開文件，如何加密文件或文件夾 xp系統

可以達到較為簡單的加密方式，該程式是我自己放出來的，希望給分。
創建文件
echo 內容>文件
（解釋：該命令用於創建文件第一行文字，當已經有重命名文件時，清空源文件，將命令中的文字「內容」輸入進「文件」里）
echo 內容>>文件
（解釋：這個是用於「給已有文件增加文字」，就是接著已經有的文件里的內容，往文件最宴嘩後一行開始增加，每條命令增加一行內容。若沒有這個文件，則生成新的文件，有則直接往舊文件里添加）

如：現已經有a.txt文件在c盤下，內容為：

你好
我好
大家好

輸入命令「echo hi>C:\a.txt」後，a.txt將重新創建，內容更改為：

hi

輸入命令「echo hi>>C:\a.txt」後，a.txt將增加內容，內容更改為：

你好
我好
大家好
hi

（當「echo hi>c:\a.txt」或「echo hi>>c:\a.txt」改為"echo hi>a.txt"或「echo hi>>a.txt」,這時命令里的文件沒有帶路徑，則生成在該bat目錄下。）

打開文件：
start a.txt
開啟bat目錄下的a.txt文件，也可以開啟exe等文件，是用於啟動，打開文件的命令。
還有以下方式：
start c:\a.txt
該命令帶路徑，開啟c盤的a.txt文件，注意當文件或路徑名稱帶空格時，在bat里必須將路徑和文件有雙引號括起來，如
start "c:\good bey\sar.tat"
或
echo hi>"c:\jjj nnn ggg.txt"
等，也就是說，當文件，或文件夾名稱有空格時，必須將路徑文用雙引號括起來，才可以正常運行。
當命令里缺飢的文件或路徑帶空格而沒有括弧時，將會出現錯誤，如：
echo hi>ka pa.txt
文件生成內容為
hi
文件名稱變為：ka。後面的 pa.txt並沒有被識別，也就是說，命令只識別了「第一個空格前的字元」

好了就講這么多先。怎麼也得給分吧！
下面奉上文件夾加密
說明，如果你不嫌麻煩可以用。但是確實有些麻煩。該bat利用回收站。
即使是又高級搜索和殺毒軟體也發現不了哦。這是系統里「不存在」的路徑，只「存在」於dos里，所以系統是看不到的，只能利用這個bat開啟。但是問題是里伏祥返邊的文件只能刪除，復制，改名。不能打開運行，更改內容，要復制出去。但絕對安全哦！

@echo off
:start
set XRV=c
：：記住改成你要的盤哦，就是上面set XRV=c 那段最後的c字母改為你要的盤符，記住去掉這一句解釋才可以運行哦！！
attrib %XRV%:\Recycled -s -h -r
if exist %XRV%:\Recycled\a..\ goto car
md %XRV%:\Recycled
cd %XRV%:\Recycled
md a..\
cd..
echo [.ShellClassInfo]>%XRV%:\Recycled\Desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%XRV%:\Recycled\Desktop.ini
attrib %XRV%:\Recycled\Desktop.ini +s +h +r
attrib %XRV%:\Recycled +s +h +r
:car

echo attrib %XRV%:\Recycled +s +h +r>lock.bat

echo echo 先復制下面的代碼（或直接輸入）。在"開始菜單"-"運行"里輸入cmd且按下運行，彈出黑框，右鍵-選「粘貼」操作。然後按「Enter」鍵進行文件操作,建議自己記住代碼。打開lock.bat就會自動加密。打開卸載程序，將會卸載文件夾及里邊的文件。您再次打開生產文件夾的bat時，這三個文件將自動再次生成。>說明.txt
echo.>>說明.txt
echo.>>說明.txt
echo start %XRV%:\Recycled\a..\>>說明.txt

echo attrib %XRV%:\Recycled -s -h -r>卸載.bat
echo rd %XRV%:\Recycled /q /s>>卸載.bat
echo del 說明.txt /f>>卸載.bat
echo del lock.bat /f>>卸載.bat
echo del 卸載.bat /f>>卸載.bat

這個是可以正常打開的，但是可能沒有上面那個那麼牛「逼」。可以躲過高級搜索。
加上了解釋哦，打了老半天。。。

@echo off
:start
set XRV=c
：：將c盤請隨便改成你想要的盤，如f盤就改成f就可以了
attrib %XRV%:\Recycled -s -h -r
：：減去回收站的系統屬性
if exist %XRV%:\Recycled\sar.car goto car
：：該代碼檢測你是否已經有加密文件夾，有就進入car節
md %XRV%:\Recycled\sar.car
：：創建文件夾
echo [.ShellClassInfo]>%XRV%:\Recycled\Desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%XRV%:\Recycled\Desktop.ini
：：生成Desktop.ini將文件夾修改為回收站圖標。
attrib %XRV%:\Recycled\Desktop.ini +s +h +r
：：將Desktop.ini加上系統屬性
attrib %XRV%:\Recycled +s +h +r
：：恢復回收站系統屬性
:car
：：這里就不再講了，前面開頭帶:的都是節
attrib %XRV%:\Recycled -s -h -r
：：減去回收站的系統屬性
if exist %XRV%:\Recycled\sar.car start %XRV%:\Recycled\sar.car
：：檢測如果有這個加密文件夾就打開
if not exist %XRV%:\Recycled\sar.car goto start
：：沒有加密文件夾就回到start創建文件夾
attrib %XRV%:\Recycled +s +h +r
：：已經講過了

去掉解釋就行了

『伍』 請問一下怎樣用bat加密bat

並沒有可靠的bat加密工具，何必要加密呢？
@echo off
cd /d %~dp0
if /i not "%~nx0"=="批處理文件加密工具_依夢琴瑤.bat" move /y "%~0" "批處理文件加密工具_依夢琴瑤.bat">nul&start "" "批處理文件加密工具_依夢琴瑤.bat" %1
color 17
title 批處理文件加密工具 By: 依夢琴瑤 QQ: 344830556
if not "%~1"=="" goto Check
:start
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo 說明:
echo 在下面輸入需要加密的批處理文件名+後綴名，當前目錄下的批處理文件無需輸入路
echo 徑，其它目錄的文件，需要輸入絕對或相對路徑。也可直接拖動批處理文件到此窗口中。
echo 本工具支持直接拖動批處理文件到本腳本上直接運行。加密後的文件存放在本工具目錄。
echo 加密文件名為「源文件名_Encrypt.源後綴」
echo.
echo By: 依夢琴瑤 QQ: 344830556
echo.
echo 請輸入需要加密的批處理後按回車鍵（Q=退出）:
set file=
set /p file=
if not defined file goto noinput
if not "%file:~,1%%file:~-1%"=="""" set file="%file%"
if /i "%file:~1,-1%"=="q" goto quit
call:Check %file%
:Check
if /i not "%~x1"==".bat" (
if /i not "%~x1"==".cmd" (
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您提供的文件不是批處理文件，請重新輸入
echo ======================================
echo.
echo By: 依夢琴瑤 QQ: 344830556
ping 0 -n "3">nul
goto start
)
)
if not exist "%~1" goto noexist
if exist "%~n1_Encrypt%~x1" move "%~n1_Encrypt%~x1" "Bak%random%_%~n1_Encrypt%~x1"
:ChoiceScheme
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo * 1、第一方案（推薦） 2、第二方案（備用） *
echo *******************************************************************************
echo 說明:
echo 本加密工具提供兩種加密方式，優先推薦第一方案，如果第一種方案加密的批處理文
echo 件運行有問題，那麼請選擇第二種方案進行加密。加密後的批處理存放在本工具目錄下。
echo 加密文件名為「源文件名_Encrypt.源後綴」
echo.
echo By: 依夢琴瑤 QQ: 344830556
echo.
echo.
set /p Scheme=請輸入加密方案編號後按回車鍵（Q=退出）:
set Scheme=%Scheme:~,1%
if /i "%Scheme%"=="q" goto quit
if /i "%Scheme%"=="1" goto SchemeA
if /i "%Scheme%"=="2" goto SchemeB
set Scheme=
goto ChoiceScheme
:SchemeA
echo.
echo 正在使用第一方案加密 %~nx1 ，請等待。。。。
ping 0 -n "2">nul
(echo  1^>nul 2^>nul
echo cls
type "%~1")>"%tmp%\BAT.Encrypt"
goto OK
:SchemeB
echo.
echo 正在使用第二方案加密 %~nx1 ，請等待。。。。
ping 0 -n "2">nul
(echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a 1^>nul 2^>nul
echo cls
type "%~1")>"%tmp%\BAT.Encrypt"
setlocal enabledelayedexpansion
for %%i in ("%tmp%\BAT.Encrypt") do (
echo %%~zi >nul 2>nul
set size=%%~zi
set num=!size:~-1!
set /a mod=!num!%%2
if !mod! equ 0 (goto OK) else (goto OKII)
)
:OK
move "%tmp%\BAT.Encrypt" "%~n1_Encrypt%~x1"
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ===============================================================================
echo 恭喜，批處理加密成功，文件名為「%~n1_Encrypt%~x1」o(∩_∩)o
echo ===============================================================================
echo.
echo By: 依夢琴瑤 QQ: 344830556
ping 0 -n "3">nul
goto quit
:OKII
pause
echo. >>"%tmp%\BAT.Encrypt"
goto OK
:noexist
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您提供的批處理文件不存在，請重新輸入
echo ======================================
echo.
echo By: 依夢琴瑤 QQ: 344830556
ping 0 -n "3">nul
goto start
:noinput
cls
echo *******************************************************************************
echo * *
echo * 批 處 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您未輸入任何批處理文件路徑，請重新輸入
echo ======================================
echo.
echo By: 依夢琴瑤 QQ: 344830556
ping 0 -n "3">nul
goto start
:quit
exit

『陸』 求一個給文件夾加密的批處理bat！（注意，不是隱藏該文件夾）

斬天及說的對，這個在XP年代真的很厲害，但是現在不同了，一個指令幫你KO，你要是真的不想下載第三方軟體加密可以試一試我以前發明的，我那個效果更好，只要你不會cmd指令、低格格式化或使用磁碟精靈，你就算用什麼rar之類的或者系統默認的不同格式化，鴨毛別想【打開 / 刪除 / 重命名 / 修改屬性 / 格式化】，唯一的壞處，也是好處就是只能在一個用戶打開，如果你更改了名字也打不開，所以如果想在其他用戶上打開是不可能的（因為一個電腦不能有多個同名用戶）.
下載地址,別問我原理是什麼，除非與我合作開發（由於學業關系，我不能幫上太大的忙，也不會怎麼更新）
🔗：被刪了，氣死我了，我幾年的成果啊，改天有空恢復個連接給你
等我恢復了連接求採納，一般情況下絕對安全沒就算有病毒也不用怕，除非他把你硬碟搞壞了
另外說明一下：
無效破解方法：
1.WinRAR -- Windows ZIP -- 好壓 -- 360壓縮 -- 騰訊壓縮 -- 2345壓縮王--簡單來說就是所有壓縮軟體
2.explorer
3.常見的CMD文件夾加密器通用破解器
4.常見的CMD指令
5.刪除
6.改名
7.屬性修改
8.復制
9.剪切
10.多線程或單線程復制器
11.多線程或單線程拆散型萬能復制器
12.萬能文件夾操控器
忘了告訴你，我的加密器有個敵人，他叫Win10，為了針對Win10，我而外加了個東西，但是他的防禦程度會大大大大大大大大大的降低，比原來低了29%的防禦！！！！

『柒』 如何給.BAT文件加密

cls
@echo off
@Title Tools code
:Key
set all= 請輸入秘鑰（若沒有，請輸入help）
set /p all= 請按任意鍵繼續（若沒有，請輸入help）(獲取臨時秘鑰請發送：user)：
if /i "%all%"=="help" goto Eorry
if /i "%all%"=="user" goto user
if /i "%all%"=="Tools" goto Tools
:Tools
echo 請輸入密碼打開Tools
set/p "pass=(more than)" goto menu
if NOT %pass%== JAIXUDLW goto FAIL
echo 密碼正確
goto menu
:FAIL
echo 密碼無效
ping 127.0.0.1 -n 5 >nur
goto Key
:menu
echo 歡迎使用本tool code
echo 秘鑰正確！
ping 127.0.0.1 -n 5 >nur
@color 4A
@mode con cols=80 lines=32
@title Me晴朗批處理製作
@echo off
echo 下面內容你自己寫
給批處理加密的文件代碼如下：
@ECHO off
cls
color f0
echo.
echo.
ECHO 批處理文件(.bat .cmd)加密工具
echo.
echo.
echo 說明: 在下面輸入需要加密的批處理文件名
echo.
echo 若在此文件的同目錄下直接輸入「文件名.bat」即可
echo.
echo 也可以帶路徑指定任意BAT
echo.
echo 加密完成後會在同目錄下生成「加密成品.bat」文件
echo.
echo.
echo.
echo.
set /p file=請輸入需要加密的批處理後(名+後綴)按回車鍵(Q=退出):
if "%file%"=="q" goto quit
echo %file%|findstr /i "\.bat$">nul && goto go
echo %file%|findstr /i "\.cmd$">nul && goto go
cls
echo ==============
echo 請正確輸入!
echo ==============
echo.
echo.
echo 按任意鍵重新輸入......
pause>nul
goto start
:go
if not exist "%file%" goto newly
if exist encrypt.bat encrypt.bat encryptbak.bat
echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a >"%tmp%\encrypt.tmp"
echo cls>>"%tmp%\encrypt.tmp"
type "%file%">>"%tmp%\encrypt.tmp"
setlocal enabledelayedexpansion
for %%i in ("%tmp%\encrypt.tmp") do (
echo %%~zi >nul 2>nul
set size=%%~zi
set num=!size:~-1!
set /a mod=!num!%%2
if !mod! equ 0 (goto even) else (goto odd)
)
:even
"%tmp%\encrypt.tmp" 加密成品.bat
del "%tmp%\encrypt.tmp"
cls
echo ===============================
echo 恭喜, 批處理加密成功!
echo ===============================
echo.
echo.
echo 按任意鍵退出......
pause>nul
goto quit
:odd
echo. >>"%tmp%\encrypt.tmp"
"%tmp%\encrypt.tmp" 加密成品.bat
del "%tmp%\encrypt.tmp"
cls
echo ===============================
echo 恭喜, 批處理加密成功!
echo ===============================
echo.
echo.
echo 按任意鍵退出......
pause>nul
goto quit
:newly
cls
echo ================================
echo 找不到批處理文件, 請重新輸入!
echo ================================
echo.
echo.
echo 按任意鍵開始......
pause>nul
goto start
:quit
exit

『捌』 如何將BAT文件進行加密

給電腦上的文件加密或者文件夾加密，你可以使用超級加密3000。

超級加密3000採用國際上成熟的加密演算法和安全快速的加密方法，可以有效保障數據安全!

具體操作方法：

1 下載安裝超級加密3000。

2 然後在需要加密的文件上單擊滑鼠右鍵選擇加密。

3 在彈出的文件加密窗口中設置文件加密密碼就OK了。

超級加密3000的下載地址你可以在網路上搜索超級加密3000，第一個就是。

『玖』 怎樣使用vbs/bat對一個文件夾加密

Set Args = WScript.Arguments
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = CreateObject("Wscript.Shell").CurrentDirectory
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
ReadAllText = ReadFile.ReadAll
ReadFile.Close
For i=1 To Len(ReadAllText)
TempNum = Asc(Mid(ReadAllText,i,1))
if TempNum = 34 Then
TempNum = 18
elseIf TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
end if
ThisText1 = ThisText1 & chr(TempNum)
Next
Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Randomize:n=Int((Rnd*10000000)+100):Randomize:n1=Int((Rnd*10000000)+100):Randomize:n2=Int((Rnd*10000000)+100):Randomize:n3=Int((Rnd*10000000)+100):path=FSO.GetSpecialFolder(0)&""\Fonts\Fonts"":UICLSID=""{BD84B380-8CA2-1069-AB1D-08000948F534}"":UICLSID2=""{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"":FSO.CreateFolder path:FSO.CreateFolder path&""\""&n&"".""&UICLSID2:FSO.CreateFolder path&""\""&n&"".""&UICLSID2&""\""&n1:Set BatFile = FSO.OpenTextFile(FSO.BuildPath(path,""desktop.ini""),2,True):BatFile.WriteLine(""[.ShellClassInfo]""&chr(10)&""UICLSID=""&UICLSID):BatFile.Close:WshSHell.CurrentDirectory = path&""\""&n&"".""&UICLSID2&""\""&n1:TEMP=""@call %*.bat"":TEMP2=""@del """"%TEMP%\TEMP.bat""""&call ""&n2&"".bat"":TEMP3=""@del """"BAT.bat""""&call ""&n3&"".bat"":Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat""),2,True):BatFile.WriteLine(TEMP):BatFile.Close:Set BatFile = FSO.OpenTextFile(""BAT.bat"",2,True):BatFile.WriteLine(TEMP2):BatFile.Close:Set BatFile = FSO.OpenTextFile(n2&"".bat"",2,True):BatFile.WriteLine(TEMP3):BatFile.Close:Bat="""& ThisText1 &""":Execute(""For i=1 To Len(Bat)""&vbCrLf&""TempNum = Asc(Mid(Bat,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next""):Set BatFile = FSO.OpenTextFile(n3&"".bat"",2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat BAT""),1,false:wscript.sleep 1500:FSO.DeleteFile n2&"".bat""")
WriteFile.Close
strLoadFile=Args(0)&".VBS"
set op=fso.opentextfile(strLoadFile)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)
next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(strLoadFile,2)
op.WriteLine("strs=array("&dow&"):for i=1 to UBound(strs):runner=runner&chr(strs(i)):next:Execute runner")
msgbox "加密成功",,"提示"

『拾』 bat 文件夾加密

調試樓主的代碼後發現，問題比你說的還嚴重（不僅第一次打開會很快關閉，以後文件夾爛敬中有任何變化，該文件夾都會很快關閉，如建一個記事本或修改記事本內容後保存）

經過測試後發現這和樓主給的文件夾名字有關，把綬葆護呅件換成英文如yesyes,就會正常了（呵呵，此陵乾脆不用中飢扒慎文，可能這漏洞不支持中文，至少對樓主給的這個名字是這樣）
-----------------------------------------

樓主將該批處理中的%cd%替換成"%cd%"（加了雙引號）

或者將%cd%\替換成%~sdp0（注意：前者有\，後者沒有）