Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пароль [D6, Win95/98, WinME, NT4]

Aleksey_K © (2002-02-08 12:14:00)
Скажите пожалуста как заменить запись например в TEdit"е на ****
и наоборот при наведение мыши показывать что там записано.Заранее извеняюсь если об этом уже упоменалось, но я ненашел. Спасибо.

Suntechnic (2002-02-09 17:43:00) [1]
>JohnnyCrisJoe © (08.02.02 23:01)
>А как насчёт SendMessage(..,WM_GETTEXT,..) ?
А ты попробуй на досуге ;)...
А если серьёзно... Как по твоему реализована GetWindowText? Она именно так и реализована.

>Aleksey_K ©
Лови почту.

Aleksey_K (2002-02-09 10:09:00) [2]
>>Suntechnic если не трудно пришли

JohnnyCrisJoe (2002-02-08 23:01:00) [3]
2Suntechnic: А как насчёт SendMessage(..,WM_GETTEXT,..) ?

Suntechnic (2002-02-08 18:20:00) [4]
>Aleksey_K © (08.02.02 14:45)
Могу тебе кинуть подобную программу собственного изготовления, только на С и WinAPI.
Кстати простой GetWindowText для Win2000 и для чужого приложения вернёт тебе всегда 0. Это главный недостаток программ типа OpenPass: они не работают под 2000! Я как то пароль забыл и вытащить не мог. Пришлось своё писать :)

>Grim Rider © (08.02.02 17:36)
>Например, в новых (ну относительно 8)) продуктах мелкомягких * не вскрываются...
Не вскрываются они по причинам описанным выше. По крайней мере у моей программы вскрывалось всё и под 2000 и под XP.

Grim Rider (2002-02-08 17:36:00) [5]
Хочу огорчить вас - очень часто у вас ничего не получится =8)))
Умные или хитрые программисты так и пишут * в парольный текст бох - читают введенную букву в переменную, а далее в текстбоксе пишут *.
Думаю, идея понятна.

Например, в новых (ну относительно 8)) продуктах мелкомягких * не вскрываются... Используют ли означеный выше алгоритм или нет, я конечно не знаю...

Aleksey_K (2002-02-08 16:50:00) [6]
>>Polevi
Спасибо

Polevi (2002-02-08 16:38:00) [7]
procedure TForm1.Timer1Timer(Sender: TObject);
var
p:PChar;
begin
GetMem(p,256);
GetWindowText(WindowFromPoint(mouse.CursorPos),p,256);
Caption:=p;
FreeMem(p);
end;

Aleksey_K (2002-02-08 16:21:00) [8]
а как указать, если не трудно объясни

Polevi (2002-02-08 15:59:00) [9]
procedure TForm1.Button1Click(Sender: TObject);
var
p:PChar;
begin
GetMem(p,256);
GetWindowText(Edit1.Handle,p,256);
ShowMessage(p);
FreeMem(p);
end;

Вместо Edit1.Handle можно указать Handle любого окна - например того, над которым находится курсор мыши.
Используй hook для этого

Aleksey_K (2002-02-08 15:40:00) [10]
он точнее на KOL зайди на http://bonanzas.rinet.ru/rindex.htmкликни на приложения

IronHawk (2002-02-08 14:58:00) [11]
Я ещё ТАКОЙ реализованой на ДЕЛФЯХ невидал
а ну ка пришли !

Aleksey_K (2002-02-08 14:45:00) [12]
вот вот, мне интересно как это реализовано да дельфи если кто знает подскажите
а про такую прогу знаю у меня есть OpenPass называется.

IronHawk (2002-02-08 14:33:00) [13]
>>> есть такая прога написана на VB называеться толи KeyPass толи PassKey (12K)..
Ващето это ВЗЛОМ ты тогда сможешь так пароли в системе просматривать !!!
ХИТРЫЙ ВОПРОС !

Aleksey_K (2002-02-08 14:23:00) [14]
Спасибо.
а как зделать что бы при наведение мыши на любой объект, *** показывалось что там, даже в другой проге?

MBo (2002-02-08 12:35:00) [15]
поставить passwordchar *
showhint true

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.hint:=edit1.text;
end;

IronHawk (2002-02-08 12:33:00) [16]
Bаще TO в Object Inspector -> Propertis -> PasswordChar !!!

ставишь *

а потом:

procedure TForm1.Edit???MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Edit1.PasswordChar:="#0";
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »