下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
DES算法实现function EncryStr(Str, Key: String): String;var StrByte, OutByte, KeyByte: array[0..7] of Byte; StrResult: String; I, J: Integer;begin if (Length(Str) > 0) and (Ord(Str[Length(Str)]) = 0) then raise Exception.Create('Error: the last char is NULL char.'); if Length(Key) < 8 then while Length(Key) < 8 do Key := Key + Chr(0); while Length(Str) mod 8 <> 0 do Str := Str + Chr(0); for J := 0 to 7 do KeyByte[J] := Ord(Key[J + 1]); makeKey(keyByte, subKey); StrResult := ''; for I
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
