[PAMIR105]

Помогите! Я новичок, хочу создать генератор случайных кодов(Числа и буквы) И у меня ничего не выходит. Я совсем новичок.

[Vlad55]

Сообщение от PAMIR105

Помогите! Я новичок, хочу создать генератор случайных кодов(Числа и буквы) И у меня ничего не выходит. Я совсем новичок.

пишу наобум:

Код:

s:string; //пароль
a: integer; //случайное число до 255 
for i:=1 to 6 do
  beigin
     Randomize;
     a:=Random(256);
     if a<=65 then
       if a>=10 then
         s:=s+IntToStr(a div 10) //чтобы 1 цифра в пароль шла (1,2,3 и т.д.), а не число целиком (10,20, 30)
     else
       s:=chr(a) //если больше 65, значит можно транслировать число в буковку
  end 

Суть такова, если выпадает число до 65 то перевести в букву не получится, т.к. это в таблице символов какой-то управляющий символ или число. Чтоб не парится просто делим его на 10 и берем 1 цифру в парольку. Иначе можно число перевести в букву. В результате должны получаться пароли на 6 символов, содержащие в перемешку цифры и дуквы в верхнем и нижнем регистре, но чё-то мне подсказывает, что в основнои это будут таки буквы

[Страдалецъ]

И мой вариантик

Код:

Var
  Pass: String;
  PassLen,i: Integer;
begin
 Pass := ''; PassLen := 10;
 for i := 1 to PassLen
 do case Random(3)
    of 0: Pass := Pass + Chr(65+Random(26)); //Верхний регистр
       1: Pass := Pass + Chr(97+Random(26)); //Нижний регистр
       2: Pass := Pass + Chr(48+Random(10)); //Цифры
    end;
end;

[M-UNIT]

___deleted