Visual Basic

<br />
        Dim MailMSG As New MailMessage<br />
        Dim SMTPSetting As New SmtpClient<br />
<br />
        '===========================<br />
        Dim _To As String = "To Address"<br />
        Dim _From As String = "moeErrorNotifier@Gmail.com"<br />
        Dim _GmailPass As String = "Password"<br />
        Dim _moeHost As String = "HostURL"<br />
        Dim _GmailHost As String = "smtp.gmail.com"<br />
        '============================<br />
<br />
        With MailMSG<br />
            .To.Add(_To)<br />
            .From = New MailAddress(_From)<br />
            .Body = "Test Body"<br />
            .IsBodyHtml = True<br />
            .Subject = "Test Subject"<br />
        End With       <br />
        With SMTPSetting<br />
            .Host = _GmailHost<br />
            .Credentials = New System.Net.NetworkCredential(_From, _GmailPass)<br />
            .Port = 587<br />
            .EnableSsl = True<br />
<br />
        End With<br />
        Try<br />
            SMTPSetting.Send(MailMSG)<br />
        Catch ex As Exception<br />
            Throw ex<br />
        End Try<br />

datadapt = New System.Data.SqlClient.SqlDataAdapter(cmd)
          ds = New DataSet
          datadapt.Fill(ds)
          ' ds.Tables.Add(dt)
          'datGrid.DataSource = ds.Tables(0)
          cn.Close()

          'Dim ind As Integer
          Dim dc As DataColumn = New DataColumn
          Dim dRow As DataRow
          dRow = dt.NewRow
          Dim i As Integer
          Dim by As Byte
          ' For Each dRow In ds.Tables("Lab").Rows
          For Each dRow In ds.Tables(0).Rows
              For Each dc In ds.Tables(0).Columns
                  'If dc.DataType.ToString() = "System.String" Then
                  If dRow(dc).ToString = "system.Byte" Then
                      decData = New cTripleDES(key, iv)

                      Dim str As String = dRow(dc).ToString

                      For i = 0 To str.Length - 1
                          by = Convert.ToByte(str(i))
                      Next

                      'Dim by() As Byte = StrToByteArray(dRow(dc))
                      dRow(dc.Caption) = decData.Decrypt(by)
                      'deRecData = decData.Decrypt(by)
                      'dt.Rows.Add(deRecData)
                      'ds.Tables.Add(dt)
                  End If
              Next
          Next
          datGrid.DataSource = ds.Tables(0)

LOCL = ('L' << 24) + ('O' << 16) + ('C' << 8) + 'L'

LOCL = (Asc("L") << 24) + (Asc("O") << 16) + (Asc("C") << 8) + Asc("L")