vbs-crypter

Nalyd 15天前 12

Information

This small script will encrypt (encode) any VBS file. The encryption is dynamic, if you encrypt the same VBS file 5 times, you will get 5 different encrypted files (with different MD5 hash, etc). You can try to re-encrypt the same file, but the size of the final file will grow fast.


Usage

Download vbs-crypter.vbs, then drag&drop your VBS file over vbs-crypter.vbs, in a few seconds a new file will be created on the same directory with the code encrypted. You can identify the encrypted file because it will be renamed, appending a dash at then end of file name.


Crypter or Encoder?

In fact, this script encodes VBS files. Any experienced user can decode the encrypted file manually. This just adds a layer of obfuscation to your files, and can bypass most of AV


vbs-crypter.vbs

Randomize
Set oARG=WScript.Arguments
Set oFSO=CreateObject("Scripting.FileSystemObject")
If oARG.Count=0 Then WScript.Quit
For Each File In oARG
Set s=oFSO.OpenTextFile(File,1)
Set o=oFSO.CreateTextFile(File& "_.vbs",True)
o.WriteLine "Execute("& r(s.readall)& ")"
Next
Function r(x)
for i=1 To Len(x)
e=e& "chr("& f(asc(mid(x,i,1)))& ")& "
next
r=Left(e,Len(e)-2)
End Function
Function f(n)
m=int(rnd*99)+1
If n mod m=0 Then
t=(n/m)& "*"& m
Else
u=int(rnd*3)
If u=0 Then t=(n+m)& "-"& m
If u=1 Then t=(n-m)& "+"& m
If u=2 Then t=(n*m)& "/"& m
End If
f=t
End Function


最新回復 (0)
全部樓主
返回