Advertisement
Guest User

Untitled

a guest
Oct 25th, 2016
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.10 KB | None | 0 0
  1. var Args=WScript.Arguments;
  2. if (Args.Count() < 2 | Args.Count()>2)
  3. {
  4. throw new Error("\nUsage:CScript encode.js <input file> <output file>");
  5. }
  6.  
  7. var inputFile=Args(0);
  8. var outputFile= Args(1);
  9.  
  10. fso = new ActiveXObject ("Scripting.FileSystemObject");
  11. fh = fso.OpenTextFile(inputFile,1,false,-1);
  12. var str = fh.ReadAll();
  13. fh.Close();
  14.  
  15. var i = 1, n = 0, k = 0;
  16. for(; i <= str.length; i++)
  17. {
  18. if(str.charAt(i-1) == str.charAt(i) && n <= 127)
  19. {
  20. n++;
  21. if(k > 0)
  22. {
  23. str = str.substr(0, i - k + 1) + String.fromCharCode(127+k) + str.substr(i - k + 1, str.length);
  24. i++;
  25. k = 0;
  26. }
  27. }
  28. else
  29. {
  30. k++;
  31. if(n > 0)
  32. {
  33. str = str.substr(0, i - n - 1) + String.fromCharCode(n-1) + str.substr(i - 1, str.length);
  34. i = i - n - 1;
  35. n = 0;
  36. k = 0;
  37. }
  38. }
  39. }
  40. if(k > 0)
  41. {
  42. str = str.substr(0, i - k + 1) + String.fromCharCode(127+k) + str.substr(i - k + 1, str.length);
  43. i++;
  44. k = 0;
  45. }
  46.  
  47. WSH.Echo(str);
  48. fso1= new ActiveXObject("Scripting.FileSystemObject");
  49. fh1= fso1.OpenTextFile(outputFile,2,true,-1);
  50. fh1.WriteLine(str);
  51. fh1.Close();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement