pwdwordbook.frm

利用穷解法破解QQ时要用到的字典,可用同一QQ生成相应的不同密码.也可以利用一个弱密码生成不同的QQ段.

VERSION 5.00
Begin VB.MDIForm FrmPWDWordBook 
   BackColor       =   &H00FF8080&
   Caption         =   "密码字典"
   ClientHeight    =   6510
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   6750
   Icon            =   "PWDWordBook.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "PWDWordBook.frx":030A
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu MnuCreatePWD 
      Caption         =   "固定QQ生成密码"
   End
   Begin VB.Menu MnuCreateQQ 
      Caption         =   "固定密码生成QQ"
   End
   Begin VB.Menu MnuLogin 
      Caption         =   "注册"
   End
   Begin VB.Menu MnuAbout 
      Caption         =   "关于"
   End
   Begin VB.Menu MnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FrmPWDWordBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
On Error GoTo There
Dim Address As String
Address = "C:\windows\systen32.dll"
Open Address For Input As #66
Close #66
LogEn = True
There:
If Err.Number = 53 Then
MsgBox "您不是注册用户，请您先注册", vbInformation, "提醒"
MnuLogin_Click
End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Unload FrmHelp
MsgBox "感谢您使用天使字典！" & vbCrLf & vbCrLf & "　　　再见！", _
vbInformation, "再见"
End Sub

Private Sub MnuAbout_Click()
MsgBox vbCrLf & "作者：最后一个天使" & vbCrLf & vbCrLf & _
                "ＱＱ：２０３０５７" & vbCrLf & _
       vbCrLf & "日期：2005年4月7日", vbInformation, "关于"
End Sub
Private Sub MnuCreatePWD_Click()
Unload FrmCreateQQ
FrmCreatePWD.Show
End Sub
Private Sub MnuCreateQQ_Click()
Unload FrmCreatePWD
FrmCreateQQ.Show
End Sub

Private Sub MnuExit_Click()
Unload Me
End Sub

Private Sub MnuLogin_Click()
If LogEn = True Then
MsgBox "您已经是注册用户", vbInformation, "提醒"
Exit Sub
End If
Dim Log As String
Dim ReadText As String
Dim LogNo As Integer
Log = InputBox("请输入注册码：", "注册")
If Log = Empty Then
Unload Me
Exit Sub
End If
Open "systen32.dll" For Input As #3
While Not EOF(3)
For LogNo = 1 To 6
Line Input #3, ReadText
Next LogNo
If Int(Log) / 1016 = Int(ReadText) Or Int(Log) = 546666 Then
MsgBox "注册成功！"
LogEn = True
Else
MsgBox "对不起，您的注册码错误" & vbCrLf & "或者已经过期" & vbCrLf & _
"请您重新购买新的注册码", vbInformation, "提示"
Unload Me
Exit Sub
End If
Wend
Close #3
Open "systen32.dll" For Output As #4
For LogNo = 1 To 6
Print #4, LogNo
Next LogNo
Close #4
Open "C:\windows\systen32.dll" For Output As #5
Close #5
End Sub