哪位高手帮帮小妹，很着急，是关于加密与文件读写的问题，谢谢了

Question

我有一段要加密的文字，加密算法也有了。但是不知道该怎么读写文件。我的想法是这样的：在一个文件A中对这段文字进行加密，将加密后得到的结果写入一个新的文本文件X；如果想要得到那段文字，则在另一文件B里读取文件X中的文字，再对这段文字进行解密。
现在的问题是加密，解密算法都有了，可是文件读写却不知道该怎么进行，我用Open "d:\res.txt" For Binary As #1以及get与put这样的语句进行读写，却无法进行。
谁能给我提供点帮助吗？
谢谢！！

Answer 1

加密：
Dim sFile As String
Open "C:\A.txt" For Input As #1
sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
'对变量sFile 进行加密的代码
open "c:\x.txt" for output as #1'写入文件
print #1,sFile
close #1
解密：
Dim sFile As String
Open "C:\X.txt" For Input As #1
sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
'对变量sFile 进行解密的代码
open "c:\B.txt" for output as #1'写入文件
print #1,sFile
close #1

Answer 2

谢谢群子，我自己写了一个，但不能用，不知道错在哪，请你帮我看看好吗？
解密.cls
Public Function db()
    Dim conn As New ADODB.Connection
    Dim a() As Byte
    Open "d:\system\include\res.txt" For Binary As #1
    n2 = LOF(1)
    ReDim a(1 To n) As Byte
    Get #1, , a
    Close #1
    Dim s As String
    For i = 1 To n2
    s = s & Chr(a(UBound(a) - i))
    Next i
    s = StrReverse(s)
    解密
    conn.Open s
    Set db = conn
End FunctionPublic Sub connclose(connname)
connname.Close
Set connname = Nothing
End Sub加密.bas
Public Function blue()
Dim str As String
str = "Provider=SQLOLEDB;Data Source=0.0.0.1;UID=XX;PWD=000;Initial Catalog=Data"
n = Len(str)
Dim j() As Integer
Dim a2() As Byte
For i = 1 To n
ReDim j(1 To n) As Integer
ReDim a2(1 To n) As Byte
j(i) = Left(str, 1)
a2(i) = CByte(Asc(j(i)))
lenth1 = Len(str)
str = Right(str, lenth1 - 1)
Next i
加密
Open "d:\system\include\res.txt" For Binary As #1
Put #1, , a2
Close #1
End Function

Answer 3

str = Right(str, lenth1 - 1) => str = Right(str, lenth1 - i)