alexa-tracking

INFO donk

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/53eb1a99c0cb1735248b459c/info-donk
INFO donk
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
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:


×