Функция для генерации простых логинов

  • Автор темы MODERN
  • Дата начала
MODERN
Участник
Сообщения
756
Реакции
130
Код:
function CreatePassword(passwordlen:integer;): string;
var
  rn,rm:integer;
  ipass,ppass,ichr:string;
  i:integer;
  chars,email:string;
  x:integer;
begin
  if passwordlen  raise exception.create('value "PasswordLen" is too short');
  ppass:='';
  chars:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
  for x:=1 to passwordlen do
  begin
    randomize;
    i := 1+random(61);
    ppass:=ppass + chars[i];
  end;
  result:=ppass;

end;
 
Сверху