alexa-tracking
Selamat Guest, Agan dapat mencoba tampilan baru KASKUS Masih Kangen Tampilan Sebelumnya
Kategori
Kategori
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
Beri apresiasi terhadap thread ini Gan!
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:




×
GDP Network
© 2018 KASKUS, PT Darta Media Indonesia. All rights reserved
Ikuti KASKUS di