[ХОККЕЙ] Инсайд-прогноз на хоккей

Желательно хоть немного гуглить прежде чем агитировать народ скинуться на гуманитарную помощь мошенникам:

Спойлер

Ну и от себя хотел бы добавить про k**bet*com и их "инсайд", где ну просто смешно пытаются доказать, что данный прогноз у них, действительно, зашёл... На сайте в разделе "ИНСАЙД" у них можно скачать файл Excel'а и увидеть пароль. Нажимаем на этот закруглённый прямоугольник, находящийся в файле, вводим в окошко пароль и вуаля! Победа 1 команды, всё замечательно! Но разве что обделённые умом могут поверить в эту замануху...
А теперь мы снимаем защиту с листа и заходим в
-Сервис
-Макрос
-Редактор сценариев
и видим изнутри всю схему мошенничества. Созданы 4 листа, где 2-4 отвечают за исход (т.е. на втором листе Победа 1, на третьем листе Ничья и на четвёртом Победа 2). У кого не было уроков информатики в школе или те люди, кто с программой Excel на работе/учёбе не сталкивался - поведутся...
Похоже, что заработать в этой сфере можно лишь став таким же мошенником, либо перечитав множество книг и пройдя несколько курсов по беттингу)

Бесспорно - это дно))))))) только вот не золотое, а очень дешевая позолота)))

 

Все знают, что такие схемы существуют. Ты проверял именно их файлы?

 

Посмотрел несколько прогнозов на инсайд. Да, файл содержит несколько листов.

Вот содержимое UserForm1, где видно, что при разном пароле, разные варианты.

Спойлер: UserForm1

Rem Attribute VBA_ModuleType=VBAFormModule
Sub UserForm1
Rem Private Sub CommandButton1_Click()
Rem Dim pass, shPs, ps As Boolean
Rem pass = Array("12321", "19321", "54378", "09255", "12963", "90844", "67735", "73664", "26445", "29563")
Rem shPs = Array("0-0", "1-0", "0-1", "1-1", "2-0", "0-2", "2-1", "1-2", "2-2", "Др.Счет")
Rem For i = 0 To UBound(pass)
Rem If Me.TextBox1.Text = pass(i) Then
Rem Sheets(shPs(i)).Visible = True
Rem Sheets(shPs(i)).Activate
Rem ps = True
Rem End If
Rem Next
Rem If Not ps Then MsgBox "Неверный пароль", vbCritical ': Exit For
Rem Unload Me
Rem End Sub
Rem
Rem Private Sub Label1_Click()
Rem
Rem End Sub
End Sub

 

Но несколько из просмотренных файлов содержат всего один вариант.

Спойлер: UserForm1

Rem Attribute VBA_ModuleType=VBAFormModule
Sub UserForm1
Rem Private Sub CommandButton1_Click()
Rem Dim pass, shPs, ps As Boolean
Rem pass = Array("84517")
Rem shPs = Array("1-0")
Rem For i = 0 To UBound(pass)
Rem If Me.TextBox1.Text = pass(i) Then
Rem Sheets(shPs(i)).Visible = True
Rem Sheets(shPs(i)).Activate
Rem ps = True
Rem End If
Rem Next
Rem If Not ps Then MsgBox "Неверный пароль", vbCritical ': Exit For
Rem Unload Me
Rem End Sub
Rem
Rem Private Sub Label1_Click()
Rem
Rem End Sub
End Sub

Из 10 просмотренных файлов один с множеством вариантов паролей и исходов.

 

А сможешь посмотреть файл, который они в понедельник должны дать?

 

я ничего смотреть не буду, мне лень тратить время на очевидного мошенника

 

Да, могу, только, пожалуйста, напомни, когда выложат.
И всё же, факт мошенничества налицо.
Можно же заархиваровать текстовый файл в WinRar и запаролить, но они, скорее, откажутся.

 

Спасибо! Напомню. Просто если там будет только один вариант, то можно на него поставить.

 

Тоже уже об этом думал

 

Или они потом подчистили все и осталось по одному варианту. Так может быть?

 

Может. Хотя, почему пропустили один? Поэтому надо проверять с новыми.

 

А где ты нашел старые файлы прогнозов? На сайте не вижу ничего что можно скачать сейчас.

 

Спасибо! Сейчас посмотрю.

 

Спойлер: UserForm1

Rem Attribute VBA_ModuleType=VBAFormModule
Sub UserForm1
Rem Private Sub CommandButton1_Click()
Rem Dim pass, shPs, ps As Boolean
Rem pass = Array("787898", "343454", "656578", "85820", "55069", "92377", "11475", "64311", "576324", "271836", "665902", "189249", "994751", "074225", "054227", "229716", "839891", "320471", "373681", "056751", "253092", "300118", "779251", "660171", "879091", "992031", "664734", "868891", "752431", "853011", "218731", "321370", "239371", "176281", "298221", "235341")
Rem shPs = Array("Лист2", "Лист3", "Лист4", "Лист5", "Лист6", "Лист7", "Лист8", "Лист9", "Лист10", "Лист11", "Лист12", "Лист13", "Лист14", "Лист15", "Лист16", "Лист17", "Лист18", "Лист19", "Лист20", "Лист21", "Лист22", "Лист23", "Лист24", "Лист25", "Лист26", "Лист27", "Лист28", "Лист29", "Лист30", "Лист31", "Лист32", "Лист33", "Лист34", "Лист35", "Лист36", "Лист37")
Rem For i = 0 To UBound(pass)
Rem If Me.TextBox1.Text = pass(i) Then
Rem Sheets(shPs(i)).Visible = True
Rem Sheets(shPs(i)).Activate
Rem ps = True
Rem End If
Rem Next
Rem If Not ps Then MsgBox "Неверный пароль", vbCritical ': Exit For
Rem Unload Me
Rem End Sub
End Sub

Вот ещё один попался, самый первый матч.

 

Спойлер: Второй матч

Rem Attribute VBA_ModuleType=VBAFormModule
Sub UserForm1
Rem Private Sub CommandButton1_Click()
Rem Dim pass, shPs, ps As Boolean
Rem pass = Array("10633", "56122", "65963", "76554", "54369", "98745", "17612", "87311", "879789", "271836", "665902", "189249", "994751", "074225", "054227", "229716", "839891", "320471", "373681", "056751", "253092", "300118", "779251", "660171", "879091", "992031", "664734", "868891", "752431", "853011", "218731", "321370", "239371", "176281", "298221", "235341")
Rem shPs = Array("П1П1", "П1Н", "П1П2", "НП1", "НН", "НП2", "П2П1", "П2Н", "П2П2", "Лист11", "Лист12", "Лист13", "Лист14", "Лист15", "Лист16", "Лист17", "Лист18", "Лист19", "Лист20", "Лист21", "Лист22", "Лист23", "Лист24", "Лист25", "Лист26", "Лист27", "Лист28", "Лист29", "Лист30", "Лист31", "Лист32", "Лист33", "Лист34", "Лист35", "Лист36", "Лист37")
Rem For i = 0 To UBound(pass)
Rem If Me.TextBox1.Text = pass(i) Then
Rem Sheets(shPs(i)).Visible = True
Rem Sheets(shPs(i)).Activate
Rem ps = True
Rem End If
Rem Next
Rem If Not ps Then MsgBox "Неверный пароль", vbCritical ': Exit For
Rem Unload Me
Rem End Sub
Rem
Rem Private Sub Label1_Click()
Rem
Rem End Sub
Rem
Rem Private Sub UserForm_Click()
Rem
Rem End Sub
End Sub

Во втором тоже не всё ладушки.
То есть, получается, из 15 файлов 3 с множественными вариантами.

 

А эти 3 - первые матчи?

 

Нет, 1, 2 и 14 (пересматривать не хочется, но первые два точно и какой-то из последних).

 

А никто не попробует подобрать пароль к следующему "инсайду", у них же он из цифр только вроде

 

Тут вот в чём проблема. Паролей может быть много, для разных вариантов исхода. Подобрав один, можно попасть в проигрышный вариант. Вот 2 файла, в текстовом пароли. Попробуйте разные и увидите в чём дело. Пароли в верхней строчке текстового документа, в скобках.