Support MD4 (legacy)

Author: whyoleg

build-logic/src/main/kotlin/ckbuild/tests/GenerateProviderTestsTask.kt

@@ -79,6 +79,7 @@ abstract class GenerateProviderTestsTask : DefaultTask() {
             "HkdfTestvectorsTest",
 
             "DigestTest",
+            "Md4CompatibilityTest",
             "Md5CompatibilityTest",
             "Sha1CompatibilityTest",
             "Sha224CompatibilityTest",

cryptography-core/api/cryptography-core.api

@@ -455,6 +455,10 @@ public final class dev/whyoleg/cryptography/algorithms/HMAC$Key$Format : java/la
 	public static fun values ()[Ldev/whyoleg/cryptography/algorithms/HMAC$Key$Format;
 }
 
+public final class dev/whyoleg/cryptography/algorithms/MD4 : dev/whyoleg/cryptography/CryptographyAlgorithmId {
+	public static final field INSTANCE Ldev/whyoleg/cryptography/algorithms/MD4;
+}
+
 public final class dev/whyoleg/cryptography/algorithms/MD5 : dev/whyoleg/cryptography/CryptographyAlgorithmId {
 	public static final field INSTANCE Ldev/whyoleg/cryptography/algorithms/MD5;
 }

cryptography-core/api/cryptography-core.klib.api

@@ -826,6 +826,8 @@ open class dev.whyoleg.cryptography/CryptographyException : kotlin/RuntimeExcept
     constructor <init>(kotlin/Throwable?) // dev.whyoleg.cryptography/CryptographyException.<init>|<init>(kotlin.Throwable?){}[0]
 }
 
+final object dev.whyoleg.cryptography.algorithms/MD4 : dev.whyoleg.cryptography/CryptographyAlgorithmId<dev.whyoleg.cryptography.algorithms/Digest> // dev.whyoleg.cryptography.algorithms/MD4|null[0]
+
 final object dev.whyoleg.cryptography.algorithms/MD5 : dev.whyoleg.cryptography/CryptographyAlgorithmId<dev.whyoleg.cryptography.algorithms/Digest> // dev.whyoleg.cryptography.algorithms/MD5|null[0]
 
 final object dev.whyoleg.cryptography.algorithms/RIPEMD160 : dev.whyoleg.cryptography/CryptographyAlgorithmId<dev.whyoleg.cryptography.algorithms/Digest> // dev.whyoleg.cryptography.algorithms/RIPEMD160|null[0]

cryptography-core/src/commonMain/kotlin/algorithms/Digest.kt

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2023-2024 Oleg Yukhnevich. Use of this source code is governed by the Apache 2.0 license.
+ * Copyright (c) 2023-2025 Oleg Yukhnevich. Use of this source code is governed by the Apache 2.0 license.
  */
 
 @file:OptIn(CryptographyProviderApi::class)
@@ -16,6 +16,9 @@ public interface Digest : CryptographyAlgorithm {
     public fun hasher(): Hasher
 }
 
+@DelicateCryptographyApi
+public object MD4 : CryptographyAlgorithmId<Digest>("MD4")
+
 @DelicateCryptographyApi
 public object MD5 : CryptographyAlgorithmId<Digest>("MD5")
 

cryptography-providers/apple/src/commonMain/kotlin/AppleCryptographyProvider.kt

@@ -17,6 +17,7 @@ internal object AppleCryptographyProvider : CryptographyProvider() {
 
     @Suppress("UNCHECKED_CAST")
     override fun <A : CryptographyAlgorithm> getOrNull(identifier: CryptographyAlgorithmId<A>): A? = when (identifier) {
+        MD4 -> CCDigest(CCHashAlgorithm.MD4, MD4)
         MD5       -> CCDigest(CCHashAlgorithm.MD5, MD5)
         SHA1      -> CCDigest(CCHashAlgorithm.SHA1, SHA1)
         SHA224    -> CCDigest(CCHashAlgorithm.SHA224, SHA224)

cryptography-providers/apple/src/commonMain/kotlin/algorithms/CCHashAlgorithm.kt

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2023-2024 Oleg Yukhnevich. Use of this source code is governed by the Apache 2.0 license.
+ * Copyright (c) 2023-2025 Oleg Yukhnevich. Use of this source code is governed by the Apache 2.0 license.
  */
 
 package dev.whyoleg.cryptography.providers.apple.algorithms
@@ -68,4 +68,13 @@ internal abstract class CCHashAlgorithm<CTX : CPointed> {
         override fun ccUpdate(context: CPointer<CC_MD5_CTX>, data: CValuesRef<ByteVar>, dataLength: CC_LONG): Int =
             CC_MD5_Update(context, data, dataLength)
     }
+
+    object MD4 : CCHashAlgorithm<CC_MD4_CTX>() {
+        override val digestSize: Int get() = CC_MD4_DIGEST_LENGTH
+        override fun alloc(): CPointer<CC_MD4_CTX> = nativeHeap.alloc<CC_MD4_CTX>().ptr
+        override fun ccInit(context: CPointer<CC_MD4_CTX>): Int = CC_MD4_Init(context)
+        override fun ccFinal(context: CPointer<CC_MD4_CTX>, digest: CValuesRef<UByteVar>): Int = CC_MD4_Final(digest, context)
+        override fun ccUpdate(context: CPointer<CC_MD4_CTX>, data: CValuesRef<ByteVar>, dataLength: CC_LONG): Int =
+            CC_MD4_Update(context, data, dataLength)
+    }
 }

cryptography-providers/jdk/src/jvmMain/kotlin/JdkCryptographyProvider.kt

@@ -109,6 +109,7 @@ internal class JdkCryptographyProvider(provider: Provider?) : CryptographyProvid
     @Suppress("UNCHECKED_CAST")
     override fun <A : CryptographyAlgorithm> getOrNull(identifier: CryptographyAlgorithmId<A>): A? = cache.getOrPut(identifier) {
         when (identifier) {
+            MD4 -> JdkDigest(state, "MD4", MD4)
             MD5       -> JdkDigest(state, "MD5", MD5)
             SHA1      -> JdkDigest(state, "SHA-1", SHA1)
             SHA224    -> JdkDigest(state, "SHA-224", SHA224)

cryptography-providers/openssl3/api/src/commonMain/kotlin/Openssl3CryptographyProvider.kt

@@ -19,6 +19,7 @@ internal object Openssl3CryptographyProvider : CryptographyProvider() {
 
     @Suppress("UNCHECKED_CAST")
     override fun <A : CryptographyAlgorithm> getOrNull(identifier: CryptographyAlgorithmId<A>): A? = when (identifier) {
+        MD4 -> Openssl3Digest("MD4", MD4)
         MD5       -> Openssl3Digest("MD5", MD5)
         SHA1      -> Openssl3Digest("SHA1", SHA1)
         SHA224    -> Openssl3Digest("SHA224", SHA224)

cryptography-providers/tests/src/commonMain/kotlin/TestUtils.kt

@@ -71,6 +71,7 @@ suspend inline fun <KF : KeyFormat, K : EncodableKey<KF>> KeyDecoder<KF, K>.deco
 }
 
 fun digest(name: String): CryptographyAlgorithmId<Digest> = when (name) {
+    MD4.name -> MD4
     MD5.name      -> MD5
     SHA1.name     -> SHA1
     SHA224.name   -> SHA224

cryptography-providers/tests/src/commonMain/kotlin/compatibility/DigestCompatibilityTest.kt

@@ -13,6 +13,7 @@ import kotlinx.io.bytestring.*
 
 private const val maxDataSize = 10000
 
+abstract class Md4CompatibilityTest(provider: CryptographyProvider) : DigestCompatibilityTest(MD4, provider)
 abstract class Md5CompatibilityTest(provider: CryptographyProvider) : DigestCompatibilityTest(MD5, provider)
 abstract class Sha1CompatibilityTest(provider: CryptographyProvider) : DigestCompatibilityTest(SHA1, provider)