中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]加密BAT的VBS

savage100
新手上路

积分 6
发帖 2
注册 2008-11-14
状态离线

『楼主』: [原创]加密BAT的VBS

[原创]加密BAT的VBS
呵呵
只是实现了加密的功能
没有容错
自己测试了下%90的BAT加密后运行正常，效率并没降低
下载：http://file3.xingkong.com//Files/2008/11/20081114123149725.rar
例：
::Ｃrypt by Ｓavage Ｓtudio | ＥM:log2.0@163.com | ＨomeＰage:savage100.xingkong.com | ＱQ:24807208::
@echo off & set _="U}'mf6jSb@HI3XW]5we?9:0Rs{il|KZn8T,<#qv[MNx>V*/DE(O\.`7k-Lt^u$oF)=G&aJh gyzp1!A+4BCrc2PQdY"
%_:~27,1%%_:~5,1%%_:~72,1%%_:~23,1%%_:~72,1%%_:~19,1%%_:~38,1%%_:~61,1%%_:~72,1%%_:~21,1%%_:~72,1%%_:~76,1%%_:~69,1%%_:~61,1%%_:~25,1%%_:~19,1%%_:~68,1%%_:~85,1%%_:~28,1%%_:~25,1%%_:~68,1%%_:~19,1%%_:~43,1%%_:~27,1%%_:~59,1%
%_:~25,1%%_:~19,1%%_:~59,1%%_:~72,1%_%_:~66,1%"%_:~82,1%%_:~47,1%%_:~81,1%%_:~51,1%%_:~79,1%%_:~14,1%%_:~74,1%%_:~28,1%%_:~30,1%%_:~87,1%%_:~34,1%%_:~80,1%%_:~6,1%%_:~54,1%%_:~24,1%%_:~10,1%%_:~86,1%%_:~50,1%%_:~70,1%%_:~64,1%%_:~62,1%%_:~15,1%%_:~36,1%%_:~44,1%%_:~69,1%%_:~73,1%%_:~90,1%%_:~63,1%%_:~17,1%%_:~60,1%%_:~31,1%%_:~11,1%%_:~75,1%%_:~27,1%%_:~1,1%%_:~61,1%%_:~26,1%%_:~72,1%%_:~33,1%%_:~40,1%%_:~84,1%%_:~25,1%%_:~2,1%%_:~39,1%%_:~38,1%%_:~22,1%%_:~13,1%%_:~48,1%%_:~19,1%%_:~77,1%%_:~65,1%%_:~88,1%%_:~76,1%%_:~68,1%%_:~58,1%%_:~78,1%%_:~7,1%%_:~89,1%%_:~5,1%%_:~35,1%%_:~16,1%%_:~8,1%%_:~71,1%%_:~85,1%%_:~53,1%%_:~23,1%%_:~45,1%%_:~20,1%%_:~3,1%%_:~4,1%%_:~52,1%%_:~67,1%%_:~9,1%%_:~12,1%%_:~18,1%%_:~21,1%%_:~29,1%%_:~32,1%%_:~37,1%%_:~41,1%%_:~42,1%%_:~43,1%%_:~46,1%%_:~49,1%%_:~55,1%%_:~56,1%%_:~57,1%%_:~59,1%%_:~66,1%%_:~83,1%"
%_:~34,1%%_:~59,1%%_:~38,1%%_:~66,1%%_:~38,1%%_:~49,1%%_:~45,1%%_:~36,1%%_:~38,1%%_:~76,1%%_:~38,1%%_:~53,1%%_:~25,1%%_:~36,1%%_:~42,1%%_:~49,1%%_:~54,1%%_:~64,1%%_:~8,1%%_:~42,1%%_:~54,1%%_:~49,1%%_:~82,1%%_:~34,1%%_:~88,1%
%_:~16,1%%_:~49,1%%_:~64,1%%_:~63,1%%_:~28,1%%_:~38,1%%_:~28,1%%_:~59,1%%_:~59,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~8,1%%_:~28,1%%_:~64,1%%_:~25,1%%_:~8,1%%_:~38,1%%_:~84,1%%_:~78,1%%_:~25,1%%_:~73,1%%_:~8,1%%_:~49,1%%_:~48,1%%_:~49,1%%_:~8,1%%_:~25,1%%_:~7,1%%_:~49,1%%_:~58,1%%_:~84,1%%_:~82,1%%_:~53,1%%_:~25,1%%_:~78,1%%_:~42,1%%_:~34,1%%_:~28,1%%_:~78,1%%_:~54,1%%_:~64,1%%_:~28,1%%_:~8,1%%_:~28,1%%_:~41,1%%_:~38,1%%_:~66,1%%_:~59,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~25,1%%_:~8,1%%_:~8,1%%_:~89,1%%_:~50,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~25,1%%_:~89,1%%_:~66,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~73,1%%_:~89,1%%_:~50,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~64,1%%_:~89,1%%_:~66,1%%_:~54,1%%_:~59,1%%_:~28,1%%_:~41,1%%_:~38,1%%_:~2,1%%_:~55,1%%_:~38,1%%%%_:~34,1%%_:~38,1%%_:~34,1%%_:~78,1%%_:~38,1%%_:~18,1%%_:~66,1%%_:~60,1%%_:~50,1%%_:~60,1%%_:~3,1%%_:~3,1%%_:~51,1%%_:~38,1%%_:~58,1%%_:~28,1%%_:~38,1%%_:~18,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~64,1%%_:~89,1%%_:~56,1%%_:~25,1%%_:~56,1%%_:~12,1%%_:~56,1%%_:~73,1%%_:~56,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~25,1%%_:~89,1%%_:~56,1%%_:~73,1%%_:~56,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~2,1%%_:~5,1%%_:~38,1%%_:~73,1%%_:~89,1%%_:~56,1%%_:~64,1%%_:~56,1%%_:~54,1%%_:~42,1%%_:~49,1%%_:~88,1%%_:~38,1%%_:~25,1%%_:~8,1%%_:~8,1%%_:~89,1%%_:~56,1%%_:~25,1%%_:~8,1%%_:~8,1%%_:~56,1%%_:~38,1%%_:~56,1%%_:~64,1%%_:~56,1%%_:~51,1%%_:~54,1%%_:~34,1%%_:~59,1%%_:~38,1%%%%_:~34,1%%_:~38,1%%_:~49,1%%_:~45,1%%_:~36,1%%_:~38,1%%_:~3,1%%_:~3,1%%_:~38,1%%_:~18,1%%_:~49,1%%_:~64,1%%_:~63,1%%_:~28,1%%_:~38,1%斐波纳齐%_:~46,1%%_:~56,1%%_:~25,1%%_:~8,1%%_:~8,1%%_:~56,1%%_:~51,1%%_:~54,1%%_:~53,1%%_:~25,1%%_:~36,1%%_:~42,1%%_:~49,1%%_:~24,1%%_:~78,1%%_:~36,1%%_:~8,1%

[ Last edited by savage100 on 2008-11-14 at 12:28 ]

此帖被 +4 点积分

点击查看详情

2008-11-14 12:16

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

@echo off&setlocal EnableDelayedExpansion&color 0f&set all=1&set /A a=0&set /A b=1&set /A c=0&for /L %%i in (0,1,44) do (set /A c=!a!+!b!&set /A a=!b!&set /A b=!c!&set all=!all! !c!)&if %%i equ 44 (echo 斐波纳齐:!all!)&pause>nul

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-11-14 13:13

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 3 楼』: 为方便他人阅读，建议直接贴代码。

Dim SStr,Costr,ts,SavageSSC,SavageSS,L,strs,stre,ls,flag,Head

dim a()

Info1=chr(13) & "_______________________________" & chr(13) & "Ｐowered Ｂy Savage Ｓtudio (2008)" & chr(13) & "ＥM:log2.0@163.com  ＱQ:24807208" & chr(13) & "ＨomeＰage: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="::Ｃrypt by Ｓavage Ｓtudio | ＥM:log2.0@163.com | ＨomeＰage:savage100.xingkong.com | ＱQ:24807208::" & vbCrLf & "@echo off & set _=" & chr(34) & SavageSS & chr(34) & vbCrLf

for i=1 to L

        SavageSSC= SavageSSC & Mid(SavageSS,a(i),1)

Next

SStr="if 0 equ 9 pause&cls&exit" & vbCrLf & "set _=" & chr(34) & SavageSSC & chr(34)

for i=1 to len(SStr)

        ts=mid(SStr,i,1)

        ls=InStr(SavageSS,ts)

        if ls=0 then Head=Head & ts else  Head=Head & strs & (ls) & stre

Next

Head=Head & vbCrLf

SavageSS=SavageSSC

Set fso = CreateObject("Scripting.FileSystemObject")

Set fso_file = fso.opentextfile(InputBox("Source file name:" & info1,"Input..."), 1 , True)

SStr="if 0 equ 9 pause&cls&exit" & vbCrLf

'SStr="if 0 equ 9 pause&cls&exit" & vbCrLf & ReadFile(InputBox("Source file name:","Input..."),"GB2312")

Do While len(sstr)>0

        for i=1 to len(sstr)

                ts=mid(sstr,i,1)

                ls=InStr(SavageSS,ts)

                if ts="%" Then

                        flag=flag+1

                        if flag>1 then flag=0

                        tc=mid(sstr,i+1,1)

                        If IsNumeric(tc) Or tc="*" Then 'proccess %0-9 And *

                                ts=ts & tc

                                i=i+1

                                ls=0

                                flag=0

                        End If

                end If

                If i=1 and ts=":" Then 'proccess :flag

                        Costr=Costr & sstr

                        exit for

                End If

                if ls=0 or flag then Costr=Costr & ts else  Costr=Costr & strs & (ls) & stre

        next

if fso_file.AtEndOfStream then sstr="" else sstr = fso_file.ReadLine & vbCrLf

Loop

fso_file.Close

WriteToFile InputBox("Input Target file name:" & info1,"Save as..."),Head & Costr,"GB2312"

Function WriteToFile(Getfile, Str, CharSet)

    Set stm = CreateObject("Adodb.Stream")

    stm.Type = 2

    stm.Mode = 3

    stm.CharSet = CharSet

    stm.Open

    stm.WriteText Str

    stm.SaveToFile Getfile, 2

    stm.Flush

    stm.Close

    Set stm = Nothing

End Function

'Function ReadFile(SourceFile, CharSet)

'    Set stm = CreateObject("Adodb.Stream")

'    stm.Type = 2

'    stm.Mode = 3

'    stm.CharSet = CharSet

'    stm.Open

'    stm.LoadFromFile SourceFile

'    ReadFile = stm.ReadText

'    stm.Close

'    Set stm = Nothing

'End Function

2008-11-14 13:51

laoyao2007
新手上路

积分 8
发帖 8
注册 2008-11-14
状态离线

『第 4 楼』:

谢谢各位老大的提供

2008-11-14 14:20

fyjokre
社区乞丐

积分 -11
发帖 9
注册 2008-11-21
状态离线

『第 5 楼』:

支持！！！

2008-11-21 10:56

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『第 6 楼』:

我无法通过测试，出现800a0005错误

2008-11-22 09:26

holucan
初级用户

积分 26
发帖 25
注册 2008-11-7
状态离线

『第 7 楼』:

好像挺有趣的，测试测试看看，谢谢分享！;)

2008-11-22 14:56

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: