[Electronic_Arts]

Как шифровать (exit.txt файл) сохранить и обратно де шифровать сохранить

Будет лудше если скажете простой способ потом я сам постораюсь зделать более сложный

Зарания спосибо за помощь

[Decoding]

Самый простой способ, для начала, это xor (или not).

[Admin]

Примеры см. в этом разделе: http://www.delphisources.ru/pages/so.../1_raznoe.html

[4kusNick]

Если интересно, можешь скачать мой шифратор\дешифратор.
Там реализовано 2 алгоритма - Base64 и Мудрёный XOR, если будешь разбираться и чего-нибудь не поймешь в исходниках - пиши сюда, я помогу.

http://www.delphisources.ru/pages/so...shifrator.html

[Ferra]

Впринц могу компоненты с исходниками хорошие подкинуть (~20 алгортмов strong шифрования), но стоит ли .... там не всё так просто...

[Electronic_Arts]

ОГРОМНОЕ СПОСИБО

[Electronic_Arts]

const
StartKey = 471; // Start default key
MultKey = 62142; // Mult default
AddKey = 11719; // Add default key

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
i: Byte;
begin
Result:='';
for i:=1 to Length(InString) do
begin
Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8));
StartKey:=(Byte(Result[i])+StartKey)*MultKey+AddKey;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=Encrypt(Edit2.Text, StartKey, MultKey, AddKey);
ShowMessage('Расшифрованный текст "'+s+'"');
end;

function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
i: Byte;
begin
Result:='';
for i:=1 to Length(InString) do
begin
Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8));
StartKey:=(Byte(InString[i])+StartKey)*MultKey+AddKey;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=Decrypt(Edit1.Text, StartKey, MultKey, AddKey);
end;

как сделать чтобы шифровать и де шифроваь текст из Listbox-a ListView-a поменял эти красные места в кодике на listbox1.Items.Text шифровать сумел но дешифровать и опять добавить дешифрованный текст обратно не получается
и еще после дешифровки в конце текста появляются какиета квадратики что это такое от чего это?

Может поможете

[Electronic_Arts]

Про этот вопрос не забудьте