This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
the code I try to use the converters but i get an error still in the code saying. string does not exists in the current contest.
Function MD5Encrypt(ByVal text() As Byte) As String Dim j As Integer = 0 Dim retString As String Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim tout() As Byte = MD5.ComputeHash(text, 0, text.Length) MD5 = Nothing For j = 0 To tout.Length - 1 retString += Chr(tout(j)) Next Return retString End Function Function MakeByte(ByVal text As String) As Byte() Dim i As Integer Dim ba(text.Length - 1) As Byte For i = 1 To Len(text) ba(i - 1) = Asc(Mid(text, i, 1)) Next Return ba End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.