fn = File1.FileName
Open fn For Binary As #1
MsgBox LOF(1)

If LOF(1) > 0 Then                          '如果1文件的长度>0
   k = LOF(1)                               'k=1文件的长度
   ReDim B(k)                                '重定义数组B为文件的长度
   Get #1, , B(k)                            '把文件里的内容读到B数组
   MsgBox B(k)
   Close #1
'------------------------------------------------------------------------------
  Dim P As Long                              '定义长整数P
    PassWord = "asdasdasds"                  '定义字符串PassWord = "asdasdasds"
    q = Len(PassWord)                        'q=PassWord的长度
  ReDim B1(q)                                '重定义数组B1为密码长度

  For j = 1 To q                             'j=1到q循环
    B1(q) = Asc(Mid(PassWord, j, 1))         'B1(q)=取ASCII码(PassWord,第j(j=1 to q)个开始,取一个字符)
  Next j

  For j = LBound(B) To UBound(B)                     'j=B一维上标数到数组B的一维下标数,即数组B的长度
    B(j) = B(j) Xor B1(q)                    'B(j)=B(j)异或B1(q)
  
  If P > q Then P = 0                        '如果P>q P=0
  
  Next j
'-------------------------------------------------------------------------------
  Open fn For Binary As #1
    Put #1, , B(k) ' 把B写入#1
    Close #1
    MsgBox "加密完成！"
Else
    Close #1
    MsgBox "加密未完成！"
End If
End Sub


各位专家，这个是我弄的加密程序，程序存在F盘，好象有很多问题，我做了三个控件来确定加密文件的位置，drive1、dir1和file1这三个，现在这三个控件已经互相关联，但我选了要加密的文件以后，比如在C盘，但文件没被加密，却在F盘我这个程序的文件夹下生成了一个和我选择的要加密的文件同名的空文件，我把要加密的内容复制过来，发现只是文件第一个字变了，后面都没变，请问大家这个该怎么修改才能实现加密呢？效果是加密后文件为乱码，再运行一次还原，谢谢大家！！

能把源程序打包发来吗??? 看代码头晕啊