Программа Хранение паролей в Delphi

[ChEaTeR-abc]

Вот в двух словах смысл программы:
нужно ввести пароль и ключ к этому паролю.Они сохраняются в файл в зашифрованом виде.Чтобы извлечь этот пароль из файла нужно ввести ключевое слово и адрес файла.Затем пароль расшифровуется и возвращается владельцу.
Хочу оптимизировать программку чтобы не нужно было запоминать в каком файле сохранен пароль(а для этого лучшее решение - записывать все пароли в один файл).Сейчас текст из Мемо с зашифрованым паролем и ключем ЗАМЕНЯЕТ текст в файле, а я хочу чтобы он добавлялся.Как это сделать?

И ещё:
Я пытался добавить в Мемо текст из файла а потом сохранить Мемо в файл.Не получается.Текст из файла заменяет текст из Мемо.

[mMAg]

Seek(f, FileSize(f));

- перемещает указатель в конец файла. Файл открывать процедурой Reset. Дописывайте в конец файла на здоровье.

[Grag]

mMAg, и когда же это процедура Seek() работала с текстовыми файлами???
Вот так нужно

AssignFile(F,'Путь и имя файла');
Append(F);  //указатель в конец файла
try
  //туточки пишем в конец файла...
finally
  CloseFile(F) //закрываем файлик...
end;

[Stilet]

ChEaTeR-abc

т.е. пароли хранятся рядом с программой?
Так ведь это любой человек имеет доступ к ним и возможность легкого взлома.

[Utkin]

нужно ввести пароль и ключ к этому паролю.

Да уж... А на этот пароль надо еще пароль, чтобы не подобрали...

[ChEaTeR-abc]

Цитата:
ChEaTeR-abc
т.е. пароли хранятся рядом с программой?
Так ведь это любой человек имеет доступ к ним и возможность легкого взлома.

Пароли хранятся в зашифрованом виде.

И спасибо всем за ответы

    AssignFile(F, Пароли.txt');
    Reset(F);
    Append(F);
    try Memo1.Text;
    finally CloseFile(F);
    end;

Ошибка в процедуре Append() - Incompatible types

Исправил тип F с File на TextFile.Всё нормально, но не сохранеяет текст.Скажите, в строке "try Memo1.Text;" ошибки нету?Можно использовать здесь Memo.Text?Пытался заменить на Memo1.Lines - ошибка

[Utkin]

А что Вы хотите добиться строчкой:

try Memo1.Text;

[ChEaTeR-abc]

А что Вы хотите добиться строчкой:
Код:

try Memo1.Text;

Если чесно, я про такие слова как try и finally первый раз слышу .Grag сказал что писать нужно так.Своих версий нету так что приходится слушаться...


Заменил try Memo1.Text на
Writeln(Pass2);
Writeln(Key2);
Выдает ошибку I/O error 105

Кстати, давно хотел спросить: а что вобще значит ошибка 105?

[Utkin]

Хватит гадать. Для чего нужна тогда Memo1.Text; ?

ЗЫ. В подписях к моим постам есть третья снизу строчка, рекомендую к тщательному изучению.

[ChEaTeR-abc]

Memo1.text нужна чтобы текст из Мемо записывался в файл(ИМХО )