HopeEasyCommandEasyEnCode批處理加密器最后由 HOPE 于 -10-10 15:12____更新日志______________________________________版本 1.0.0000 /10/10 本樓版本 1.0.0001 /10/10 7樓版本 1.0.0002 /10/10 15樓版本 1.0.0003 /10/10 16樓版本 1.0.0004 /10/10 17樓版本 1.0.0005 /10/10 18樓____操作手冊______________________________________ http://www.bathome.net/redirect.php?goto=findpost&pid=246538&ptid=60317代碼

@Echo Off
Cls
Mode Con: Cols=120
Color 0F
Title Hope(R) Office EasyCommand EasyEnCode
Chcp 936 > Nul
Rem Hope(R) Office EasyCommand EasyEnCode
Echo.
Call :Type 
Call :Type # 116
Echo.
Call :Type   55
Call :Type EasyEnCode
Echo.
Call :Type 
Call :Type # 116
Echo.
Echo.
Echo.^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000]
Echo.^>^> (C) Copyright - Hope Corp.
If %~1== (
Set FileNum=1
) Else (
Set FileNum=2
)
Md %UserProFile%Desktop >Nul 2>Nul
Md %UserProFile%桌面 >Nul 2>Nul
Set Pro=%0
Set lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000]
Set Pro=%Pro:=%
Mshta VBscript:Execute(Set a=CreateObject(Wscript.Shell):Set b=a.CreateShortcut(a.SpecialFolders(Desktop) & Hope Office EasyCommand EasyEnCode [Version 1.0.000].lnk):b.TargetPath=%Pro%:b.WorkingDirectory=%~dp0:b.Save:close) >Nul 2>Nul
@Goto :Main
:Main
Echo.
Set FileName=////
If %FileNum%==1 (
Set /P FileName=#^>^> 請將需要加密的文件拖動至此窗體:
) Else (
Set /P FileName=#^>^> 請將需要加密的文件拖動至此窗體:%~1<Nul
Echo.
Set FileName=%~1
Set FileNum=1
)
Set FileName=%FileName:=%
For /F %%I in ('Dir /b') Do (
If %%I==%FileName% (
Set FileName=%Cd%%FileName%
)
)
Set FileName=%FileName%
If Not Exist %FileName% (
Echo.
Echo.^>^> 無此文件!無法加密...
@Goto :Main
)
For /L %%i in (1,1,2048) Do (
If Not Exist File-%%i (
Md File-%%i >Nul 2>Nul
Set EnCodeDir=File-%%i
Set Num=%%i
@Goto :EnCode
)
)
Echo.
Echo.^>^> 可分配的內存已經占滿,無法加密...
@Goto :Main
:EnCode
For /L %%i in (1,1,47) Do Call :RepeatBS
Echo.
Call :Type 
Call :Type +
Call :Type = 4
Call :Type 正在加密
Call :Type = 4
Call :Type +
Call :Type = 98
Echo.
Echo.
Echo.文件名: %FileName%
Echo.
Cd %EnCodeDir%
Copy %FileName% %cd%File.Bat > Nul
For /F %%i in ('dir /b File.Bat') do (
For /L %%j in (1,1,%%~zi) do (
Set /P Bytes[FileName]=%Bs%文件大小: %%j Byte[s]<Nul
)
)
Echo.
Call :VBscript_EnCode
Start /Wait  EnCode.VBS
If Exist EnCode.VBS Del EnCode.VBS
>> EnCode.Bat Echo.
>> EnCode.Bat Echo.Cls
Type File.Bat >> EnCode.Bat
If Exist File.Bat Del File.Bat
Echo.
Echo.加密后的文件: %Cd%EnCode.Bat
Echo.
For /F %%i in ('dir /b EnCode.Bat') do (
For /L %%j in (1,1,%%~zi) do (
Set /P Bytes[FileName]=%Bs%加密后的大小: %%j Byte[s]<Nul
)
)
Echo.
Mshta VBscript:msgbox(加密%FileName:~1,-1%文件成功,64,Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000])(window.close)
Start Explorer %Cd%
Start  Notepad EnCode.Bat
Cd..
Echo.
Call :Type 
Call :Type +
Call :Type = 4
Call :Type = 8
Call :Type = 4
Call :Type +
Call :Type = 98
Echo.
@Goto :Main
:RepeatBS
Set Bs=%Bs%
@Goto :Eof
:Type <Text> [Num]
%=Company {Hope Studio}=%
%=Author{Hope Studio}=%
If '%2'=='' (
Set /p Text=#%~1<Nul
@Goto :Eof
)
If Not '%2'=='' (
For /l %%I in (1,1,%2) Do (
Set /p Text=#%~1<Nul
)
)
@Goto :Eof
:VBscript_EnCode
> EnCode.VBS Echo.Function WriteTextFile(strPath, text)
>> EnCode.VBS Echo.With CreateObject(ADODB.Stream)
>> EnCode.VBS Echo..Open
>> EnCode.VBS Echo..type = 2
>> EnCode.VBS Echo..WriteText text
>> EnCode.VBS Echo..SaveToFile strPath
>> EnCode.VBS Echo..close()
>> EnCode.VBS Echo.End With
>> EnCode.VBS Echo.End Function
>> EnCode.VBS Echo.
>> EnCode.VBS Echo.Dim EnCode
>> EnCode.VBS Echo.EnCode=WriteTextFile(EnCode.Bat,)
@Goto :Eof
nclick="copycode($('code0'));">復制代碼

By Hope謝謝.