[Nurlan]

привет всем! как сделать чтоб пароль можно было изменить (как на сайтах или в windows и т.д) т.е чтоб изменить пароль надо ввести старый

[Bargest]

Я в своей одной проге хранил хеш пароля.
Тогда вводишь старый, он хешируется, сравнивается с тем, что есть, и если совпадает - то пишем новый.
Для хеша можно юзать стандартные вещи (MD5 например), а можно замутить какой-нить бред из серии

Код:

 hash:=byte(s[1])^5+byte(s[2])^3-byte(s[3])^2-byte(s[4])^5...

где S - строка, a hash - int64.

"Чем бредовее будет ваш алгоритм, тем меньше шансов подобрать пароль и тем меньше будет в нем коллизий..."

[BoRoV]

Сообщение от Nurlan

привет всем! как сделать чтоб пароль можно было изменить (как на сайтах или в windows и т.д) т.е чтоб изменить пароль надо ввести старый

Ну как бы да.

Какой вопрос, такой и ответ.

Сообщение от Bargest

Тогда вводишь старый, он хешируется, сравнивается с тем, что есть, и если совпадает - то пишем новый.
Для хеша можно юзать стандартные вещи (MD5 например)

Ну для него это самый лучший вариант, а для того чтоб писать свои алгоритмы нужно хорошо понимать что ты пишешь, без хороших знаний криптосистем и математики, ничего стоящего не напишешь, выйдет ужасно дырявая система.

[Bargest]

Понятное дело. Яркий тому пример:

Код:

 hash := a[1]^2+a[2]+a[3]^2+a[4]+...

При переставлении нечетных букв между собой и четных между собой получается одинаковый хеш. Т.е. для слова "privet" и для "ivpret" будет коллизия.

Однако если не нужна ХОРОШАЯ защита, и лень думать, то можно и че-нить простенькое написать.

[Bargest]

Еще одна простецкая система:
"Товарищи математики доказали теорему, что простейший шифр цезаря не вскрывается никак, кроме подбора."
Берем, прошиваем в программу константу типа такой

Код:

const pass='18 yn*&TYN(*@&M w42-3-3vl;mcxsrer'gk":%"OJEIJ';

и шифруем пароли ей.
Опять же, элементарно вскрывается дизассемблированием или анализом строки, но от глаз юзверей этого за глаза и за уши)

[BoRoV]

Насколько помню со студенческих год, то обратить цезаря можно. Могу ошибаться.

Дай его рализацию, если не затруднит.

[Bargest]

Код:

j:=1;
for i:=1 to length(s) do
 begin
  s[i]:=s[i] xor pass[j]; // в стандартном алгоритме вместо XOR'а стоит +, но с XOR прикольнее
  inc(j);
  if j>length(pass) then 
   j:=1;
 end;