Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Edit şifre gizleme
#1
Admin paneline sadece yetkisi olan kişiler giriş yapabiliyor. 
Adminin şifresini editde *** olarak gösteriyorum. Buraya kadar sorun yok. 
Edit.text admin şifresi *** iken kullanıcı adını değiştirip yeniden bir kullanıcı kaydettiğimde yeni oluşturduğum kullanıcıyı listwievde seçtiğimde dolaylı olarak admin şiftesi ortaya çıkıyor bu durumu nasıl çözerim?


procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if ListUser.Selected <> Nil then
  begin
    if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
    begin
      EditUserPassword.PasswordChar := '*';
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
    end
    else
    begin
      EditUserPassword.PasswordChar := #0;
      EditUserPassword.Text := ListUser.Selected.Subitems[1];
  end;
  end;
end;
Cevapla
#2
procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  EditUserPassword.Text := ''; // işinizi çözmüyormu yoksa konuyu yanlışmı anladım
 if ListUser.Selected <> Nil then
 begin
   if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
   begin
     EditUserPassword.PasswordChar := '*';
    EditUserPassword.Text := ListUser.Selected.Subitems[1];
   end
   else
   begin
     EditUserPassword.PasswordChar := #0;
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
 end;
 end;
end;
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#3
Sanırım yanlış anladınız, edit içinde admin şifresi **** iken şifrede değişiklik yapmadan yeni kullanıcı kaydettiğimde var olan admin **** şifresi yeni oluşturulan kullanıcının şifresi oluyor fakat bu şifrede görünür hale geldiğinden doğal olarak admin şifresi ortaya çıkıyor.
Cevapla
#4
(29-01-2019, Saat: 13:53)ahmetb Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Sanırım yanlış anladınız, edit içinde admin şifresi **** iken şifrede değişiklik yapmadan yeni kullanıcı kaydettiğimde var olan admin ****  şifresi yeni oluşturulan kullanıcının şifresi oluyor fakat bu şifrede görünür hale geldiğinden doğal olarak admin şifresi ortaya çıkıyor.

Fikir olarak yeni kullanıcı dediğinizde edit alanını önce boşaltın böylece ortada şifre kalmamış olacaktır.
Sonuç olarak yeni kullanıcı yeni şifre demektir
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#5
Neyse ya sanırım ben anlatamadım yada siz anlamadınız.
Cevapla
#6
(29-01-2019, Saat: 01:21)ahmetb Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Admin paneline sadece yetkisi olan kişiler giriş yapabiliyor. 
Adminin şifresini editde *** olarak gösteriyorum. Buraya kadar sorun yok. 
Edit.text admin şifresi *** iken kullanıcı adını değiştirip yeniden bir kullanıcı kaydettiğimde yeni oluşturduğum kullanıcıyı listwievde seçtiğimde dolaylı olarak admin şiftesi ortaya çıkıyor bu durumu nasıl çözerim?


procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if ListUser.Selected <> Nil then
  begin
    if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
    begin
      EditUserPassword.PasswordChar := '*';
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
    end
    else
    begin
      EditUserPassword.PasswordChar := #0;
      EditUserPassword.Text := ListUser.Selected.Subitems[1];
  end;
  end;
end;

EditUserPassword.PasswordChar := #0; atamasını neden yapıyorsunuz , özel bir sebebi var mı ?
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#7
Admin şifresi normal kullanıcılar tarafından görünmesin diye
Cevapla
#8
(31-01-2019, Saat: 21:58)ahmetb Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Admin şifresi normal kullanıcılar tarafından görünmesin diye

Hımm demek öyle Exclamation  Peki PasswordChar'a #0 karakterini atadığınızda ne olduğunu gözlemlediniz mi ? Basit bir button'un altında bir deneyin, bakalım ne göreceksiniz.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#9
(30-01-2019, Saat: 00:46)ahmetb Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Neyse ya sanırım ben anlatamadım yada siz anlamadınız.

Size hiç bir çıkarı olmadan yardım etmeye çalışan birine karşı üslubunuz hiç hoş değil, umarım siz de bunu fark edersiniz.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Yavru formda sifre turetirken hata alıyorum. burak 12 673 06-05-2019, Saat: 02:14
Son Yorum: OBK
  combobox veriyi edit text gösterme burak 3 182 28-04-2019, Saat: 20:13
Son Yorum: burak
  while ile sifre kontrolunu nasıl yapabilirim. burak 8 558 04-03-2019, Saat: 14:31
Son Yorum: ChangeoveR
  DBChart 0 gizleme r3n4m3 2 258 01-03-2019, Saat: 16:08
Son Yorum: r3n4m3
  FastReport - Runtime Band Gizleme - [ÇÖZÜLDÜ] hi_selamlar 5 539 10-01-2019, Saat: 23:02
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi