Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
21st
Авг
Зашифровать данные из 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);а далее сохраняй ячейки в файл.
Похожие статьи
