16,747
社区成员




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;