BASE64+DES+3DES算法

调用Base64单元中的两个函数来实现Base64加密解密算法 调用DES单元中的两个函数来实现3DES加密解密算法 亲测可用! -------------------------------------------------- //StrToBase64(...) //Base64ToStr(...) -------------------------------------------------- //加密算法 key为16位 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 := DESryStr(Result, Copy(Key, 9, 8)); Result := EncryStr(Result, Copy(Key, 1, 8)); end; //解密算法 key为16位 function DecryStr_3DES(Str, Key: String): String; begin if Length(Key) < 16 then while Length(Key) < 16 do Key := Key + Chr(0); Result := DESryStr(Str, Copy(Key, 1, 8)); Result := EncryStr(Result, Copy(Key, 9, 8)); Result := DESryStr(Result, Copy(Key, 1, 8)); end;