VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form VB_GEN 
   Appearance      =   0  'Flat
   BackColor       =   &H80000000&
   Caption         =   "FlexGEN V1.0"
   ClientHeight    =   8460
   ClientLeft      =   1785
   ClientTop       =   2115
   ClientWidth     =   11655
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   7.5
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Icon            =   "VB_GEN.frx":0000
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   8460
   ScaleWidth      =   11655
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame7 
      Caption         =   "Daemon Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   555
      Left            =   60
      TabIndex        =   64
      Top             =   3180
      Width           =   11535
      Begin VB.TextBox Text20 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   9780
         TabIndex        =   68
         Text            =   "199.19.19.19"
         ToolTipText     =   "Type here the DAEMON IP"
         Top             =   180
         Width           =   1635
      End
      Begin VB.CheckBox Check2 
         Caption         =   "Use Daemon"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   67
         ToolTipText     =   "Check if you like to use DAEMON feature"
         Top             =   240
         Width           =   1455
      End
      Begin VB.ComboBox Combo6 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   3660
         TabIndex        =   65
         Text            =   "Unknow"
         ToolTipText     =   "Select your DAEMON Host ID"
         Top             =   180
         Width           =   4155
      End
      Begin VB.Label Label23 
         Caption         =   "Daemon IP:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   8700
         TabIndex        =   69
         Top             =   240
         Width           =   1035
      End
      Begin VB.Label Label22 
         Caption         =   "Daemon HostID:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2220
         TabIndex        =   66
         Top             =   240
         Width           =   1455
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   6720
      Top             =   3540
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command9 
      Caption         =   "HD Serial"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   5160
      Picture         =   "VB_GEN.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   63
      ToolTipText     =   "HD serial number changer"
      Top             =   60
      Width           =   975
   End
   Begin VB.Frame Frame6 
      Caption         =   "Extra Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   972
      Left            =   60
      TabIndex        =   57
      Top             =   3780
      Width           =   11535
      Begin VB.ComboBox Combo7 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   8820
         TabIndex        =   70
         ToolTipText     =   "Known Special strings"
         Top             =   540
         Width           =   2595
      End
      Begin VB.TextBox Text15 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1440
         TabIndex        =   59
         ToolTipText     =   "Enter your vendor string needed to validate the license."
         Top             =   180
         Width           =   9975
      End
      Begin VB.TextBox Text19 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1440
         TabIndex        =   58
         ToolTipText     =   "Enter here special string needed to validate license"
         Top             =   540
         Width           =   5715
      End
      Begin VB.Label Label24 
         Caption         =   "Known Special:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   7440
         TabIndex        =   71
         Top             =   600
         Width           =   1335
      End
      Begin VB.Label Label5 
         Caption         =   "Special String:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   60
         TabIndex        =   62
         Top             =   600
         Width           =   1275
      End
      Begin VB.Label Label3 
         Caption         =   "Special String:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   60
         TabIndex        =   61
         Top             =   600
         Width           =   1272
      End
      Begin VB.Label Label19 
         Caption         =   "Vendor String:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   60
         TabIndex        =   60
         Top             =   240
         Width           =   1332
      End
   End
   Begin VB.CommandButton Command8 
      Caption         =   "HostId"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   6180
      Picture         =   "VB_GEN.frx":0884
      Style           =   1  'Graphical
      TabIndex        =   50
      ToolTipText     =   "Show your HOST informations"
      Top             =   60
      Width           =   795
   End
   Begin VB.Frame Frame5 
      Caption         =   "Licenses"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   2475
      Left            =   60
      TabIndex        =   47
      Top             =   4800
      Width           =   11535
      Begin VB.ListBox List1 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2205
         ItemData        =   "VB_GEN.frx":0CC6
         Left            =   120
         List            =   "VB_GEN.frx":0CC8
         TabIndex        =   48
         ToolTipText     =   "Actual generated license"
         Top             =   180
         Width           =   11295
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   1155
      Left            =   60
      TabIndex        =   46
      Top             =   7260
      Width           =   11535
      Begin VB.TextBox Text16 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   915
         Left            =   180
         MultiLine       =   -1  'True
         TabIndex        =   49
         ToolTipText     =   "Information about selected product"
         Top             =   180
         Width           =   11235
      End
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Make INI"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   7020
      Picture         =   "VB_GEN.frx":0CCA
      Style           =   1  'Graphical
      TabIndex        =   45
      ToolTipText     =   "Make TEMPLATE.INI form magig number"
      Top             =   60
      Width           =   1155
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Vendor Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   9240
      Picture         =   "VB_GEN.frx":0FD4
      Style           =   1  'Graphical
      TabIndex        =   44
      ToolTipText     =   "Show vendor Informations"
      Top             =   60
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Check"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   4440
      Picture         =   "VB_GEN.frx":1416
      Style           =   1  'Graphical
      TabIndex        =   43
      ToolTipText     =   "Check last feature generated"
      Top             =   60
      Width           =   675
   End
   Begin VB.Frame Frame3 
      Caption         =   "Special Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1872
      Left            =   7320
      TabIndex        =   21
      Top             =   3360
      Visible         =   0   'False
      Width           =   3792
      Begin VB.TextBox Text14 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   2760
         Locked          =   -1  'True
         TabIndex        =   41
         Text            =   "Unknow"
         Top             =   1500
         Width           =   972
      End
      Begin VB.TextBox Text13 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   2760
         Locked          =   -1  'True
         TabIndex        =   39
         Text            =   "Unknow"
         Top             =   1200
         Width           =   972
      End
      Begin VB.TextBox Text12 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   2640
         Locked          =   -1  'True
         TabIndex        =   37
         Text            =   "Unknow"
         Top             =   900
         Width           =   1092
      End
      Begin VB.TextBox Text11 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   2640
         Locked          =   -1  'True
         TabIndex        =   35
         Text            =   "00000000"
         Top             =   600
         Width           =   1092
      End
      Begin VB.TextBox Text10 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   2640
         Locked          =   -1  'True
         TabIndex        =   33
         Text            =   "00000000"
         Top             =   300
         Width           =   1092
      End
      Begin VB.TextBox Text9 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   660
         Locked          =   -1  'True
         TabIndex        =   31
         Text            =   "00000000"
         Top             =   1500
         Width           =   1092
      End
      Begin VB.TextBox Text8 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   660
         Locked          =   -1  'True
         TabIndex        =   29
         Text            =   "00000000"
         Top             =   1200
         Width           =   1092
      End
      Begin VB.TextBox Text7 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   720
         Locked          =   -1  'True
         TabIndex        =   27
         Text            =   "00000000"
         Top             =   900
         Width           =   1092
      End
      Begin VB.TextBox Text6 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   660
         Locked          =   -1  'True
         TabIndex        =   25
         Text            =   "00000000"
         Top             =   600
         Width           =   1092
      End
      Begin VB.TextBox Text5 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   660
         Locked          =   -1  'True
         TabIndex        =   23
         Text            =   "00000000"
         Top             =   300
         Width           =   1092
      End
      Begin VB.Label Label8 
         Caption         =   "Licenses:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   1860
         TabIndex        =   42
         Top             =   1500
         Width           =   852
      End
      Begin VB.Label Label18 
         Caption         =   "DLLVer:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   1860
         TabIndex        =   40
         Top             =   1200
         Width           =   912
      End
      Begin VB.Label Label17 
         Caption         =   "Vendor:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   1860
         TabIndex        =   38
         Top             =   900
         Width           =   672
      End
      Begin VB.Label Label16 
         Caption         =   "Seed2:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   1860
         TabIndex        =   36
         Top             =   600
         Width           =   612
      End
      Begin VB.Label Label15 
         Caption         =   "Seed1:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   1860
         TabIndex        =   34
         Top             =   300
         Width           =   612
      End
      Begin VB.Label Label14 
         Caption         =   "Key5:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   120
         TabIndex        =   32
         Top             =   1500
         Width           =   552
      End
      Begin VB.Label Label13 
         Caption         =   "Key4:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   120
         TabIndex        =   30
         Top             =   1200
         Width           =   552
      End
      Begin VB.Label Label12 
         Caption         =   "Key3:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   120
         TabIndex        =   28
         Top             =   900
         Width           =   552
      End
      Begin VB.Label Label11 
         Caption         =   "Key2:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   120
         TabIndex        =   26
         Top             =   600
         Width           =   552
      End
      Begin VB.Label Label10 
         Caption         =   "Key1:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   120
         TabIndex        =   24
         Top             =   300
         Width           =   552
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "User Modificable Data"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   2235
      Left            =   5880
      TabIndex        =   10
      Top             =   900
      Width           =   5715
      Begin VB.TextBox Text21 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1020
         TabIndex        =   75
         Top             =   1800
         Width           =   1275
      End
      Begin VB.TextBox Text17 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3060
         TabIndex        =   72
         ToolTipText     =   "Type here the issuer string"
         Top             =   1800
         Width           =   2535
      End
      Begin VB.CheckBox Check3 
         Caption         =   "Force all FEATURE with this version"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   2040
         TabIndex        =   56
         ToolTipText     =   "Check if you would force all FEATURE with the licese typed on the 'Version' field"
         Top             =   600
         Width           =   3495
      End
      Begin VB.TextBox Text18 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   1020
         TabIndex        =   54
         ToolTipText     =   "Actual behavior"
         Top             =   1500
         Width           =   1275
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Include Cecksum"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   312
         Left            =   3120
         TabIndex        =   22
         ToolTipText     =   "Check if you like to add checksum number at the end of each line (Is not working in NT)"
         Top             =   1320
         Width           =   1875
      End
      Begin VB.TextBox Text4 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   1020
         TabIndex        =   19
         Text            =   "1-jan-0"
         ToolTipText     =   "Type here the expiration date (1-jan-0 = unlimited)"
         Top             =   1200
         Width           =   1275
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   1020
         TabIndex        =   17
         Text            =   "ANY"
         ToolTipText     =   "Tpe here the needed Host ID"
         Top             =   900
         Width           =   4575
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   264
         Left            =   1020
         TabIndex        =   13
         Text            =   "2.0"
         ToolTipText     =   "Type here the needed program version"
         Top             =   600
         Width           =   915
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   1020
         TabIndex        =   11
         Text            =   "VB_NT"
         ToolTipText     =   "Type here the needed FEATURE/INCREMENT"
         Top             =   300
         Width           =   4575
      End
      Begin VB.Label Label26 
         Caption         =   "Users n.:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   180
         TabIndex        =   74
         Top             =   1800
         Width           =   795
      End
      Begin VB.Label Label25 
         Caption         =   "Issuer:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2460
         TabIndex        =   73
         Top             =   1860
         Width           =   615
      End
      Begin VB.Label Label21 
         Caption         =   "Behavior:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   53
         Top             =   1500
         Width           =   792
      End
      Begin VB.Label Label9 
         Caption         =   "Expire:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   20
         Top             =   1200
         Width           =   732
      End
      Begin VB.Label Label7 
         Caption         =   "HostID:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   18
         Top             =   900
         Width           =   732
      End
      Begin VB.Label Label2 
         Caption         =   "Version:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   14
         Top             =   600
         Width           =   732
      End
      Begin VB.Label Label1 
         Caption         =   "Feature:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   192
         Left            =   180
         TabIndex        =   12
         Top             =   300
         Width           =   732
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "DataBase items"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   2235
      Left            =   60
      TabIndex        =   6
      Top             =   900
      Width           =   5775
      Begin VB.ComboBox Combo5 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "VB_GEN.frx":1858
         Left            =   120
         List            =   "VB_GEN.frx":185A
         TabIndex        =   55
         Text            =   "Unknow"
         ToolTipText     =   "Select FEATURE/INCREMENT type"
         Top             =   840
         Width           =   1392
      End
      Begin VB.ComboBox Combo4 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1560
         TabIndex        =   51
         Text            =   "6.0"
         ToolTipText     =   "Select needed behavior"
         Top             =   1800
         Width           =   732
      End
      Begin VB.ComboBox Combo3 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1560
         TabIndex        =   15
         Text            =   "ANY"
         ToolTipText     =   "Select the needed Host ID"
         Top             =   1320
         Width           =   4095
      End
      Begin VB.ComboBox Combo2 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1560
         TabIndex        =   9
         Text            =   "Unknow"
         ToolTipText     =   "Select needed FEATURE/INCREMENT"
         Top             =   840
         Width           =   4095
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   900
         TabIndex        =   7
         Text            =   "Unknow"
         ToolTipText     =   "Select product available in FLEXGEN Database"
         Top             =   300
         Width           =   4755
      End
      Begin VB.Label Label20 
         Caption         =   "Known Behavior:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   52
         Top             =   1860
         Width           =   1515
      End
      Begin VB.Label Label6 
         Caption         =   "Known HostID:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   16
         Top             =   1380
         Width           =   1395
      End
      Begin VB.Label Label4 
         Caption         =   "Product:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   3720
      Picture         =   "VB_GEN.frx":185C
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "Clear license from memory"
      Top             =   60
      Width           =   675
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Auto Generate all"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   1080
      Picture         =   "VB_GEN.frx":1C9E
      Style           =   1  'Graphical
      TabIndex        =   4
      ToolTipText     =   "Generate license for all known FEATURE of selected product"
      Top             =   60
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Save"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   2940
      Picture         =   "VB_GEN.frx":20E0
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "Save the license"
      Top             =   60
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Key7-ID Editor"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   8220
      Picture         =   "VB_GEN.frx":2522
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "Edit and create your LMGR DLL with proper KEY7-ID"
      Top             =   60
      Width           =   975
   End
   Begin VB.CommandButton Exit 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      Caption         =   "Exit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   10860
      Picture         =   "VB_GEN.frx":2964
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "Close Program"
      Top             =   60
      Width           =   732
   End
   Begin VB.CommandButton Crypt 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      Caption         =   "Generate"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   60
      Picture         =   "VB_GEN.frx":2C6E
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Generate license for the FEATURE selected"
      Top             =   60
      Width           =   975
   End
   Begin VB.Menu menufile 
      Caption         =   "File"
      Begin VB.Menu savelic 
         Caption         =   "Save"
      End
      Begin VB.Menu Exitall 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu Gener 
      Caption         =   "Generate"
      Begin VB.Menu Gensingle 
         Caption         =   "Single"
      End
      Begin VB.Menu GenMulti 
         Caption         =   "Multiple"
      End
   End
   Begin VB.Menu Spec 
      Caption         =   "Special"
      Begin VB.Menu Hostinfo 
         Caption         =   "Host Infos"
      End
      Begin VB.Menu vendinfos 
         Caption         =   "Vendor Info"
      End
      Begin VB.Menu hdserial 
         Caption         =   "Hard Disk Serial Changer"
      End
      Begin VB.Menu Clearall 
         Caption         =   "Clear"
      End
      Begin VB.Menu Checkall 
         Caption         =   "Check"
      End
      Begin VB.Menu makini 
         Caption         =   "Make INI"
      End
      Begin VB.Menu k7editor 
         Caption         =   "Key7-ID Editor"
      End
   End
   Begin VB.Menu help1 
      Caption         =   "?"
      Begin VB.Menu helpall 
         Caption         =   "Help"
      End
      Begin VB.Menu about 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "VB_GEN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub about_Click()
MsgBox "FlexGEN " + versione + " Created By Team-Rebels 1999" + Chr$(13) + "Special Thanx to Pilgrim" + Chr$(13), vbInformation, "About"
End Sub

Private Sub brutekey5_Click()
Command6_Click
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
MsgBox "Warning The Checksum option don't work in Win NT/2000 OS", vbCritical, "Warning"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    Text20.Enabled = True
    Combo6.Enabled = True
End If

If Check2.Value = 0 Then
    Text20.Enabled = False
    Combo6.Enabled = False
End If

End Sub

Private Sub Checkall_Click()
Command5_Click
End Sub

Private Sub Clearall_Click()
Command4_Click

End Sub

Private Function decrypt(stringa) As String
usci = ""
For r = 1 To Len(stringa)
    a = Asc(Mid(stringa, r, 1)) - 30 - r
    usci = usci + Chr(a)
Next r
decrypt = usci
End Function

Private Sub Combo1_Click()
first_license = 0
If crypted = 1 Then
    Command6.Visible = False
    mKEY1 = Hex("&H" + decrypt(key1(Combo1.ListIndex)))
    mKEY2 = Hex("&H" + decrypt(key2(Combo1.ListIndex)))
    mKEY3 = Hex("&H" + decrypt(key3(Combo1.ListIndex)))
    mKEY4 = Hex("&H" + decrypt(key4(Combo1.ListIndex)))
    mKEY5 = Hex("&H" + decrypt(key5(Combo1.ListIndex)))
    mSEED1 = Hex("&H" + decrypt(seed2(Combo1.ListIndex)))
    mSEED2 = Hex("&H" + decrypt(seed1(Combo1.ListIndex)))
    MY_VENDOR_NAME = decrypt(vendor(Combo1.ListIndex))
    
    MY_VENDOR_KEY1 = "&h" + mKEY1 Xor &H9112A6C3
    MY_VENDOR_KEY2 = "&h" + mKEY2 Xor &H42522D24
    MY_VENDOR_KEY3 = "&h" + mKEY3 Xor &HA3CDEF90
    MY_VENDOR_KEY4 = "&h" + mKEY4 Xor &H192F3745
    MY_VENDOR_KEY5 = "&h" + mKEY5 Xor &HA0B9C8D7
    MY_VENDOR_SEED1 = "&h" + mSEED1 Xor &H1199AABB
    MY_VENDOR_SEED2 = "&h" + mSEED2 Xor &H5529DF4E
Else
    Command6.Visible = True
    MY_VENDOR_KEY1 = "&H" + key1(Combo1.ListIndex)
    MY_VENDOR_KEY2 = "&H" + key2(Combo1.ListIndex)
    MY_VENDOR_KEY3 = "&H" + key3(Combo1.ListIndex)
    MY_VENDOR_KEY4 = "&H" + key4(Combo1.ListIndex)
    MY_VENDOR_KEY5 = "&H" + key5(Combo1.ListIndex)
    MY_VENDOR_SEED1 = "&H" + seed2(Combo1.ListIndex)
    MY_VENDOR_SEED2 = "&H" + seed1(Combo1.ListIndex)
    MY_VENDOR_NAME = vendor(Combo1.ListIndex)
End If

MY_VENDOR_STRING = vendorstring(Combo1.ListIndex)
MY_HOSTID = hostid(Combo1.ListIndex)
Text3.Text = MY_HOSTID
If demover = 0 Then
Text4.Text = expire(Combo1.ListIndex)
End If
MY_EXPIRE_DATE = Text4.Text
MY_LICENSES_NUMBER = Licenses(Combo1.ListIndex)
Text21.Text = Licenses(Combo1.ListIndex)
MY_UNKNOW_NUMBER = "0"


Combo2.Clear
For feat = 0 To featureN(Combo1.ListIndex) - 1
    Combo2.AddItem feature(Combo1.ListIndex, feat)
Next feat
If Combo2.ListIndex <> 0 Then Combo2.ListIndex = 0


Text1.Text = Version(Combo1.ListIndex, Combo2.ListIndex)
Text2.Text = types(Combo1.ListIndex, Combo2.ListIndex) + " " + Combo2.Text
Text5.Text = key1(Combo1.ListIndex)
Text6.Text = key2(Combo1.ListIndex)
Text7.Text = key3(Combo1.ListIndex)
Text8.Text = key4(Combo1.ListIndex)
Text9.Text = key5(Combo1.ListIndex)
Text10.Text = seed1(Combo1.ListIndex)
Text11.Text = seed2(Combo1.ListIndex)
Text12.Text = MY_VENDOR_NAME
Text13.Text = dllused(Combo1.ListIndex)
Text14.Text = Licenses(Combo1.ListIndex) + " " + "0"
Text15.Text = vendorstring(Combo1.ListIndex)
Text17.Text = issuer(Combo1.ListIndex)
Text18.Text = behavior(Combo1.ListIndex)
Text19.Text = special(Combo1.ListIndex)
Combo6.Text = daemonHost(Combo1.ListIndex)
Text20.Text = daemonIP(Combo1.ListIndex)

If UCase(cksum(Combo1.ListIndex)) = "YES" Then
    Check1.Value = 1
Else
    Check1.Value = 0
End If


If UCase(daemon(Combo1.ListIndex)) = "YES" Then
    Check2.Value = 1
Else
    Check2.Value = 0
End If

Text16.Text = ""
infotext = ""
For r = 0 To infoN(Combo1.ListIndex)
    infotext = infotext + info(Combo1.ListIndex, r) + " " '+ Chr$(13) + Chr$(10)
Next r
Text16.Text = infotext

setup = 1
Combo5.Clear
Combo5.AddItem "FEATURE"
Combo5.AddItem "INCREMENT"
Combo5.ListIndex = 0


If types(Combo1.ListIndex, Combo2.ListIndex) = "FEATURE" Then
    Combo5.ListIndex = 0
End If
If types(Combo1.ListIndex, Combo2.ListIndex) = "INCREMENT" Then
    Combo5.ListIndex = 1
End If
setup = 0

End Sub

Private Sub Combo2_Click()
Text2.Text = Combo5.Text + " " + Combo2.Text
Text1.Text = Version(Combo1.ListIndex, Combo2.ListIndex)
End Sub

Private Sub Combo3_Click()
Text3.Text = Combo3.Text
End Sub

Private Sub Combo4_Click()
Text18.Text = Combo4.Text

End Sub

Private Sub Combo5_Click()
If setup = 1 Then GoTo noupdate
Text2.Text = Combo5.Text + " " + Combo2.Text
noupdate:
End Sub

Private Sub Combo7_Click()
Text19.Text = Combo7.Text

End Sub

Private Sub Command1_Click()
Form5.Show 1
End Sub

Private Sub Command2_Click()

If List1.ListCount = 0 Then
    MsgBox "There are not any license generated to save !!", vbCritical, "Warning"
    GoTo nosave
End If

If currdire = "" Then
CommonDialog1.InitDir = "C:\"
Else
CommonDialog1.InitDir = currdire
ChDir (currdire)
ChDrive (currdire)
End If
CommonDialog1.FileName = "LICENSE.DAT"
CommonDialog1.Filter = "All Files (*.DAT)|*.DAT"
CommonDialog1.Action = 2
q1 = CommonDialog1.FileName
q2 = CommonDialog1.FileTitle
currdire = Left(q1, Len(q1) - Len(q2))
If q1 = "" Then GoTo nosave
    
    filen = FreeFile
    Open q1 For Output As #filen
        For r = 0 To List1.ListCount
            Print #filen, List1.List(r)
        Next r
        Print #filen, "#License generated with FlexGEN " + versione + " by Team-Rebels 1999"
    Close #filen
    MsgBox "License saved on " + q1, vbInformation, "License Saved"
nosave:
End Sub

Private Sub Command3_Click()
Screen.MousePointer = 11

If Text18.Text = "3.0" Or Text18.Text = "4.0" Or Text18.Text = "6.1" Or Text18.Text = "5.0" Or Text18.Text = "5.1" Or Text18.Text = "6.0" Or Text18.Text = "7.0" Then GoTo corretto
MsgBox "Wrong Behavior number, valid number are: 3.0, 4.0, 5.0, 5.1, 6.0, 6.1, 7.0", vbCritical, "Behavior Error"
GoTo NOLIC

corretto:
MY_XOR1 = MY_VENDOR_SEED1 Xor MY_VENDOR_KEY5
MY_XOR2 = MY_VENDOR_SEED2 Xor MY_VENDOR_KEY5

If dllused(Combo1.ListIndex) = "324" Then
    i% = c324_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
End If

If dllused(Combo1.ListIndex) = "325" Then
    i% = c325_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
End If

If dllused(Combo1.ListIndex) = "326" Then
    If Text18.Text = "3.0" Then
        i% = b326_3_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "4.0" Then
        i% = b326_4_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.1" Then
        i% = b326_51_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.0" Then
        i% = b326_5_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.0" Then
        i% = b326_6_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.1" Then
        i% = b326_61_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
End If
If dllused(Combo1.ListIndex) = "327" Then
    If Text18.Text = "3.0" Then
        i% = b327_3_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "4.0" Then
        i% = b327_4_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.1" Then
        i% = b327_51_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.0" Then
        i% = b327_5_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.0" Then
        i% = b327_6_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.1" Then
        i% = b327_61_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "7.0" Then
        i% = b327_7_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
End If

vs = ""
iss = ""
If Check2.Value = 1 Then
        IPXX = Text20.Text
        List1.AddItem "SERVER " + USERNM + " " + Combo6.Text + " " + IPXX
        List1.AddItem "DAEMON " + Text12.Text + " C:\" + Text12.Text + ".EXE"
End If

ddd = Combo2.ListCount - 1
If ddd < 0 Then ddd = 0
For r = 0 To ddd
    percento1 = 100 / (ddd + 1)
    Dim j As String
    Dim k As String
    Dim l As Long
    Dim out_str_len As Integer
    Dim err_str_len As Integer
    Dim s As String
    Dim ReturnStringAddress As Long
    k = Space$(2048)
    
    vs = " VENDOR_STRING=" + Chr$(34) + Text15.Text + Chr$(34)

    If Len(Text17.Text) <> 0 Then
        ac = "-"
    Else
        ac = ""
    End If
    
If demover = 1 Then
    iss = " ISSUER=" + Chr$(34) + Text17.Text + "-Time Limited License by-" + ac + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a12 + a13 + a14 + a15 + a15 + a15 + Chr$(34)
Else
    iss = " ISSUER=" + Chr$(34) + Text17.Text + ac + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a12 + a13 + a14 + a15 + a15 + a15 + Chr$(34)
End If
    
If Left(Text17.Text, 5) = "PERLA" Then
    If Len(Text17.Text) = 5 Then
        iss = ""
    Else
        iss = "issuer=" + Right(Text17.Text, Len(Text17.Text) - 5)
    End If
End If

If Check3.Value = 0 Then
    versio = Version(Combo1.ListIndex, r)
End If
If Check3.Value = 1 Then
    versio = Text1.Text
End If
    
    
    featx = types(Combo1.ListIndex, r)
    j = featx + " " + Combo2.List(r) + " " + MY_VENDOR_NAME + " " + versio + " " + Text4.Text + " " + Text21.Text + " " + "0" + vs + " HOSTID=" + Text3.Text + " " + Text19.Text + iss
    
    vendor_key5 = MY_VENDOR_KEY5
    out_str_len = 2047
    err_str_len = 0
    
    Dim job As String
    If dllused(Combo1.ListIndex) = "324" Then
        i% = c324_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
   
    If dllused(Combo1.ListIndex) = "325" Then
        i% = c325_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If dllused(Combo1.ListIndex) = "326" Then
        If Text18.Text = "3.0" Then
            i% = b326_3_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "4.0" Then
            i% = b326_4_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "5.1" Then
            i% = b326_51_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "5.0" Then
            i% = b326_5_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "6.0" Then
            i% = b326_6_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "6.1" Then
            i% = b326_61_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "7.0" Then
            i% = 12345
        End If
    End If

    If dllused(Combo1.ListIndex) = "327" Then
        If Text18.Text = "3.0" Then
            i% = b327_3_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "4.0" Then
            i% = b327_4_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "5.1" Then
            i% = b327_51_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "5.0" Then
            i% = b327_5_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "6.0" Then
            i% = b327_6_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "6.1" Then
            i% = b327_61_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
        If Text18.Text = "7.0" Then
            i% = b327_7_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
        End If
    End If
    
    If i% <> 0 Then
            If i% = 12345 Then
                MsgBox "Cannot generate license with 7.0 behaviour with 326 dll, you must change the FLEXGEN.INI in the field  DLLUSED= with 327 instead of 326", vbCritical, "Error"
                GoTo NOLIC
            End If
        MsgBox "Invalid HostID or Invalid Vendor key or Vendor code, please check", vbCritical, "Error"
        GoTo NOLIC
    End If

    k1 = RTrim$(k)
    k = Left(k1, Len(k1) - 1)
    ckk = ""
    If Check1.Value = 1 Then
        MsgBox "Warning the checksum option don't work in Win NT/2000 OS", vbCritical, "Warning"
        Checksum.Show
        filex = FreeFile
        Open App.Path + "\$$$$.$$" For Output As #filex
            Print #filex, k
        Close #filex
        WaitForProcessToEnd (App.Path + "\lmck.bat " + App.Path)
        filex = FreeFile
        Open App.Path + "\$$$$.$$1" For Input As #filex
            Line Input #filex, dummy
            Line Input #filex, dummy
            Line Input #filex, dummy
            Line Input #filex, chksum
        Close #filex
        chksumf = LTrim(Mid(chksum, 6, 3))
        ckk = " CK=" + Left(chksumf, 3)
        Checksum.Hide
    End If
    If i% <> 0 Then
        MsgBox "Error: some data is not correctly typed. The Version cannot contain letters, and the FEATURE cannot contain spaces.", vbCritical, "Error"
    Else
        List1.AddItem k + ckk
    End If
Next r
percento = 0

NOLIC:
Screen.MousePointer = 0
End Sub

Private Sub Command4_Click()
List1.Clear
first_license = 0

End Sub

Private Sub Command5_Click()

a = List1.ListCount
If List1.ListCount <> 0 Then

    filen = FreeFile
    Open App.Path + "\license.ver" For Output As #filen
        For r = 0 To List1.ListCount
            Print #filen, List1.List(r)
        Next r
        Print #filen, "#License generated with FlexGEN " + versione + " by Team-Rebels 1999"
    Close #filen
    
    Dim s As String
    s = Space$(513)
    feat = feature(Combo1.ListIndex, Combo2.ListIndex)
    
    If dllused(Combo1.ListIndex) = "324" Then
         i% = c324_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
    End If
    
    If dllused(Combo1.ListIndex) = "325" Then
         i% = c325_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
    End If
    If dllused(Combo1.ListIndex) = "326" Then
        If Text18.Text = "3.0" Then
            i% = b326_3_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "4.0" Then
            i% = b326_4_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "5.1" Then
            i% = b326_51_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "5.0" Then
            i% = b326_5_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "6.0" Then
            i% = b326_6_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "6.1" Then
            i% = b326_61_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
    End If
    
    If dllused(Combo1.ListIndex) = "327" Then
        If Text18.Text = "3.0" Then
            i% = b327_3_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "4.0" Then
            i% = b327_4_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "5.1" Then
            i% = b327_51_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "5.0" Then
            i% = b327_5_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "6.0" Then
            i% = b327_6_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "6.1" Then
            i% = b327_61_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
        If Text18.Text = "7.0" Then
            i% = b327_7_LP_CHECKOUT(LM_RESTRICTIVE + LM_RETRY_RESTRICTIVE + LM_MANUAL_HEARTBEAT, feat, Text1.Text, 1, App.Path + "\license.ver", lp)
        End If
    End If
    
    
    If i% = 0 Then
        MsgBox "Feature Checked out OK", vbInformation, "License OK"
    Else
        If dllused(Combo1.ListIndex) = "324" Then
            i% = c324_LP_ERRSTRING(lp, s, 512)
        End If
        If dllused(Combo1.ListIndex) = "325" Then
            i% = c325_LP_ERRSTRING(lp, s, 512)
        End If
        If dllused(Combo1.ListIndex) = "326" Then
            If Text18.Text = "3.0" Then
                i% = b326_3_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "4.0" Then
                i% = b326_4_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "5.0" Then
                i% = b326_5_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "5.1" Then
                i% = b326_51_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "6.0" Then
                i% = b326_6_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "6.1" Then
                i% = b326_61_LP_ERRSTRING(lp, s, 512)
            End If
        End If
        If dllused(Combo1.ListIndex) = "327" Then
            If Text18.Text = "3.0" Then
                i% = b327_3_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "4.0" Then
                i% = b327_4_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "5.0" Then
                i% = b327_5_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "5.1" Then
                i% = b327_51_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "6.0" Then
                i% = b327_6_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "6.1" Then
                i% = b327_61_LP_ERRSTRING(lp, s, 512)
            End If
            If Text18.Text = "7.0" Then
                i% = b327_7_LP_ERRSTRING(lp, s, 512)
            End If
        End If
        
        
        s = RTrim$(s)
        MsgBox "Error :" + s, vbCritical, "Error"
    End If
Else
    MsgBox "There are not any item to check !!", vbCritical, "Warning"
End If

End Sub

Private Sub Command6_Click()
Form1.Show 1
End Sub

Private Sub Command7_Click()
Form2.Show 1
End Sub

Private Sub Command8_Click()
Form3.Show 1
End Sub


Private Sub Command9_Click()
MsgBox "Warning the HD change option don't work in Win NT/2000 OS", vbCritical, "Warning"
Form4.Show
End Sub

Private Sub Crypt_Click()

If Text18.Text = "3.0" Or Text18.Text = "4.0" Or Text18.Text = "6.1" Or Text18.Text = "5.0" Or Text18.Text = "5.1" Or Text18.Text = "6.0" Or Text18.Text = "7.0" Then GoTo corretto
MsgBox "Wrong Behavior number, valid number are: 3.0, 4.0, 5.0, 5.1, 6.0, 6.1, 7.0", vbCritical, "Behavior Error"
GoTo NOLIC

corretto:
MY_XOR1 = MY_VENDOR_SEED1 Xor MY_VENDOR_KEY5
MY_XOR2 = MY_VENDOR_SEED2 Xor MY_VENDOR_KEY5

If dllused(Combo1.ListIndex) = "324" Then
    i% = c324_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
End If

If dllused(Combo1.ListIndex) = "325" Then
    i% = c325_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
End If

If dllused(Combo1.ListIndex) = "326" Then
    If Text18.Text = "3.0" Then
        i% = b326_3_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "4.0" Then
        i% = b326_4_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.1" Then
        i% = b326_51_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.0" Then
        i% = b326_5_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.0" Then
        i% = b326_6_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.1" Then
        i% = b326_61_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
End If

If dllused(Combo1.ListIndex) = "327" Then
    If Text18.Text = "3.0" Then
        i% = b327_3_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "4.0" Then
        i% = b327_4_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.1" Then
        i% = b327_51_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "5.0" Then
        i% = b327_5_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.0" Then
        i% = b327_6_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "6.1" Then
        i% = b327_61_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
    If Text18.Text = "7.0" Then
        i% = b327_7_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)
    End If
End If



If first_license = 0 Then
    If Check2.Value = 1 Then
            IPXX = Text20.Text
            List1.AddItem "SERVER " + USERNM + " " + Combo6.Text + " " + IPXX
            List1.AddItem "DAEMON " + Text12.Text + " C:\" + Text12.Text + ".EXE"
    End If
    first_license = 1
End If
Dim j As String
Dim k As String
Dim l As Long
Dim out_str_len As Integer
Dim err_str_len As Integer
Dim s As String
Dim ReturnStringAddress As Long
k = Space$(2048)
vs = ""
iss = ""

If Text15.Text <> "" Then
        vs = " VENDOR_STRING=" + Chr$(34) + Text15.Text + Chr$(34)
End If

If Len(Text17.Text) <> 0 Then
    ac = "-"
Else
    ac = ""
End If


If demover = 1 Then
    iss = " ISSUER=" + Chr$(34) + Text17.Text + "-Time Limited License by-" + ac + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a12 + a13 + a14 + a15 + a15 + a15 + Chr$(34)
Else
    iss = " ISSUER=" + Chr$(34) + Text17.Text + ac + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a12 + a13 + a14 + a15 + a15 + a15 + Chr$(34)
End If

If Left(Text17.Text, 5) = "PERLA" Then
    If Len(Text17.Text) = 5 Then
        iss = ""
    Else
        iss = "issuer=" + Right(Text17.Text, Len(Text17.Text) - 5)
    End If
End If

    j = Text2.Text + " " + MY_VENDOR_NAME + " " + Text1.Text + " " + Text4.Text + " " + Text21.Text + " " + "0" + vs + " HOSTID=" + Text3.Text + " " + Text19.Text + iss
vendor_key5 = MY_VENDOR_KEY5
out_str_len = 2047
err_str_len = 0

If dllused(Combo1.ListIndex) = "324" Then
    i% = c324_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
End If
If dllused(Combo1.ListIndex) = "325" Then
    i% = c325_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
End If

If dllused(Combo1.ListIndex) = "326" Then
    If Text18.Text = "3.0" Then
        i% = b326_3_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "4.0" Then
        i% = b326_4_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "5.1" Then
        i% = b326_51_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "5.0" Then
        i% = b326_5_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "6.0" Then
        i% = b326_6_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "6.1" Then
        i% = b326_61_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "7.0" Then
        i% = 12345
    End If
End If

If dllused(Combo1.ListIndex) = "327" Then
    If Text18.Text = "3.0" Then
        i% = b327_3_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "4.0" Then
        i% = b327_4_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "5.1" Then
        i% = b327_51_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "5.0" Then
        i% = b327_5_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "6.0" Then
        i% = b327_6_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "6.1" Then
        i% = b327_61_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
    If Text18.Text = "7.0" Then
        i% = b327_7_LC_CRYPTSTR(j, k, out_str_len, vbNullString, err_str_len, vendor_key5)
    End If
End If

If i% <> 0 Then
        If i% = 12345 Then
            MsgBox "Cannot generate license with 7.0 behaviour with 326 dll, you must change the FLEXGEN.INI in the field  DLLUSED= with 327 instead of 326", vbCritical, "Error"
            GoTo NOLIC
        End If
    MsgBox "Invalid HostID or Invalid Vendor key or Vendor code, please check", vbCritical, "Error"
    GoTo NOLIC
End If
k1 = RTrim$(k)
k = Left(k1, Len(k1) - 1)
ckk = ""
If Check1.Value = 1 Then
 MsgBox "Warning the checksum option don't work in Win NT/2000 OS", vbCritical, "Warning"
 Checksum.Show
 filex = FreeFile
 Open App.Path + "\$$$$.$$" For Output As #filex
 Print #filex, k
 Close #filex
 
 WaitForProcessToEnd (App.Path + "\lmck.bat " + App.Path)
 filex = FreeFile
 Open App.Path + "\$$$$.$$1" For Input As #filex
 Line Input #filex, zz
 Line Input #filex, zz
 Line Input #filex, zz
 Line Input #filex, zz
 Close #filex
 zz1 = LTrim(Mid(zz, 6, 3))
 ckk = " CK=" + Left(zz1, 3)
 Checksum.Hide

End If
 
If i% <> 0 Then
 MsgBox "Error: some data is not correctly typed. The Version cannot contain letters, and the FEATURE cannot contain spaces.", vbCritical, "Error"
Else
 List1.AddItem k + ckk
End If

NOLIC:

End Sub

Private Sub Exit_Click()
Unload Me
End
End Sub

Private Sub Exitall_Click()
End
Unload Me
End Sub

Private Sub Form_Load()
demover = 0
nowarn = 1
crypted = 1

If UCase(Command) = "/NOWARN /NOTIMELIMIT" Then
demover = 0
nowarn = 0
End If

If UCase(Command) = "/NOTIMELIMIT /NOWARN" Then
demover = 0
nowarn = 0
End If

If UCase(Command) = "/NOTIMELIMIT" Then
demover = 0
End If

If UCase(Command) = "/NOWARN" Then
nowarn = 0
End If


If nowarn = 1 Then
    a = MsgBox("This product exists for the purpose of protecting your investment against last, stolen, defective or incompatible lock devices or lock routine. This product are intended for licensed users only and must not violate the terms and conditions of any license agreement. Under no circumstances should this product be used with any illegal copy of a licensed program. All parts of this database, is public domain, and all information is token from public WWW sites or public FTP sites. The author cannot be able to make license for unlock any kind of program, and the Author cannot guarantee it that works." + Chr(13) + "You Agree ?", vbYesNo, "WARNING")
    If a = 7 Then End
End If
Screen.MousePointer = 11
DoEvents


mainutent = 0

Dim buffdir As String * 90
lensysdir = GetSystemDirectory(buffdir, 89)
sysdir = Left$(buffdir, lensysdir) + "\"

lensysdir = GetWindowsDirectory(buffdir, 89)
windir = Left$(buffdir, lensysdir) + "\"

first_license = 0
VERSIONEDATABASE = "6.0"
If demover = 1 Then
   versione = "2000.3 TL"
   Text4.Text = "1-may-2000"
   Text4.Locked = True
Else
   versione = "2000.3"
   Text4.Text = "1-jan-0"
   Text4.Locked = False
End If
                
VB_GEN.Caption = " FlexGEN " + versione
a = "DISK_SERIAL_NUM"

a13 = "/"

filen = FreeFile
product = 0
feature_count = 0
info_line = 0
Open App.Path + "\FLEXGEN.INI" For Input As #filen
Line Input #filen, datax
crypted = 1
versionedb = RTrim(Right(datax, Len(datax) - 10))
If versionedb = VERSIONEDATABASE + "D" Then
crypted = 0
GoTo skipchk
End If

If versionedb <> VERSIONEDATABASE Then
    MsgBox "Invalid Database Format, please use the proper DB version", vbCritical, "DB wrong format"
    End
    Unload Me
End If

skipchk:
While Not EOF(filen)
    Line Input #filen, datax
    If Left(datax, 1) = "[" Then
        Combo1.AddItem Mid(datax, 2, Len(datax) - 2)
a2 = "am"
        Line Input #filen, datax
        key1(product) = Right(datax, Len(datax) - 5)
        Line Input #filen, datax
a1 = "Te"
        key2(product) = Right(datax, Len(datax) - 5)
a7 = "e"
        Line Input #filen, datax
a15 = "9"
        key3(product) = Right(datax, Len(datax) - 5)
a3 = "-"
        Line Input #filen, datax
        key4(product) = Right(datax, Len(datax) - 5)
        Line Input #filen, datax
a5 = "e"
        key5(product) = Right(datax, Len(datax) - 5)
        Line Input #filen, datax
        seed1(product) = Right(datax, Len(datax) - 6)
        Line Input #filen, datax
a4 = "R"
        seed2(product) = Right(datax, Len(datax) - 6)
        Line Input #filen, datax
        vendor(product) = Right(datax, Len(datax) - 7)
        Line Input #filen, datax
        vendorstring(product) = Right(datax, Len(datax) - 13)
a6 = "b"
a12 = ""
        Line Input #filen, datax
        hostid(product) = Right(datax, Len(datax) - 7)
        Line Input #filen, datax
a14 = "1"
        expire(product) = Right(datax, Len(datax) - 7)
        Line Input #filen, datax
        Licenses(product) = Right(datax, Len(datax) - 9)
        Line Input #filen, datax
        dllused(product) = Right(datax, Len(datax) - 7)
        Line Input #filen, datax
a8 = "l"
        behavior(product) = Right(datax, Len(datax) - 9)
        Line Input #filen, datax
a10 = ""
a9 = "s"
        cksum(product) = Right(datax, Len(datax) - 9)
        Line Input #filen, datax
        daemon(product) = Right(datax, Len(datax) - 7)
        Line Input #filen, datax
        daemonHost(product) = Right(datax, Len(datax) - 11)
        Line Input #filen, datax
        daemonIP(product) = Right(datax, Len(datax) - 9)

        Line Input #filen, datax
        special(product) = Right(datax, Len(datax) - 8)
        Line Input #filen, datax
        issuer(product) = Right(datax, Len(datax) - 7)
        feature_count = 0
        info_line = 0
refeature:
        Line Input #filen, datax
        If UCase(Left(datax, 7)) = "FEATURE" Then
                feat = Right(datax, Len(datax) - 10)
                r = InStr(1, feat, ",")
                Version(product, feature_count) = Right(feat, Len(feat) - r)
                featemp = Left(feat, r - 1)
                    If UCase(Left(featemp, 7)) = "FEATURE" Then
                        feature(product, feature_count) = RTrim(Right(featemp, Len(featemp) - 8))
                        types(product, feature_count) = "FEATURE"
                    End If
                    If UCase(Left(featemp, 9)) = "INCREMENT" Then
                        feature(product, feature_count) = RTrim(Right(featemp, Len(featemp) - 10))
                        types(product, feature_count) = "INCREMENT"
                    End If
                
                feature_count = feature_count + 1
                GoTo refeature
        End If
    featureN(product) = feature_count
        GoTo firstfet
reinfo:
        Line Input #filen, datax
        If UCase(Left(datax, 4)) = "INFO" Then
firstfet:
                info(product, info_line) = Right(datax, Len(datax) - 7)
                info_line = info_line + 1
                GoTo reinfo
        End If
    infoN(product) = info_line
    product = product + 1
    
    End If
Wend
finelic:
Close #filen
     
Combo6.Clear
     
If Combo1.ListCount <> 0 Then Combo1.ListIndex = 0
Combo3.AddItem "ANY"
Combo3.AddItem "DEMO"
Combo6.AddItem "ANY"
Combo6.AddItem "DEMO"


Combo7.Clear
Combo7.AddItem "DUP_GROUP=NONE"
Combo7.AddItem "DUP_GROUP=SITE"
Combo7.AddItem "DUP_GROUP=VHDV"
Combo7.AddItem "NOTICE="
Combo7.AddItem "asset_info="
Combo7.AddItem "dist_info="
Combo7.AddItem "user_info="
Combo7.AddItem "vendor_info="
Combo7.AddItem "OVERDRAFT="
Combo7.AddItem "CAPACITY"
Combo7.AddItem "HOST_BASED"
Combo7.AddItem "USER_BASED"
Combo7.AddItem "ISSUED="
Combo7.AddItem "MINIMUM="
Combo7.AddItem "SN="
Combo7.AddItem "SUITE_DUP_GROUP=NONE"
Combo7.AddItem "SUITE_DUP_GROUP=SITE"
Combo7.AddItem "SUITE_DUP_GROUP=VHDV"
Combo7.AddItem "SUPERSEDE"
Combo7.AddItem "SUPERSEDE=ALL"
Combo7.AddItem "PLATFORMS="
Combo7.AddItem "ID="
Combo7.AddItem "START="
Combo7.ListIndex = 0
Text19.Text = ""

MY_XOR1 = MY_VENDOR_SEED1 Xor MY_VENDOR_KEY5
MY_XOR2 = MY_VENDOR_SEED2 Xor MY_VENDOR_KEY5
i% = b326_6_LP_SETUP(MY_VENDOR_NAME, MY_VENDOR_KEY1, MY_VENDOR_KEY2, MY_VENDOR_KEY3, MY_VENDOR_KEY4, MY_XOR1, MY_XOR2)

Dim k As String
Dim HostidType As Long
Dim BufLen As Integer



BufLen = 2048
k = Space$(2048) ' this may need to be made larger depending upon size of license file
HostidType = HOSTID_DISPLAY
i% = b326_6_LC_HOSTID(HostidType, k, BufLen)
USM = RTrim(k)
If Len(USM) < 8 Then USERNM = "flexserver": GoTo nocc
USERNM = Right(USM, Len(USM) - 8)
nocc:

BufLen = 2048
k = Space$(2048) ' this may need to be made larger depending upon size of license file
HostidType = HOSTID_ETHER
i% = b326_6_LC_HOSTID(HostidType, k, BufLen)
If UCase(RTrim(k)) = "FFFFFFFF" Then
    k = "No ethernet card detected"
    Combo3.AddItem k
    Combo6.AddItem k
Else
    Combo3.AddItem RTrim(k)
    Combo3.AddItem "HOSTID_ETHER=" + RTrim(k)
    Combo6.AddItem RTrim(k)
    Combo6.AddItem "HOSTID_ETHER=" + RTrim(k)
End If

BufLen = 2048
k = Space$(2048) ' this may need to be made larger depending upon size of license file
HostidType = HOSTID_DISK_SERIAL_NUM
i% = b326_6_LC_HOSTID(HostidType, k, BufLen)

Combo3.AddItem RTrim(k)
Combo6.AddItem RTrim(k)

BufLen = 2048
k = Space$(2048) ' this may need to be made larger depending upon size of license file
HostidType = HOSTID_FLEXID1_KEY
i% = b326_6_LC_HOSTID(HostidType, k, BufLen)
Combo3.AddItem RTrim(k)
Combo6.AddItem RTrim(k)


BufLen = 2048
k = Space$(2048) ' this may need to be made larger depending upon size of license file
HostidType = HOSTID_INTERNET
i% = b326_6_LC_HOSTID(HostidType, k, BufLen)
If RTrim(k) <> "" Then
    Combo3.AddItem RTrim(k)
    Combo6.AddItem RTrim(k)
End If

Combo3.AddItem "SKEY=00000000"
Combo3.ListIndex = 0
Combo6.AddItem "SKEY=00000000"
Combo6.ListIndex = 0

Text3.Text = hostid(Combo1.ListIndex)

Combo4.Clear
Combo4.AddItem "3.0"
Combo4.AddItem "4.0"
Combo4.AddItem "5.0"
Combo4.AddItem "5.1"
Combo4.AddItem "6.0"
Combo4.AddItem "6.1"
Combo4.AddItem "7.0"
Combo4.ListIndex = 4

Text17.Text = issuer(Combo1.ListIndex)
Text18.Text = behavior(Combo1.ListIndex)

If Check2.Value = 1 Then
    Text20.Enabled = True
    Combo6.Enabled = True
End If

If Check2.Value = 0 Then
    Text20.Enabled = False
    Combo6.Enabled = False
End If

Screen.MousePointer = 0

End Sub

Private Sub GenMulti_Click()
Command3_Click
End Sub

Private Sub Gensingle_Click()
Crypt_Click
End Sub

Private Sub hdserial_Click()
Command9_Click
End Sub

Private Sub helpall_Click()
Shell ("notepad.exe " + App.Path + "\manual.txt"), 1
End Sub

Private Sub Hostinfo_Click()
Command8_Click
End Sub

Private Sub k7editor_Click()
Command1_Click
End Sub

Private Sub makini_Click()
Command7_Click
End Sub

Private Sub savelic_Click()
Command2_Click
End Sub

Private Sub vendinfos_Click()
Command6_Click
End Sub
