home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / Eternal bliss / DEBUG3.ZIP / vbcrackme30.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-01-18  |  4.8 KB  |  166 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "VBCrackMe v3.0 by Eternal Bliss"
  4.    ClientHeight    =   1530
  5.    ClientLeft      =   4335
  6.    ClientTop       =   3840
  7.    ClientWidth     =   2910
  8.    ControlBox      =   0   'False
  9.    BeginProperty Font 
  10.       Name            =   "Times New Roman"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   1530
  20.    ScaleWidth      =   2910
  21.    StartUpPosition =   2  'CenterScreen
  22.    Begin VB.CommandButton Command3 
  23.       Caption         =   "Re&try"
  24.       Enabled         =   0   'False
  25.       BeginProperty Font 
  26.          Name            =   "Times New Roman"
  27.          Size            =   11.25
  28.          Charset         =   0
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   375
  35.       Left            =   240
  36.       TabIndex        =   2
  37.       Top             =   960
  38.       Visible         =   0   'False
  39.       Width           =   975
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       BeginProperty Font 
  43.          Name            =   "Times New Roman"
  44.          Size            =   12
  45.          Charset         =   0
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   405
  52.       Left            =   240
  53.       TabIndex        =   0
  54.       Top             =   360
  55.       Width           =   2415
  56.    End
  57.    Begin VB.CommandButton Command2 
  58.       Caption         =   "Q&uit"
  59.       BeginProperty Font 
  60.          Name            =   "Times New Roman"
  61.          Size            =   11.25
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   375
  69.       Left            =   1680
  70.       TabIndex        =   3
  71.       Top             =   960
  72.       Width           =   975
  73.    End
  74.    Begin VB.CommandButton Command1 
  75.       Caption         =   "&Register"
  76.       Default         =   -1  'True
  77.       Enabled         =   0   'False
  78.       BeginProperty Font 
  79.          Name            =   "Times New Roman"
  80.          Size            =   11.25
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   375
  88.       Left            =   240
  89.       TabIndex        =   1
  90.       Top             =   960
  91.       Width           =   975
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "About"
  95.       BeginProperty Font 
  96.          Name            =   "Times New Roman"
  97.          Size            =   9.75
  98.          Charset         =   0
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   255
  105.       Left            =   240
  106.       TabIndex        =   4
  107.       Top             =   60
  108.       Width           =   615
  109.    End
  110. Attribute VB_Name = "Form1"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. Private Sub Command1_Click()
  116. Dim num As Long, tru As Long, trum As Long, dive As Long, r1 As Long, e As Long, v As Long, r As Long, s As Long
  117. On Error GoTo err1
  118. trum = 11496889
  119. dive = 2147483647
  120. r1 = 82
  121. e = 101
  122. v = 118
  123. r = 114
  124. s = 115
  125. For z = 1 To Len(Text1.Text)
  126. num = num + Asc(Mid(Text1.Text, z, 1))
  127. Next z
  128. tru = r1 + e + v + e + r + s + e
  129. If num = tru Then
  130. If ((Asc(Mid(Text1.Text, 2, 1)) = e) And (Asc(Mid(Text1.Text, 4, 1)) = e) And (Asc(Mid(Text1.Text, 7, 1)) = e)) Then
  131. dive = (((((dive \ s) * r1) \ r) * e) \ v)
  132. If dive = trum Then
  133. Text1.Text = "You have cracked it!!"
  134. Text1.Enabled = False
  135. Command1.Visible = False
  136. Command3.Visible = True
  137. Command3.Enabled = True
  138. Command3.Caption = "&Again!"
  139. Command2.SetFocus
  140. GoTo err
  141. GoTo err1
  142. End If
  143. GoTo err1
  144. End If
  145. err1:
  146. Text1.Text = "Wrong! Try Again!!"
  147. Text1.Enabled = False
  148. Command1.Visible = False
  149. Command3.Visible = True
  150. Command3.Enabled = True
  151. Command3.SetFocus
  152. End If
  153. End Sub
  154. Private Sub Command3_Click()
  155. Unload Me
  156. Form1.Show
  157. End Sub
  158. Private Sub Text1_Change()
  159. If Len(Text1.Text) > 6 Then
  160. Command1.Enabled = True
  161. End If
  162. If Len(Text1.Text) < 7 Then
  163. Command1.Enabled = False
  164. End If
  165. End Sub
  166.