Re: Password Generator

"Ryan Styles" <Ryan@xxxxxxxxxx> wrote in message
news:ge6tl1pi10eet2nqm2mbvs37opn4mtq6qp@xxxxxxxxxx
> Hi all.
>
> I need to make a password generator which supports plain text, numeric
> and alphanumeric. Can anyone give me a steer in the right direction so
> I can find my way in coding this? A link to a resource would be
> helpful. Just anything to get me going on learning.

const
LowerAlpha = 'abcdefghijklmnopqrstuvwxyz';
UpperAlpha = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Numbers = '0123456789';

function AlphaPassword( NumChars: integer): string;
var
Upper: Boolean;
CharCount: integer;
TempString: string;
begin
TempString := '';
for CharCount := 1 to NumChars do
begin
Upper := ( (random(10) + 1) > 5 );
if Upper then
TempString := TempString + UpperAlpha[random(26)+1]
else
TempString := TempString + LowerAlpha[random(26)+1];
end;
result := TempString;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := AlphaPassword(10);
end;

initialization
randomize;
end.

Similar functions could be written to return alphnumeric
and numeric passwords.


.

Quantcast