Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Генератор паролей 
:(
    Опции темы
xkodex
  Дата 14.2.2007, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Возникла необходимость создать генератор паролей. На пароль накладываются следующие требования. Состоит только из 6 символов и только цифр. Создание такого генератора не вызвало у меня трудностей. Но генерацию пароля нужно связать с логином. Причём к одному логину должно генерироваться лишь несколько вариантов пароля. Как же такое реализвать? У меня есть мысли по поводу связи латинского алфавита с цифрами. Может быть кто нибудь этим занимался? Помогите плизз.
PM MAIL WWW   Вверх
cardinal
Дата 14.2.2007, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99





--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
xkodex
Дата 14.2.2007, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



cardinal 
что-то там странное...какие-то два безумных генератора паролей...
PM MAIL WWW   Вверх
cardinal
Дата 14.2.2007, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



В смысле безумных? Я не смотрел конечно, но там же разные есть. Бери тебе подходящий и пользуйся...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Akina
Дата 14.2.2007, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
xkodex
Дата 14.2.2007, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



cardinal 
у меня генератор специфический)
PM MAIL WWW   Вверх
JusTalionis
Дата 15.2.2007, 13:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 17



Ну, скажем, так:
Код

'преобразование логина в число
For i = 1 To Len(login$)
  a = Asc(Mid$(login$, i, 1))   'побуквенное чтение логина
  hash = (a * (7 ^ (i Mod 9)) + hash) And &HFFFFFFF     'хеш-функция, любая какую придумаешь
Next i

'добавление трех случайных вариантов для логина
Randomize (Timer): hash = hash + Int(Rnd() * 3)

'получение шести псевдослучайных цифр пароля, тоже, в общем-то любая ф-ция
passw$ = Mid(Trim(Str$(Abs(Sin(hash / 77)))) + "875693421", 3, 6)



PM MAIL   Вверх
xkodex
Дата 16.2.2007, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



JusTalionis 
спасибо большоеsmile
посмотю как всё работаетsmile
PM MAIL WWW   Вверх
xkodex
Дата 17.2.2007, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Есть функции которые нет в библиотеки VBA, а в VB6 она есть. Например такие функции как Trim() Mid(). Типа такой библиотеки не существует. Как её подключить? Точнее я знаю как они подключается. Но какую именно нужно подключить чтобы хотя бы эти функции работали в VBA.
PM MAIL WWW   Вверх
Akina
Дата 18.2.2007, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(xkodex @  17.2.2007,  23:43 Найти цитируемый пост)
Например такие функции как Trim() Mid(). 

Всю жизнь использую их в VBA - работают, подлюки... что я не так делаю?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
JusTalionis
Дата 19.2.2007, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 17



Цитата(xkodex @  17.2.2007,  22:43 Найти цитируемый пост)
такие функции как Trim() Mid(). 

Попробуй написать их Mid$() и Trim$(). VB6 позволяет в некоторых случаях опускать строковый значок $. Мой код реально проверил в VB6 и в нем, как видишь, в начале Mid$(), а в конце Mid(), оба варианта прокатили, я даж только сейчас заметил. Какой вариант написания хочет VBA - выясни сам.


PM MAIL   Вверх
xkodex
Дата 21.2.2007, 00:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



ни Mid$() ни Mid() не работаетsmile
Всё так же... smile 
PM MAIL WWW   Вверх
JusTalionis
Дата 21.2.2007, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 17



Попробуй такую комбинацию Ltrim(Rtrim()). Trim просто усекает пробелы по концам строки, которые образуются при преобразовании числа в строку. Ну, или попробуй вместо Str$() ф-цию Format(), говорят она преобразует без пробелов. Если заработает (сам не пользовал).

А Right$() и Left$() использовать умеешь? Попробуй ими, правда громоздко выйдет.

Mid$ выделяет с указанного места строки один или несколько символов. Вместо нее можно использовать комбинацию Right$(Left$(..,..),..), правда тоже весьма громоздко получится.

PM MAIL   Вверх
xkodex
Дата 22.2.2007, 01:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



может у меня глюки...вроде не пью...
Right$(Left$(..,..),..) эта конструкция тоже не работает.Несоответствие типов...
 smile 
PM MAIL WWW   Вверх
JusTalionis
Дата 22.2.2007, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 17



А как именно ты эту конструкцию использовал?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0837 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.