[friz]

Функция кодировки:

Код:

function 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;

Запись в файл с кодированием:

Код:

var myFile:textfile;

AssignFile(myFile, 'Test.txt');
ReWrite(myFile);

WriteLn(myFile, Coding(login+':'+pass)); //login и pass это логин и пароль

CloseFile(myFile);

Чтение из файла и проверка:

Код:

AssignFile(myFile, 'Test.txt');

  Reset(myFile);

  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    if text=Coding(login1+':'+pass1) then GOOD  //login1 и pass1 логин который ввел пользователь
                                    else BAD!!
  end;
  CloseFile(myFile);

Попробуй так!
Смысл в том что ты записываешь в файл зашифрованный пароль и логин, и сверяешь его тоже с зашив. значение которое ввел пользователь