Функция кодировки:
Код:
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);
Попробуй так!
Смысл в том что ты записываешь в файл зашифрованный пароль и логин, и сверяешь его тоже с зашив. значение которое ввел пользователь