Открыто

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

Тема в разделе "Спортивные события", создана пользователем adinram, 25 мар 2016.

Цена: 6000р.
Взнос: 6000р.

Основной список: 1 участников

  1. 25 мар 2016
    #1
    adinram
    adinram ЧКЧлен клуба
  2. Последние события

    1. Manc
      Manc не участвует.
      18 апр 2016
    2. Manc
      Manc участвует.
      18 апр 2016
    3. adinram
      adinram не участвует.
      28 мар 2016
    4. malichik
      malichik не участвует.
      25 мар 2016

    Последние важные события

    1. skladchik.com
      Нужен организатор складчины.
      25 мар 2016
    2. skladchik.com
      tarantas организатор.
      25 мар 2016
  3. Обсуждение
  4. 25 мар 2016
    #2
    SportLemon
    SportLemon ОргОрганизатор
    Желательно хоть немного гуглить прежде чем агитировать народ скинуться на гуманитарную помощь мошенникам:
    Ну и от себя хотел бы добавить про k**bet*com и их "инсайд", где ну просто смешно пытаются доказать, что данный прогноз у них, действительно, зашёл... На сайте в разделе "ИНСАЙД" у них можно скачать файл Excel'а и увидеть пароль. Нажимаем на этот закруглённый прямоугольник, находящийся в файле, вводим в окошко пароль и вуаля! Победа 1 команды, всё замечательно! Но разве что обделённые умом могут поверить в эту замануху...
    А теперь мы снимаем защиту с листа и заходим в
    -Сервис
    -Макрос
    -Редактор сценариев
    и видим изнутри всю схему мошенничества. Созданы 4 листа, где 2-4 отвечают за исход (т.е. на втором листе Победа 1, на третьем листе Ничья и на четвёртом Победа 2). У кого не было уроков информатики в школе или те люди, кто с программой Excel на работе/учёбе не сталкивался - поведутся...
    Похоже, что заработать в этой сфере можно лишь став таким же мошенником[​IMG], либо перечитав множество книг и пройдя несколько курсов по беттингу)
    Бесспорно - это дно))))))) только вот не золотое, а очень дешевая позолота)))
     
    4 пользователям это понравилось.
  5. 25 мар 2016
    #3
    adinram
    adinram ЧКЧлен клуба

    Все знают, что такие схемы существуют. Ты проверял именно их файлы?
     
  6. 25 мар 2016
    #4
    Ankit
    Ankit ЧКЧлен клуба
    Посмотрел несколько прогнозов на инсайд. Да, файл содержит несколько листов.
    upload_2016-3-25_18-15-53.jpeg
    Вот содержимое 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
     
  7. 25 мар 2016
    #5
    Ankit
    Ankit ЧКЧлен клуба
    Но несколько из просмотренных файлов содержат всего один вариант.
    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 просмотренных файлов один с множеством вариантов паролей и исходов.
     
  8. 25 мар 2016
    #6
    adinram
    adinram ЧКЧлен клуба
    А сможешь посмотреть файл, который они в понедельник должны дать?
     
  9. 25 мар 2016
    #7
    SportLemon
    SportLemon ОргОрганизатор
    я ничего смотреть не буду, мне лень тратить время на очевидного мошенника
     
  10. 25 мар 2016
    #8
    Ankit
    Ankit ЧКЧлен клуба
    Да, могу, только, пожалуйста, напомни, когда выложат.
    И всё же, факт мошенничества налицо.
    Можно же заархиваровать текстовый файл в WinRar и запаролить, но они, скорее, откажутся.
     
  11. 25 мар 2016
    #9
    adinram
    adinram ЧКЧлен клуба
    Спасибо! Напомню. Просто если там будет только один вариант, то можно на него поставить.;)
     
  12. 25 мар 2016
    #10
    Ankit
    Ankit ЧКЧлен клуба
    Тоже уже об этом думал :)
     
  13. 25 мар 2016
    #11
    adinram
    adinram ЧКЧлен клуба
    Или они потом подчистили все и осталось по одному варианту. Так может быть?
     
  14. 25 мар 2016
    #12
    Ankit
    Ankit ЧКЧлен клуба
    Может. Хотя, почему пропустили один? Поэтому надо проверять с новыми.
     
  15. 25 мар 2016
    #13
    adinram
    adinram ЧКЧлен клуба
    А где ты нашел старые файлы прогнозов? На сайте не вижу ничего что можно скачать сейчас.
     
  16. 25 мар 2016
    #14
    adinram
    adinram ЧКЧлен клуба
    Спасибо! Сейчас посмотрю.
     
  17. 25 мар 2016
    #15
    Ankit
    Ankit ЧКЧлен клуба
    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
    Вот ещё один попался, самый первый матч.
     
  18. 25 мар 2016
    #16
    Ankit
    Ankit ЧКЧлен клуба
    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 с множественными вариантами.
     
    1 человеку нравится это.
  19. 25 мар 2016
    #17
    adinram
    adinram ЧКЧлен клуба
    А эти 3 - первые матчи?
     
  20. 25 мар 2016
    #18
    Ankit
    Ankit ЧКЧлен клуба
    Нет, 1, 2 и 14 (пересматривать не хочется, но первые два точно и какой-то из последних).
     
    1 человеку нравится это.
  21. 25 мар 2016
    #19
    dvt04158
    dvt04158 ЧКЧлен клуба
    А никто не попробует подобрать пароль к следующему "инсайду", у них же он из цифр только вроде
     
  22. 25 мар 2016
    #20
    Ankit
    Ankit ЧКЧлен клуба
    Тут вот в чём проблема. Паролей может быть много, для разных вариантов исхода. Подобрав один, можно попасть в проигрышный вариант. Вот 2 файла, в текстовом пароли. Попробуйте разные и увидите в чём дело. Пароли в верхней строчке текстового документа, в скобках.
     

    Вложения:

    1 человеку нравится это.

Поделиться этой страницей