Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
3-36954
Борис
2002-12-16 17:02
2003.01.13
Русские буквы в IB 6


1-37018
tupoy
2003-01-01 23:00
2003.01.13
HELP!!!!!!!!!!


3-36938
race1
2002-12-18 07:49
2003.01.13
sql round


14-37312
Nox
2002-12-23 16:46
2003.01.13
Key Generator


4-37425
Cosmic
2002-11-23 21:01
2003.01.13
Как добавить пункт в ListBox?