Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата

ToDo, FileName, PassW, Line, TranslatedFile: string;

position, IsCrypt: integer;

//находим сумму числовых значений символов пароля

function Password(Psw: string): integer;

var

i,res: integer;

begin

res:=0;

for i:=1 to Length(psw) do res:=res+ord(psw[i]);

result:=res;

end;

function Crypt(CryptStr: string): string;

var

s: string;

i: integer;

begin

if CryptStrEmptyStr then

for i:=1 to Length(CryptStr) do begin

s:=LeftStr(CryptStr,1);

CryptStr:=RightStr(CryptStr,Length CryptStr)-1);

//ШИФРОВКА:

s:=chr(ord(s[1])+Password(PassW)-i);

result:=result+s;

end;

result:=ReverseString(result);

Рекомендуем скачать другие рефераты по теме: век реферат, тарас бульба сочинение.





Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата