Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

Пароль 


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
Спасибо



Grim Rider   (2002-02-08 17:36) [12]

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

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



Suntechnic   (2002-02-08 18:20) [13]

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

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



JohnnyCrisJoe   (2002-02-08 23:01) [14]

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



Aleksey_K   (2002-02-09 10:09) [15]

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



Suntechnic   (2002-02-09 17:43) [16]

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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.021 c
1-79399           Aleksey_K             2002-02-08 12:14  2002.02.25  
Пароль


14-79446          Aleksandr             2002-01-08 15:16  2002.02.25  
Как выдернуть из упаковки инсталлшилда файлы?


3-79292           Guest.                2002-01-31 12:36  2002.02.25  
Params в Query


14-79460          False_Delirium        2002-01-05 06:48  2002.02.25  
Головой думать нужно...:)..или пища для размышления...


1-79325           Yaro                  2002-02-07 18:37  2002.02.25  
Как сделать LogOff (Windows XP)