Visual Basic

<br />
    Friend Function Insert(ByVal Name As String, ByVal Client As System.Net.Sockets.TcpClient, ByVal netStream As NetworkStream, ByVal sr As StreamWriter) As String<br />
<br />
   Dim InsertRequest As String = "INSERT::" & Name & ";"<br />
   Dim sendInsertRequest As [Byte]() = Encoding.ASCII.GetBytes(InsertRequest)<br />
   ''// Submit Insert Request<br />
   sr.WriteLine("CMD-" & vbTab & InsertRequest)<br />
   netStream.Write(sendInsertRequest, 0, sendInsertRequest.Length)<br />
<br />
   ''// Get Response<br />
   Dim Response As String = GetResponse(Client, netStream, sr)<br />
   Return Response<br />
    End Function<br />
    <br />
    Private Function GetResponse(ByVal Client As System.Net.Sockets.TcpClient, ByVal netStream As NetworkStream, ByVal sr As StreamWriter) As String<br />
   ''// Add Delay<br />
   System.Threading.Thread.Sleep(m_delay)<br />
   ''// Read Buffer and Write to Open File<br />
   Dim numberOfBytesRead As Integer = 0<br />
   Dim bytes(Client.ReceiveBufferSize) As Byte<br />
   Dim returndata As String = Encoding.ASCII.GetString(bytes)<br />
   Dim SocketData As New System.Text.StringBuilder<br />
   Do<br />
     numberOfBytesRead = netStream.Read(bytes, 0, uCVT.IntNulls(Client.ReceiveBufferSize))<br />
     returndata = Encoding.ASCII.GetString(bytes)<br />
     returndata = Microsoft.VisualBasic.Left(returndata, numberOfBytesRead)<br />
     SocketData.Append(returndata)<br />
     System.Threading.Thread.Sleep(m_delay)<br />
   Loop While netStream.DataAvailable<br />
   sr.WriteLine("RSP-" & vbTab & SocketData.ToString)<br />
   Return SocketData.ToString<br />
    End Function<br />

Dim md5 As MD5CryptoServiceProvider<br />
Dim bytValue() As Byte<br />
Dim bytHash() As Byte<br />
md5 = New MD5CryptoServiceProvider<br />
bytValue = System.Text.Encoding.UTF8.GetBytes(txtPassword.Text)<br />
bytHash = md5.ComputeHash(bytValue)<br />
md5.Clear()<br />
messagebox.show(Convert.ToBase64String(bytHash))