Private Function CreateIV(ByVal strPassword As String) As Byte()
Dim chrData() As Char = strPassword.ToCharArray
Dim intLength As Integer = chrData.GetUpperBound(0)
Dim bytDataToHash(intLength) As Byte

For i As Integer = 0 To chrData.GetUpperBound(0)
bytDataToHash(i) = CByte(Asc(chrData(i)))
Next

Dim SHA512 As New System.Security.Cryptography.SHA512Managed
Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
Dim bytIV(15) As Byte

For i As Integer = 32 To 47
bytIV(i - 32) = bytResult(i)
Next

Return bytIV
End Function

bro ini codingan vb.net gmn ya ngubah ke vb 6? help

13-08-2014 14:58

Kutip Balas

Beri apresiasi terhadap thread ini Gan!

jazarja 14-08-2014 07:45

Kaskuser Posts: 430

Rumit bos, karena di VB6 gak selengkap di VB.Net. Lebih baik pake VB.NET saja, VB6 kan sudah tidak di support lagi oleh Microsoft dan sudah layak dimusiumkan.

Quote:

Original Posted By tamih►Private Function CreateIV(ByVal strPassword As String) As Byte()
Dim chrData() As Char = strPassword.ToCharArray
Dim intLength As Integer = chrData.GetUpperBound(0)
Dim bytDataToHash(intLength) As Byte

For i As Integer = 0 To chrData.GetUpperBound(0)
bytDataToHash(i) = CByte(Asc(chrData(i)))
Next

Dim SHA512 As New System.Security.Cryptography.SHA512Managed
Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
Dim bytIV(15) As Byte

For i As Integer = 32 To 47
bytIV(i - 32) = bytResult(i)
Next

Return bytIV
End Function

bro ini codingan vb.net gmn ya ngubah ke vb 6? help

14-08-2014 07:45