Зашифровать данные из StringGrid

Posted by micher under Delphi

alman12

Как сделать, чтобы при сохранение данных из stringgrid не удалось прочитать, когда открываешь на блокноте?

Stilet

Например используя такую функцию:

function XORString(str:String; XORKey:byte):string;

var eword;

begin

result:='';

//********* FOR ******************

for e :=1 to length(str) do

begin

result:=result+chr(byte(str[e]) xor XORKey);

end;

//******* END FOR ****************{}

end;

Это шифрация:

with StringGrid do

 for i:=0 to RowCount-1 do

  for j:=0 to ColCount-1 do

   Cells[i,j]:=XorString(Cells[i,j],80);

а далее сохраняй ячейки в файл.

тема на форуме

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Изменение размера динамического StringGrid
• Как сделать при клике в каждом столбце StringGrid свое действие?
• Как покрасить ячейки в StringGrid?
• StringGrid как узнать какая ячейка редактируется?
• Как взять значение из последней ячейки StringGrid?
• Удаление пустых строк в StringGrid с «поднятием» остальных
• Заполнение StringGrid из ListBox c извлечением имени
• Как сохранить файл из StringGrid без табуляций и переходов?
• TStringGrid проверка вводимых данных в ячейку