From Subtle Porcupine, 2 Months ago, written in VB.NET.
This paste is a reply to VBScript Obfuscator from Sole Plover
- view diff
Embed
  1. 'VBS Obfuscator by st0le
  2.  
  3. Randomize
  4. set fso = CreateObject("Scripting.FileSystemObject")
  5. fileName = Inputbox("Enter Path of the File to scramble : ")
  6. set src = fso.OpenTextfile(fileName,1)
  7. body = src.readall
  8. set rep  = fso.createtextfile("Obfuscated.vbs",true)
  9. rep.writeline "Execute(" & Obfuscate(body) & " ) "
  10.  
  11. Function Obfuscate(txt)
  12. enc = ""
  13. for i = 1 to len(txt)
  14. enc = enc & "chr( " & form( asc(mid(txt,i,1)) ) & " ) & "
  15. next
  16. Obfuscate = enc & " vbcrlf "
  17. End Function
  18.  
  19.  
  20. Function form(n)
  21.  
  22. r = int(rnd * 10000)
  23. k = int(rnd * 3)
  24. if( k = 0) then ret = (r+n) & "-" & r
  25. if( k = 1) then ret = (n-r) & "+" & r
  26. if( k = 2) then ret = (n*r) & "/" & r
  27. form = ret
  28. End Function