蒙在股里 发表于 2015-1-16 23:14:46

ASP教程之破解微软剧本加密算法

asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般加密|剧本|破解|算法|微软好久没有体贴过web开辟版,今后大概会来的更少,明天公布一个破解微软剧本加密算法的vbScript剧本,算是给CSDN出把力吧。

这是一个编写的相称精致的,用于复原ScriptEncoder加密后的script代码,用过asp的人应当晓得,微软供应的剧本回护手艺很弱,自己在csdn公布过aspDecoder,之前也公布过几个版本,比来失掉该源码(来历不记得了),是用vbScript编写的;

复制以下代码到txt文件中,利用前修正后缀为.vbs。能够便利的修正为visualbasic或ASP程序;

optionexplicit
DimoArgs,NomFichier
Optionalargument:theencodedfilename
NomFichier=""
SetoArgs=WScript.Arguments
SelectCaseoArgs.Count
Case0NoArg,popupadialogboxtochoosethefile
NomFichier=BrowseForFolder("Chooseanencodedfile",&H4031,&H0011)
Case1
IfInstr(oArgs(0),"?")=0Then-?ou/?=>aide
NomFichier=oArgs(0)
EndIf
CaseElse
WScript.Echo"Toomanyparameters"
EndSelect
SetoArgs=Nothing

IfNomFichier""Then
Dimfso
Setfso=WScript.CreateObject("Scripting.FileSystemObject")
Iffso.FileExists(NomFichier)Then
Dimfic,contenu
Setfic=fso.OpenTextFile(NomFichier,1)
Contenu=fic.readAll
fic.close
Setfic=Nothing

ConstTagInit="#@~^"#@~^awQAAA==
ConstTagFin="==^#~@"&chr(0)
DimDebutCode,FinCode
Do
FinCode=0
DebutCode=Instr(Contenu,TagInit)
IfDebutCode>0Then
If(Instr(DebutCode,Contenu,"==")-DebutCode)=10ThenIf"=="followsthetag
FinCode=Instr(DebutCode,Contenu,TagFin)
IfFinCode>0Then
Contenu=Left(Contenu,DebutCode-1)&_
Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6))&_
Mid(Contenu,FinCode+6)

EndIf
EndIf
EndIf
LoopUntilFinCode=0
WScript.EchoContenu
Else
WScript.EchoNomfichier&"notfound"
EndIf
Setfso=Nothing
Else
WScript.Echo"Pleasegiveafilename"
WScript.Echo"Usage:"&wscript.fullname&""&WScript.ScriptFullName&"<filename>"
EndIf

FunctionDecode(Chaine)
Dimse,i,c,j,index,ChaineTemp
DimtDecode(127)

ConstCombinaison="1231232332321323132311233213233211323231311231321323112331123132"
Setse=WSCript.CreateObject("Scripting.Encoder")
Fori=9to127
tDecode(i)="JLA"
Next
Fori=9to127
ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3)
Forj=1to3
c=Asc(Mid(ChaineTemp,j,1))
tDecode(c)=Left(tDecode(c),j-1)&chr(i)&Mid(tDecode(c),j+1)
Next
Next
Nextlinewecorrectabug,otherwisea")"couldbedecodedtoa">"
tDecode(42)=Left(tDecode(42),1)&")"&Right(tDecode(42),1)
Setse=Nothing

Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13))
Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<")
Chaine=Replace(Chaine,"@$","@")
index=-1
Fori=1toLen(Chaine)
c=asc(Mid(Chaine,i,1))
Ifc<128Thenindex=index+1
If(c=9)or((c>31)and(c<128))Then
If(c60)and(c62)and(c64)Then
Chaine=Left(Chaine,i-1)&Mid(tDecode(c),Mid(Combinaison,(indexmod64)+1,1),1)&Mid(Chaine,i+1)
EndIf
EndIf
Next
Decode=Chaine
EndFunction

FunctionBrowseForFolder(ByValpstrPrompt,ByValpintBrowseType,ByValpintLocation)
DimShellObject,pstrTempFolder,x
SetShellObject=WScript.CreateObject("Shell.Application")
OnErrorResumeNext
SetpstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)
BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
IfErr.Number0ThenBrowseForFolder=""
SetpstrTempFolder=Nothing
SetShellObject=Nothing
EndFunction

</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。

第二个灵魂 发表于 2015-1-20 08:34:33

那么,ASP.Net有哪些改进呢?

admin 发表于 2015-1-29 06:12:43

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。

蒙在股里 发表于 2015-1-29 06:45:35

那么,ASP.Net有哪些改进呢?

深爱那片海 发表于 2015-2-5 23:32:04

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

只想知道 发表于 2015-2-14 05:18:04

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

若相依 发表于 2015-3-4 04:49:46

完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。

金色的骷髅 发表于 2015-3-11 16:57:44

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

变相怪杰 发表于 2015-3-19 02:27:17

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

乐观 发表于 2015-3-27 05:10:44

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
页: [1]
查看完整版本: ASP教程之破解微软剧本加密算法