VPF::Генератор паролей - Форум программистов

SneG0K

Дата 20.4.2008, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

Все символы в системе хранятся в виде двоичных данных. Или кодов в таблице 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.

Это сообщение отредактировал(а) SneG0K - 20.4.2008, 14:34

MetalFan

Дата 20.4.2008, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

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

--------------------

There are always someone smarter than you...

SneG0K

Дата 20.4.2008, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

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

VICTAR

Дата 20.4.2008, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

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

SneG0K

Дата 20.4.2008, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

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

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

THandle

Дата 20.4.2008, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

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

)

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

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

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

Цитата

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

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

SneG0K

Дата 20.4.2008, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

Цитата

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

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

Это сообщение отредактировал(а) SneG0K - 20.4.2008, 14:51

THandle

Дата 20.4.2008, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

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

)

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

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

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

Sinneren

Дата 1.7.2009, 14:32 (ссылка)

(нет голосов)

Загрузка ...

{YaGoo}

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 20.3.2009
Где: Уфа

Репутация: нет
Всего: 1

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »