M
MuzafferAnlas
Guest
Code :
Dim dataList As New List(Of Byte())
Private Sub chk(ByVal b() As Byte)
For i = 0 To b.Length - 1
dataList.Add(Encoding.ASCII.GetBytes(b(i)))
Next
End Sub
Public Sub Load()
Try
chk(buffer) ' Buffer another class in a byte()
Dim byteArray(dataList.Count - 1) As Byte
'byteArray = dataList ?
Dim newbyte() As Byte = csp.Decrypt(byteArray, False)
Dim str as String = Encoding.ASCII.GetString(newByte)
Catch ex As CryptographicException
MsgBox(ex.ToString() + " " + ex.Message)
End Try
End Sub
I want to Byte() equalize List(Of Byte). I'm waiting for your help and Thank you for your interest.
Sorry for my language errors trying to fix.
Continue reading...
Dim dataList As New List(Of Byte())
Private Sub chk(ByVal b() As Byte)
For i = 0 To b.Length - 1
dataList.Add(Encoding.ASCII.GetBytes(b(i)))
Next
End Sub
Public Sub Load()
Try
chk(buffer) ' Buffer another class in a byte()
Dim byteArray(dataList.Count - 1) As Byte
'byteArray = dataList ?
Dim newbyte() As Byte = csp.Decrypt(byteArray, False)
Dim str as String = Encoding.ASCII.GetString(newByte)
Catch ex As CryptographicException
MsgBox(ex.ToString() + " " + ex.Message)
End Try
End Sub
I want to Byte() equalize List(Of Byte). I'm waiting for your help and Thank you for your interest.
Sorry for my language errors trying to fix.
Continue reading...