VBScript Obfuscator with AutoIt

[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

[JLogan3o13]

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

[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

[wolf9228]

  On 8/12/2013 at 11:40 PM, michaelslamet said:

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

 

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 August 13, 2013 by wolf9228