7492
社区成员
将文件读取为16禁止
我有一个很小的任意类型的文件,我希望办到以下的几点:
1.读取这个文件十六制内容,然后保存为如:"30 82 00 FF 0C 0D" 这种字串到TXT
2.读取这个TXT中的如:"30 82 00 FF 0C 0D"的字串,还原出这个完整的文件保存到硬盘
如何能办到,希望麻烦各位高手们给出思路方法
如果不能办到,希望麻烦解释一下为什么无法办到
1.读取这个文件十六制内容,然后保存为如:"30 82 00 FF 0C 0D" 这种字串到TXT
2.读取这个TXT中的如:"30 82 00 FF 0C 0D"的字串,还原出这个完整的文件保存到硬盘
如何能办到,希望麻烦各位高手们给出思路方法
如果不能办到,希望麻烦解释一下为什么无法办到
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
鸭梨山大帝 2008-03-11
谢了~,高人,结贴给分
智能卡_Snooper 2008-03-11
Option Explicit
Private Sub Command1_Click()
binary2ascii "d:\0.jpg", "d:\1.txt"
ascii2binary "d:\1.txt", "d:\1.jpg"
End Sub
Private Function gethex(ByVal c As Byte) As String
Dim s As String
s = Trim(Hex$(c))
If c < 16 Then
s = "0" & s
End If
gethex = s
End Function
Private Function h2s(ByRef h() As Byte, ByVal start As Long, ByVal length As Long) As String
Dim s As String
Dim i As Long
For i = start To start + length - 1
s = s & gethex(h(i)) & " "
Next i
h2s = s
End Function
Private Function binary2ascii(ByVal src As String, ByVal dest As String) As Boolean
Dim len1 As Long
Dim bin() As Byte
len1 = FileLen(src)
ReDim bin(0 To len1 - 1) As Byte
Open src For Binary As #1
Get #1, , bin
Close #1
Dim s As String
Dim i As Long
Open dest For Output As #1
For i = 0 To len1 - 1 Step 16
If len1 - 1 - i > 16 Then
s = h2s(bin, i, 16)
Else
s = h2s(bin, i, len1 - i)
End If
Print #1, s
Next i
Close #1
binary2ascii = True
End Function
Private Function parse(ByVal s As String, ByRef bin() As Byte, ByVal offset As Long) As Long
s = Replace(s, " ", "")
Dim i As Long
Dim l As Long
For i = 1 To Len(s) Step 2
bin(offset + l) = Val("&h" & Mid(s, i, 2))
l = l + 1
Next i
parse = l
End Function
Private Function ascii2binary(ByVal src As String, ByVal dest As String) As Boolean
Dim s As String
Dim len1 As Long
Dim parselen As Long
Dim bin(0 To 15) As Byte
Dim i As Long
Open dest For Binary As #2
Close #2
Kill dest
Open src For Input As #1
Open dest For Binary As #2
Do
Line Input #1, s
len1 = parse(s, bin, 0)
If 16 = len1 Then
Put #2, , bin
Else
For i = 0 To len1 - 1
Put #2, , bin(i)
Next i
End If
Loop While Not EOF(1)
Close #2
Close #1
ascii2binary = True
End Function鸭梨山大帝 2008-03-11
谢谢,读取已经OK,但是目前 如何把这个TXT字串 还原成之前的文件呢(假定,我使用的是A.EXE文件为源)
智能卡_Snooper 2008-03-11
Option Explicit
Private Sub Command1_Click()
binary2ascii "d:\1.bin", "d:\1.txt"
End Sub
Private Function gethex(ByVal c As Byte) As String
Dim s As String
s = Trim(Hex$(c))
If c < 16 Then
s = "0" & s
End If
gethex = s
End Function
Private Function h2s(ByRef h() As Byte, ByVal start As Long, ByVal length As Long) As String
Dim s As String
Dim i As Long
For i = start To start + length - 1
s = s & gethex(h(i)) & " "
Next i
h2s = s
End Function
Private Function binary2ascii(ByVal src As String, ByVal dest As String) As Boolean
Dim len1 As Long
Dim bin() As Byte
len1 = FileLen(src)
ReDim bin(0 To len1 - 1) As Byte
Open src For Binary As #1
Get #1, , bin
Close #1
Dim s As String
Dim i As Long
Open dest For Output As #1
For i = 0 To len1 - 1 Step 16
If len1 - 1 - i > 16 Then
s = h2s(bin, i, 16)
Else
s = h2s(bin, i, len1 - i)
End If
Print #1, s
Next i
Close #1
binary2ascii = True
End FunctionCommandButton 2008-03-11
当然能办到，否则比尔盖茨会很伤心的。等1楼的代码吧
鸭梨山大帝 2008-03-11
已知的任意类型,以EXE执行档为例来举例看看?
舉杯邀明月 2008-03-11
读数据文件:
定义一 Byte 类型的变量bData，用二进制方式打开文件进行读操作，每次就可以只读一个字节了。
定义一 String 类型的变量sOutStr，用
sOutStr = Right$("0" & Hex$(bData) & " ", 3)
把每一个字节的数据转换成十六进制的字符串（加１空格），再把它依次输出到另一个用二进制方式打开文件中，就转换成文本文件了。
输出时用这样的语句（假设输出文件号是２）：
Print #2, , sOutStr;
注意后面有分号，否则它会加上“回车”、“换行”两个控制字符。
LZ没有说清楚文本文件的具体存放格式，因此不好说“还原”的具体细节。
定义一 Byte 类型的变量bData，用二进制方式打开文件进行读操作，每次就可以只读一个字节了。
定义一 String 类型的变量sOutStr，用
sOutStr = Right$("0" & Hex$(bData) & " ", 3)
把每一个字节的数据转换成十六进制的字符串（加１空格），再把它依次输出到另一个用二进制方式打开文件中，就转换成文本文件了。
输出时用这样的语句（假设输出文件号是２）：
Print #2, , sOutStr;
注意后面有分号，否则它会加上“回车”、“换行”两个控制字符。
LZ没有说清楚文本文件的具体存放格式，因此不好说“还原”的具体细节。
智能卡_Snooper 2008-03-11
这很简单，一会儿给你一个程序。
python读取大文件越来越慢的原因与解决 今天同事写代码，用python读取一个四五百兆的文件，然后做一串逻辑上很直观的处理。结果处理了一天还没有出来结果。问题出在哪里呢？ 解决： 1. 同事打印了在不同时间点的时间，在需要的地方插入如下代码: print ...
python将txt文件（ASCII码格式），转化为16进制文件 #读取的txt文件 infile = open("god.txt","r"); #输出的cer文件，当然你想输出什么格式都可以 outfile = open("god.cer","wb"); #开始读文件 a = infile.read(1); _combine = ""; i=0; while a != '\n': if ' ' ==...
VC中怎么读取文件 w+ 打开可读写文件，若文件存在则文件长度清为零，即该文件内容会消失。若文件不存在则建立该文件； a 以附加的方式打开只写文件。若文件不存在，则会建立该文件，如果文件存在，写入的数据会被加到文件尾，即文件...
VC.NET为文件增加权限控制.rar VC.NET为文件增加访问权限，增加了一些文件属性的控制操作，也就是权限控制，为指定帐户的指定文件权限比如：完全控制、修改、读取和运行、读娶写入等权限，可以为这些权限指定是“允许”或是“禁止”。比如下面的...
C语言文件读写命令 C语言文件读写命令 C语言把磁盘文件看成是字符（或字节）的序列，按照存储信息的形式来说，文件主要是有文本文件和二进制文件。文本文件由一个个字符组成，每个字节存放一个ASCII码制，代表一个字符。二进制文件...
利用Tomcat catalina.policy实现禁止文件读写demo（window版） 概述：java必用的服务器应该就是tomcat，tomcat涉及内容很多，今天利用catalina.out实现禁止文件读写demo。 1、先决条件 安装好JDK（笔者JDK 1.8） 安装好tomcat（笔者tomcat 7.0） 2、思路 写一个servlet放置...
【GO】文件读写：打开关闭+打开模式+文件权限+文件读取 咔咔博客之文件打开与关闭 案例 文件的操作使用os包 package main import ( "fmt" "os" "time" ) func main() { file, e := os.Open("D:/kaka.txt") if e != nil { fmt.Println("文件打开失败") } else {...
mysql任意文件读取漏洞学习 最近在做ctf题时发现关于mysql任意文件读取漏洞的考点非常频繁，而且一直都朦胧不清，也没去学习，在不久前的DDCTF和国赛，还有最近的Nu1lCTF中都考到了这个点，利用Load data infile语法。在mysql客户端登陆mysql...
python 读取二进制文件 转为16进制输出 示例： #!/usr/bin/env python #encoding: utf-8 import binascii fh = open(r 'C:\Temp\img\2012517165556.png', 'rb') ...print hexstr #示意结果为4d5a900003000000....
