每次电脑重装都得烦心，要把庞大的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)
