给一个比较简单的读写二进制文件的源程序！！！


open filename for random as #1
    put #1,1,password
    put #1,2,password
    ......
close #1读取
open filename for random as #1
    get #1,2,value
close #1修改2号
open filename for random as #1
    put #1,2,password
close #1

解决方案 »

  1.   

    用数据库吧，单机般就可以了
    加密用des64
      

  2.   

    '以下是读取Binary file的程式
    Dim Buff() as ByteOpen "d:\xyf.ttt" For Binary Access Read As #1
    ReDim Buff(267)Do While Not EOF(1)
       Get #1, , Buff  '每次读268个byte进来
       'Call 处理Buff 的Routine
    Loop
    Close #1'以下是写入Binary file的程式
    Dim Buff() As Byte
    Open "c:\xyf" For Binary Access Write As #1
    ReDim Buff(10)
    Buff = StrConv("这是一个11", vbFromUnicode)
    Put #1, , BuffReDim Buff(1)
    Buff(0) = 210
    Buff(1) = 70
    Put #1, , Buff
    Close #1
    End Sub
    '用XOR可以进行简单的加密
      

  3.   

    Dim Buff() as ByteOpen "d:\xyf.ttt" For Binary Access Read As #1
     ReDim Buff(lof(1)-1))
       Get #1, , Buff  '读
     put #1,,88 ‘写
    Close #1