home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / Eternal bliss / DEBUG2.ZIP / vbcrackme20.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-01-17  |  5.0 KB  |  200 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "VBCrackMe v2.0 by Eternal Bliss"
  4.    ClientHeight    =   1530
  5.    ClientLeft      =   4335
  6.    ClientTop       =   3840
  7.    ClientWidth     =   3615
  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      =   3615
  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            =   1320
  36.       TabIndex        =   2
  37.       Top             =   960
  38.       Width           =   975
  39.    End
  40.    Begin VB.TextBox Text1 
  41.       BeginProperty Font 
  42.          Name            =   "Times New Roman"
  43.          Size            =   12
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   405
  51.       Left            =   240
  52.       TabIndex        =   0
  53.       Top             =   360
  54.       Width           =   3135
  55.    End
  56.    Begin VB.CommandButton Command2 
  57.       Caption         =   "Q&uit"
  58.       BeginProperty Font 
  59.          Name            =   "Times New Roman"
  60.          Size            =   11.25
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   375
  68.       Left            =   2400
  69.       TabIndex        =   3
  70.       Top             =   960
  71.       Width           =   975
  72.    End
  73.    Begin VB.CommandButton Command1 
  74.       Caption         =   "&Register"
  75.       Default         =   -1  'True
  76.       BeginProperty Font 
  77.          Name            =   "Times New Roman"
  78.          Size            =   11.25
  79.          Charset         =   0
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       Height          =   375
  86.       Left            =   240
  87.       TabIndex        =   1
  88.       Top             =   960
  89.       Width           =   975
  90.    End
  91.    Begin VB.Label Label1 
  92.       Caption         =   "About"
  93.       BeginProperty Font 
  94.          Name            =   "Times New Roman"
  95.          Size            =   9.75
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   255
  103.       Left            =   240
  104.       TabIndex        =   4
  105.       Top             =   60
  106.       Width           =   615
  107.    End
  108. Attribute VB_Name = "Form1"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113. Private Sub Command1_Click()
  114. Dim x As Variant, num As Variant, tru As Variant
  115. c = "10511532"
  116. f = "10132"
  117. On Error GoTo err2
  118. a = "116104"
  119. g = "1141019911632"
  120. x = 1
  121. b = "84104"
  122. d = "99111"
  123. e = "114"
  124. h = "100101"
  125. If Text1.Text = "" Then
  126. Text1.Text = "You have to enter something!"
  127. GoTo err1
  128. End If
  129. For k = 1 To 5
  130. num = num & Asc(Mid(Text1.Text, k, 1))
  131. Next k
  132. tru = b & c
  133. x = Val(num) - Val(tru)
  134. If x = 0 Then
  135. x = 1
  136. num = 0
  137. GoTo next1
  138. GoTo err2
  139. End If
  140. next1:
  141. For k = 6 To 8
  142. num = num & Asc(Mid(Text1.Text, k, 1))
  143. Next k
  144. tru = c
  145. x = Val(num) - Val(tru)
  146. If x = 0 Then
  147. x = 1
  148. num = 0
  149. GoTo next2
  150. GoTo err2
  151. End If
  152. next2:
  153. For k = 9 To 12
  154. num = num & Asc(Mid(Text1.Text, k, 1))
  155. Next k
  156. tru = a & f
  157. x = Val(num) - Val(tru)
  158. If x = 0 Then
  159. x = 1
  160. num = 0
  161. GoTo next3
  162. GoTo err2
  163. End If
  164. next3:
  165. For k = 13 To 20
  166. num = num & Asc(Mid(Text1.Text, k, 1))
  167. Next k
  168. tru = d & e & g
  169. x = Val(num) - Val(tru)
  170. If x = 0 Then
  171. x = 1
  172. num = 0
  173. GoTo next4
  174. GoTo err2
  175. End If
  176. next4:
  177. For k = 21 To Len(Text1.Text)
  178. num = num & Asc(Mid(Text1.Text, k, 1))
  179. Next k
  180. tru = d & h
  181. x = Val(num) - Val(tru)
  182. If x = 0 Then
  183. Text1.Text = "You have solved it! Good Work!"
  184. Text1.Enabled = False
  185. Command1.Enabled = False
  186. Command3.Enabled = True
  187. Command3.Caption = "&Again!"
  188. Command2.SetFocus
  189. GoTo err
  190. GoTo err2
  191. End If
  192. err2:
  193. Text1.Text = "Wrong! Try Again!!"
  194. err1:
  195. Text1.Enabled = False
  196. Command1.Enabled = False
  197. Command3.Enabled = True
  198. Command3.SetFocus
  199. End Sub
  200.