home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / frmKeyGen.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-23  |  4.0 KB  |  128 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    =   3720
  7.    ClientLeft      =   2175
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4440
  10.    Icon            =   "frmKeyGen.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3720
  15.    ScaleWidth      =   4440
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdCopyToClipBoard 
  18.       Caption         =   "Copy key to clipboard"
  19.       Enabled         =   0   'False
  20.       Height          =   615
  21.       Left            =   0
  22.       TabIndex        =   4
  23.       Top             =   3120
  24.       Width           =   4455
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "Quit"
  28.       Height          =   495
  29.       Left            =   2160
  30.       TabIndex        =   5
  31.       Top             =   2640
  32.       Width           =   2295
  33.    End
  34.    Begin VB.CommandButton cmdGenerate 
  35.       Caption         =   "Generate"
  36.       Height          =   495
  37.       Left            =   0
  38.       TabIndex        =   3
  39.       Top             =   2640
  40.       Width           =   2175
  41.    End
  42.    Begin VB.Frame Frame2 
  43.       BackColor       =   &H80000007&
  44.       Caption         =   "Serial:"
  45.       ForeColor       =   &H000000FF&
  46.       Height          =   975
  47.       Left            =   240
  48.       TabIndex        =   6
  49.       Top             =   1440
  50.       Width           =   3975
  51.       Begin VB.TextBox txtKey 
  52.          BackColor       =   &H00E0E0E0&
  53.          ForeColor       =   &H00800000&
  54.          Height          =   375
  55.          Left            =   240
  56.          Locked          =   -1  'True
  57.          TabIndex        =   2
  58.          Text            =   "< Your serial will be displayed here >"
  59.          Top             =   360
  60.          Width           =   3495
  61.       End
  62.    End
  63.    Begin VB.Frame Frame1 
  64.       BackColor       =   &H80000007&
  65.       Caption         =   "Please enter your name in the field below:"
  66.       ForeColor       =   &H000000FF&
  67.       Height          =   975
  68.       Left            =   240
  69.       TabIndex        =   0
  70.       Top             =   240
  71.       Width           =   3975
  72.       Begin VB.TextBox txtName 
  73.          ForeColor       =   &H00000000&
  74.          Height          =   375
  75.          Left            =   240
  76.          TabIndex        =   1
  77.          Text            =   "CyberBlade"
  78.          Top             =   360
  79.          Width           =   3375
  80.       End
  81.    End
  82.    Begin VB.Line Line3 
  83.       BorderColor     =   &H00FFFFFF&
  84.       X1              =   0
  85.       X2              =   4560
  86.       Y1              =   2640
  87.       Y2              =   2640
  88.    End
  89.    Begin VB.Line Line2 
  90.       BorderColor     =   &H00FFFFFF&
  91.       X1              =   4560
  92.       X2              =   4575
  93.       Y1              =   2520
  94.       Y2              =   2535
  95.    End
  96.    Begin VB.Line Line1 
  97.       BorderColor     =   &H00E0E0E0&
  98.       BorderWidth     =   2
  99.       X1              =   4560
  100.       X2              =   4575
  101.       Y1              =   2520
  102.       Y2              =   2535
  103.    End
  104. Attribute VB_Name = "frmAddIn"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Private Sub cmdCopyToClipBoard_Click()
  110.     Clipboard.Clear
  111.     Clipboard.SetText txtKey.Text
  112. End Sub
  113. Private Sub cmdGenerate_Click()
  114. Dim Key As String
  115. 'Check to see if user has entered at least 1 character
  116. If Len(txtName.Text) < 1 Then
  117.     MsgBox "You have to enter at least 1 char !", vbInformation + vbOKOnly, "Error!"
  118.     Exit Sub
  119. End If
  120. 'Length of Name * 97531 + AscII value of first character
  121. Key = "AKA-" & (Len(txtName.Text) * 97531) + Asc(Left(txtName.Text, 1))
  122. txtKey.Text = Key
  123. cmdCopyToClipBoard.Enabled = True
  124. End Sub
  125. Private Sub Command1_Click()
  126.     Unload Me 'Close the KeyGen
  127. End Sub
  128.