Вставка произвольных непечатных символов перед шифрованием и удаление рандомных знаков после расшифровки

Posted by admin under Delphi, Топик-обзор

есть текст который шифруется определенным способом. НО перед шифрованием в текст добавляются хаотично и рандомно непечатные символы, затем шифруется, передается, расшифровывается и вытягиваются рандомные непечатные символы, нужно для того что бы повысить уровень криптозашиты.

const
NPCS: set of char = [#0..#8, #11, #12, #14..#31, '' ];

function NO(Source: string): string;
var
n, c: integer;
begin
Randomize;
Result := Source;
n := (Length(Source) * 2) + Random(Length(Source));
while Length(Result) < n do begin c := Random(128); if Chr(c) in NPCS then Insert(Chr(c), Result, Random(Length(Result)) + 1) end; end; function NT(Source: string): string; var i: integer; begin Result := Source; i := 1; while i < Length(Result) do if Result[i] in NPCS then Delete(Result, i, 1) else Inc(i); end; procedure TForm1.btn1Click(Sender: TObject); Var a,s,g:string; begin s:=NO(edt1.Text); ShowMessage(' "'+s+'"'); edt3.Text:=NT(s); g:=edt3.Text; end;[/code] Тема на форуме - здесь добавлены рекомендции по улучшению реализации идеи автора.

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Скопировать данные из Edit в Word
• Среднеарифметическое значение из Edit
• Зашифровать текстовый файл
• Как запретить ввод определённых символов в Edit?
• Маска на авторизацию в Edit
• Как сделать прозрачный edit?
• Пример как можно загрузить через TStringList в Edit’ы
• Изменение цвета поля edit при попадании на него курсора
• Как сделать чтобы TEdit стал браузерной строкой TWebBrowser?