Crack Microsoft Script encryption algorithm

Source: Internet
Author: User
For a long time did not care about the Web development version, the future may come less, today released a crack Microsoft Script encryption algorithm of the VBScript script, is given to csdn the Force bar.
This is a very sophisticated written, used to restore the Script Encoder encrypted script code, the use of ASP should know, Microsoft provides a weak script protection technology, I published in Csdn Aspdecoder, has published several versions, Recently got the source (the source does not remember), is written in VBScript;
Copy the following code into the TXT file and modify the suffix to. vbs before using. can be easily modified to Visual Basic or ASP program;
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
Todo
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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.