Читать курсовая по информатике, вычислительной технике, телекоммуникациям: "Шифровка и дешифровка текста" Страница 3

(Назад) (Cкачать работу)

DecryptStr (это значение мы получим выполнив команду length(DecryptStr)). Далее в цикле из полученного зашифрованного текста «выдергиваются» числа разделенные пробелами и переводятся в числовые значения при помощи команды VAL потом от них отнимается алгебраическая сумма числовых кодов символов ключа (эта сумма возвращается при вызове функции Password), затем полученные значения преобразуются командой CHR в символьные и складываются. Полученный результат возвращается функцией Decrypt. FUNCTION Decrypt(DecryptStr: string): string;

VAR Xpos,i,v,e: integer;

Code,s1: string;

BEGIN

s1:='';

for i:=1 to length(DecryptStr) do

begin

xpos:=pos(' ',DecryptStr);

if xpos