Visual Basic

Public Shared Function EncryptSHA512(ByVal strAs String) As String
     Dim Bytes() As Byte
     Dim Encoder As New System.Text.UTF8Encoding
     Dim SHA512 As New System.Security.Cryptography.SHA512Managed
     Dim SHA512String As String

     Bytes = Encoder.GetBytes(str)
     Bytes = SHA512.ComputeHash(Bytes)
     SHA512String = Convert.ToBase64String(Bytes)
     Return SHA512String
 End Function

Public Shared Function DecryptSHA512(ByVal str As String) As String<br />
    Dim Bytes() As Byte<br />
    Dim Encoder As New System.Text.UTF8Encoding<br />
    Dim SHA512 As New System.Security.Cryptography.SHA512Managed<br />
    Dim RegularString As String<br />
    Bytes = Convert.FromBase64String(str)<br />
    'Bytes = SHA512.??(Bytes)  'Can't find reverse logic<br />
    RegularString = Encoder.GetString(Bytes)<br />
    Return RegularString<br />
End Function

AAGTHosting wrote:

Try studTableAdapter.Update(addRow)

AAGTHosting wrote:

I checked the dataSet and it says the phone number field is text.

Steven J Jowett wrote:

like an mdi child would remain on top of an mdi parent.

Dim newForm As New Form2()
newForm.Show(Me)

sikhan555 wrote:

I want to checked that the Value in InvoiceNo is must enter unique, i try so many things but i was unable.

SELECT invoiceNumber FROM Invoices WHERE invoiceNumber = @userEnteredNumber

ahzarmokhli wrote:

there are more then 2000 control in one page