crptyohraphy question

[00001144876]

I have this source code,

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
 
Module Module1
 
    Sub Main()
 
 
    End Sub
    Public TheKey(7) As Byte
 
 
    Private Vector() As Byte = {&H12, &H44, &H16, &HEE, &H88, &H15, &HDD, &H41}
 
 
 
    Sub Encrypt(ByVal inName As String, ByVal outName As String)
        Try
            Dim storage(4096) As Byte   'create buffer 
            Dim totalBytesWritten As Long = 8  'Keeps track of bytes written. 
 
            Dim packageSize As Integer   'Specifies the number of bytes written at one time. 
 
            'Declare the file streams. 
            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _
              FileAccess.Write)
            fout.SetLength(0)
 
            Dim totalFileLength As Long = fin.Length  'Specifies the size of the source file. 
 
            'create the Crypto object 
            Dim des As New DESCryptoServiceProvider()
 
            Dim crStream As New CryptoStream(fout, _
                   des.CreateEncryptor(TheKey, Vector), CryptoStreamMode.Write)
 
            'flow the streams 
                While  totalBytesWritten < totalFileLength 
                packageSize = fin.Read(storage, 0, 4096)
                crStream.Write(storage, 0, packageSize)
                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)
            End While
 
            crStream.Close()
 
 
        Catch e As Exception
            MsgBox(e.Message)
        End Try
 
    End Sub
 
    Sub Decrypt(ByVal inName As String, ByVal outName As String)
 
        Try
 
            Dim storage(4096) As Byte
            Dim totalBytesWritten As Long = 8
            Dim packageSize As Integer
            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _
              FileAccess.Write)
            fout.SetLength(0)
            Dim totalFileLength As Long = fin.Length
 
 
            Dim des As New DESCryptoServiceProvider()
            Dim crStream As New CryptoStream(fout, _
              des.CreateDecryptor(TheKey, Vector), CryptoStreamMode.Write)
 
            Dim ex As Exception
 
                While  totalBytesWritten < totalFileLength 
                packageSize = fin.Read(storage, 0, 4096)
                crStream.Write(storage, 0, packageSize)
                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)
                Console.WriteLine("Processed {0} bytes, {1} bytes total", packageSize, _
                   totalBytesWritten)
            End While
 
            crStream.Close()
 
        Catch e As Exception
            MsgBox(e.Message & "Please ensure that you are using the correct password")
        End Try
 
    End Sub
 
    Sub CreateKey(ByVal strKey As String)
 
        ' Byte array to hold key 
        Dim arrByte(7) As Byte
 
        Dim AscEncod As New ASCIIEncoding()
        Dim i As Integer = 0
        AscEncod.GetBytes(strKey, i, strKey.Length, arrByte, i)
 
        'Get the hash value of the password 
        Dim hashSha As New SHA1CryptoServiceProvider()
        Dim arrHash() As Byte = hashSha.ComputeHash(arrByte)
 
        'put the hash value into the key 
        For i = 0 To 7
            TheKey(i) = arrHash(i)
        Next i
 
    End Sub
 
End Module

and i am getting this error

Name 'lt' is not declared.
and
Character is vaild

and ideas??

[tlhintoq]

Visual Studio would have stopped on the line where it has this problem, or the error pallet will tell you the file name and line number where the problem is.

On that line, you have a variable "It" that you are trying to use, only you have declared it before trying to use it.
It looks to be in your 'Flow the streams portion &lt

[!NoItAll]

Try

 While  totalBytesWritten < totalFileLength 

This is what happens when you just cut and paste code from a web page. The "<" (less than) symbol gets turned into an HTML entity "&lt;"
There are two instances of this error that I can see....