Открыто

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

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

Метки:
Цена: 6000р.
Взнос: 6000р.

Резервный список:

  1. 1.Kuber  
  1. adinram

    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

      tarantas организатор складчины.

      25 мар 2016
  3. SportLemon

    SportLemon SportLemon ЧКЧлен клуба

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

    adinram adinram ЧКЧлен клуба


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

    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
     
  6. Ankit

    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 просмотренных файлов один с множеством вариантов паролей и исходов.
     
  7. adinram

    adinram adinram ЧКЧлен клуба

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

    SportLemon SportLemon ЧКЧлен клуба

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

    Ankit Ankit ЧКЧлен клуба

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

    adinram adinram ЧКЧлен клуба

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

    Ankit Ankit ЧКЧлен клуба

    Тоже уже об этом думал :)
     
  12. adinram

    adinram adinram ЧКЧлен клуба

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

    Ankit Ankit ЧКЧлен клуба

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

    adinram adinram ЧКЧлен клуба

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

    Ankit Ankit ЧКЧлен клуба


     
    lolitacity нравится это.
  16. adinram

    adinram adinram ЧКЧлен клуба

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

    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. Ankit

    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 с множественными вариантами.
     
    lolitacity нравится это.
  19. adinram

    adinram adinram ЧКЧлен клуба

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

    Ankit Ankit ЧКЧлен клуба

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

    dvt04158 dvt04158 ЧКЧлен клуба

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

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

  1. Сбор взносов (Спортивные события):
  2. Новые складчины (Спортивные события):