home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / frmAddIn2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-28  |  4.3 KB  |  142 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAddIn 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "KeyGen by CyberBlade..."
  6.    ClientHeight    =   3540
  7.    ClientLeft      =   2175
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4515
  10.    Icon            =   "frmAddIn.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3540
  15.    ScaleWidth      =   4515
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Quit"
  19.       Height          =   495
  20.       Left            =   2280
  21.       TabIndex        =   5
  22.       Top             =   2880
  23.       Width           =   1815
  24.    End
  25.    Begin VB.CommandButton cmdGenerate 
  26.       Caption         =   "Generate"
  27.       Height          =   495
  28.       Left            =   360
  29.       TabIndex        =   4
  30.       Top             =   2880
  31.       Width           =   1815
  32.    End
  33.    Begin VB.Frame Frame2 
  34.       BackColor       =   &H80000007&
  35.       Caption         =   "Serial:"
  36.       ForeColor       =   &H000000FF&
  37.       Height          =   975
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   1440
  41.       Width           =   3975
  42.       Begin VB.TextBox txtKey 
  43.          BackColor       =   &H00E0E0E0&
  44.          ForeColor       =   &H00800000&
  45.          Height          =   375
  46.          Left            =   240
  47.          Locked          =   -1  'True
  48.          TabIndex        =   3
  49.          Text            =   "< Your serial will be displayed here >"
  50.          Top             =   360
  51.          Width           =   3495
  52.       End
  53.    End
  54.    Begin VB.Frame Frame1 
  55.       BackColor       =   &H80000007&
  56.       Caption         =   "Please enter your name in the field below:"
  57.       ForeColor       =   &H000000FF&
  58.       Height          =   975
  59.       Left            =   240
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   3975
  63.       Begin VB.TextBox txtName 
  64.          ForeColor       =   &H00000000&
  65.          Height          =   375
  66.          Left            =   240
  67.          TabIndex        =   1
  68.          Text            =   "CyberBlade"
  69.          Top             =   360
  70.          Width           =   3375
  71.       End
  72.    End
  73.    Begin VB.Label Label1 
  74.       Appearance      =   0  'Flat
  75.       BackColor       =   &H80000005&
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "KeyGen for AfKayAs CrackMe #2"
  78.       BeginProperty Font 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   8.25
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   -1  'True
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H00FFFFFF&
  88.       Height          =   375
  89.       Left            =   0
  90.       TabIndex        =   6
  91.       Top             =   0
  92.       Width           =   4095
  93.    End
  94.    Begin VB.Line Line3 
  95.       BorderColor     =   &H00FFFFFF&
  96.       X1              =   0
  97.       X2              =   4560
  98.       Y1              =   2640
  99.       Y2              =   2640
  100.    End
  101.    Begin VB.Line Line2 
  102.       BorderColor     =   &H00FFFFFF&
  103.       X1              =   4560
  104.       X2              =   4575
  105.       Y1              =   2520
  106.       Y2              =   2535
  107.    End
  108.    Begin VB.Line Line1 
  109.       BorderColor     =   &H00E0E0E0&
  110.       BorderWidth     =   2
  111.       X1              =   4560
  112.       X2              =   4575
  113.       Y1              =   2520
  114.       Y2              =   2535
  115.    End
  116. Attribute VB_Name = "frmAddIn"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Private Sub cmdGenerate_Click()
  122. Dim Key As Long
  123. 'Check if the entered Name is valid
  124. If Len(txtName.Text) < 1 Then
  125.     MsgBox "You have to enter at least 1 char !", vbInformation + vbOKOnly, "Error!"
  126.     Exit Sub
  127. End If
  128. 'Generate the Key
  129. Key = 88888 * Len(txtName.Text)
  130. Key = Key + Asc(Left(txtName.Text, 1))
  131. Key = Key + 2
  132. Key = Int(Key * 3)
  133. Key = Key - 2
  134. Key = Key + 15
  135. txtKey.Text = Key 'Display Key in TextBox
  136. Key = 0
  137. Value1 = 0
  138. End Sub
  139. Private Sub Command1_Click()
  140.     Unload Me
  141. End Sub
  142.