一个简单的Dump转文本工具—Dump2Text
2015-05-29 14:53
183 查看
每次电脑重装都得烦心,要把庞大的IDE重新配置一次,正准备安装Visual Stdio 2010,上网找镜像的时候发现,Visual Stdio 2013推出了Community版,不仅没有lite掉,而且还全免费!这里Post个官方的镜像下载地址先(Visual Stdio Community 2013),破解版就别用啦,反正不是商用,社区版足矣。
既然安装好了最新版的VS,自然要来弄点东西解解馋,最近一直在做RFID的项目,正需要一个Windows版的dump转txt工具,虽说有Mifare Classic Tools提供的Bash脚本,还有Python版,但Windows上使用始终是不方便,所以决定用VB.Net来做一个。不得不说,最新的.Net的确让人有点受不了,代码臃肿,但的确语言是越来越高级了,跟F#一样,开始接近人类自然语言了,效率嘛相对来说比之前也好了一些,但是毕竟是要用虚拟机运行的,要求就不要太高了。
不说废话,贴出关键代码。
这里给大家再讲解一下几个难点,其他的请看代码注释。
1、读取出来的字节必须用Hex()函数进行转换,否则将以十进制显示,而且对读出来的字节必须调用PadLeft过程进行format,比如如果读取出来02,系统就会将其处理为2,PadLeft可以将其重新修正为02。
2、我使用了ReadCircle记录读出的字节,用ReadChangeLine记录段数,大家也都知道,S50卡都是每段16个字节,4段一个扇区,我用vbCrLf为他们换行,还原了Dump原有的格式。
3、为什么我要用Select Case进行两个操作呢。因为Dump文件有两种标准,一种是1k,一种是4k,4k在1024字节之后全空白,没必要进行转换,所以在文件流指针到达1024时候就退出循环。
4、判断EOF的时候不要用peekchar()!.Net中peekchar()可以预读下一位但保持指针地址不变,返回值为-1时表示到达文件末端,但是如果编码格式存在不同,就会出现异常,这是.Net的一个Bug,所以我们用BaseStream.Length获取整个文件的长度,然后跟指针位置BaseStream.Position进行比较,文件指针位置跟文件长度相等的时候就退出循环。
程序稍微做了一下界面。如图
代码其实还是有缺陷的,但是现在还没时间去完善,等过两天在Post个1.2版本上来。这里先放个1.1的给大家尝尝鲜,点击文本框可以选择文件,然后点按钮就会开始转换,在Dump文件同个目录下生成同名txt。注意要装.Net框架哦!
Download Dump2Text (Version 1.1)
既然安装好了最新版的VS,自然要来弄点东西解解馋,最近一直在做RFID的项目,正需要一个Windows版的dump转txt工具,虽说有Mifare Classic Tools提供的Bash脚本,还有Python版,但Windows上使用始终是不方便,所以决定用VB.Net来做一个。不得不说,最新的.Net的确让人有点受不了,代码臃肿,但的确语言是越来越高级了,跟F#一样,开始接近人类自然语言了,效率嘛相对来说比之前也好了一些,但是毕竟是要用虚拟机运行的,要求就不要太高了。
不说废话,贴出关键代码。
'Project Name:Dump2Text 'Version:1.1 'IDE:Visual Stdio 2013-Visual Basic.Net 'Designed by Sirius Web-bobylive 'http://bobylive.com 'Email:i#boby.im (Replace # into @) 'Date:2015-02-16 Dim DumpData As String, ReadData As Byte, ReadCircle As Byte, ReadChangeLine As Byte, TextName As String, TextPath As String, FilePath As String = TextBoxFilePath.Text '定义变量 If FilePath <> "" Then '保证文件目录不为空,否则下面处理将会出错,其实这里应该还增加一个检测文件是否存在的,1.2版本的时候再奉上 TextBoxFilePath.Text = FilePath Dim SetDump As New IO.FileStream(FilePath, IO.FileMode.Open) '打开文件句柄,使用FileStream Dim ReaDump As New IO.BinaryReader(SetDump) '因为是binary文件,所以使用BinaryReader,byte读出 TextName = My.Computer.FileSystem.GetName(FilePath) '获取Dump的文件名 TextPath = My.Computer.FileSystem.GetParentPath(FilePath) '获取文件路径 ReaDump.BaseStream.Position = 0 '指针设置为0,VB引入了指针还是很方便的 DumpData = "" Select Case ReaDump.BaseStream.Length '针对1k和4k的Dump进行处理 Case 1024 Do ReadData = ReaDump.ReadByte ReadCircle += 1 DumpData &= Hex(ReadData).PadLeft(2, "0") '修正读出字节格式 If ReadCircle = 16 Then '分段 DumpData &= vbCrLf ReadCircle = 0 ReadChangeLine += 1 End If If ReadChangeLine = 4 Then '分扇区 DumpData &= vbCrLf ReadChangeLine = 0 End If Loop While ReaDump.BaseStream.Position < ReaDump.BaseStream.Length '到文件末端的时候结束读取,这种方法一大亮点 SetDump.Close() '记得关闭文件句柄 ReaDump.Close() My.Computer.FileSystem.WriteAllText(TextPath & "\" & TextName & ".txt", DumpData, False, System.Text.Encoding.Default) '写入txt MessageBox.Show("Cotvert Successful!", "Congratulation!", MessageBoxButtons.OK) Case 4096 Do While ReaDump.BaseStream.Position < 1024 '忽略4k文件后面空白部分 ReadData = ReaDump.ReadByte ReadCircle += 1 DumpData &= Hex(ReadData).PadLeft(2, "0") If ReadCircle = 16 Then DumpData &= vbCrLf ReadCircle = 0 ReadChangeLine += 1 End If If ReadChangeLine = 4 Then DumpData &= vbCrLf ReadChangeLine = 0 End If Loop SetDump.Close() ReaDump.Close() My.Computer.FileSystem.WriteAllText(TextPath & "\" & TextName & ".txt", DumpData, False, System.Text.Encoding.Default) MessageBox.Show("Cotvert Successful!", "Congratulation!", MessageBoxButtons.OK) End Select Else MessageBox.Show("Please Select A Correct File!", "Error", MessageBoxButtons.OK) End If
这里给大家再讲解一下几个难点,其他的请看代码注释。
1、读取出来的字节必须用Hex()函数进行转换,否则将以十进制显示,而且对读出来的字节必须调用PadLeft过程进行format,比如如果读取出来02,系统就会将其处理为2,PadLeft可以将其重新修正为02。
2、我使用了ReadCircle记录读出的字节,用ReadChangeLine记录段数,大家也都知道,S50卡都是每段16个字节,4段一个扇区,我用vbCrLf为他们换行,还原了Dump原有的格式。
3、为什么我要用Select Case进行两个操作呢。因为Dump文件有两种标准,一种是1k,一种是4k,4k在1024字节之后全空白,没必要进行转换,所以在文件流指针到达1024时候就退出循环。
4、判断EOF的时候不要用peekchar()!.Net中peekchar()可以预读下一位但保持指针地址不变,返回值为-1时表示到达文件末端,但是如果编码格式存在不同,就会出现异常,这是.Net的一个Bug,所以我们用BaseStream.Length获取整个文件的长度,然后跟指针位置BaseStream.Position进行比较,文件指针位置跟文件长度相等的时候就退出循环。
程序稍微做了一下界面。如图
代码其实还是有缺陷的,但是现在还没时间去完善,等过两天在Post个1.2版本上来。这里先放个1.1的给大家尝尝鲜,点击文本框可以选择文件,然后点按钮就会开始转换,在Dump文件同个目录下生成同名txt。注意要装.Net框架哦!
Download Dump2Text (Version 1.1)
相关文章推荐
- C++转Java自学之路(四)文档注释、静态代码块与对象初始化过程
- 07、Spring_web.xml_OpenSessionInViewFilter
- thinkphp Controller.class.php 控制器类的祖宗分析
- 南京学思利用Json进行数据传输
- Css3+javascript实现“唯美”照片墙
- uva 116 Unidirectional TSP
- mybatis3 使用注意事项
- Linux中Samba详细安装
- 端口复用及其实现分析[Google Patch]
- 关于取火柴棒问题取胜方法的一些思考(简述)
- Linux平台安装xtools
- 使用ECharts实现数据图表分析
- 使用adb shell dumpsys检测Android的Activity任务栈
- jQuery 验证表单
- Oracle Cursor用法总结
- ExpandListView
- android Toast问题
- html手机端适配简介
- R语言函数环境空间
- List::find、search