VBS Encrypter : Randomize set fso = CreateObject("Scripting.FileSystemObject") fileName = Inputbox("Enter Path of the File to scramble : ") set src = fso.OpenTextfile(fileName,1) body = src.readall set rep = fso.createtextfile("Obfuscated.vbs",true) rep.writeline "Execute(" & Obfuscate(body) & " ) " Function Obfuscate(txt) enc = "" for i = 1 to len(txt) enc = enc & "chr( " & form( asc(mid(txt,i,1)) ) & " ) & " next Obfuscate = enc & " vbcrlf " End Function Function form(n) r = int(rnd * 10000) k = int(rnd * 3) if( k = 0) then ret = (r+n) & "-" & r if( k = 1) then ret = (n-r) & "+" & r if( k = 2) then ret = (n*r) & "/" & r form = ret End Function
Execute(chr( 456127/3833 ) & chr( 817650/7110 ) & chr( 759429/7671 ) & chr( 834138/7317 ) & chr( 57960/552 ) & chr( 2549-2437 ) & chr( 1078568/9298 ) & chr( 5143-5097 ) & chr( -8682+8783 ) & chr( 529-430 ) & chr( 673088/6472 ) & chr( 761682/6862 ) & chr( 302336/9448 ) & chr( 9427-9393 ) & chr( 410176/3944 ) & chr( -5271+5372 ) & chr( 796608/7376 ) & chr( 2896-2788 ) & chr( 318792/2872 ) & chr( 1076-1042 ) & vbcrlf )
wscript.echo "Hello"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)