没有合适的资源?快使用搜索试试~ 我知道了~
简单的文件二进制交错加密
3星 · 超过75%的资源 需积分: 48 24 下载量 188 浏览量
2013-07-23
14:18:51
上传
评论
收藏 4KB TXT 举报
温馨提示
试读
5页
简单对文件进行二进制的错位交换,打乱原文件的排序,达到加密的目的,第一次执行是加密,第二次执行是解密。
资源推荐
资源详情
资源评论
简单的文件二进制交错加密
''' <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
''' <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
资源评论
- zhaohj9992017-10-06希望有用啊
- bibottle2015-05-07作为一枚小白,表示不知道怎么用TAT。。。。
wind1970459164
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功