将Java HmacMD5函数转换为VB6

时间:2017-08-10 01:10:35

标签: java vb6 md5 hmac

我正在开发一个Windows应用程序,需要使用一些以前的java代码中的一些auth函数。我可以访问Java源代码但仍然无法正确使用它。可能是因为我对密码学的了解有限。

我需要转换的Java函数是:

public String getHMACHash(String SharedSecretKey, String TextToHash) {
    return base64EncodedStringFromBytes(hmacMD5(SharedSecretKey, TextToHash));
}

private String base64EncodedStringFromBytes(byte[] bArr) {
    return Base64.encodeToString(bArr, 2);
}


public byte[] hmacMD5(String SharedSecretKey, String TextToHash) {
    byte[] bArr = null;
    try {
        Mac instance = Mac.getInstance("HmacMD5");
        instance.init(new SecretKeySpec(SharedSecretKey.getBytes(), "HmacMD5"));
        bArr = instance.doFinal(TextToHash.getBytes());
    } catch (NoSuchAlgorithmException e) {
        Log.m8401e(TAG, e.getLocalizedMessage());
    } catch (InvalidKeyException e2) {
        Log.m8401e(TAG, e2.getLocalizedMessage());
    }
    return bArr;
}

所以在输入值时:

SharedSecretKey = "497n9x98jK06gf7S3T7wJ2k455Qm192Q"
TextToHash = "1502322764327/customerservice.svc/buybackcartPOST8e802a045c1e60e"

生成的哈希是:

pOZNkg077OdvhyeMMPIX2w==

尝试我可能无法使用VB6中的相同值接近哈希键。我尝试了几种不同的方法来创建哈希:

Private Function hash_HMACMD5(ByVal sTextToHash As String, ByVal 
sSharedSecretKey As String)

Dim asc As Object, enc As Object
Dim TextToHash() As Byte
Dim SharedSecretKey() As Byte
Set asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.HMACMD5")

 TextToHash = asc.Getbytes_4(sTextToHash)
 SharedSecretKey = asc.Getbytes_4(sSharedSecretKey)
 enc.Key = SharedSecretKey

 Dim bytes() As Byte
 bytes = enc.ComputeHash_2((TextToHash))
 hash_HMACMD5 = Base64Encode(bytes)

 Set asc = Nothing
 Set enc = Nothing

 End Function

所以,我希望有人可以指出我正确的方向?

先谢谢你的帮助。

Potman100

我已经跟踪了所有代码,但我看不到任何可能表明存在不同情况的事情。如下所述,有一个导入行

import android.util.Base64;

创建哈希的调用是:

String hMACHash = new MASecurity().getHMACHash(str, str2);

MASecurity Class是:

import android.util.Base64;
import java.io.UnsupportedEncodingException;
import java.security.InvalidKeyException;
import javax.crypto.Mac;
import javax.crypto.spec.SecretKeySpec;

public class MASecurity {
private static final String TAG = "MASecurity";

public String getHMACHash(String str, String str2) {
    return base64EncodedStringFromBytes(hmacMD5(str, str2));
}

private String base64EncodedStringFromBytes(byte[] bArr) {
    return Base64.encodeToString(bArr, 2);
}

public byte[] hmacMD5(String str, String str2) {
    byte[] bArr = null;
    try {
        Mac instance = Mac.getInstance("HmacMD5");
        instance.init(new SecretKeySpec(str.getBytes(), "HmacMD5"));
        bArr = instance.doFinal(str2.getBytes());
    } catch (NoSuchAlgorithmException e) {
        MALog.m8401e(TAG, e.getLocalizedMessage());
    } catch (InvalidKeyException e2) {
        MALog.m8401e(TAG, e2.getLocalizedMessage());
    }
    return bArr;
}

输入值是正确的,因为它们是在应用程序运行时记录的。

希望这有帮助??

1 个答案:

答案 0 :(得分:0)

感谢Alex K.,似乎Java代码正在向我错过的调试中的一个参数添加更多数据,其中一个我添加了额外的数据,它创建了一个有效的散列。