none
PUT输出就正常? RRS feed

  • 问题

  • Public Sub DecryptFile(SourceFile As String, DestFile As String, Optional Key As String)
    
    
    
       Dim jiemi As string
    
      Dim Filenr As Integer
    
    
    
      Dim ByteArray() As Byte
    
    
    
      Filenr = FreeFile
    
    
    
      Open SourceFile For Binary As #Filenr
    
    
    
      ReDim ByteArray(0 To LOF(Filenr) - 1)
    
    
    
      Get #Filenr, , ByteArray()
    
    
    
      Close #Filenr
    
    
    
      
    
    
    
    
    
    
    
      Call DecryptByte(ByteArray(), Key)
    
    
    
    
    
    
    
     
    
    
    
      If (FileExist(DestFile)) Then Kill DestFile
    
    
    
    
    
    
    
      Filenr = FreeFile
    
    
    
      Open DestFile For Binary As #Filenr          ‘关键部分
    
    
    
      jiemi() = ByteArray()                    
    
    
    
      jiemi =ByteArray()            如果是BYTE型,输出内容后,前面有一部分乱码,后面有几句是正常的
                       
    msgbox jiemi '一堆乱码出现
    Put #Filenr, , ByteArray() ’用PUT写到一个新文件,打开看内容就 完全正常 Close #Filenr End Sub
    • 已编辑 wajika 2009年8月10日 8:13
    2009年8月10日 7:49

答案

全部回复