Password strength meter 2

...
However, currently I get followings:

passwords           Strength
---------------------------------------
0123456789         = Medium
01234567891       = Strong
01234567891012 = Very Strong

aabbccddee       = Medium
aabbccddeeffg   = Strong
aabbccddeeffgg = Very Strong

...
Medium strength password should at least contains; numbers and characters or numbers and symbols or characters and symbols with at least one upper or lower case.

Strong strength password should at least contains; numbers, characters and symbols with at least one upper or lower case.

Very Strong strength password should at least contains; numbers, characters and symbols with at least two upper or lower case.

AD1408 wrote:

Could anybody help with the above (my previous post #7) please?

Script is in Derek's post#6 ( PSM 2b.zip)

Hi Dmitry,

It seems nobody else around or can help.
Could you please help?

If you could just do the;
Very Strong strength password should at least contains; numbers, characters and symbols with at least two upper or lower case.
then I'll try to apply it strong and medium.

Here is the full script:

function StrengthMeter(sPassword: string): string;
var
LowerCase, UpperCase, Numbers, Symbols, Repeating, Pattern: boolean;
iLength, i: integer;

begin
LowerCase := False;
UpperCase := False;
Numbers   := False;
Symbols   := False;
Repeating := False;
Pattern   := False;

iLength := Length(sPassword);

for i := 1 to iLength do     // looks for the same character being repeated more than twice
   if ((ord(sPassword[i])) = (ord(sPassword[i+1]))) and ((ord(sPassword[i])) = (ord(sPassword[i+2]))) then Repeating := true;

for i := 1 to iLength do     // looks for a 2 digit recurring pattern (ie 121212 or ababab etc)
   if ((ord(sPassword[i])) = (ord(sPassword[i+2]))) and ((ord(sPassword[i+1])) = (ord(sPassword[i+3]))) then Pattern := true;

for i := 1 to iLength do
   if (ord(sPassword[i]) >= 97) and (ord(sPassword[i]) <= 122) then LowerCase := True;

for i := 1 to iLength do
   if (ord(sPassword[i]) >= 65) and (ord(sPassword[i]) <= 90) then UpperCase := True;

for i := 1 to iLength do
   if (ord(sPassword[i]) >= 48) and (ord(sPassword[i]) <= 57) then Numbers := True;

for i := 1 to iLength do
   if not((ord(sPassword[i]) >= 97) and (ord(sPassword[i]) <= 122)) and
      not((ord(sPassword[i]) >= 65) and (ord(sPassword[i]) <= 90)) and
      not((ord(sPassword[i]) >= 48) and (ord(sPassword[i]) <= 57)) then Symbols := True;

   if iLength <= 4 then result := 'Very weak';
   if (iLength >=5) and (iLength <=6) then
      begin
      if LowerCase and UpperCase and Numbers and Symbols then result := 'Medium'
      else if LowerCase and UpperCase and Numbers then result := 'Weak'
      else if LowerCase and UpperCase then result := 'Weak'
      else result := 'Very weak';
      if Repeating or Pattern then result := 'Very weak';
      end;

   if (iLength >=7) and (iLength <=8) then
      begin
      if LowerCase and UpperCase and Numbers and Symbols then result := 'Strong'
      else if LowerCase and UpperCase and Numbers then result := 'Medium'
      else if LowerCase and UpperCase then result := 'Weak'
      else result := 'Weak';
      if Repeating or Pattern then result := 'Weak';
      end;

    if (iLength >=9) and (iLength <=10) then
       begin
       if LowerCase and UpperCase and Numbers and Symbols then result := 'Very Strong'
       else if LowerCase and UpperCase and Numbers then result := 'Strong'
       else if LowerCase and UpperCase then result := 'Medium'
       else result := 'Medium';
       if Repeating or Pattern then result := 'Weak';
       end;

    if (iLength >=11) and (iLength <=13) then
       begin
       if LowerCase and UpperCase and Numbers and Symbols then result := 'Very Strong'
       else if LowerCase and UpperCase and Numbers then result := 'Very Strong'
       else if LowerCase and UpperCase then result := 'Strong'
       else result := 'Strong';
       if Repeating or Pattern then result := 'Weak';
       end;

    if (iLength >=14) then
       begin
       if Repeating or Pattern then result := 'Medium'
       else result := 'Very Strong';
       end;
 end;



procedure Form1_Edit1_OnChange (Sender: string; vdup: string);
begin
Form1.Label1.Caption := StrengthMeter(Form1.Edit1.Text);

//Clearing strengt panel when password field is empty
if not (Form1.Edit1.text = '') then
   begin
   Form1.pnStrength.Visible := true;
   end else
   begin
   Form1.pnStrength.Visible := false;
   end;

// Coloring the strengt panel according the strength label text
if Form1.Label1.Caption = 'Very weak' then
   begin
   Form1.pnStrength.Color := clRed; // Very weak
   end;

if Form1.Label1.Caption = 'Weak' then
   begin
   Form1.pnStrength.Color := $0000009F; // Weak
   end;

if Form1.Label1.Caption = 'Medium' then
   begin
   Form1.pnStrength.Color := $000074DD; // Medium
   end;

if Form1.Label1.Caption = 'Strong' then
   begin
   Form1.pnStrength.Color := $00C08000; // Strong
   end;

if Form1.Label1.Caption = 'Very Strong' then
   begin
   Form1.pnStrength.Color := $0000A800; // Very Strong
   end;
end;


begin

end.