Дело в том что есть на диске файл текстовый, и моя программа в него поле каждой сесссии ДОПИСЫВАЕТ текст. Шифрую непосредственно в проге, и дописываю уже шифрованный текст. Все бы хорошо, но когда пытаешься расшифровать, происходит что то странное. Либо только начальный кусок расшифровывается, а остальное - бяка кулибяка, либо при шифровании шифрует не всю строку, а тока чать. В общем ничего не могу сообразить, как надо. Сейчас вам код напишу как сохраняю в файл:
procedure SaveToLog (Str:String);
var
f:TextFile;
Filedir:String;
windir: array[0..255] of char;
begin
GetWindowsDirectory(windir,255);
Filedir:=windir+'\text.log';
assignFile(f, filedir);
if not FileExists(Filedir) then
begin
Rewrite(f);
CloseFile(f);
end;
Append(f);
Write(f, str);
//Writeln(f, str); //пробовал и так, результат тот же
Flush(f);
CloseFile(f);
end;
а вот и ваша функция, только она не расшифровывает потом все, а тока начало небольшое (может быть length() выдает неправильную длинну строки, а? )
function Crypt(CryptStr: string): string;
var
e : string;
i : Integer;
begin
for i := 1 to length(CryptStr) do begin
e[i] := chr(ord(CryptStr[i])+12); //тут можешь поставить любое число
end;
Result:=(e);
end;
НАПИШИТЕ НОРМАЛЬНЫЙ ПРИМЕР ПЛИЗЗ!!!!!!!!!!!!
Мне уже страшно