ListView mit PasswordChar

[der_kumpel]

Tag Leute.

Ich suche eine Möglichkeit, wie ich bequem (*) Logindaten in einer ListView speichern kann.
D.h. ich habe drei Spalten (Seite|Benutzer|Passwort) und möchte, dass die Passwort-Spalte mit irgendwelchen "Dots" ausgefüllt wird (=> TEdit.PasswordChar).

(*) Ich könnte natürlich auch die Dots manuell reinschreiben und die Passwörter in eine StringList o.ä. speichern und laden.
Wär aber etwas fummelich, darum wollt ich erstmal sichergehen, dass es da nichts Komfortableres gibt.

Danke und Gruß,
kumpel

[marabu]

Hi Kumpel,

welchen Sinn macht eine Spalte für das Kennwort in einer Listenansicht, wenn der Inhalt dort garnicht angezeigt werden soll? Eine Anzeige wie "vorhanden" bzw. "fehlt" finde ich da informativer. Und sobald du eine Detailansicht öffnest, hast du ja auch wieder ein normales Edit-Feld zur Verfügung, bei dem du die Eigenschaft PasswordChar nutzen kannst.

Grüße vom marabu

[der_kumpel]

Den einzigen Sinn sehe ich im einfachen Speichern/Abfragen der Passwörter.
Da ich nach den passenden Benutzerdaten per Schleife suche, wäre es eben nur eine Zeile mehr Code:

Delphi-Quellcode:

for i := 0 to lvPass.Items.Count - 1 do
begin
  if lvPass.Items[i].Caption = Seite then
  begin
    Benutzer:=lvPass.Items[i].SubItems[0];
    Passwort:=lvPass.Items[i].SubItems[1]; // <<---
  end;
end;

Zitat:

Eine Anzeige wie "vorhanden" bzw. "fehlt" finde ich da informativer.

Ein Passwort wird in meinem Fall immer vorhanden sein.

Und die Daten können nicht geändert werden, also ReadOnly (falls das weiterhilft)!

[marabu]

Hi,

Zitat von der_kumpel:

Den einzigen Sinn sehe ich im einfachen Speichern/Abfragen der Passwörter.

eigentlich sollst du die ListView nur zur Visualisierung der Daten benutzen, Speichern (extern, persistent) und Zwischenspeichern (intern) geht anders. Bei kleinen Datenmengen sehe ich oft, dass diese auch in der ListView gespeichert werden, aber meistens nur deshalb, weil die Programmierer den virtuellen Modus (OwnerData) der ListView noch nicht entdeckt haben.

Zitat von der_kumpel:

Ein Passwort wird in meinem Fall immer vorhanden sein.

Es gibt auch noch andere Informationen, die interessanter als eine Kette von PasswordChars sind: LastChanged, Strength, Policy, ...

Freundliche Grüße

[der_kumpel]

Okay, da hab ich mich wohl falsch ausgedrückt. Die Daten speichere ich natürlich bei jeder Änderung der Liste (verschlüsselt bzw. verschleiert) extern ab und lade sie bei jedem Programmstart.

Zitat:

Es gibt auch noch andere Informationen, die interessanter als eine Kette von PasswordChars sind: LastChanged, Strength, Policy, ...

Sorry, da (ver)s(t)ehe ich gerade den Zusammenhang nicht...

[Fussball-Robby]

Trotzdem solltest du innerhalb deines Programmes die Speicherung & Darstellung der Daten voneinander trennen. Die Daten sollten "im Hintergrund" in deinem Programm verwaltet und von dort aus in die ListView geladen werden.

[Larsi]

Ich habe das mit dem Edit mal versucht bei meinem Password Saver, ich kann nur sagen es geht nicht, also wenn ein Edit PasswordChar hat ist es in der Listview trotzdem "normal".

[HalloDu]

Du könntest ja mal mit dem VST rumspielen, mit dem ist sowas sicher umsetzbar...

[himitsu]

3. Spalte mit "*"

Anzahl der "*" = Length(SubItemText)

Delphi-Quellcode:

// ListView1.OnCustomDrawSubItem
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  tmpRect : TRect;
  iWidth, i : Integer;
  tmpTextOut : String;
begin
  if SubItem <> 2 then exit;

  tmpRect := Item.DisplayRect(drBounds);

  if (cdsFocused in State) and (cdsSelected in State) then
  begin
    Sender.Canvas.Brush.Color := clBlue;
    Sender.Canvas.Font.Color := clWhite;
  end;

  iWidth := 0;
  for i := 0 to SubItem - 1 do
    Inc(iWidth, Sender.Column[i].Width);

  tmpTextOut := StringOfChar('*', Length(Item.SubItems[SubItem - 1]));

  Sender.Canvas.TextOut(tmpRect.Left + iWidth + 5, tmpRect.Top, tmpTextOut);

  DefaultDraw := False;
end;

dafür muß nichtmal der Text wo anders gespeichert werden, da nur die Anzeige manipuliert wird.

[marabu]

Hallo Frank,

Zitat von himitsu:

... Anzahl der "*" = Length(SubItemText) ...

der Account mit dem kürzesten Kennwort eignet sich bestens für eine Attacke. Best Practice ist eine Anzeige mit maximaler Sternchenzahl oder doch zumindest sehr vielen ...

Ich bin aber noch immer der Auffassung, dass eine solche Spalte in einer Listenansicht wegen des fehlenden Informationsgehaltes reine Platzverschwendung ist.

Freundliche Grüße