I made a password maker function for people making new accounts
and such.
I plan on continuing this with a account maker.
If you plan on using this Plus Rep ++ please.
SCAR Code:
function PassMaker(lengthofpass: integer): string;
var
chars, pass, passpart : string;
B, passnum : integer;
begin
chars := 'abcd efgh ijk lmnopqrs tuvwxyz123 45678 90';
passnum := 0;
repeat
passnum := passnum + 1;
B := random(42) + 1;
passpart := copy(chars, B, 1);
insert(passpart, pass, passnum);
until(passnum = lengthofpass);
result := pass;
end;
Sample Script: Just spits out passwords according to the length you set it.
SCAR Code:
program Passmaker;
function PassMaker(lengthofpass: integer): string;
var
chars, pass, passpart : string;
B, passnum : integer;
begin
chars := 'abcd efgh ijk lmnopqrs tuvwxyz123 45678 90';
passnum := 0;
repeat
passnum := passnum + 1;
B := random(42) + 1;
passpart := copy(chars, B, 1);
insert(passpart, pass, passnum);
until(passnum = lengthofpass);
result := pass;
end;
begin
cleardebug;
writeln(PassMaker(8));
end.