Visual Basic

Imports System.IO

Public Class Form1
    Private Sub getDir(ByVal path As String)
        Try
            'Get List Of Directories in current directory
            For Each dirname As String In Directory.GetDirectories(path)
                listFound.Items.Add(dirname)
                getDir(dirname)
                Application.DoEvents()        'Quick dirty solution
            Next

            'Get list of files in current directory
            For Each filename As String In Directory.GetFiles(path)
                listFound.Items.Add(filename)
                Application.DoEvents()        'quick dirty solution
            Next

        Catch ex As Exception
            listErrors.Items.Add("ERROR: " & ex.Message & " : " & path)
        End Try

    End Sub

    Private Sub buttonGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonGo.Click
        listErrors.Items.Clear()
        listFound.Items.Clear()

        Try
            If Directory.Exists(textStartPath.Text) Then
                getDir(textStartPath.Text)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub
End Class

Private Function CheckDirectories(ByVal GetDir As DirectoryInfo, ByVal worker As BackgroundWorker, ByVal e As DoWorkEventArgs) As Boolean

        Static Barmax As Int32 = 0

        Try
            If GetDir.GetFiles.Count > 0 Then Call ReadFiles(GetDir)

            '__________________________________________________________________
            '
            '
            For Each SubDir As DirectoryInfo In GetDir.GetDirectories

                Application.DoEvents()
                '
                '______________________________________________________________
                '
                If SubDir.GetDirectories.Count > 0 Then

                    Barmax += SubDir.GetDirectories.Count

                    Me._ProgressBarDir.Maximum = Barmax
                    Me._ProgressBarDir.Value += 1
                    Me._LabelDirMes.Text = GetDir.Name

                End If

                'We set backgroundworker controlling right here

                If worker.CancellationPending Then
                    e.Cancel = True
                    Return False
                End If

                Me._LabelDirMes.Text = SubDir.Name

                CheckDirectories(SubDir, worker, e)

            Next

        Catch ex As System.UnauthorizedAccessException

            DirError = True
            Note += GetDir.Name & vbCrLf
            'Note is displayed with a message box out of this procedure to tell users about the directories with no
            'permit

        End Try

    End Function

Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption
#Region "Public Routines"
    const ENCRYPT_KEY AS STRING = "TEST"
    const ENCRYPT_VECTOR AS STRING = "CODEPRJT"

    Public Shared Function ToBase64(ByVal sDataToEncrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateEncryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Encoding.Default.GetBytes(sDataToEncrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Convert.ToBase64String(stream.ToArray())
    End Function

    Public Shared Function ToBase32(ByVal sDataToDecrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateDecryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Convert.FromBase64String(sDataToDecrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Encoding.Default.GetString(stream.ToArray())
    End Function
#End Region
End Class