Visual Basic

	Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim hash = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Dim key As Byte() = New Byte(31) {}
                    Dim iv As Byte() = New Byte(15) {}
                    Array.Copy(hash, 0, key, 0, 32)
                    Array.Copy(hash, 32, iv, 0, 16)
                    Using aes As New RijndaelManaged, filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(key, iv), CryptoStreamMode.Write)
                            ExportData(carrier).Save(cryptostr)
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub
        Public Function Load(ByVal password As String, ByVal filename As String) As XDocument
            Dim sha As SHA512Managed
            Dim aes As RijndaelManaged
            Dim trans As ICryptoTransform
            Dim cryptostr As CryptoStream
            Dim filestr As FileStream
            Try
                sha = New SHA512Managed()
                Dim hash = sha.ComputeHash(Encoding.Default.GetBytes(password))
                aes = New RijndaelManaged()
                Dim key As Byte() = New Byte(31) {}
                Dim iv As Byte() = New Byte(15) {}
                Array.Copy(hash, 0, key, 0, 32)
                Array.Copy(hash, 32, iv, 0, 16)
                trans = aes.CreateEncryptor(key, iv)
                filestr = New FileStream(filename, FileMode.Open)
                cryptostr = New CryptoStream(filestr, trans, CryptoStreamMode.Read)
                Return XDocument.Load(cryptostr)
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                If cryptostr IsNot Nothing Then cryptostr.Dispose()
                If filestr IsNot Nothing Then filestr.Dispose()
                If trans IsNot Nothing Then trans.Dispose()
                If aes IsNot Nothing Then aes.Dispose()
                If sha IsNot Nothing Then sha.Dispose()
            End Try
        End Function

Public Shared Function Encrypt(value As String, key() As Byte, iv() As Byte) As string
    Dim bytValue() As Byte      'The data to be encrypted
    Dim bytEncoded() As Byte    'The data after encryption
    Dim rijndael As New Rijndael Managed
    Dim ms As New MemoryStream  'The stream to write the encrypted data to
    
    bytValue = Encoding.ASCII.GetBytes(value.ToCharArray)   'Convert plain text to byte array
    'Create the crypto stream with the stream to write the encrypted data to (ms = Memory Stream)
    Using CryptoStream As New CryptoStream(ms, rijnadel.CreateEncryptor(key, iv), CryptoStreamMode.Write)
        'Encrypt the plaint text byte array (bytValue) to the memory stream (ms)
        CryptoStream.Write(bytValue, 0, bytValue.Length)
        'Flush crypto stream
        CryptoStream.FlushFinalBlock()
        'Get the encrypted byte array from the memory stream (ms)
        bytEncoded = ms.ToArray
        'Close memory stream
        ms.Close()
    End Using
    
    'Convert the encrypted byte array (bytEncoded) to a Base64 string and return it
    Return Convert.ToBase64String(bytEncoded)
End Function

KreativeKai wrote:

Any ideas?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Public Function FileInUse(ByVal sFile As String) As Boolean
        If System.IO.File.Exists(sFile) Then
            Try
                Dim F As Short = FreeFile()
                FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                FileClose(F)
            Catch
                Return True
            End Try
        End If
    End Function
 

 
usage
 
    Do While FileInUse(sSourcePath & "\" & sFileName & "." & sExtension)
            System.Threading.Thread.Sleep(1000)
 
            sTimeOut += 1
 
            If sTimeOut = 15 Then
        WriteLogLog("File " & sFile & " in use.")
                Exit Sub
            End If
 
        Loop

SELECT
(Physical_memory_in_bytes/1024.0)/1024.0 AS Physical_memory_in_Mb
FROM
sys.dm_os_sys_info

SELECT SERVERPROPERTY('productversion'), SERVERPROPERTY ('productlevel'), SERVERPROPERTY ('edition')

DinoRondelly wrote:

Is this even possible?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

daveofgv wrote:

I have seen on this site Article 42852 / Reading-Barcodes-from-an-Image-III, however, this appears to only read the first page of a multipage tiff. I need to find something that can read all the pages (could be a 500 page tiff) for barcodes

• Isolate the trick from the article to a minimal console-app
  
• Try fetch total number of pages on a given TIFF file
  
• Try fetch specific page of a given TIFF file
  
• do trick N times, while showing progress bar
  

daveofgv wrote:

Also, does anyone know of a sample project on this site (or any other site) with source code to do this and scan a folder of tiff images instead one at a time.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

public bool ValidSMTP(string hostName)
{
    bool valid = false;
    try
    {
        TcpClient smtpTest = new TcpClient();
        smtpTest.Connect(hostName, 25);
        if (smtpTest.Connected)
        {
            NetworkStream ns = smtpTest.GetStream();
            StreamReader sr = new StreamReader(ns);
            if (sr.ReadLine().Contains("220"))
            {
                valid = true;
            }
            smtpTest.Close();
        }
    }
    catch
    {
        throw;
    }
    return valid;
}