Hex String To Base64 💡

function HexStringToBase64(const HexStr: string): String;
	var md5bytes: TBytes;
begin 
	SetLength(md5bytes, Length(HexStr) div 2); 
	HexToBin(PChar(HexStr), Pointer(md5bytes), Length(md5bytes)); 
	Result := TNetEncoding.Base64.EncodeBytesToString(md5bytes);
end;