Leer una imágen de Sql y guardar imágen en Sql

Una vez más con algo para leer y guardar imágenes en sql, con estas 2 fuciones que les pongo a continuación podemos convertir la imágen en un objeto image de sql y también lo podemos leer el campotipo image y obtener la imágen, y la podemos almacenar en un archivo temporal por si deseamos guardar la misma imágen.


#Region "Función Image2SqlImage"
Public Function Image2SqlImage(ByVal File As Object) As Byte()
Try
Dim ruta As New FileStream(File, FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim binario(ruta.Length) As Byte
ruta.Read(binario, 0, ruta.Length)
ruta.Close()
Return binario
Catch
Return Nothing
End Try
End Function
#End Region
#Region "Función sqlImagen2Image"
Public Function sqlImagen2Image(ByVal FieldImage As Object) As Bitmap
Try
Dim bits As Byte() = CType(FieldImage, Byte())
Dim memorybits As New MemoryStream(bits)
Dim bitmap As New Bitmap(memorybits)
bitmap.Save("C:\TempRMSImage.tmp")
Return bitmap
Catch EX As Exception
Return Nothing
End Try
End Function
#End Region

Saludos mis queridos amigos y lectores, espero les sea útil.

Encriptar y desencriptar una cadena .Net

Hola Amigos, aqui estoy de nuevo, con unas funciones que me parecen muy útiles para cuando queramos encriptar y desencriptar una cadena de texto, que podríamos usar para cuando guardamos las cadenas de conexión de una base de datos, o alguna contraseña que no queremos que sea vista, no es la super seguridad pero es funcional.

#Region "Función Encrypt"
'Encripta cadenas de texto
Public Function Encrypt(ByVal string_encriptar As String) As String
Dim R As Integer
Dim I As Integer
R = Len(Trim(string_encriptar))
For I = 1 To R
Mid(string_encriptar, I, 1) = Chr(Asc(Mid(string_encriptar, I, 1)) - 2)
Next I
Dim b As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(string_encriptar)
Dim encryptedConnectionString As String = Convert.ToBase64String(b)
Return encryptedConnectionString
End Function
#End Region

#Region "Función UnEncrypt"
'Desencripta cades de texto encriptadas por Encrypt
Public Function UnEncrypt(ByVal string_desencriptar As String) As String
Dim R As Integer
Dim i As Integer
Dim b As Byte() = Convert.FromBase64String(string_desencriptar)
Dim decryptedConnectionString As String = System.Text.ASCIIEncoding.ASCII.GetString(b)
R = Len(Trim(decryptedConnectionString))
For i = 1 To R
Mid(decryptedConnectionString, i, 1) = Chr(Asc(Mid(decryptedConnectionString, i, 1)) + 2)
Next i
Return decryptedConnectionString
End Function
#End Region

Saludos espero les sea muy útil.