Пароль

← →
Aleksey_K © (2002-02-08 12:14) [0]

Скажите пожалуста как заменить запись например в TEdit"е на ****
и наоборот при наведение мыши показывать что там записано.Заранее извеняюсь если об этом уже упоменалось, но я ненашел. Спасибо.

← →
IronHawk © (2002-02-08 12:33) [1]

Bаще TO в Object Inspector -> Propertis -> PasswordChar !!!

ставишь *

а потом:

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

← →
MBo © (2002-02-08 12:35) [2]

поставить passwordchar *
showhint true

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

← →
Aleksey_K © (2002-02-08 14:23) [3]

Спасибо.
а как зделать что бы при наведение мыши на любой объект, *** показывалось что там, даже в другой проге?

← →
IronHawk © (2002-02-08 14:33) [4]

>>> есть такая прога написана на VB называеться толи KeyPass толи PassKey (12K)..
Ващето это ВЗЛОМ ты тогда сможешь так пароли в системе просматривать !!!
ХИТРЫЙ ВОПРОС !

← →
Aleksey_K © (2002-02-08 14:45) [5]

вот вот, мне интересно как это реализовано да дельфи если кто знает подскажите
а про такую прогу знаю у меня есть OpenPass называется.

← →
IronHawk © (2002-02-08 14:58) [6]

Я ещё ТАКОЙ реализованой на ДЕЛФЯХ невидал
а ну ка пришли !

← →
Aleksey_K © (2002-02-08 15:40) [7]

он точнее на KOL зайди на http://bonanzas.rinet.ru/rindex.htm кликни на приложения

← →
Polevi © (2002-02-08 15:59) [8]

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 16:21) [9]

а как указать, если не трудно объясни

← →
Polevi © (2002-02-08 16:38) [10]

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:50) [11]

>>Polevi
Спасибо

Хочу огорчить вас - очень часто у вас ничего не получится =8)))
Умные или хитрые программисты так и пишут * в парольный текст бох - читают введенную букву в переменную, а далее в текстбоксе пишут *.
Думаю, идея понятна.

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

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

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

2Suntechnic: А как насчёт SendMessage(..,WM_GETTEXT,..) ?

>>Suntechnic если не трудно пришли

>JohnnyCrisJoe © (08.02.02 23:01)
>А как насчёт SendMessage(..,WM_GETTEXT,..) ?
А ты попробуй на досуге ;)...
А если серьёзно... Как по твоему реализована GetWindowText? Она именно так и реализована.

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

Пароль Найти похожие ветки