Results 1 to 3 of 3

Thread: Sterk wachtwoord

  1. #1
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747

    Sterk wachtwoord

    Met deze functie controleer ik of een wachtwoord wel sterk genoeg is
    delphi Code:
    1. type
    2.    TDigits = set of '1'..'9';
    3.    TLower  = set of 'a'..'z';
    4.    TUpper  = set of 'A'..'Z';
    5.  
    6.  
    7. function TFrmWachtwoord.StrongPassword : boolean;
    8. var Digits   : TDigits;
    9.     Lower    : TLower;
    10.     Upper    : TUpper;
    11.     aCkTeller : array[0..2] of byte;
    12.     WW       : string;
    13.     Index    : integer;
    14. begin
    15.  result := false;
    16.  WW := EWachtwoord.Text;
    17.  aCkTeller[0] := 0;
    18.  aCkTeller[1] := 0;
    19.  aCkTeller[2] := 0;
    20.  for Index := 1 to length(WW) do
    21.  begin
    22.    if WW[index] in Digits then
    23.      aCkTeller[0] := aCkTeller[0] + 1
    24.    else if WW[index] in Lower then
    25.      aCkTeller[1] := aCkTeller[1] + 1
    26.    else if WW[index] in Upper then
    27.      aCkTeller[2] := aCkTeller[2] + 1
    28.  end;
    29.  result := (aCkTeller[0] > 1) and (aCkTeller[1] > 1) and (aCkTeller[2] > 1);
    30. end;
    Als ik wachtwoord 'Bell1234' controleer, komt de functie terug met de waarde false. De waarde aCkTeller geeft dan ook {4,0,1}. Dat false terug wordt gegeven, klopt wel, maar volgens het wachtwoord moet aCkTeller[1] de waarde 3 hebben en niet 0.

    Wat is er dan fout aan deze functie

  2. #2
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Je hebt in feite ongeinitializeerde variabelen. Alleen het TYPE ervan (de range) is door de bovenstaande code gedefinieerd (b.v. digits bevat alleen tussen '1'..'9'), niet de inhoud ervan.

    Doe gewoon
    const digits=['0'..'9'];

  3. #3
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747
    bedankt.. Was die optie even vergeten

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •