Функция PassHash (шифрует пароль)

'в модуль

Public Function PassHash(Pass As String) As Long

Dim I As Long
Dim L As Long

Dim S As Double
Dim K As Double L = Len(Pass)
For I = 1 To L
K = 1 + 1 * (I / L)
S = S + Asc(Mid$(Pass, I, 1)) * K
Next I S = S / L
PassHash = Int(S) * 1000000 + (S - Int(S)) * 1000000000

End Function

'использование
H = PassHash("GoodPassword")
'При этом получаем значение 938777778, которое и записываем в любое, даже
'самое доступное место.

'При следующем вводе пароля опять вычисляем Hash и сравниваем его с

'сохранённым.
'Функция чувствительна к регистру, перемене букв местами.

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Функция PassHash (шифрует пароль)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!