Loading

code conversion from java to vb.net

code conversion from java to vb.net

Messie Kokou

8y1.4k.NET

Please help with vb.net version of below method.

public static String ValidateTokenSourcePassReq(String scode, String requestID, String spwd)

{

String retVal = null;

try

{

String data = requestID + scode + spwd;

MessageDigest digest = MessageDigest.getInstance("SHA-512");

byte[] hashBytes = data.getBytes("UTF-8");

byte[] messageDigest = digest.digest(hashBytes);

StringBuffer sb = new StringBuffer();

for (int i = 0; i < messageDigest.length; i++)

{

String h = Integer.toHexString(0xFF & messageDigest[i]);

while(h.length() < 2)

h = "0" + h;

sb.append(h);

}

retVal = sb.toString();

}

catch(Exception ex)

{

LoggingUtil.logError(ex);

}

return retVal ;

}

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Jalal Rahman5y ago
public static byte[] hashSHA256ToBytes(byte[] input) throws Exception
{
   byte[] byteData = null;
   MessageDigest md = MessageDigest.getInstance("SHA256");
   md.update(input);
   byteData = md.digest();
   return byteData;
}

Above is java code
how to convert vb.net
Rajneesh Chaubey8y ago
1. Public Shared Function ValidateTokenSourcePassReq(ByVal scode As String, ByVal requestID As String, ByVal spwd As String) As String
2. Dim retVal As String = Nothing
3. Try
4. Dim data As String = (requestID _
5. + (scode + spwd))
6. Dim digest As MessageDigest = MessageDigest.getInstance("SHA-512")
7. Dim hashBytes() As Byte = data.getBytes("UTF-8")
8. Dim messageDigest() As Byte = digest.digest(hashBytes)
9. Dim sb As StringBuffer = New StringBuffer
10. Dim i As Integer = 0
11. Do While (i < messageDigest.length)
12. Dim h As String = Integer.toHexString((255 And messageDigest(i)))
13. While (h.length < 2)
14. h = ("0" + h)
15. End While
16. sb.append(h)
17. i = (i + 1)
18. Loop
19. retVal = sb.toString
20. Catch ex As Exception
21. LoggingUtil.logError(ex)
22. End Try
23. Return retVal
24. End Function