Кодирование текстового файла

[milate]

Доброго времени суток, уважаемые! Вопрос состоит в следующем:
нужно закодировать текст, находящийся в файле, применяя ASCII код, и далее работать с текстом. Дело в том, что мне никогда не приходилось работать с ASCII кодами. Приведите пожалуйста мне простенький пример шифровки текста, желательно с коментариями, чтобы мне было проще понять, что это за зверь и с чем его едят

[XuTpbIu]

Писал код для кодирования простой текстовой строки()пароля):

procedure CodeEncodeUserPassword(var Text: ShortString; Decode: Boolean);
const
  PASSWORD_STRING = 'Афигеть какое кодовое слово';
var
  I, PasswordLength: Integer;
  Sign: Integer;
begin
  PasswordLength := Length(PASSWORD_STRING);
  If Decode then
    Sign := -1
  else
    Sign := 1;
  for I := 1 to Length(Text) do
    Text[I]:= Chr(Ord(Text[I])
                  + Sign * Ord(PASSWORD_STRING[I mod PasswordLength + 1]));
end;

Суть такова: к коду каждого символа кодируемого текста прибавляется код символа из специальной строки-пароля. К коду первого символа мы добавляем код 1 символа, 2ого - 2ого, ...., 25ого(в строке у нас 25 символов) - 25ого, 26-1, 27-2 и т.д.

[milate]

спасибо большое, ты мне очень помог!