Как прочитать пароль, скрытый за звездочками?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure TForm1.Timer1Timer(Sender: TObject);
{©Drkb v.3(2007): www.drkb.ru}
var
Wnd : HWND;
lpClassName: array [0..$FF] of Char;
begin
Wnd := WindowFromPoint(Mouse.CursorPos);
GetClassName (Wnd, lpClassName, $FF);
if ((strpas(lpClassName) = 'TEdit') or (strpas(lpClassName) = 'EDIT')) then
PostMessage (Wnd, EM_SETPASSWORDCHAR, 0, 0);
end;
{©Drkb v.3(2007): www.drkb.ru}
var
Wnd : HWND;
lpClassName: array [0..$FF] of Char;
begin
Wnd := WindowFromPoint(Mouse.CursorPos);
GetClassName (Wnd, lpClassName, $FF);
if ((strpas(lpClassName) = 'TEdit') or (strpas(lpClassName) = 'EDIT')) then
PostMessage (Wnd, EM_SETPASSWORDCHAR, 0, 0);
end;
Автор ответа: Baa
Взято с Vingrad.ru http://forum.vingrad.ru
Здесь проблема: если страница памяти защищена, то её нельзя прочитать таким способом, но можно заменить PasswordChar(пример: поле ввода пароля в удаленном соединении)
Автор ответа: Mikel
Взято с Vingrad.ru http://forum.vingrad.ru
что за звёздачками!
не знаю чем заполнять.
Отправить комментарий