URL：http://pcft.top263.net/zip/pcft-yz.zip
这个软件用了UPX0.9?加的外壳，脱了之后运行出来以下对话框：
“对不起！你这个软件可能是Vfp&Exe l.32以下版本加密的，无法运行，请你升级到1.33版！”
我就继续CRACK这个MESSAGEBOX，但过了之后他又出来一个对话框：
“请输入密码！”
唉！只有不了了之，
如果不脱壳，那么在输入注册码的地方很难拦的住！我试过hmemcpy,sendmessage,lockmytask等，就算拦住了，我估计也没什么可能找到注册码！（从作者的一系列的ANTI-CRACK来看，他在这方面是下了一番功夫的）
试过Wd32asm，没什么效果，那位大侠能教教我？多谢先。。。。
Option Explicit
Private Const MAX_FILENAME_LEN = 256
Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA"
_
(ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String,
_
ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long,
_
lpMaximumComponentLength As Long, lpFileSystemFlags As Long,
_
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize
As Long)
Public Function GetSerialNumber(sDrive As String) As Long
Dim ser As Long
Dim s As String * MAX_FILENAME_LEN
Dim s2 As String * MAX_FILENAME_LEN
Dim i As Long
Dim j As Long
Call GetVolumeInformation(sDrive + ":\" & Chr$(0), s, MAX_FILENAME_LEN,
ser, i, j, s2, MAX_FILENAME_LEN)
GetSerialNumber = ser
End Function
Private Sub cmdGenKey_Click()
Dim Code1, Code2, HardDiskSerial, Serial1, Serial2 As Long
Dim Key, PassWord As String
If Val(txtID.Text) < 100000000000000# Then
MsgBox "身份证号码至少为15位，请重新输入！", vbCritical, "警告"
txtID.Text = ""
txtID.SetFocus
Exit Sub
End If
HardDiskSerial = GetSerialNumber("c")
Code1 = 1000000 - Val(Mid(txtID.Text, 6, 6))
Code2 = 1000000 - Val(Mid(txtID.Text, 1, 6))
Serial1 = 2371 + Int(Val(HardDiskSerial) / 923)
Serial2 = 1807 + Int(Val(HardDiskSerial) / 737)
Key = Str(3 * (Serial1 + Code2) + (Serial2 + Code1))
Key = RTrim(LTrim(Key))
PassWord = "R" + Key + "Y"
PassWord = RTrim(LTrim(PassWord))
txtPassword.Text = PassWord
End Sub
FoxKill 不存在这个问题，我在公布Refox Brand II 解密插件时已经
将Refox Brand I+ 考虑进去了。Refox8之前是没有Brand I+,在写
FoxKill的时候，没有考虑到这个问题。到后来我发现Refox8的演示版
中可以轻易修改使其具备 Brand I+、II（0001E6F8: 0A改为1C ）的功
能时便公布了破解此类加密的插件。
Unfoxall 不能反编译是因为作者穆先生的小失误。对付UNFOXALL其实很
容易，随便改一点东西它就不能识别了。
也许适当的时候我会考虑公布 FOXPRO 2.5 - VFP 7.0的非标准EXE（加密、
变换）还原为标准APP文件的汇编原代码，这样你可以使用REFOX 7.X以上或
UNFOXALL都能正确反编译。
要研究FOX文件的反编译，必须先从研究APP文件入手。
不要找我要FoxKill，一个给我带来太多太多麻烦的心血之作，