Шифрование в Delphi
Категория реферата: Рефераты по информатике, программированию
Теги реферата: пушкин пушкин пушкин изложение, конспекты занятий в детском саду
Добавил(а) на сайт: Байдавлетов.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
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 CryptStr<>EmptyStr 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);
Рекомендуем скачать другие рефераты по теме: bestreferat ru, доклад по истории.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата