二进制交错加密与解密方法：简单文件操作

简单的文件二进制交错加密

    ''' <summary>
    ''' 对数据处理
    ''' </summary>
    ''' <param name="Filename">要处理的文件名</param>
    '''<param name="mode">工作模式，0-数据交错</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function clockfile(ByVal FileName As String,  ByVal mode As Integer) As Integer
        'Dim FileName As String = "" '原文件名
        'Dim kernelFile As String = "" '核心文件名
        'Dim mainFile As String = "" '主文件名


        Dim fi As FileInfo
        If mode = 1 Then
            fi = New FileInfo(FileName)
            FileName = fi.Name
        Else
            fi = New FileInfo(Me.TextBox2.Text & "\" & mainFile)
        End If

        Dim fs As FileStream = fi.OpenRead()
        Dim nBytes As Double = fs.Length - 1
        Dim ByteArray(nBytes) As Byte

        Dim CreaTime, EditTime As Date
        CreaTime = fi.CreationTime
        EditTime = fi.LastWriteTime