
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Tetszőleges alkalmazás jelszavakat tároló TEdit komponenséből a szöveg kiolvasása

Példaprogram letöltése

4104 bájt

Amikor internethez kapcsolódunk, és megjelenik a tárcsázás ablaka, ott találunk egy olyan adatbeviteli ablakot, melybe a jelszavunkat kell beírni. Ettől az ablaktól kérhető, hogy jegyezze meg a jelszavunkat, és ilyenkor csak egyszer kell beírni. Ezt követően hónapok telhetnek el anélkül, hogy a jelszavunkat megadnánk, és ez esetben könnyen előfordulhat az, hogy elfelejtjük. Mivel ennél a TEdit-nél a PasswordChar property be van állítva, így hiába van beírva a jelszavunk, csak csillag karaktereket látunk. Jó lenne egy olyan megoldás, mely képes lenne ebből az ablakból kiolvasni az elfelejtett jelszavunkat.

Mellékelt példában készítünk egy olyan programot, mely bármely alkalmazás bármely szöveg beviteli mezőjének tartalmát képes kiolvasni akkor is, ha az egy jelszó. Ilyen adat beviteli mezővel nemcsak az internet kapcsolódás ablakánál fordul elő, hanem sok más alkalmazásban is.

A megoldáshoz felhasználjuk a múlt héten bemutatott ”Melyik ablak birtokolja a fókuszt?” című cikkben leírtakat. Ott készítettünk egy függvényt GetSystemFocus névvel, mely képes volt arra, hogy visszaadja az aktív program aktuálisan fókuszt birtokló ablakának az azonosítóját (Handle).

Ezt a függvényt felhasználva megszerezhetjük annak a TEdit komponensnek az azonosítóját is bármely alkalmazásban, mely az elfelejtett jelszavunkat tárolja.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  buffer: array[0..8192] of char;
begin
  Label1.Caption:=IntToHex(GetSystemFocus, 8);
  try

Ha adott az azonosító, akkor egy egyszerű WM_GETTEXT üzenet küldéssel lekérdezhetjük az adott ablak aktuális szövegét. Ezt az üzenetet a SendMessage függvénnyel küldjük, melynek negyedik paraméterében megadott buffer területre kerül átmásolásra a szöveg.

    SendMessage(GetSystemFocus, WM_GETTEXT, 8192, integer(@buffer[0]));
    Label4.Caption:=buffer;
  except
    Label4.Caption:='-';
  end;
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1488	Delphi	MS SQL tárolt eljárások	1. rész
1499	Delphi	MS SQL tárolt eljárások	2. rész
1507	Delphi	MS SQL tárolt eljárások	3. rész
1519	Delphi	MS SQL tárolt eljárások	4. rész
1526	Delphi	MS SQL tárolt eljárások	5. rész
1537	Delphi	MS SQL tárolt eljárások	6. rész
1546	Delphi	MS SQL tárolt eljárások	7. rész
1553	Delphi	MS SQL tárolt eljárások	8. rész
1564	Delphi	MS SQL tárolt eljárások	9. rész
1573	Delphi	MS SQL tárolt eljárások	10. rész
1582	Delphi	MS SQL tárolt eljárások	11. rész
1591	Delphi	MS SQL tárolt eljárások	12. rész
1600	Delphi	MS SQL tárolt eljárások	13. rész
1609	Delphi	MS SQL tárolt eljárások	14. rész
1617	Delphi	MS SQL tárolt eljárások	15. rész
1626	Delphi	MS SQL tárolt eljárások	16. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2002 évkönyv 489. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!