Question

Подскажите пожалуйста пример программы генерирования паролей на Pascal

Answer 1

uses crt;
var s:string;
      i,k:byte;
begin
 randomize; s:='';
for i:=1 to 10 do
 begin
  repeat
   k:=48+random(75);
   until k in [48..57,97..122];
  s:=s+chr(k);
 end;
write(s);
end.

Answer 2

Конечно! Вот пример программы на Pascal для генерации случайных паролей:

pascalCopy code
program PasswordGenerator;

uses
  SysUtils, Math;

const
  Alphabet = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*';

function GeneratePassword(length: Integer): string;
var
  i: Integer;
begin
  Randomize;
  Result := '';

  for i := 1 to length do
    Result := Result + Alphabet[Random(Length(Alphabet)) + 1];
end;

var
  passwordLength: Integer;
  generatedPassword: string;
begin
  Write('Enter the length of the password: ');
  ReadLn(passwordLength);

  if passwordLength <= 0 then
    WriteLn('Password length should be greater than 0.')
  else
  begin
    generatedPassword := GeneratePassword(passwordLength);
    WriteLn('Generated Password: ', generatedPassword);
  end;
end.

Эта программа будет запрашивать у пользователя длину желаемого пароля и затем генерировать пароль, состоящий из букв (в верхнем и нижнем регистре), цифр и специальных символов, указанных в строке Alphabet.