Geum.ru

Шифровка и дешифровка текста

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

CHR, .

 

.

 

Crypter. :

Password (FUNCTION Password(Psw: string): integer;): , , . :

  • Psw ,
  • i, res : i , res .

res 0. , 1 ( length(psw) ). ord(psw[i]) , Password.

 

FUNCTION Password(Psw: string): integer;

VAR i,res: integer;

BEGIN

res:=0;

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

Password:=res;

END;

 

Crypt (FUNCTION Crypt(CryptStr: string): string;): . , CryptStr. :

  • s, s1 . s1 . s CryptStr
  • i, rez . i . rez s.

s1 . 1 CryptStr (