Jump to content
Sign in to follow this  
michaelslamet

VBScript Obfuscator with AutoIt

Recommended Posts

michaelslamet

Is there available VBScript Obfuscator that written in AutoIt?

Or could anybody here point me a good VBScript Obfuscator that support command line?

Thank you :thumbsup:

Share this post


Link to post
Share on other sites
JLogan3o13

Did you try searching? A Google search of VBScript Obfuscator yields 126,000+ results.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
michaelslamet

Yes, I did :) Some of them are online version (so doesnt support command line), some of them are commercial, so I think if there is one written in AutoIt, it will be great :)

Share this post


Link to post
Share on other sites
wolf9228

Is there available VBScript Obfuscator that written in AutoIt?

Or could anybody here point me a good VBScript Obfuscator that support command line?

Thank you :thumbsup:

 

http://support.microsoft.com/kb/184740

http://support.microsoft.com/kb/184740/en

http://msdn.microsoft.com/en-us/library/aa227633%28v=VS.60%29.aspx

Page Of Vbs Code

http://stackoverflow.com/questions/4252419/free-vbscript-obfuscator

$ScriptControl = ObjCreate("MSScriptControl.ScriptControl")
With $ScriptControl
.Language = "VBScript"
.AllowUI = True
EndWith
$VbCodeText = _
'set fso = CreateObject("Scripting.FileSystemObject")' & @CRLF & _
'fileName = Inputbox("Enter Path of the File to scramble : ")' & @CRLF & _
'set src = fso.OpenTextfile(fileName,1)' & @CRLF & _
'body = src.readall' & @CRLF & _
'set rep = fso.createtextfile("Obfuscated.vbs",true)' & @CRLF & _
'rep.writeline "Execute(" & Obfuscate(body) & " ) "' & @CRLF & _
'' & @CRLF & _
'Function Obfuscate(txt)' & @CRLF & _
'enc = ""' & @CRLF & _
'for i = 1 to len(txt)' & @CRLF & _
'enc = enc & "chr( " & form( asc(mid(txt,i,1)) ) & " ) & "' & @CRLF & _
'next' & @CRLF & _
'Obfuscate = enc & " vbcrlf "' & @CRLF & _
'End Function' & @CRLF & _
'' & @CRLF & _
'Function form(n)' & @CRLF & _
'' & @CRLF & _
'r = int(rnd * 10000)' & @CRLF & _
'k = int(rnd * 3)' & @CRLF & _
'if( k = 0) then ret = (r+n) & "-" & r' & @CRLF & _
'if( k = 1) then ret = (n-r) & "+" & r' & @CRLF & _
'if( k = 2) then ret = (n*r) & "/" & r' & @CRLF & _
'form = ret' & @CRLF & _
'End Function' & @CRLF
$ScriptControl.ExecuteStatement($VbCodeText)
Edited by wolf9228

صرح السماء كان هنا

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×