Повышение криптоустойчивости шифрования текста любым алгоритмом

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Повышение криптоустойчивости шифрования текста любым алгоритмом

 

Данная функция (AddDisturbToText) представляет собой подготовительную

операцию перед шифрацией текста любым алгоритмом. Функция

добавляет в текст случайное количество непечатных символов,

располагая их хаотически. Таким образом подготовленный текст,

после шифрации одним и тем-же ключом, не зависимо от алгоритма,

каждый раз будет выглядеть по разному и количественно и качественно,

что практически сводит на нет любой статистический анализ. При

расшифровке, непечатные символы элементарно вычищаются функцией

RemoveDisturbFromText.

 

Зависимости: SysUtils

Автор:       Delirium, VideoDVD@hotmail.com, ICQ:118395746

Copyright:   Delirium (Master BRAIN) 2004

Дата:        28 февраля 2004 г.

********************************************** }

 

const

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

 

// Добавление в текст непечатных символов

function AddDisturbToText(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 RemoveDisturbFromText(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;

©Drkb::04049