ASP电脑行业销售管理.docVIP

ASP电脑行业销售管理H3 style=MARGIN: 6pt 0cmBASP电脑行业销售管理 style=mso-bidi-font-weight: normASP电脑行业销售管理al加密模块的创建/BB style=mso-biASP电脑行业销售管理di-font-weight: normal?/B/HASP电脑行业销售管理3 p为了保证数据库的安全，多处使用了加密算法。创建加密ASP电脑行业销售管理模块的目的就是为了方便在应用程序中引用加密过程，模块文件名为“ASP电脑行业销售管理crypt”。加密模块包括加密和解密两个子程序，是一对可逆的过程，ASP电脑行业销售管理代码如下：/P punit crypt;/P ASP电脑行业销售管理 pinterface/P pUSES/P pASP电脑行业销售管理nbsp;nbsp;nbsp; Classes;/P ASP电脑行业销售管理 pconst/P pnbsp;nbsp;ASP电脑行业销售管理nbsp;nbsp; C1 = 52845;/P pASP电脑行业销售管理nbsp;nbsp;nbsp;nbsp; C2 = ASP电脑行业销售管理22719;/P pfunction EncrypASP电脑行业销售管理t( S: String; Key: Word): StringASP电脑行业销售管理;/P pfunction Decrypt( S: StrASP电脑行业销售管理ing; Key: Word): String;/P pASP电脑行业销售管理implementation/P pfunctionASP电脑行业销售管理 Encrypt( S: String; Key: WordASP电脑行业销售管理): String;/P pvar/P pASP电脑行业销售管理nbsp;nbsp; I: Integer;/P pASP电脑行业销售管理nbsp;nbsp; j: Integer;/P pASP电脑行业销售管理begin/P pnbsp;Result := S;/ASP电脑行业销售管理P pnbsp;for I := 1 to LenASP电脑行业销售管理gth(S) do/P pnbsp;begin/P ASP电脑行业销售管理 pnbsp;nbsp;Result[I] := chASP电脑行业销售管理ar(byte(S[I]) xor (Key shr 8));ASP电脑行业销售管理/P pnbsp; Key := (byte(ResASP电脑行业销售管理ult[I]) + Key) * C1 + C2;/P pASP电脑行业销售管理nbsp;end;/P pnbsp;s:=ResulASP电脑行业销售管理t;/P pnbsp;Result:=;/P ASP电脑行业销售管理 pnbsp;for i:=1 to length(sASP电脑行业销售管理) do/P pnbsp;begin/P pASP电脑行业销售管理nbsp; j:=Integer(s[i]);/P pASP电脑行业销售管理nbsp; Result:=Result + Char(65+(ASP电脑行业销售管理j div 26))+Char(65+(j mod 26));ASP电脑行业销售管理/P pnbsp;end;/P pendASP电脑行业销售管理;/P pfunction Decrypt( S: ASP电脑行业销售管理String; Key: Word): String;/P ASP电脑行业销售管理pvar/P pnbsp;nbsp; I: InASP电脑行业销售管理teger;/P pnbsp;nbsp; j: InASP电脑行业销售管理teger;/P pbegin/P pnASP电脑行业销售管理bsp;result:=;/P pnbsp;for ASP电脑行业销售管理i:=1 to (length(s) div 2) do/ASP电脑行业销售管理P pnbsp;begin/P pnbsp;ASP电脑行业销售管理 j:=(Integer(s[2*i-1])-65)*26;ASP电脑行业销售管理/P pnbsp; j:=j+(Integer(s[2ASP电脑行业销售管理*i])-65);/P pnbsp; result:=ASP电脑行业销售管理result + Char(j);/P pnbsASP电脑行业销售管理p;end;/P pnbsp;s:=result;/PASP电脑行业销售管理 pnbsp;for I := 1 to LengtASP电脑行业销售管理h(S) do/P pnbsp;begin/P ASP电脑行业销售管理pnbsp; Result[I] := char(byASP电脑行业销售管理t