Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Генератор паролей

Автор: SneG0K 20.4.2008, 10:13

Все символы в системе хранятся в виде двоичных данных. Или кодов в таблице ASCII. Напишем генератор случаных паролей. И этот генератор всего в шесть строк.

Код


var
 a,i:integer;
 s:string;
begin
randomize;
 for i:=0 to 15 do
  begin
   a:=random(91)+33;
   s:=s+Chr(a);
  end;
 writeln(s);
end.

Реализация на паскале...

А вот реализация на дельфи

Код


program Genertor;

{$APPTYPE CONSLOE}

var
 a,i:integer;
 s:string;

begin
randomize;
 for i:=0 to 15 do
  begin
   a:=random(91)+33;
   s:=s+Chr(a);
  end;
 writeln(s);
end.

Автор: MetalFan 20.4.2008, 12:03

а как же учесть непечатные символы? а отсечь верхнюю часть таблицы ASCII, символы в которой чаще всего невозможно ввести с клавиатуры (Alt+код не считается).

Автор: SneG0K 20.4.2008, 13:44

Выбрать промежуток, между которыми будет случайное число. Пример отредактировал

Автор: VICTAR 20.4.2008, 14:07

S глобальная или локальная?
Если локальная, то ай-яй-яй!

Автор: SneG0K 20.4.2008, 14:19

Sглобальная. Это пример на паскале.

Как я выбрал промежуток? Я посмотрел на таблицу ASCII символов и заметил, что все печатаемые символы находятся в промежутке между 33 и 124

Автор: THandle 20.4.2008, 14:41

Цитата(SneG0K @ 20.4.2008, 15:19

)

Как я выбрал промежуток? Я посмотрел на таблицу ASCII символов и заметил, что все печатаемые символы находятся в промежутке между 33 и 124

SneG0K, а русские буквы как же?

Добавлено через 2 минуты и 6 секунд

Цитата

А вот реализация на дельфи

Как мне кажется в этом разделе как раз и должна быть такая реализация smile

Автор: SneG0K 20.4.2008, 14:45

Цитата

а русские буквы как же?

А где же ты видел пароли из русских букв? Кроме виндовса smile

Автор: THandle 20.4.2008, 14:49

Цитата(SneG0K @ 20.4.2008, 15:45

)

А где же ты видел пароли из русских букв?

Ну бывают. Например в WINDOWS. Хотя кому надо - те переделают. Коды символов с 192 по 255.

А так, молодец, продолжай развиваться smile

Автор: Sinneren 1.7.2009, 14:32

Подскажите пожалуйста, если я хочу только цифри\символы\буквы использовать то какие пормежутки рандома должны быть,а то сам сообразить чё-то не могу.
Спасибо заранее.