Шифрование текстового

[Krasiosoft]

Сообщение от Dux

function cd(s:string):string;
var
i:integer;
begin
result:=s;
for i:=1 to length(result) do
if (result[i] in ['a'..'z', 'а'..'я','!'..'ї']) then
result[i]:=chr(ord(result[i])+321);
end;

Я так понимаю, это можно записать как:

function cd(s:string):string;
var
i:integer;
begin
result:=s;
for i:=1 to length(result) do
if (result[i] >= 'a') and (result[i] <= 'z') or
   (result[i] >= 'а') and (result[i] <= 'я') or
   (result[i] >= '!') and (result[i] <= 'ї') then
result[i]:=chr(ord(result[i])+321);
end;

[Smitt&Wesson]

Сообщение от Serge_Bliznykov

Человек_Борща, это да, согласен.

С чем? с тем, что чел выешел под аватаркой уважаемого члена клуба и при этом делает синтаксические ошибки? Я бы такого, просто в баньку отправил-бы.

[Dux]

Сообщение от Krasiosoft

Я так понимаю, это можно записать как:

function cd(s:string):string;
var
i:integer;
begin
result:=s;
for i:=1 to length(result) do
if (result[i] >= 'a') and (result[i] <= 'z') or
   (result[i] >= 'а') and (result[i] <= 'я') or
   (result[i] >= '!') and (result[i] <= 'ї') then
result[i]:=chr(ord(result[i])+1);
end;

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

Использую дешифровку

function dc(s:string):string;
var
i:integer;
begin
result:=s;
for i:=1 to length(result) do
if (result[i] >= 'a') and (result[i] <= 'z') or
   (result[i] >= 'а') and (result[i] <= 'я') or
   (result[i] >= '!') and (result[i] <= 'ї') then
result[i]:=chr(ord(result[i])-1);
end;

Странно, но почему-то при расшифровке символы "z" отображается как "{" и символы "я" отображаются как "?". Все остальные дешифруются корректно.

В чем может быть проблема?

[Stilet]

Потому что юникод. Юникод не по зубам таким функциям как chr и ord. Для него они могли морально устареть.

[Dux]

Сообщение от Stilet

Потому что юникод. Юникод не по зубам таким функциям как chr и ord. Для него они могли морально устареть.

И какая в таком случае может быть альтернатива?

Каким образом тогда правильно шифровать кириллицу?

[Krasiosoft]

Возможно так:

result[i]:=WideChar(Integer(result[i])-1);

[Stilet]

какая в таком случае может быть альтернатива?

Загнать строку в TMemoryStream зашифровать там побайтно, и так же при расшифровке. А лучше бы Crypto API воспользовался - и полезнее и надежнее. Я вот на него пересел и не жалею.

[Dux]

Сообщение от Krasiosoft

Возможно так:

result[i]:=WideChar(Integer(result[i])-1);

Вот спасибо Вам огромное!!! Теперь работает!

БЛИН!. Проверил, теперь буква "ё" отображается как "@"

Можно что-то подкорректировать?

[Krasiosoft]

Проверьте какое число получается если преобразовать в integer букву "ё", должно быть 1105.

Возможно проблемы с кодировками, проверьте еще так:

  str[1]:='ё';
  str[2]:=WideChar(1105);
  str[3]:=WideChar(0);
  MessageBoxW(0,@str[0],@str[0],0);

Сообщение должно быть с текстом "ёё".

[Smitt&Wesson]

Сообщение от Dux

Может у кого есть готовые наработки?

Вопросы криптографии, если не изменяет память, рассматриваются уже более 2000 лет. Единственное правило, которое выработали криптографы - не рассказывай правила шифрования НИКОМУ. Если выложить правила шифрования, это прямой путь к взлому. Оно Вам надо? Думаю, что - нет. Теорию криптографирования, можно найти где угодно, а вот конкретный алгоритм, вряд-ли Вам кто-то даст. я, не дам. Я над ним просидел несколько месяцев. Некоторые проги ним защищены, а тут, вдруг я его выложу на всеобщее обозрение. Ага. Мечтать не вредно .