Function compressPublicKey