powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Простое шифрование пароля
6 сообщений из 6, страница 1 из 1
Простое шифрование пароля
    #33322263
Diesel_Coldfinger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть такая функция: SYS(2007, cExpression), которая возвращает контрольную сумму символьного выражения. А нельзя-ли как-нибудь получить из контрольной суммы - символьное выражение обратно?


смейтесь-смейтесь... Я еще всех вас переживу!!!
...
Рейтинг: 0 / 0
Простое шифрование пароля
    #33322410
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет. Высчитывание контрольной суммы это не кодирование - разные строки могут иметь одинаковые контрольные суммы. Да и при кодировании не всегда можно востановить - бывают одностороние алгоритмы.
...
Рейтинг: 0 / 0
Простое шифрование пароля
    #33322435
Diesel_Coldfinger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как же тогда можно зашифровать пароль? Мне страшновато хранить DBF-ку с паролями в открытую. Расскажите?







смейтесь-смейтесь... Я еще всех вас переживу!!!
...
Рейтинг: 0 / 0
Простое шифрование пароля
    #33322505
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Diesel_ColdfingerКак же тогда можно зашифровать пароль? Мне страшновато хранить DBF-ку с паролями в открытую. Расскажите?
1. Не надо ничего шифровать. Сам потом будешь голову ломать. Да и все это вскрывается. Ты его как-то в программе будешь расшифровывать. Вот и увидится твой алгоритм расшифровки.
2. Если очень хочется, то для дурака, каждому коду символа прибавь некоторое число и преврати обратно в символ. Вот тебе самое простое шифрование.
...
Рейтинг: 0 / 0
Простое шифрование пароля
    #33322772
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Try something like this:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
FUNCTION aencode(tcKeyWord)
  LOCAL lcRaw, lnVar, lcEnc
  IF TYPE('tcKeyWord') # "C" OR EMPTY(tcKeyWord)
    ERROR("9000: A Character string is the required parameter for EnCode")
    RETURN ""
  ENDIF
  lcRaw=UPPER(ALLTRIM(tcKeyWord))
  lnVar=INT(RAND()* 10 )
  lcEnc=ALLTRIM(STR(lnVar))
  FOR lnCnt= 1  TO LEN(lcRaw)
    lcChar=SUBSTR(lcRaw, lnCnt, 1 )
    lcEnc = lcEnc+CHR(ASC(lcChar)+ 10 +lnVar+lnCnt+ 1 )
  ENDFOR
  RETURN lcEnc

FUNCTION adecode(tcKeyWord)
  LOCAL lcRaw, lnVar, lcEnc
  IF TYPE('tcKeyWord') # "C" OR EMPTY(tcKeyWord)
    ERROR("9000: A Character string is the required parameter for EnCode")
    RETURN ""
  ENDIF
  lcEnc = ALLTRIM(tcKeyWord)
  lnVar = VAL(LEFT(lcEnc, 1 ))
  lcRaw=''
  FOR lnCnt= 2  TO LEN(lcEnc)
    lcChar=SUBSTR(lcEnc, lnCnt, 1 )
    lcRaw=lcRaw+CHR(ASC(lcChar)-( 10 +lnVar+lnCnt))
  ENDFOR
  RETURN lcRaw
Плюс одно поле с SYS(2017) - чтоб пароль могли сменить только из Вашей программы :)

Но все как написано Выше - защита только от дураков с EXCEL :)
...
Рейтинг: 0 / 0
Простое шифрование пароля
    #33322789
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Как же тогда можно зашифровать пароль?
Если тебе надо хранить пороли то зачем тебе обратная операция - получения из хеша исходного выражения? Имено для такого случая придумано односторонее кодирование - когда после шифрования получить исходное сообщение невозможно. И сравнивают уже зашифрованые строки.
В такой ситуации, как подсказывает народ, можно воспользоватся SYS(2007) в режиме CRC32
В общем почитай тут - http://forum.foxclub.ru/read.php?f=29&i=5807&t=5807
И ваще посмотри - http://forum.foxclub.ru/search.php?f=29&search=%F8%E8%F4%F0%EE%E2%E0%ED%E8%E5&globalsearch=1&match=1&date=0&fldauthor=0&fldsubject=1&fldbody=1&start=1
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Простое шифрование пароля
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]