Главная страница
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.03 c
14-37268
Ketmar
2002-12-22 15:52
2003.01.13
учимся пить %-))


3-36950
vitnt
2002-12-18 11:50
2003.01.13
Interbase 5+6


1-37070
AlexKniga
2003-01-02 21:07
2003.01.13
Как из IDE Delphi отлаживать DLL?


14-37287
Дмитрий К.К.
2002-12-25 09:31
2003.01.13
В чем успех форума


4-37475
Arkan
2002-11-27 22:59
2003.01.13
посылка письма