开发者社区> 广岛秋泽> 正文

一个简单的Dump转文本工具—Dump2Text

简介: 每次电脑重装都得烦心,要把庞大的IDE重新配置一次,正准备安装Visual Stdio 2010,上网找镜像的时候发现,Visual Stdio 2013推出了Community版,不仅没有lite掉,而且还全免费!这里Post个官方的镜像下载地址先(Visual Stdio Community 2013),破解版就别用啦,反正不是商用,社区版足矣。
+关注继续查看

每次电脑重装都得烦心,要把庞大的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 'Project Name:Dump2Text
 2 'Version:1.1
 3 'IDE:Visual Stdio 2013-Visual Basic.Net
 4 'Designed by Sirius Web-bobylive
 5 'http://bobylive.com
 6 'Email:i#boby.im (Replace # into @)
 7 'Date:2015-02-16
 8 
 9         Dim DumpData As String, ReadData As Byte, ReadCircle As Byte, ReadChangeLine As Byte, TextName As String, TextPath As String, FilePath As String = TextBoxFilePath.Text        '定义变量
10         If FilePath <> "" Then        '保证文件目录不为空,否则下面处理将会出错,其实这里应该还增加一个检测文件是否存在的,1.2版本的时候再奉上
11             TextBoxFilePath.Text = FilePath
12             Dim SetDump As New IO.FileStream(FilePath, IO.FileMode.Open)        '打开文件句柄,使用FileStream
13             Dim ReaDump As New IO.BinaryReader(SetDump)        '因为是binary文件,所以使用BinaryReader,byte读出
14             TextName = My.Computer.FileSystem.GetName(FilePath)        '获取Dump的文件名
15             TextPath = My.Computer.FileSystem.GetParentPath(FilePath)        '获取文件路径
16             ReaDump.BaseStream.Position = 0        '指针设置为0,VB引入了指针还是很方便的
17             DumpData = ""
18             Select Case ReaDump.BaseStream.Length        '针对1k和4k的Dump进行处理
19                 Case 1024
20                     Do
21                         ReadData = ReaDump.ReadByte
22                         ReadCircle += 1
23                         DumpData &= Hex(ReadData).PadLeft(2, "0")        '修正读出字节格式
24                         If ReadCircle = 16 Then        '分段
25                             DumpData &= vbCrLf
26                             ReadCircle = 0
27                             ReadChangeLine += 1
28                         End If
29                         If ReadChangeLine = 4 Then        '分扇区
30                             DumpData &= vbCrLf
31                             ReadChangeLine = 0
32                         End If
33                     Loop While ReaDump.BaseStream.Position < ReaDump.BaseStream.Length        '到文件末端的时候结束读取,这种方法一大亮点
34                     SetDump.Close()        '记得关闭文件句柄
35                     ReaDump.Close()
36                     My.Computer.FileSystem.WriteAllText(TextPath & "\" & TextName & ".txt", DumpData, False, System.Text.Encoding.Default)        '写入txt
37                     MessageBox.Show("Cotvert Successful!", "Congratulation!", MessageBoxButtons.OK)
38                 Case 4096
39                     Do While ReaDump.BaseStream.Position < 1024        '忽略4k文件后面空白部分
40                         ReadData = ReaDump.ReadByte
41                         ReadCircle += 1
42                         DumpData &= Hex(ReadData).PadLeft(2, "0")
43                         If ReadCircle = 16 Then
44                             DumpData &= vbCrLf
45                             ReadCircle = 0
46                             ReadChangeLine += 1
47                         End If
48                         If ReadChangeLine = 4 Then
49                             DumpData &= vbCrLf
50                             ReadChangeLine = 0
51                         End If
52                     Loop
53                     SetDump.Close()
54                     ReaDump.Close()
55                     My.Computer.FileSystem.WriteAllText(TextPath & "\" & TextName & ".txt", DumpData, False, System.Text.Encoding.Default)
56                     MessageBox.Show("Cotvert Successful!", "Congratulation!", MessageBoxButtons.OK)
57             End Select
58         Else
59             MessageBox.Show("Please Select A Correct File!", "Error", MessageBoxButtons.OK)
60         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)

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
19579 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
24726 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,云吞铺子总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系统盘、创建快照、配置安全组等操作如何登录ECS云服务器控制台? 1、先登录到阿里云ECS服务器控制台 2、点击顶部的“控制台” 3、通过左侧栏,切换到“云服务器ECS”即可,如下图所示 通过ECS控制台的远程连接来登录到云服务器 阿里云ECS云服务器自带远程连接功能,使用该功能可以登录到云服务器,简单且方便,如下图:点击“远程连接”,第一次连接会自动生成6位数字密码,输入密码即可登录到云服务器上。
32674 0
阿里云ECS云服务器初始化设置教程方法
阿里云ECS云服务器初始化是指将云服务器系统恢复到最初状态的过程,阿里云的服务器初始化是通过更换系统盘来实现的,是免费的,阿里云百科网分享服务器初始化教程: 服务器初始化教程方法 本文的服务器初始化是指将ECS云服务器系统恢复到最初状态,服务器中的数据也会被清空,所以初始化之前一定要先备份好。
14583 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
17893 0
腾讯云服务器 设置ngxin + fastdfs +tomcat 开机自启动
在tomcat中新建一个可以启动的 .sh 脚本文件 /usr/local/tomcat7/bin/ export JAVA_HOME=/usr/local/java/jdk7 export PATH=$JAVA_HOME/bin/:$PATH export CLASSPATH=.
13374 0
+关注
218
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
OceanBase 入门到实战教程
立即下载
阿里云图数据库GDB,加速开启“图智”未来.ppt
立即下载
实时数仓Hologres技术实战一本通2.0版(下)
立即下载