16,748
社区成员
发帖
与我相关
我的任务
分享
function EncryStr_3DES(Str, Key: String): String;
begin
if Length(Key) < 16 then
while Length(Key) < 16 do
Key := Key + Chr(0);
Result := EncryStr(Str, Copy(Key, 1, 8));
Result := DecryStr(Result, Copy(Key, 9, 8));
Result := EncryStr(Result, Copy(Key, 1, 8));
end;
function DecryStr_3DES(Str, Key: String): String;
begin
if Length(Key) < 16 then
while Length(Key) < 16 do
Key := Key + Chr(0);
Result := DecryStr(Str, Copy(Key, 1, 8));
Result := EncryStr(Result, Copy(Key, 9, 8));
Result := DecryStr(Result, Copy(Key, 1, 8));
end;