Цитата:
|
Сообщение от 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 символов, содержащие в перемешку цифры и дуквы в верхнем и нижнем регистре, но чё-то мне подсказывает, что в основнои это будут таки буквы
