Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Вниз

Шифрование   Найти похожие ветки 

← →
tupoy   (2003-01-02 22:54) [0]

Мастера, подскажите простенький пример шифрования текстовых файлов.

---

← →
pavel_ak   (2003-01-03 00:08) [1]

Простенький - пожалуйста:

function Shifrovanie(s:string):string;
Var i:integer;
begin
SetLength(result,Length(s));
for i:=1 to length(s) do
begin
if ord(s[i]=255) then result[i]:=chr(32)
else result[i]:=chr(ord(s[i])+1);
end;
end;

function Rashifrovanie(s:string):string;
Var i:integer;
begin
SetLength(result,Length(s));
for i:=1 to length(s) do
begin
if ord(s[i]=32) then result[i]:=chr(255)
else result[i]:=chr(ord(s[i])-1);
end;
end;


Это процедуры для шифровая/расшифрования строки. Проделай со всеми строками файла процедуру шифровки и сохрани, при загрузке - расшифровку.

---

← →
pavel_ak   (2003-01-03 00:14) [2]

Извини, скобку не там поставил:вместо
if ord(s[i]=255)... надо if ord(s[i])=255...
, это в первой процедуре, а во второй вместо
if ord(s[i]=32)... надо if ord(s[i])=32...

---

← →
tupoy   (2003-01-03 00:45) [3]

Спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c