解密和读出

时间：2014-07-19 13:15:37

标签： c# excel vba encryption

我有一个用VBA（EXCEL）编写的非常简单的应用程序。此应用程序获取一些输入数据并提供*.pro文件。 （此应用程序获取输入数据并将其以自己的格式放入*.pro文件中。） 输入字段是数字和文本数据，如：
CPE，W，W，15.8,16.5,12,23,143.23等 当我在Notepad ++中打开输出时，我看到如下内容：

enter image description here

我尝试用C＃.NET编写一个提供类似输出的函数。所以我调查 vba 文件，发现它使用二进制文件并使用PUT statement向其写入数据：

Open FileName For Binary Access Read Write Lock Write As #fn
Put #fn, 1&, DummyName

我在C＃中编写代码并尝试使用BinaryWritter。但是我的代码和 vba 应用的输出并不相似。请注意，* .pro文件可能会导入某些第三方软件，如CSi软件。很明显，我的函数输出是不可导入的。以下是我使用的代码的一部分：

    if (save.ShowDialog() == System.Windows.Forms.DialogResult.OK)
        if (save.FileName.Length > 0)
            using (BinaryWriter br = new BinaryWriter(File.Open(save.FileName, FileMode.Create)))
            {
                br.Write(dummy + dummy + dummy + dummy);
                br.Write(7);
                br.Write(5);
                br.Write(1);
                br.Write(dummy + dummy + dummy + dummy + dummy + dummy + "01234567");
                br.Flush();
                br.Close();
            }

有没有办法知道使用哪种算法来创建此输出？或者是否可以将此输出转换为可读格式？

1 个答案:

答案 0 :(得分：0)

此代码用于阅读专业文件

Function FileReadOld() As Boolean
  
  Dim i As Long
  Dim j As Long
  Dim fn As Long
  Dim tmpBool As Boolean
  Dim tmpFileName As String
  Dim Dummy40 As String * 40
  Dim tmpSingle As Single
  
  FileReadOld = False

  On Error GoTo OpenFileError

  fn = FreeFile
  Close #fn
  Open FileName For Binary Access Read Write Lock Write As #fn

  Get #fn, 1&, DummyName
  Get #fn, , OldVersion
  Get #fn, , OldUnits
  Get #fn, , NumberOldSectionDatas
  Get #fn, , DummyString1
  
  If OldVersionRead = 6 And OldVersion <> 6 Then
    msg = "The file named " & FileName & " is not recognized as a "
    msg = msg & "PROPER Version 6 file.  The section database file was NOT "
    msg = msg & "read." & vbCrLf & vbCrLf
    LogMsg = LogMsg & msg
    Close #fn
    Exit Function
  End If
  
  If OldVersionRead = 7 And OldVersion <> 7 Then
    msg = "The file named " & FileName & " is not recognized as a "
    msg = msg & "PROPER Version 7 file.  The section database file was NOT "
    msg = msg & "read." & vbCrLf & vbCrLf
    LogMsg = LogMsg & msg
    Close #fn
    Exit Function
  End If
  
  Select Case OldUnits
    Case 1
      UnitsName = "Inches"
    Case 2
      UnitsName = "Feet"
    Case 3
      UnitsName = "Millimeters"
    Case 4
      UnitsName = "Meters"
    Case 5
      UnitsName = "Centimeters"
    Case Else
      msg = "The units specified in the file named " & FileName & " are "
      msg = msg & "not recognized.  The section database file was NOT "
      msg = msg & "read." & vbCrLf & vbCrLf
      LogMsg = LogMsg & msg
      Close #fn
      Exit Function
  End Select
  
  
  If NumberOldSectionDatas > 0 Then
    ReDim SectionData(NumberOldSectionDatas)
  End If
  
  For i = 1 To NumberOldSectionDatas
  
    Get #fn, , Dummy40
    If OldVersionRead = 6 Then
      SectionData(i).Name = UCase$(RTrim$(Left$(Dummy40, 18&)))
    Else
      SectionData(i).Name = UCase$(RTrim$(Left$(Dummy40, 36&)))
    End If
    SectionData(i).shapetype = UCase$(Left$(Right$(Dummy40, 4&), 2&))

    Select Case SectionData(i).shapetype
      Case "I ":   SectionData(i).sh = SECTION_I
      Case "W ":   SectionData(i).sh = SECTION_I
      Case "WW":   SectionData(i).sh = SECTION_I
      Case "C ":   SectionData(i).sh = SECTION_CHANNEL
      Case "T ":   SectionData(i).sh = SECTION_T
      Case "TW":   SectionData(i).sh = SECTION_T
      Case "L ":   SectionData(i).sh = SECTION_ANGLE
      Case "2L":   SectionData(i).sh = SECTION_DBLANGLE
      Case "B ":   SectionData(i).sh = SECTION_BOX
      Case "P ":   SectionData(i).sh = SECTION_PIPE
      Case "R ":   SectionData(i).sh = SECTION_RECTANGULAR
      Case "CR":   SectionData(i).sh = SECTION_CIRCLE
      Case "G ":   SectionData(i).sh = SECTION_GENERAL
      Case "SD":   SectionData(i).sh = SECTION_GENERAL
    End Select

    '1: d, t3
    Get #fn, , tmpSingle
    Select Case SectionData(i).sh
      Case SECTION_I, SECTION_CHANNEL, SECTION_T, SECTION_ANGLE, SECTION_DBLANGLE
          SectionData(i).d = CDbl(tmpSingle)
      Case SECTION_BOX, SECTION_RECTANGULAR, SECTION_GENERAL
          SectionData(i).ht = CDbl(tmpSingle)
      Case SECTION_PIPE, SECTION_CIRCLE
          SectionData(i).od = CDbl(tmpSingle)
    End Select
    
    '2: bf, t2
    Get #fn, , tmpSingle
    Select Case SectionData(i).sh
      Case SECTION_I, SECTION_CHANNEL, SECTION_T
          SectionData(i).bf = CDbl(tmpSingle)
      Case SECTION_ANGLE, SECTION_DBLANGLE, SECTION_BOX, SECTION_RECTANGULAR, SECTION_GENERAL
          SectionData(i).b = CDbl(tmpSingle)
      Case SECTION_PIPE, SECTION_CIRCLE
          'not used
    End Select
    
    '3: tf
    Get #fn, , tmpSingle
    Select Case SectionData(i).sh
      Case SECTION_I, SECTION_CHANNEL, SECTION_T
          SectionData(i).bf = CDbl(tmpSingle)
      Case SECTION_ANGLE, SECTION_DBLANGLE, SECTION_BOX, SECTION_RECTANGULAR, _
           SECTION_GENERAL, SECTION_PIPE, SECTION_CIRCLE
          'not used
    End Select
    
    '4: tw
    Get #fn, , tmpSingle
    Select Case SectionData(i).sh
      Case SECTION_I, SECTION_CHANNEL, SECTION_T
          SectionData(i).twsdb = CDbl(tmpSingle)
      Case SECTION_ANGLE, SECTION_DBLANGLE, SECTION_PIPE
          SectionData(i).t = CDbl(tmpSingle)
      Case SECTION_BOX
          SectionData(i).tdes = CDbl(tmpSingle)
      Case SECTION_BOX, SECTION_RECTANGULAR, SECTION_GENERAL, SECTION_CIRCLE
          'not used
    End Select
    
    '5: xk
    Get #fn, , tmpSingle
    Select Case SectionData(i).sh
      Case SECTION_I, SECTION_CHANNEL, SECTION_T, SECTION_ANGLE, SECTION_DBLANGLE
          SectionData(i).kdes = CDbl(tmpSingle)
      Case SECTION_BOX, SECTION_RECTANGULAR, _
           SECTION_GENERAL, SECTION_PIPE, SECTION_CIRCLE
          'not used
    End Select
          
    '6: area
    Get #fn, , tmpSingle
    SectionData(i).a = CDbl(tmpSingle)
    
    '7: torsion
    Get #fn, , tmpSingle
    SectionData(i).j = CDbl(tmpSingle)
    
    '8: I33
    Get #fn, , tmpSingle
    SectionData(i).ix = CDbl(tmpSingle)
    
    '9: I22
    Get #fn, , tmpSingle
    SectionData(i).iy = CDbl(tmpSingle)
    
    '10: AS2
    Get #fn, , tmpSingle
    SectionData(i).asy = CDbl(tmpSingle)
    
    '11: AS3
    Get #fn, , tmpSingle
    SectionData(i).asx = CDbl(tmpSingle)
    
    '12: Z33
    Get #fn, , tmpSingle
    SectionData(i).zx = CDbl(tmpSingle)
    
    '13: Z22
    Get #fn, , tmpSingle
    SectionData(i).zy = CDbl(tmpSingle)
    
    '14: xb
    Get #fn, , tmpSingle
    SectionData(i).x = CDbl(tmpSingle)
    
    '15: yb
    Get #fn, , tmpSingle
    SectionData(i).y = CDbl(tmpSingle)
    
    '16: nothing
    Get #fn, , tmpSingle
    
    '17: dis
    Get #fn, , tmpSingle
    SectionData(i).dissdb = CDbl(tmpSingle)
    
    '18: nothing
    Get #fn, , tmpSingle
    
    '19: t2b, nowhere to fill in this database
    Get #fn, , tmpSingle
    'SectionData(i).??? = CDbl(tmpSingle)
    
    '20: tfb, nowhere to fill in this database
    Get #fn, , tmpSingle
    'SectionData(i).??? = CDbl(tmpSingle)
    
  Next i
  
  FileReadOld = True
  Close #fn
  
  Exit Function

OpenFileError:
  msg = "Can not open the file named " & FileName & "!  It may be in use "
  msg = msg & "by another program.  The section database file was NOT "
  msg = msg & "read." & vbCrLf & vbCrLf
  LogMsg = LogMsg & msg
  Close #fn
  Exit Function

End Function

相关问题
最新问题