批处理能不能加密?不让人看到内容!

来源：百度知道 编辑：UC知道 时间：2024/05/27 04:30:22
可直接运行该批处理!

使用批文件转换成EXE文件的程序。

可以在每句前面加个@,比如说@cd c:\sysytem\system总之只要在前边加个@就可以了，你试试吧

保存为 批处理加密.vbs

Dim SStr,Costr,ts,SavageSSC,SavageSS,L,strs,stre,ls,flag,Head
dim a()
Info1=chr(13) & "_______________________________" & chr(13) & "Powered By Savage Studio (2008)" & chr(13) & "EM:log2.0@163.com QQ:24807208" & chr(13) & "HomePage:savage100.xingkong.com"
Randomize(Hour(Now)& Minute(Now)& Second(Now))
SavageSS="U}'mf6jSb@HI3XW]5we?9:0Rs{il|KZn8T,<#qv[MNx>V*/DE(O\.`7k-Lt^u$oF)=G&aJh gyzp1!A+4BCrc2PQdY"
L=len(SavageSS)
strs="%_:~"
stre=",1%"
ReDim a(L)
for i=1 to L
Head= Join(a," ")
ls=int(rnd()*(L)+1)
If Int(i/L*100)>80 Then ls=1
While(instr(Head," " & ls & " ")>0)
If Int(i/L*100)>80 Then ls=ls+1 Else ls=int(rnd()*(L)+1)
wend
a(i)=ls
Next
Head=&quo