| |
|
|
| | что-то голова не варит
нужна парная функция шифрующая/дешифрующая
для чего: хранить в базе зашифрованный пароль, при необходимости расшифровать и подставить в коннект 
ЗЫ. Обычно все вводят пароль сами, а тут надо автоматом расчеты запускать. Боюсь какие-нибудь шалавливые ручки залезут  (есть надежда, что так глубоко копать не будут) | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=635 | |
| |
| |
| |
|
|
| | За наводку спасибо, но для моих целей слишком наворочено 
Для будущего возьму на заметку  | |
| |
| |
| |
|
|
| | Да зашифруй сам, это конечно не защита от специалиста, но он любителя вполне... | |
| |
| |
| |
|
|
| | в общем наваял функцию, мож кому сгодится
Public Function CryptionString(sValue As String, Optional vDirection As Boolean = False) As String
' шифровка/дешифровка строк
'
' Вход:
' sValue - значение
' vDirection - направление шифрования
Dim prom As String
Dim i As Long
On Error GoTo Err_Debug
For i = 1 To Len(sValue)
prom = prom + Chr(Asc(Mid(sValue, i, 1)) + i * IIf(((i - vDirection) Mod 2) = 0, -1, 1))
Next i
Exit_Here:
CryptionString = prom
Exit Function
Err_Debug:
prom = vbNullString
Resume Exit_Here
End Function
|
| |
| |
| |
| |
|
|
| | а можно чуточку поподробнее - что делает функция, откуда чего берёт, куда отдаёт...  | |
| |
| |
| |
|
|
| | к примеру есть пароль soldicon12, чтобы не храниеть его открытым текстом зашифруем его
в immediate window наберем
?CryptionString("soldicon12", True)
|
полученное значение rqihdihv(< можно хранить как константу в базе, чтобы получить нормальное значение в программе вызвать функцию CryptionString("rqihdihv(<")
Пароль хранится в базе, но при беглом просмотре ничего не даст. Конечно от профи это не спасет, но на данный момент для меня достаточно | |
| |
| |
| |
|
|
| | хранить в базе список из 1000000 псевдопаролей один из которых настоящий... при необходимости подхватывать длукапом - тут шифровка за счет заведомо избыточного количества вариантов | |
| |
| |
