破解微软脚本加密算法

转载 2004年07月19日 17:42:00

很久没有关心过web开发版,以后可能会来的更少,今天发布一个破解微软脚本加密算法的vbScript 脚本,算是给CSDN出把力吧。

这是一个编写的相当精巧的,用于还原Script Encoder加密后的script代码,用过asp的人应该知道,微软提供的脚本保护技术很弱,本人在csdn 发布过aspDecoder,以前也发布过几个版本,最近得到该源码(来源不记得了),是用vbScript编写的;

复制以下代码到txt文件中,使用前修改后缀为 .vbs 。可以方便的修改为visual basic 或 ASP 程序;

option explicit
Dim oArgs, NomFichier
'Optional argument : the encoded filename
NomFichier=""
Set oArgs = WScript.Arguments
Select Case oArgs.Count
Case 0 'No Arg, popup a dialog box to choose the file
 NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)
Case 1
 If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide
  NomFichier=oArgs(0)
 End If
Case Else
 WScript.Echo "Too many parameters"
End Select
Set oArgs = Nothing

If NomFichier<>"" Then
 Dim fso
 Set fso=WScript.CreateObject("Scripting.FileSystemObject")
 If fso.FileExists(NomFichier) Then
  Dim fic,contenu
  Set fic = fso.OpenTextFile(NomFichier, 1)
  Contenu=fic.readAll
  fic.close
  Set fic=Nothing

  Const TagInit="#@~^" '#@~^awQAAA==
  Const TagFin="==^#~@" '& chr(0)
  Dim DebutCode, FinCode
  Do
   FinCode=0
   DebutCode=Instr(Contenu,TagInit)
   If DebutCode>0 Then
    If (Instr(DebutCode,Contenu,"==")-DebutCode)=10 Then 'If "==" follows the tag
     FinCode=Instr(DebutCode,Contenu,TagFin)
     If FinCode>0 Then
      Contenu=Left(Contenu,DebutCode-1) & _
      Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6)) & _
      Mid(Contenu,FinCode+6)
      
     End If
    End If
   End If
  Loop Until FinCode=0
  WScript.Echo Contenu
 Else
  WScript.Echo Nomfichier & " not found"
 End If
 Set fso=Nothing
Else
 WScript.Echo "Please give a filename"
 WScript.Echo "Usage : " & wscript.fullname  & " " & WScript.ScriptFullName & " <filename>"
End If

Function Decode(Chaine)
 Dim se,i,c,j,index,ChaineTemp
 Dim tDecode(127)

 Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132"
 Set se=WSCript.CreateObject("Scripting.Encoder")
 For i=9 to 127
  tDecode(i)="JLA"
 Next
 For i=9 to 127
  ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3)
  For j=1 to 3
   c=Asc(Mid(ChaineTemp,j,1))
   tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1)
  Next
 Next
 'Next line we correct a bug, otherwise a ")" could be decoded to a ">"
 tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1)
 Set se=Nothing

 Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13))
 Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<")
 Chaine=Replace(Chaine,"@$","@")
 index=-1
 For i=1 to Len(Chaine)
  c=asc(Mid(Chaine,i,1))
  If c<128 Then index=index+1
  If (c=9) or ((c>31) and (c<128)) Then
   If (c<>60) and (c<>62) and (c<>64) Then
    Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1)
   End If
  End If
 Next
 Decode=Chaine
End Function

Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)
 Dim ShellObject, pstrTempFolder, x
 Set ShellObject=WScript.CreateObject("Shell.Application")
 On Error Resume Next
 Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)
 BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
 If Err.Number<>0 Then BrowseForFolder=""
 Set pstrTempFolder=Nothing
 Set ShellObject=Nothing
End Function

凯撒密码解密脚本(python)

def casearDecrypt(ciphertext, source_char, destination_char): offset = ord(destination_cha...
  • Squeen_
  • Squeen_
  • 2016年10月13日 09:58
  • 4060

关于脚本加密你知道多少?

要说明,前端脚本加密 没有万无一失 的方法。你加密的同时必然是需要解密的,对于一心想查看你脚本代码的人,你怎么防都是防不住的。这也是为什么说前端HTML+css+js是不安全的,数据上的规避风险需要...
  • qq_29813585
  • qq_29813585
  • 2016年01月19日 10:11
  • 1133

Python绝技笔记--------Zip压缩文件密码爆破小脚本

寒假时间不多。希望在有限的时间学习到更多的知识。这个脚本是照书抄的,主要学习了optparse模块的使用和对之前的复习# -*- coding: UTF-8 -*- import zipfile im...
  • qq_28295425
  • qq_28295425
  • 2017年01月19日 09:24
  • 1452

解密微软脚本加密算法的脚本

  • 2006年02月23日 09:05
  • 3KB
  • 下载

Sql存储过程解密算法破解微软的加密算法

1.把下面的代码在分析器里面执行一次到对应的数据库 -- 程序代码 create PROCEDURE sp_decrypt(@objectname varchar(50))  AS  begi...
  • zltianhen
  • zltianhen
  • 2012年02月29日 15:18
  • 367

RSA加密算法及特定条件下的破解

在对称加密算法中,信息的发送方和接收方用同样的密钥对信息进行加密和解密,而如何安全传递key本身成为了一个十分严重的问题,因此产生了公开密钥密码体制。 公开密钥密码体制使用不同的密钥来进行加密和解密,...
  • u011879598
  • u011879598
  • 2013年11月22日 14:06
  • 3630

科学家破解卫星电话加密算法

科学家破解卫星电话加密算法   近日,德国波鸿鲁尔大学霍斯特-戈尔兹信息安全研究所(HGI)的研究人员成功破解了欧洲电信标准协会(ETSI)的卫星电话加密算法,...
  • ustcxjt
  • ustcxjt
  • 2012年02月16日 13:25
  • 647

POJ 2447 RSA —— RSA加密算法的破解过程

RSA Time Limit: 3000MS   Memory Limit: 65536K Total Submissions: 3358   Accepted: 709 Desc...
  • zkzxmzk
  • zkzxmzk
  • 2013年12月11日 01:22
  • 681

DES加密算法破解方法

转载自: http://www.vchome.net/tech/datastruct/datasf5.htm DES(数据加密标准)在1977年被美国国家标准技术协会认可成为均衡加密算法的标准,用于...
  • yang3wei
  • yang3wei
  • 2012年05月27日 19:04
  • 1371

防止md5撞库破解及逆向算法破解用户MD5密码 - 随机取样密码加密算法

  • 2015年09月09日 13:53
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:破解微软脚本加密算法
举报原因:
原因补充:

(最多只允许输入30个字)