michaelslamet Posted August 12, 2013 Share Posted August 12, 2013 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 Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted August 12, 2013 Moderators Share Posted August 12, 2013 Did you try searching? A Google search of VBScript Obfuscator yields 126,000+ results. "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
michaelslamet Posted August 12, 2013 Author Share Posted August 12, 2013 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 Link to comment Share on other sites More sharing options...
wolf9228 Posted August 13, 2013 Share Posted August 13, 2013 (edited) 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/184740http://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 صرح السماء كان هنا Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now