中国DOS联盟论坛 - Powered by Discuz! Board

标题: [原创]加密BAT的VBS [打印本页]

作者: savage100 时间: 2008-11-14 12:16 标题: [原创]加密BAT的VBS

[原创]加密BAT的VBS 呵呵只是实现了加密的功能没有容错自己测试了下%90的BAT加密后运行正常，效率并没降低下载：file3.xingkong.com ... 例： ::Ｃ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 ]

作者: slore 时间: 2008-11-14 13:13

@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

作者: HAT 时间: 2008-11-14 13:51 标题: 为方便他人阅读，建议直接贴代码。

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

作者: laoyao2007 时间: 2008-11-14 14:20

谢谢各位老大的提供

作者: fyjokre 时间: 2008-11-21 10:56

支持！！！

作者: 5872169 时间: 2008-11-22 09:26

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

作者: holucan 时间: 2008-11-22 14:56

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