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
INFO donk
Main Content
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: