• 标 题：桥牌程序Suit.exe的破解 (3千字)
• 作 者：blowfish
• 时 间：2001-1-13 20:20:34
• 链 接：http://bbs.pediy.com

2.DaBriSoft 软件公司出品的系列桥牌教学软件
① 花色定约的坐庄打法 1.1

--------------------------------------------------------------

Open gv1D10 + ":\input.data" For Output As l001E
Close #l001E
l0022% = 282
l0022% = Shell(gv1D14 + "dptreg.exe /" + gv1D14 + "dptwkey.EXE", 1)
While extfn00DB(l0022%) > 0
l0024% = DoEvents()
Wend
If  Dir(gv1D10 + ":\wrong") <> "" Then
MsgBox "The access code you have typed is wrong - try again.", 48, "Information"
GoTo L3C528
End If
If  Dir(gv1D10 + ":\success") = "" Then
MsgBox "An unknown error has occured - try again. Your harddisk may be in a bad condition.", 48, "Information"
GoTo L3C528
End If
If  Dir(gv1D10 + ":\success") <> "" Then
MsgBox "The access code has been accepted and the program is being exited. When you start the program again, it will be updated to the full version.", 48, "Information"
sub071A
End
End If

sub070E
If  gv1CE0 = 1 Then Spil.mnureg.Enabled = False
gv1CF0 = 3
If  gv1CE0 = 1 Then gv1CF0 = 33
If  gv1CE0 = 1 Then
Pral.Label2.Visible = False
Pral.Label7.Visible = False
Pral.Label8.Visible = False
End If
..........
End Sub

Sub sub070E ()
Dim l0BF4 As Integer
Dim l0BF6 As Integer
Dim l0BF8 As Variant
gv1CE0 = 0
l0BF8 = FreeFile
gv1D10 = String\$(145, Chr\$(0))
gv1D10 = Left\$(gv1D10, extfn00AE(gv1D10, Len(gv1D10)))
gv1D10 = Left\$(gv1D10, 1)
gv1D14 = String\$(145, Chr\$(0))
gv1D14 = Left\$(gv1D14, extfn00C5(gv1D14, Len(gv1D14)))
If  Right\$(gv1D14, 1) <> "\" Then gv1D14 = gv1D14 + "\"
sub071A
l0BF4% = 282
l0BF4% = Shell(gv1D14 + "dptwkey.EXE /3", 1)
While extfn00DB(l0BF4%) > 0
l0BF6% = DoEvents()
Wend
Open gv1D10 + ":\XMQRPT.DAT" For Input As l0BF8
Line Input #l0BF8, gv19D4\$
If  (Left\$(gv19D4\$, 2) = "07") Then
MsgBox "The program is installed on another computer. A registered program cannot be copied.", 48, "Information"
End
End If
If  (Left\$(gv19D4\$, 2) = "00") Then gv1CE0 = 1
Close l0BF8
sub071A
End Sub

1、将suit.exe中的“XMQRPT.DAT”改成“123456.dat”。该文件中共有4个“XMQRPT.DAT”，只改第一处即可。
3、建立一个文本文件c:\123456.dat，只要其第一行的前两个字符为“00”即可。

dptreg.exe和dptwkey.exe是两个小文件，且不是VB3的。有兴趣的可研究一下这两个东西写个注册机（bpint 21 if ah=xx）。

blowfish 2001/01/13