Public Function Decrypt() As String
 
        Dim rd As New RijndaelManaged
        Dim rijndaelIvLength As Integer = 16
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("abc12345"))
 
        md5.Clear()
        Dim flst As New FileStream("C:\b.key", FileMode.Open, FileAccess.Read)
        Dim srr As New StreamReader(flst)
        Dim flst2 As New FileStream("C:\key.key.iv", FileMode.Open, _
          FileAccess.Read)
        Dim srr2 As New StreamReader(flst2)
        Dim encdata() As Byte = Encoding.ASCII.GetBytes(srr.ReadToEnd)
        Dim ivdata() As Byte = Encoding.ASCII.GetBytes(srr2.ReadtoEnd)
        Dim ms As New MemoryStream(encdata)
        Dim iv(15) As Byte
 
        'ms.Read(iv, 0, rijndaelIvLength)
        iv = ivdata
 
        rd.IV = iv
        rd.Key = key
 
        Dim cs As New CryptoStream(ms, rd.CreateDecryptor, _
          CryptoStreamMode.Read)
 
        Dim data(iv.Length - rijndaelIvLength) As Byte
        Dim i As Integer = cs.Read(data, 0, data.Length)
 
        Return System.Text.Encoding.UTF8.GetString(data, 0, i)
        cs.Close()
        rd.Clear()
 
 
 
    End Function