form4.frm

一款反编译VFP程序的代码的工具

VERSION 5.00
Begin VB.Form form4 
   Caption         =   "Fox反编译之星/vfpdrcord.dll 修改器"
   ClientHeight    =   5025
   ClientLeft      =   6810
   ClientTop       =   2655
   ClientWidth     =   4680
   Icon            =   "form4.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5025
   ScaleWidth      =   4680
   Begin VB.CommandButton Command3 
      Caption         =   "修改索引号"
      Enabled         =   0   'False
      Height          =   375
      Left            =   3315
      TabIndex        =   14
      Top             =   1470
      Width           =   1020
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   2655
      TabIndex        =   13
      Top             =   1470
      Width           =   600
   End
   Begin VB.CommandButton Command4 
      Caption         =   "新增参考"
      Height          =   375
      Left            =   3330
      TabIndex        =   12
      Top             =   4605
      Width           =   1200
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   30
      TabIndex        =   11
      Top             =   4590
      Width           =   3255
   End
   Begin VB.TextBox Text3 
      ForeColor       =   &H000000FF&
      Height          =   1815
      Left            =   60
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   7
      Top             =   2700
      Width           =   4560
   End
   Begin VB.CommandButton Command2 
      Caption         =   "修改库名"
      Enabled         =   0   'False
      Height          =   375
      Left            =   1725
      TabIndex        =   5
      Top             =   1470
      Width           =   870
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   60
      MaxLength       =   9
      TabIndex        =   3
      Top             =   1470
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Height          =   375
      Left            =   3720
      Picture         =   "form4.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   360
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   360
      Width           =   3615
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   1800
      TabIndex        =   10
      Top             =   780
      Width           =   2175
   End
   Begin VB.Label Label5 
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "文件中的链接库名为"
      Height          =   375
      Left            =   0
      TabIndex        =   9
      Top             =   795
      Width           =   1695
   End
   Begin VB.Label Label4 
      Caption         =   "以下为已知加密软件的链接库名,请参考"
      Height          =   375
      Left            =   180
      TabIndex        =   8
      Top             =   2415
      Width           =   4215
   End
   Begin VB.Label Label3 
      Caption         =   "修改链接库名可以解密更改vf链接库加密的软件.如   VFP&EXENC.FOXLOCK.REFOX BLOAND II等加密的软件."
      Height          =   495
      Left            =   180
      TabIndex        =   6
      Top             =   1935
      Width           =   4335
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入要加入的链接库名,除vfp6r.dll外不用输入扩展名dll,最多9个英文字字母."
      Height          =   495
      Left            =   15
      TabIndex        =   4
      Top             =   1050
      Width           =   4695
   End
   Begin VB.Label Label1 
      Caption         =   "请选择要修改的vfpdecoder.dll"
      Height          =   330
      Left            =   120
      TabIndex        =   2
      Top             =   60
      Width           =   4095
   End
End
Attribute VB_Name = "form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const MAX_PATH = 260
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type BrowseInfo
    hwndOwner As Long
    pidlRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Private Function OpenFile(THwnd As Long, Ttitle As String, Tfilter As String, aType As String) As String
Dim OFN As OPENFILENAME
Dim A As Long

    OFN.lStructSize = Len(OFN)
    OFN.hwndOwner = THwnd
    OFN.hInstance = App.hInstance
    OFN.lpstrFilter = Tfilter + chr$(0) + "*." + UCase(aType)
    OFN.lpstrFile = Space$(254)
    OFN.nMaxFile = 255
    OFN.lpstrFileTitle = Space$(254)
    OFN.nMaxFileTitle = 255
    OFN.lpstrInitialDir = App.path & "\"
    OFN.lpstrTitle = Ttitle
    OFN.Flags = 0
    A = GetOpenFileName(OFN)
        If (A) Then
            OpenFile = Left(OFN.lpstrFile, InStr(OFN.lpstrFile, chr(0)) - 1)
        End If
        
 End Function


Private Sub Command1_Click()
Dim ww As String, tt As String * 9, cd As Integer, I As Integer, bb As String, ss As Integer
 Command2.Enabled = False
Text1.Text = OpenFile(Me.hWnd, "请选择", "VFPdecodrdll(*.dll)", "dll")
If Right(Text1.Text, 14) <> "VFPDecoder.dll" Then
  MsgBox "所选文件不是VFPDecoder.dll！请重选", vbInformation + vbSystemModal, "信息提示"
    Text1.Text = ""
    Text2.Text = ""
     Text5.Text = ""
    Label6.Caption = ""
    Else
   ww = Text1.Text
    Open ww For Binary As #1
    
     
    Seek #1, 7047
     Get #1, , ss
    Text5.Text = ss
    Seek #1, 12445
     Get #1, , tt
     Text2.Text = tt
     Label6.Caption = tt
    Command2.Enabled = True
     Command3.Enabled = True
    Close #1
     End If
End Sub

Private Sub Command2_Click()
Dim wwg As String, cd As Integer, I As Integer, tttt As String * 9, key As Byte, cd1 As Integer, sjj As Integer
 If Len(Text2.Text) > 0 Then
  tttt = Text2.Text
 cd = Len((Text2.Text))
   If cd <> 9 Then
   cd1 = 9 - cd

   key = 0
sjj = Val(Text5.Text)
   wwg = Text1.Text
    Open wwg For Binary As #1
    Seek #1, 12445
     Put #1, , tttt
    For I = 1 To cd1
    Seek #1, 12444 + cd + I
   Put #1, , key
   Next I
   Close #1
  Else
   wwg = Text1.Text
    Open wwg For Binary As #1
    Seek #1, 12445
     Put #1, , tttt
     Close #1
 End If
   MsgBox "修改完成", vbInformation + vbSystemModal, "信息提示"
 End If
End Sub



Private Sub Command3_Click()
Dim wwg As String, cd As Integer, I As Integer, tttt As String * 9, key As Byte, cd1 As Integer, sjj As Integer
 sjj = Int(Val(Text5.Text))
   wwg = Text1.Text
    Open wwg For Binary As #1
   Seek #1, 7047
     Put #1, , sjj
  Close #1
 MsgBox "修改完成", vbInformation + vbSystemModal, "信息提示"
End Sub


Private Sub Command4_Click()

Dim wj As String
If Len(Text4.Text) > 0 Then
Text3.Text = Text3.Text + Text4.Text + chr$(13) + chr$(10)
wj = App.path + "\dll.ini"
Open wj For Output As #1
Print #1, Text3.Text
Close #1
End If
End Sub

Private Sub Form_Load()
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Dim dllm As String, cl As String, wj As String
wj = App.path + "\dll.ini"
If dir(wj) <> "" Then
Open wj For Input As #1
Do While Not EOF(1)
Line Input #1, dllm$
cl$ = cl$ + "" + dllm$ + chr$(13) + chr$(10) 'chr$(13) + chr$(10)
Loop
Text3.Text = cl$
Close #1
End If
End Sub