Показать сообщение отдельно
  #26  
Старый 09.12.2009, 12:31
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Ну md5 это круто, есть проще алгоритмы шифрования, например простой XOR остановит любого не связанного напрямую со взломом программ...
http://www.delphisources.ru/pages/fa...rithm_xor.html
Я например использовал такую реализацию...
Код:
//XOR алгоритм шифрования
function TProgramm.Coding(Text : String):String;
var
  key, longkey: string;
  i: integer;
  toto : char;
begin
  longkey := '';
  key := 'ADSF';//Вместо такого ключа используй логин
  for i := 0 to (length(text) div length(key)) do
    longkey := longkey + key;
  for i := 1 to length(text) do
  begin
    toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
    result := result + toto;
  end;
end;
Алгоритм реализации...
Считываешь строку из файла(реестра)...
Прогоняешь через XOR...
Сравниваешь результат с эталоном...
Работаешь...
При изменении пароля(логина)...
Прогоняешь новую строку через XOR...
Сохраняешь в файле(реестре)...
Таким образом в файле(реестре) хранится не сам пароль, его зашифрованный вариант...
Повторюсь, это самая простая реализация...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием