Как увидеть пароль спрятанный под звёздочками?

Создание и использование DLL:

«Как увидеть пароль спрятанный под звёздочками?». Для этого есть куча разных прог. Но мы же с тобой совместимые челы, поэтому не юзаем чужие творения. Вот поэтому мы создадим такую прогу сами. Тем более, что сам попросил объяснить, как это работает.

Шкодинг:

Для этого примера я написал DLL файл, который будет сейчас расписан перед твоими глазами. Ничего особо визуального мы сегодня делать не будем. Только кодинг и ничего больше. Кстати, я уже перешёл на Delphi 6, так что все исходники теперь будут писаться в нём. Если ты до сих пор застрял в Delphi 5, то бегом на рынок за свеженьким диском.

Для начала создадим новый проект. Но не тот, который использовали до этого, а проект DLL библиотеки. Для этого выбирай меню File->New->Other … (для Delphi 5 это просто File->New). Перед тобой откроется окно. Найди здесь пункт DLL Wizard и дважды кликни по нему. Delphi создаст пустой проект DLL библиотеки. Сразу нажми пимпу «Save», чтобы сохранить проект. В качестве имени введи «hackpass», это же и будет именем dll файла.

Теперь сотри весь текст, который написал Delphi и напиши то, что находится у меня во врезке «исходный текст dll файла».

Теория:

Самое основное в нашей DLL – это процедура RunStopHook. Ей передаётся один только параметр. Если он равен true, то я регистрирую ловушку, которая будет ловить все сообщения Windows на себя. Для этого используется функция SetWindowsHookEx. У этой функции четыре параметра:

1. Тип ловушки. Я указал WH_GETMESSAGE, которая ловит все сообщения.

2. Указатель на функцию, которой будут пересылаться сообщения Windows.

3. Указатель на приложение

4. Идентификатор потока. Если ноль, то используется текущий.

В качестве второго параметра я указал имя функции SysMsgProc. Она так же описана в этой dll. Давай на неё посмотрим.

Ловушка для сообщений:

В первой строке я передаю пойманное сообщение остальным ловушкам установленным в системе с помощью CallNextHookEx. После этого я получаю окно сгенерировавшее событие и проверяю тип события. Если была кликнута левая кнопка крысы и удержана пимпа Control, то убрать звёздочки.

Я не могу больше останавливаться на этой DLL потому что моя рубрика не резиновая. Придётся тебе разбираться с происходящим по комментариям.

Юзаем DLL:

Теперь напишем прогу, которая будет загружать DLL и запускать ловушку. Для этого создай новый проект (такие мы уже создавали). Перейди в исходник, и найди раздел var. Рядом должно быть написано что-то типа «Form1: TForm1». Допиши сюда строку:

procedure RunStopHook(State : Boolean) stdcall; external 'hackpass.dll' index 1;


В этой строке я объясняю Delphi, что есть такая функция RunStopHook, которая находится в написанной мной библиотеке hackpass.dll и её индекс = 1. Вот по этому индексу Delphi и будет вызывать функцию. Можно конечно же и по имени, но это будет немного медленней.

Теперь создай обработчик события для формы OnShow и напиши там:

RunStopHook(true);


И наконец создай обработчик события OnClose и напиши:

RunStopHook(false);


Кранты паролям:

Всё наше приложение готово. Запусти его. Потом перейди в окно со строкой ввода и кликни там левой кнопкой крысы удерживая Control. Звёздочки моментально превратятся в реальный текст.

Для большего эффекта можешь бросить на форму проги загружающей DLL, какую-нибудь картинку. Ну а если что-то не понятно, то просто тренируйся. Со временем всё само придёт. Главное практика.

Исходный текст dll файла:


library hackpass;   
  
uses Windows, Messages;   
var   
 SysHook : HHook = 0;   
 Wnd : Hwnd = 0;   
  
function SysMsgProc(code : integer; wParam : word;  
 lParam : longint) : longint; stdcall;  
begin  
//Передать сообщение другим ловушкам в системе  
 CallNextHookEx(SysHook, Code, wParam, lParam);  
//Проверяю сообщение  
 if code = HC_ACTION then   
  begin   
//Получаю идентификатор окна сгенерировавшего сообщение  
   Wnd := TMsg(Pointer(lParam)^).hwnd;  
  
//Проверяю тип сообщения.   
//Если была нажата левая кнопка мыши   
//и удержана кнопка Control, то …  
   if TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN then  
   if ((TMsg(Pointer(lParam)^).wParam and MK_CONTROL) = MK_CONTROL) then  
    begin   
// Убрать в окне отправившем сообщение звёздочки  
     SendMessage(Wnd, em_setpasswordchar, 0, 0);  
//Перерисовать окно.  
     InvalidateRect(Wnd, nil, true);  
    end;   
  end;   
end;  
  
// Процедура запуска.  
procedure RunStopHook(State : Boolean) export; stdcall;  
begin  
//Если State = true, то …  
 if State=true then  
  begin  
//Запускаем ловушку.   
   SysHook := SetWindowsHookEx(WH_GETMESSAGE,  
      @SysMsgProc, HInstance, 0);  
  end  
 else//Иначе  
  begin  
//Отключить ловушку.   
   UnhookWindowsHookEx(SysHook);  
   SysHook := 0;  
  end;  
end;  
  
exports RunStopHook index 1;  
  
begin  
end.  
  пароль
Похожие новости:
Добавлено: 21 Июля 2018 12:21:39 Добавил: Андрей Ковальчук
Добавить