189 8069 5689
REM 这是VB.NET写的函数 VB6应该也是一样的
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了开州免费建站欢迎大家使用！
Function StrReverse(ByVal str As String)
Dim str2 As String = ""
Dim cs As Char() = str.ToCharArray()
For i As Integer = cs.Length - 1 To 0 Step -1
str2 = str2 + cs(i)
Next
Return str2
End Function
Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m 0
r = m Mod 2
m = m \ 2
c$ = r c$
Loop
c$ = Right("00000000" c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("请输入要加密的文件名！注意加上路径名：")
If Dir(fname) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "完成！"
End Sub
退出：Unload Me
网上帮你找的，如果不符合你的要求，你可以再去网上在搜搜，有很多代码的。
看你的描述，既然Gb2312能取得中文，说明你收到的文字编码是Gb2312。
字符和数字却使用unicode编码，不正常。你可以把char数组中的00去掉，
再用gb2312转换就应该没问题了。
去掉就是把有用的字符向前移动。
好象有个StrReverse函数是直接反转字符串的吧..
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
那你就用文本文件的读取方式读回来，然后转换为二进制数组，再用二进制方式保存。