diff --git a/uFCoderAdvanced/BlockReadWrite.dfm b/uFCoderAdvanced/BlockReadWrite.dfm deleted file mode 100644 index e9481356c1d093a973c3b1c2cc1452b20cadace2..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/BlockReadWrite.dfm +++ /dev/null @@ -1,947 +0,0 @@ -object frmBlockReadWrite: TfrmBlockReadWrite - Left = 340 - Top = 220 - Width = 527 - Height = 402 - Caption = 'frmBlockReadWrite' - Color = clBtnFace - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - OldCreateOrder = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object pnlHeader: TStaticText - Left = 0 - Top = 0 - Width = 511 - Height = 25 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'Block Read/Write(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -17 - Font.Name = 'Verdana' - Font.Style = [] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object pnlAuth: TPanel - Left = 0 - Top = 25 - Width = 511 - Height = 31 - Align = alTop - Caption = ' ' - Ctl3D = True - ParentCtl3D = False - TabOrder = 1 - object lblKeyIndex: TLabel - Left = 179 - Top = 8 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object lblPK: TLabel - Left = 297 - Top = 8 - Width = 15 - Height = 13 - Caption = 'PK' - end - object rbAUTH1A: TRadioButton - Left = 8 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1A' - Checked = True - TabOrder = 0 - TabStop = True - end - object rbAUTH1B: TRadioButton - Left = 87 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1B' - TabOrder = 1 - end - object cboKeyIndex: TComboBox - Left = 245 - Top = 5 - Width = 40 - Height = 21 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 13 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7' - '8' - '9' - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - '19' - '20' - '21' - '22' - '23' - '24' - '25' - '26' - '27' - '28' - '29' - '30' - '31') - end - end - object stbFunction: TStatusBar - Left = 0 - Top = 339 - Width = 511 - Height = 25 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'Function Error:' - Width = 119 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pgBlockReadWrite: TPageControl - Left = 0 - Top = 56 - Width = 511 - Height = 283 - ActivePage = tabBlockRead - Align = alClient - TabIndex = 0 - TabOrder = 3 - object tabBlockRead: TTabSheet - Caption = 'Block Read' - object pnlBlockRead: TPanel - Left = 3 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblBRBlockAddress: TLabel - Left = 8 - Top = 32 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblReadData: TLabel - Left = 8 - Top = 75 - Width = 60 - Height = 13 - Caption = 'Read Data' - end - object lblBlockRead: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'Block Read' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object txtBRBlockAddress: TEdit - Left = 96 - Top = 30 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 0 - end - object btnBlockRead: TButton - Left = 144 - Top = 28 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = btnBlockReadClick - end - object txtBlockRead: TEdit - Left = 8 - Top = 91 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - end - object chkBRHex: TCheckBox - Left = 175 - Top = 72 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - OnClick = chkBRHexClick - end - end - object pnlBlockReadAKM1: TPanel - Left = 265 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 1 - object lblBRBlockAddressAKM1: TLabel - Left = 8 - Top = 32 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblReadDataAKM1: TLabel - Left = 8 - Top = 75 - Width = 60 - Height = 13 - Caption = 'Read Data' - end - object lblBlockReadAKM1: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockRead_AKM1' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object txtBRBlockAddressAKM1: TEdit - Left = 96 - Top = 30 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 0 - end - object btnBlockReadAKM1: TButton - Left = 144 - Top = 28 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = btnBlockReadAKM1Click - end - object txtBlockReadAKM1: TEdit - Left = 8 - Top = 91 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - end - object chkBRHexAKM1: TCheckBox - Left = 175 - Top = 72 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - OnClick = chkBRHexAKM1Click - end - end - object pnlBlockReadAKM2: TPanel - Left = 3 - Top = 128 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblBRBlockAddressAKM2: TLabel - Left = 8 - Top = 32 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblReadDataAKM2: TLabel - Left = 8 - Top = 75 - Width = 60 - Height = 13 - Caption = 'Read Data' - end - object lblBlockReadAKM2: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockRead_AKM2' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object txtBRBlockAddressAKM2: TEdit - Left = 96 - Top = 30 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 0 - end - object btnBlockReadAKM2: TButton - Left = 144 - Top = 28 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = btnBlockReadAKM2Click - end - object txtBlockReadAKM2: TEdit - Left = 8 - Top = 91 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - end - object chkBRHexAKM2: TCheckBox - Left = 175 - Top = 72 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - OnClick = chkBRHexAKM2Click - end - end - object pnlBlockReadPK: TPanel - Left = 265 - Top = 128 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblBRBlockAddressPK: TLabel - Left = 8 - Top = 32 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblReadDataPK: TLabel - Left = 8 - Top = 75 - Width = 60 - Height = 13 - Caption = 'Read Data' - end - object lblBlockReadPK: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockRead_PK' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object txtBRBlockAddressPK: TEdit - Left = 96 - Top = 30 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 0 - end - object btnBlockReadPK: TButton - Left = 144 - Top = 28 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = btnBlockReadPKClick - end - object txtBlockReadPK: TEdit - Left = 8 - Top = 91 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - end - object chkBRHexPK: TCheckBox - Left = 175 - Top = 72 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - OnClick = chkBRHexPKClick - end - end - end - object tabBlockWrite: TTabSheet - Caption = 'Block Write' - ImageIndex = 1 - object pnlBlockWrite: TPanel - Left = 3 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblBWBlockAddress: TLabel - Left = 8 - Top = 80 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblWriteData: TLabel - Left = 8 - Top = 25 - Width = 61 - Height = 13 - Caption = 'Write Data' - end - object lblBlockWrite: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'Block Write' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 3 - end - object txtBWBlockAddress: TEdit - Left = 96 - Top = 77 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 1 - end - object btnWriteData: TButton - Left = 144 - Top = 68 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnWriteDataClick - end - object txtBlockWrite: TEdit - Left = 8 - Top = 41 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object chkBWHex: TCheckBox - Left = 175 - Top = 24 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - end - end - object pnlBlockWriteAKM1: TPanel - Left = 265 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 1 - object lblBWBlockWriteAKM1: TLabel - Left = 8 - Top = 80 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblWriteDataAKM1: TLabel - Left = 8 - Top = 25 - Width = 61 - Height = 13 - Caption = 'Write Data' - end - object lblBlockWriteAKM1: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockWrite_AKM1' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 3 - end - object txtBWBlockAddressAKM1: TEdit - Left = 96 - Top = 77 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 1 - end - object btnBlockWriteAKM1: TButton - Left = 144 - Top = 68 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnBlockWriteAKM1Click - end - object txtBlockWriteAKM1: TEdit - Left = 8 - Top = 41 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object chkBWHexAKM1: TCheckBox - Left = 175 - Top = 24 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - end - end - object pnlBlockWriteAKM2: TPanel - Left = 3 - Top = 128 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblBWBlockAddressAKM2: TLabel - Left = 8 - Top = 80 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblWriteDataAKM2: TLabel - Left = 8 - Top = 24 - Width = 61 - Height = 13 - Caption = 'Write Data' - end - object lblBlockWriteAKM2: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockWrite_AKM2' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 3 - end - object txtBWBlockAddressAKM2: TEdit - Left = 96 - Top = 77 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 1 - end - object btnBlockWriteAKM2: TButton - Left = 144 - Top = 68 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnBlockWriteAKM2Click - end - object txtBlockWriteAKM2: TEdit - Left = 8 - Top = 40 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object chkBWHexAKM2: TCheckBox - Left = 175 - Top = 23 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - end - end - object pnlBlockWritePK: TPanel - Left = 266 - Top = 128 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblBWBlockAddressPK: TLabel - Left = 8 - Top = 80 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblWriteDataPK: TLabel - Left = 8 - Top = 24 - Width = 61 - Height = 13 - Caption = 'Write Data' - end - object lblBlockWritePK: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'BlockWrite_PK' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 3 - end - object txtBWBlockAddressPK: TEdit - Left = 96 - Top = 77 - Width = 41 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 2 - ParentFont = False - TabOrder = 1 - end - object btnBlockWritePK: TButton - Left = 144 - Top = 68 - Width = 75 - Height = 40 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnBlockWritePKClick - end - object txtBlockWritePK: TEdit - Left = 8 - Top = 40 - Width = 210 - Height = 21 - Ctl3D = True - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object chkBWHexPK: TCheckBox - Left = 175 - Top = 23 - Width = 43 - Height = 17 - Caption = 'Hex' - TabOrder = 4 - end - end - end - end -end diff --git a/uFCoderAdvanced/BlockReadWrite.h b/uFCoderAdvanced/BlockReadWrite.h deleted file mode 100644 index b627c332a7c8a1b32f82935d8b19c2bcebfc14bb..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/BlockReadWrite.h +++ /dev/null @@ -1,124 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef BlockReadWriteH -#define BlockReadWriteH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -#include "Globals.h" -//--------------------------------------------------------------------------- -class TfrmBlockReadWrite : public TForm -{ -__published: // IDE-managed Components - TStaticText *pnlHeader; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TStatusBar *stbFunction; - TPageControl *pgBlockReadWrite; - TTabSheet *tabBlockRead; - TTabSheet *tabBlockWrite; - TPanel *pnlBlockRead; - TStaticText *lblBlockRead; - TLabel *lblBRBlockAddress; - TEdit *txtBRBlockAddress; - TButton *btnBlockRead; - TLabel *lblReadData; - TEdit *txtBlockRead; - TPanel *pnlBlockReadAKM1; - TLabel *lblBRBlockAddressAKM1; - TLabel *lblReadDataAKM1; - TStaticText *lblBlockReadAKM1; - TEdit *txtBRBlockAddressAKM1; - TButton *btnBlockReadAKM1; - TEdit *txtBlockReadAKM1; - TPanel *pnlBlockReadAKM2; - TLabel *lblBRBlockAddressAKM2; - TLabel *lblReadDataAKM2; - TStaticText *lblBlockReadAKM2; - TEdit *txtBRBlockAddressAKM2; - TButton *btnBlockReadAKM2; - TEdit *txtBlockReadAKM2; - TPanel *pnlBlockReadPK; - TLabel *lblBRBlockAddressPK; - TLabel *lblReadDataPK; - TStaticText *lblBlockReadPK; - TEdit *txtBRBlockAddressPK; - TButton *btnBlockReadPK; - TEdit *txtBlockReadPK; - TPanel *pnlBlockWrite; - TLabel *lblBWBlockAddress; - TStaticText *lblBlockWrite; - TEdit *txtBWBlockAddress; - TButton *btnWriteData; - TLabel *lblWriteData; - TEdit *txtBlockWrite; - TPanel *pnlBlockWriteAKM1; - TLabel *lblBWBlockWriteAKM1; - TLabel *lblWriteDataAKM1; - TStaticText *lblBlockWriteAKM1; - TEdit *txtBWBlockAddressAKM1; - TButton *btnBlockWriteAKM1; - TEdit *txtBlockWriteAKM1; - TPanel *pnlBlockWriteAKM2; - TLabel *lblBWBlockAddressAKM2; - TLabel *lblWriteDataAKM2; - TStaticText *lblBlockWriteAKM2; - TEdit *txtBWBlockAddressAKM2; - TButton *btnBlockWriteAKM2; - TEdit *txtBlockWriteAKM2; - TPanel *pnlBlockWritePK; - TLabel *lblBWBlockAddressPK; - TLabel *lblWriteDataPK; - TStaticText *lblBlockWritePK; - TEdit *txtBWBlockAddressPK; - TButton *btnBlockWritePK; - TEdit *txtBlockWritePK; - TCheckBox *chkBRHex; - TCheckBox *chkBRHexAKM1; - TCheckBox *chkBRHexAKM2; - TCheckBox *chkBRHexPK; - TCheckBox *chkBWHex; - TCheckBox *chkBWHexAKM1; - TCheckBox *chkBWHexAKM2; - TCheckBox *chkBWHexPK; - void __fastcall FormCreate(TObject *Sender); - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall btnBlockReadClick(TObject *Sender); - void __fastcall btnBlockReadAKM1Click(TObject *Sender); - void __fastcall btnBlockReadAKM2Click(TObject *Sender); - void __fastcall btnBlockReadPKClick(TObject *Sender); - void __fastcall btnWriteDataClick(TObject *Sender); - void __fastcall btnBlockWriteAKM1Click(TObject *Sender); - void __fastcall btnBlockWriteAKM2Click(TObject *Sender); - void __fastcall btnBlockWritePKClick(TObject *Sender); - - void __fastcall chkBRHexClick(TObject *Sender); - void __fastcall chkBRHexAKM1Click(TObject *Sender); - void __fastcall chkBRHexAKM2Click(TObject *Sender); - void __fastcall chkBRHexPKClick(TObject *Sender); -private: - - - const char* CONV_ERROR; - - unsigned char* HexConvert(TEdit* sTextBox); - String __fastcall ConvertToHex(bool chkCheck); - unsigned char aucReadDatas[BLOCK_MAX_INDEX]; - -public: - - __fastcall TfrmBlockReadWrite(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmBlockReadWrite *frmBlockReadWrite; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/BlockReadWrite.obj b/uFCoderAdvanced/BlockReadWrite.obj deleted file mode 100644 index 323185dd3596352912d70f738436b7c7e0a93190..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/BlockReadWrite.obj and /dev/null differ diff --git a/uFCoderAdvanced/Globals.h b/uFCoderAdvanced/Globals.h deleted file mode 100644 index 7cded20953055022b3b9139df904141dab042372..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/Globals.h +++ /dev/null @@ -1,347 +0,0 @@ -#ifndef GlobalH -#define GlobalH -#pragma hrdstop -#include -#include -#include -#include -#include -#include -#include -#include "uFCoder1x.h" - -const unsigned short - MAX_SECTORS_1k = 16, - MAX_SECTORS_4k = 40, - MAX_BYTES_NTAG_203 = 144, - MAX_BYTES_ULTRALIGHT = 48, - MAX_BYTES_ULTRALIGHT_C = 144, - MAX_BYTES_CLASSIC_1K = 752, - MAX_BYTES_CLASSIC_4k = 3440; - -// max page and max block length for NTAG and MIFARE ULTRALIGHT -const unsigned char - MAX_PAGE_NTAG203 = 39, - MAX_PAGE_ULTRALIGHT = 15, - MAX_PAGE_ULTRALIGHT_C = 39; - - -const unsigned char - MAX_BLOCK = 16, - MAX_BLOCK_NTAG_ULTRAL = 5, - FORMAT_SIGN = 0xFF; - -typedef unsigned long DL_STATUS; -const unsigned - FRES_OK_LIGHT = 4, - FRES_OK_SOUND = 0, - FERR_LIGHT = 2, - FERR_SOUND = 0, - DL_OK = 0, - MAX_KEY_INDEX = 6, - MAX_USER_DATA = 15, - BLOCK_MAX_INDEX = 15; - - - -const AUTH1A = 0x60, - AUTH1B = 0x61; - -const char* CONVERT_ERROR = "You must enter only whole decimal number !"; -const char* APPROPRIATE_FORMAT = "You must enter the appropriate format !"; -const char* WRONG_ENTRY = "Wrong entry ! You must enter the numeric value between 0 - 255 !"; -AnsiString ERR_CODE[200]; -unsigned char ucCardTypes; - -unsigned char GetCardType(void) -{ - return ucCardTypes; -} -unsigned char SetCardType(unsigned char AValue) -{ - ucCardTypes=AValue; -} - -bool boReaderStart, - boFunctionStart; - -bool GetReaderStart(void) -{ - return boReaderStart; -} -void SetReaderStart(bool AValue) -{ - boReaderStart=AValue; -} - -bool GetFunctionStart(void) -{ - return boFunctionStart; -} -void SetFunctionStart(bool AValue) -{ - boFunctionStart=AValue; -} - - -static String asErrorCode[200]; - -void __fastcall SetStatusBar(TStatusBar *StatusBar,unsigned long Result) -{ - StatusBar->Panels->Items[1]->Text="0x"+AnsiString().IntToHex(Result,2); - StatusBar->Panels->Items[2]->Text=asErrorCode[Result]; -} - -void ErrorCodes(void) -{ - asErrorCode[0x00]="DL_OK "; - asErrorCode[0x01]="COMMUNICATION_ERROR "; - asErrorCode[0x02]="CHKSUM_ERROR "; - asErrorCode[0x03]="READING_ERROR "; - asErrorCode[0x04]="WRITING_ERROR "; - asErrorCode[0x05]="BUFFER_OVERFLOW "; - asErrorCode[0x06]="MAX_ADDRESS_EXCEEDED "; - asErrorCode[0x07]="MAX_KEY_INDEX_EXCEEDED "; - asErrorCode[0x08]="NO_CARD "; - asErrorCode[0x09]="COMMAND_NOT_SUPPORTED "; - asErrorCode[0x0A]="FORBIDEN_DIRECT_WRITE_IN_SECTOR_TRAILER "; - asErrorCode[0x0B]="ADDRESSED_BLOCK_IS_NOT_SECTOR_TRAILER "; - asErrorCode[0x0C]="WRONG_ADDRESS_MODE "; - asErrorCode[0x0D]="WRONG_ACCESS_BITS_VALUES "; - asErrorCode[0x0E]="AUTH_ERROR "; - asErrorCode[0x0F]="PARAMETERS_ERROR "; - asErrorCode[0x10]="MAX_SIZE_EXCEEDED "; - asErrorCode[0x11]="UNSUPPORTED_CARD_TYPE "; - - asErrorCode[0x50]="COMMUNICATION_BREAK "; - asErrorCode[0x51]="NO_MEMORY_ERROR "; - asErrorCode[0x52]="CAN_NOT_OPEN_READER "; - asErrorCode[0x53]="READER_NOT_SUPPORTED "; - asErrorCode[0x54]="READER_OPENING_ERROR "; - asErrorCode[0x55]="READER_PORT_NOT_OPENED "; - asErrorCode[0x56]="CANT_CLOSE_READER_PORT "; - - asErrorCode[0x70]="WRITE_VERIFICATION_ERROR "; - asErrorCode[0x71]="BUFFER_SIZE_EXCEEDED "; - asErrorCode[0x72]="VALUE_BLOCK_INVALID "; - asErrorCode[0x73]="VALUE_BLOCK_ADDR_INVALID "; - asErrorCode[0x74]="VALUE_BLOCK_MANIPULATION_ERROR "; - asErrorCode[0x75]="WRONG_UI_MODE"; - asErrorCode[0x76]="KEYS_LOCKED"; - asErrorCode[0x77]="KEYS_UNLOCKED"; - asErrorCode[0x78]="WRONG_PASSWORD"; - asErrorCode[0x79]="CAN_NOT_LOCK_DEVICE"; - asErrorCode[0x7A]="CAN_NOT_UNLOCK_DEVICE"; - asErrorCode[0x7B]="DEVICE_EEPROM_BUSY"; - asErrorCode[0x7C]="RTC_SET_ERROR"; - - asErrorCode[0xA0]="FT_STATUS_ERROR_1"; - asErrorCode[0xA1]="FT_STATUS_ERROR_2"; - asErrorCode[0xA2]="FT_STATUS_ERROR_3"; - asErrorCode[0xA3]="FT_STATUS_ERROR_4"; - asErrorCode[0xA4]="FT_STATUS_ERROR_5"; - asErrorCode[0xA5]="FT_STATUS_ERROR_6"; - asErrorCode[0xA6]="FT_STATUS_ERROR_7"; - asErrorCode[0xA7]="FT_STATUS_ERROR_8"; - asErrorCode[0xA8]="FT_STATUS_ERROR_9"; -} - void ShowForm(TForm *my_form,TPanel *pnlContainer) - { - my_form->Align=alClient; - my_form->BorderStyle=bsNone; - my_form->Show(); - my_form->Parent=pnlContainer; - } - void CreateKey(TForm *key_owner,int key_height,int key_width,int key_left,int key_top, - AnsiString key_name,TPanel *pnlContainer,TKeyPressEvent on_key_press,TNotifyEvent on_exit) - - { - TEdit *edit_key[10]; - for (char count=0;count<6;count++) - { - edit_key[count]=new TEdit(key_owner); - edit_key[count]->Height=key_height; - edit_key[count]->Width=key_width; - edit_key[count]->Left =key_left+(key_width*count+2); - edit_key[count]->Top=key_top; - edit_key[count]->Font->Name="Verdana"; - edit_key[count]->Text="255"; - edit_key[count]->MaxLength=3; - edit_key[count]->Name=key_name+IntToStr(count+1); - edit_key[count]->OnKeyPress=on_key_press; - edit_key[count]->OnExit=on_exit; - edit_key[count]->Parent=pnlContainer; - - } - } - void Check_hex(TForm *key_owner,TCheckBox *check_box,AnsiString key_name) - { - switch (check_box->Checked) - { - case true: - for(unsigned char br=0;br<6;br++) - ((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text= - AnsiString().IntToHex(StrToInt(((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text),2); - break; - case false: - for(unsigned char br=0;br<6;br++) - ((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text=IntToStr(StrToInt("0x"+((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text)); - break; - } - } - void Check_PK_key_press(TObject *Sender,char &Key) - { - try - { - if (Key==VK_BACK) return; - ((TEdit*)(Sender))->MaxLength=3; - if (Key<(0x30) || Key>(0x39)) Key='\0'; - else return; - } - catch (char *message) - { - Application->MessageBoxA(message,"Error!",MB_OK|MB_ICONERROR); - } - } - void Check_On_ExitPK(TObject *Sender,TCheckBox *check_box) - { - TEdit *TB= ((TEdit*)(Sender)); - if (AnsiString(Trim(TB->Text)).IsEmpty()) - { - TB->Undo(); - TB->SetFocus(); - return; - } - if (check_box->Checked) return; - if (((TEdit*)(Sender))->Text.ToInt()>255) - { - Application->MessageBoxA("Wrong entry ! You must enter the numeric value between 0 - 255 !","Error !",MB_OK|MB_ICONERROR); - TB->SetFocus(); - TB->Undo(); - } - } - void Check_On_Exit(TObject *Sender) - { - TEdit *TB= ((TEdit*)(Sender)); - if (AnsiString(Trim(TB->Text)).IsEmpty()) - { - TB->Undo(); - TB->SetFocus(); - return; - } - if (((TEdit*)(Sender))->Text.ToInt()>255) - { - Application->MessageBoxA("Wrong entry ! You must enter the numeric value between 0 - 255 !","Error !",MB_OK|MB_ICONERROR); - TB->SetFocus(); - TB->Undo(); - } - } - void Check_key_press(TObject *Sender,char &Key,TCheckBox *check_box) - { - try - { - if (Key==VK_BACK) return; - if (check_box->Checked) - { - ((TEdit*)(Sender))->MaxLength=2; - switch(Key) - { - case 'a': case '0':case '1': - case 'b': case '2':case '3': - case 'c': case '4':case '5': - case 'd': case '6':case '7': - case 'e': case '8':case '9': - case 'f': - return; - - default: Key='\0'; - } - - } - else - { - ((TEdit*)(Sender))->MaxLength=3; - if (Key<(0x30) || Key>(0x39)) Key='\0'; - else return; - } - } - catch(char *message) - { - Application->MessageBoxA(message,"Error !",MB_OK | MB_ICONERROR); - } - } - void Key_save(TForm *key_owner,TCheckBox *check_box,unsigned char *dim_key,AnsiString key_name) - { - if (check_box->Checked) - { - for(unsigned char br=0;br<6;br++) - dim_key[br]=StrToInt("0x"+((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text); - } - else - { - for(unsigned char br=0;br<6;br++) - dim_key[br]=StrToInt(((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text),2; - } - } - -unsigned char __fastcall AuthMode(TRadioButton *rbRadioButton) -{ - return rbRadioButton->Checked ? MIFARE_AUTHENT1A : MIFARE_AUTHENT1B; -} - -inline unsigned char *PKValue(TForm *Forma) -{ - unsigned char aucPKKey[6]; - for(int br=0;br<6;br++) - aucPKKey[br]=StrToInt(((TEdit*)(Forma->FindComponent("txtPKKey"+IntToStr(br+1))))->Text); - return aucPKKey; -} - -unsigned short MaxBlock(unsigned char ucCardType) -{ - USHORT usResult=0; - - switch(ucCardType) - { - case DL_NTAG_203 :usResult = MAX_PAGE_NTAG203; - break; - case DL_MIFARE_ULTRALIGHT :usResult = MAX_PAGE_ULTRALIGHT; - break; - case DL_MIFARE_ULTRALIGHT_C:usResult = MAX_PAGE_ULTRALIGHT_C; - break; - case DL_MIFARE_CLASSIC_1K : - usResult = MAX_SECTORS_1k *4; - break; - case - DL_MIFARE_CLASSIC_4K : - case - DL_MIFARE_PLUS_S_4K : - usResult = ((MAX_SECTORS_1k*2)*4)+((MAX_SECTORS_1k-8)*16); - break; - } - return usResult; -} - -unsigned short MaxBytes(unsigned char ucCardType) -{ - unsigned short usMaxBytes = 0; - switch(ucCardType) - { - case 0x08: - usMaxBytes=752; - break; - case 0x18: - usMaxBytes=3440; - break; - } - return usMaxBytes; -} - - - - -#endif - - - - diff --git a/uFCoderAdvanced/Globals.~h b/uFCoderAdvanced/Globals.~h deleted file mode 100644 index ee207cc54b9a815b56f7db8269f3457f42ad8139..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/Globals.~h +++ /dev/null @@ -1,346 +0,0 @@ -#ifndef GlobalH -#define GlobalH -#pragma hrdstop -#include -#include -#include -#include -#include -#include -#include -#include "uFCoder1x.h" - -const unsigned short - MAX_SECTORS_1k = 16, - MAX_SECTORS_4k = 40, - MAX_BYTES_NTAG_203 = 144, - MAX_BYTES_ULTRALIGHT = 48, - MAX_BYTES_ULTRALIGHT_C = 144, - MAX_BYTES_CLASSIC_1K = 752, - MAX_BYTES_CLASSIC_4k = 3440; - -// max page and max block length for NTAG and MIFARE ULTRALIGHT -const unsigned char - MAX_PAGE_NTAG203 = 39, - MAX_PAGE_ULTRALIGHT = 15, - MAX_PAGE_ULTRALIGHT_C = 39, - MAX_BLOCK_NTAG_ULTRAL = 4; //5 - -const unsigned char - MAX_BLOCK = 16, - FORMAT_SIGN = 0xFF; - -typedef unsigned long DL_STATUS; -const unsigned - FRES_OK_LIGHT = 4, - FRES_OK_SOUND = 0, - FERR_LIGHT = 2, - FERR_SOUND = 0, - DL_OK = 0, - MAX_KEY_INDEX = 6, - MAX_USER_DATA = 15, - BLOCK_MAX_INDEX = 15; - - - -const AUTH1A = 0x60, - AUTH1B = 0x61; - -const char* CONVERT_ERROR = "You must enter only whole decimal number !"; -const char* APPROPRIATE_FORMAT = "You must enter the appropriate format !"; -const char* WRONG_ENTRY = "Wrong entry ! You must enter the numeric value between 0 - 255 !"; -AnsiString ERR_CODE[200]; -unsigned char ucCardTypes; - -unsigned char GetCardType(void) -{ - return ucCardTypes; -} -unsigned char SetCardType(unsigned char AValue) -{ - ucCardTypes=AValue; -} - -bool boReaderStart, - boFunctionStart; - -bool GetReaderStart(void) -{ - return boReaderStart; -} -void SetReaderStart(bool AValue) -{ - boReaderStart=AValue; -} - -bool GetFunctionStart(void) -{ - return boFunctionStart; -} -void SetFunctionStart(bool AValue) -{ - boFunctionStart=AValue; -} - - -static String asErrorCode[200]; - -void __fastcall SetStatusBar(TStatusBar *StatusBar,unsigned long Result) -{ - StatusBar->Panels->Items[1]->Text="0x"+AnsiString().IntToHex(Result,2); - StatusBar->Panels->Items[2]->Text=asErrorCode[Result]; -} - -void ErrorCodes(void) -{ - asErrorCode[0x00]="DL_OK "; - asErrorCode[0x01]="COMMUNICATION_ERROR "; - asErrorCode[0x02]="CHKSUM_ERROR "; - asErrorCode[0x03]="READING_ERROR "; - asErrorCode[0x04]="WRITING_ERROR "; - asErrorCode[0x05]="BUFFER_OVERFLOW "; - asErrorCode[0x06]="MAX_ADDRESS_EXCEEDED "; - asErrorCode[0x07]="MAX_KEY_INDEX_EXCEEDED "; - asErrorCode[0x08]="NO_CARD "; - asErrorCode[0x09]="COMMAND_NOT_SUPPORTED "; - asErrorCode[0x0A]="FORBIDEN_DIRECT_WRITE_IN_SECTOR_TRAILER "; - asErrorCode[0x0B]="ADDRESSED_BLOCK_IS_NOT_SECTOR_TRAILER "; - asErrorCode[0x0C]="WRONG_ADDRESS_MODE "; - asErrorCode[0x0D]="WRONG_ACCESS_BITS_VALUES "; - asErrorCode[0x0E]="AUTH_ERROR "; - asErrorCode[0x0F]="PARAMETERS_ERROR "; - asErrorCode[0x10]="MAX_SIZE_EXCEEDED "; - asErrorCode[0x11]="UNSUPPORTED_CARD_TYPE "; - - asErrorCode[0x50]="COMMUNICATION_BREAK "; - asErrorCode[0x51]="NO_MEMORY_ERROR "; - asErrorCode[0x52]="CAN_NOT_OPEN_READER "; - asErrorCode[0x53]="READER_NOT_SUPPORTED "; - asErrorCode[0x54]="READER_OPENING_ERROR "; - asErrorCode[0x55]="READER_PORT_NOT_OPENED "; - asErrorCode[0x56]="CANT_CLOSE_READER_PORT "; - - asErrorCode[0x70]="WRITE_VERIFICATION_ERROR "; - asErrorCode[0x71]="BUFFER_SIZE_EXCEEDED "; - asErrorCode[0x72]="VALUE_BLOCK_INVALID "; - asErrorCode[0x73]="VALUE_BLOCK_ADDR_INVALID "; - asErrorCode[0x74]="VALUE_BLOCK_MANIPULATION_ERROR "; - asErrorCode[0x75]="WRONG_UI_MODE"; - asErrorCode[0x76]="KEYS_LOCKED"; - asErrorCode[0x77]="KEYS_UNLOCKED"; - asErrorCode[0x78]="WRONG_PASSWORD"; - asErrorCode[0x79]="CAN_NOT_LOCK_DEVICE"; - asErrorCode[0x7A]="CAN_NOT_UNLOCK_DEVICE"; - asErrorCode[0x7B]="DEVICE_EEPROM_BUSY"; - asErrorCode[0x7C]="RTC_SET_ERROR"; - - asErrorCode[0xA0]="FT_STATUS_ERROR_1"; - asErrorCode[0xA1]="FT_STATUS_ERROR_2"; - asErrorCode[0xA2]="FT_STATUS_ERROR_3"; - asErrorCode[0xA3]="FT_STATUS_ERROR_4"; - asErrorCode[0xA4]="FT_STATUS_ERROR_5"; - asErrorCode[0xA5]="FT_STATUS_ERROR_6"; - asErrorCode[0xA6]="FT_STATUS_ERROR_7"; - asErrorCode[0xA7]="FT_STATUS_ERROR_8"; - asErrorCode[0xA8]="FT_STATUS_ERROR_9"; -} - void ShowForm(TForm *my_form,TPanel *pnlContainer) - { - my_form->Align=alClient; - my_form->BorderStyle=bsNone; - my_form->Show(); - my_form->Parent=pnlContainer; - } - void CreateKey(TForm *key_owner,int key_height,int key_width,int key_left,int key_top, - AnsiString key_name,TPanel *pnlContainer,TKeyPressEvent on_key_press,TNotifyEvent on_exit) - - { - TEdit *edit_key[10]; - for (char count=0;count<6;count++) - { - edit_key[count]=new TEdit(key_owner); - edit_key[count]->Height=key_height; - edit_key[count]->Width=key_width; - edit_key[count]->Left =key_left+(key_width*count+2); - edit_key[count]->Top=key_top; - edit_key[count]->Font->Name="Verdana"; - edit_key[count]->Text="255"; - edit_key[count]->MaxLength=3; - edit_key[count]->Name=key_name+IntToStr(count+1); - edit_key[count]->OnKeyPress=on_key_press; - edit_key[count]->OnExit=on_exit; - edit_key[count]->Parent=pnlContainer; - - } - } - void Check_hex(TForm *key_owner,TCheckBox *check_box,AnsiString key_name) - { - switch (check_box->Checked) - { - case true: - for(unsigned char br=0;br<6;br++) - ((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text= - AnsiString().IntToHex(StrToInt(((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text),2); - break; - case false: - for(unsigned char br=0;br<6;br++) - ((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text=IntToStr(StrToInt("0x"+((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text)); - break; - } - } - void Check_PK_key_press(TObject *Sender,char &Key) - { - try - { - if (Key==VK_BACK) return; - ((TEdit*)(Sender))->MaxLength=3; - if (Key<(0x30) || Key>(0x39)) Key='\0'; - else return; - } - catch (char *message) - { - Application->MessageBoxA(message,"Error!",MB_OK|MB_ICONERROR); - } - } - void Check_On_ExitPK(TObject *Sender,TCheckBox *check_box) - { - TEdit *TB= ((TEdit*)(Sender)); - if (AnsiString(Trim(TB->Text)).IsEmpty()) - { - TB->Undo(); - TB->SetFocus(); - return; - } - if (check_box->Checked) return; - if (((TEdit*)(Sender))->Text.ToInt()>255) - { - Application->MessageBoxA("Wrong entry ! You must enter the numeric value between 0 - 255 !","Error !",MB_OK|MB_ICONERROR); - TB->SetFocus(); - TB->Undo(); - } - } - void Check_On_Exit(TObject *Sender) - { - TEdit *TB= ((TEdit*)(Sender)); - if (AnsiString(Trim(TB->Text)).IsEmpty()) - { - TB->Undo(); - TB->SetFocus(); - return; - } - if (((TEdit*)(Sender))->Text.ToInt()>255) - { - Application->MessageBoxA("Wrong entry ! You must enter the numeric value between 0 - 255 !","Error !",MB_OK|MB_ICONERROR); - TB->SetFocus(); - TB->Undo(); - } - } - void Check_key_press(TObject *Sender,char &Key,TCheckBox *check_box) - { - try - { - if (Key==VK_BACK) return; - if (check_box->Checked) - { - ((TEdit*)(Sender))->MaxLength=2; - switch(Key) - { - case 'a': case '0':case '1': - case 'b': case '2':case '3': - case 'c': case '4':case '5': - case 'd': case '6':case '7': - case 'e': case '8':case '9': - case 'f': - return; - - default: Key='\0'; - } - - } - else - { - ((TEdit*)(Sender))->MaxLength=3; - if (Key<(0x30) || Key>(0x39)) Key='\0'; - else return; - } - } - catch(char *message) - { - Application->MessageBoxA(message,"Error !",MB_OK | MB_ICONERROR); - } - } - void Key_save(TForm *key_owner,TCheckBox *check_box,unsigned char *dim_key,AnsiString key_name) - { - if (check_box->Checked) - { - for(unsigned char br=0;br<6;br++) - dim_key[br]=StrToInt("0x"+((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text); - } - else - { - for(unsigned char br=0;br<6;br++) - dim_key[br]=StrToInt(((TEdit*)(key_owner->FindComponent(key_name+IntToStr(br+1))))->Text),2; - } - } - -unsigned char __fastcall AuthMode(TRadioButton *rbRadioButton) -{ - return rbRadioButton->Checked ? MIFARE_AUTHENT1A : MIFARE_AUTHENT1B; -} - -inline unsigned char *PKValue(TForm *Forma) -{ - unsigned char aucPKKey[6]; - for(int br=0;br<6;br++) - aucPKKey[br]=StrToInt(((TEdit*)(Forma->FindComponent("txtPKKey"+IntToStr(br+1))))->Text); - return aucPKKey; -} - -unsigned short MaxBlock(unsigned char ucCardType) -{ - USHORT usResult=0; - - switch(ucCardType) - { - case DL_NTAG_203 :usResult = MAX_PAGE_NTAG203; - break; - case DL_MIFARE_ULTRALIGHT :usResult = MAX_PAGE_ULTRALIGHT; - break; - case DL_MIFARE_ULTRALIGHT_C:usResult = MAX_PAGE_ULTRALIGHT_C; - break; - case DL_MIFARE_CLASSIC_1K : - usResult = MAX_SECTORS_1k *4; - break; - case - DL_MIFARE_CLASSIC_4K : - case - DL_MIFARE_PLUS_S_4K : - usResult = ((MAX_SECTORS_1k*2)*4)+((MAX_SECTORS_1k-8)*16); - break; - } - return usResult; -} - -unsigned short MaxBytes(unsigned char ucCardType) -{ - unsigned short usMaxBytes = 0; - switch(ucCardType) - { - case 0x08: - usMaxBytes=752; - break; - case 0x18: - usMaxBytes=3440; - break; - } - return usMaxBytes; -} - - - - -#endif - - - - diff --git a/uFCoderAdvanced/LinearFormatCard.cpp b/uFCoderAdvanced/LinearFormatCard.cpp deleted file mode 100644 index 86b6778012e45b6e2345657c49002acd5784070c..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.cpp +++ /dev/null @@ -1,256 +0,0 @@ - - -#include -#pragma hdrstop - -#include "LinearFormatCard.h" -#include "Globals.h" -#include "uFCoder1x.h" - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmLinearFormatCard *frmLinearFormatCard; - - -__fastcall TfrmLinearFormatCard::TfrmLinearFormatCard(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmLinearFormatCard::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} - -void __fastcall TfrmLinearFormatCard:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} -void __fastcall TfrmLinearFormatCard::OnKeyA_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexA); -} -void __fastcall TfrmLinearFormatCard::OnKeyB_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexB); -} -void __fastcall TfrmLinearFormatCard:: OnKeyA_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexA); -} -void __fastcall TfrmLinearFormatCard:: OnKeyB_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexB); -} -void __fastcall TfrmLinearFormatCard::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); - CreateKey(this,31,27,40,25,"txtKeyA",pnlKeyA,OnKeyA_KeyPress,OnKeyA_Exit); - CreateKey(this,31,27,40,25,"txtKeyB",pnlKeyB,OnKeyB_KeyPress,OnKeyB_Exit); -} - -void __fastcall TfrmLinearFormatCard::chkHexAClick(TObject *Sender) -{ - Check_hex(this,chkHexA,"txtKeyA"); -} - -void __fastcall TfrmLinearFormatCard::chkHexBClick(TObject *Sender) -{ - Check_hex(this,chkHexB,"txtKeyB"); -} - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult =0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9->SetFocus(); - return; - } - txtSectorFormatted->Clear(); - ucBlockAccessBits = cboBlockAccessBits->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBits->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB,&ucSectorFormatted, - ucAuthMode,ucKeyIndex); - if (ulFResult==DL_OK) - { - txtSectorFormatted->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormatted->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9AKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9AKM1->SetFocus(); - return; - } - txtSectorFormattedAKM1->Clear(); - ucBlockAccessBits = cboBlockAccessBitsAKM1->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsAKM1->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9AKM1->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_AKM1(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode); - if (ulFResult==DL_OK) - { - txtSectorFormattedAKM1->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedAKM1->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9AKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9AKM2->SetFocus(); - return; - } - txtSectorFormattedAKM2->Clear(); - ucBlockAccessBits = cboBlockAccessBitsAKM2->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsAKM2->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9AKM2->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_AKM2(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode); - if (ulFResult==DL_OK) - { - txtSectorFormattedAKM2->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedAKM2->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9PK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9PK->SetFocus(); - return; - } - txtSectorFormattedPK->Clear(); - ucBlockAccessBits = cboBlockAccessBitsPK->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsPK->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9PK->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_PK(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode,PKValue(this)); - if (ulFResult==DL_OK) - { - txtSectorFormattedPK->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedPK->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - } - } - __finally - { - SetFunctionStart(false); - } -} - - diff --git a/uFCoderAdvanced/LinearFormatCard.ddp b/uFCoderAdvanced/LinearFormatCard.ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/LinearFormatCard.ddp and /dev/null differ diff --git a/uFCoderAdvanced/LinearFormatCard.dfm b/uFCoderAdvanced/LinearFormatCard.dfm deleted file mode 100644 index 289f45696d36401e474ee40186d63738eb0e6ddd..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.dfm +++ /dev/null @@ -1,785 +0,0 @@ -object frmLinearFormatCard: TfrmLinearFormatCard - Left = 373 - Top = 213 - Width = 527 - Height = 401 - Caption = 'LinearFormat Card' - Color = clBtnFace - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - OldCreateOrder = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object pnlKeys: TPanel - Left = 0 - Top = 56 - Width = 511 - Height = 73 - Align = alTop - TabOrder = 0 - object pnlKeyA: TPanel - Left = 1 - Top = 1 - Width = 255 - Height = 71 - Align = alLeft - Caption = ' ' - TabOrder = 0 - object lblKeyA: TStaticText - Left = 1 - Top = 1 - Width = 253 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY A' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexA: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexAClick - end - end - object pnlKeyB: TPanel - Left = 256 - Top = 1 - Width = 254 - Height = 71 - Align = alClient - Caption = ' ' - TabOrder = 1 - object lblKeyB: TStaticText - Left = 1 - Top = 1 - Width = 252 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY B' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexB: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexBClick - end - end - end - object pnlAuth: TPanel - Left = 0 - Top = 25 - Width = 511 - Height = 31 - Align = alTop - Caption = ' ' - Ctl3D = True - ParentCtl3D = False - TabOrder = 1 - object lblKeyIndex: TLabel - Left = 179 - Top = 8 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object lblPK: TLabel - Left = 297 - Top = 8 - Width = 15 - Height = 13 - Caption = 'PK' - end - object rbAUTH1A: TRadioButton - Left = 8 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1A' - Checked = True - TabOrder = 0 - TabStop = True - end - object rbAUTH1B: TRadioButton - Left = 87 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1B' - TabOrder = 1 - end - object cboKeyIndex: TComboBox - Left = 245 - Top = 5 - Width = 40 - Height = 21 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 13 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7' - '8' - '9' - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - '19' - '20' - '21' - '22' - '23' - '24' - '25' - '26' - '27' - '28' - '29' - '30' - '31') - end - end - object pnlHeader: TStaticText - Left = 0 - Top = 0 - Width = 511 - Height = 25 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'LinearFormat Card(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -17 - Font.Name = 'Verdana' - Font.Style = [] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object stbFunction: TStatusBar - Left = 0 - Top = 338 - Width = 511 - Height = 25 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'Function Error:' - Width = 119 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pgLinearFormatCard: TPageControl - Left = 0 - Top = 129 - Width = 511 - Height = 209 - ActivePage = tabLinearFormatCard - Align = alClient - TabIndex = 0 - TabOrder = 4 - object tabLinearFormatCard: TTabSheet - Caption = 'LinearFormat Card' - object lblBlockAccessBits: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBits: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormatted: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBits: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBits: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCard: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardClick - end - object txtSectorFormatted: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 22 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardAKM1: TTabSheet - Caption = 'LinearFormat_AKM1' - ImageIndex = 1 - object lblBlockAccessBitsAKM1: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsAKM1: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9AKM1: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedAKM1: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsAKM1: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsAKM1: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9AKM1: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardAKM1: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardAKM1Click - end - object txtSectorFormattedAKM1: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardAKM2: TTabSheet - Caption = 'LinearFormat_AKM2' - ImageIndex = 2 - object lblBlockAccessBitsAKM2: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsAKM2: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9AKM2: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedAKM2: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsAKM2: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsAKM2: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9AKM2: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardAKM2: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardAKM2Click - end - object txtSectorFormattedAKM2: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardPK: TTabSheet - Caption = 'LinearFormat_PK' - ImageIndex = 3 - object lblBlockAccessBitsPK: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsPK: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9PK: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedPK: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsPK: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsPK: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9PK: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardPK: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardPKClick - end - object txtSectorFormattedPK: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - end -end diff --git a/uFCoderAdvanced/LinearFormatCard.h b/uFCoderAdvanced/LinearFormatCard.h deleted file mode 100644 index eeb1279d197af4087685bc1d718778ae28a41eb8..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.h +++ /dev/null @@ -1,93 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef LinearFormatCardH -#define LinearFormatCardH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmLinearFormatCard : public TForm -{ -__published: // IDE-managed Components - TPanel *pnlKeys; - TPanel *pnlKeyA; - TStaticText *lblKeyA; - TCheckBox *chkHexA; - TPanel *pnlKeyB; - TStaticText *lblKeyB; - TCheckBox *chkHexB; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TStaticText *pnlHeader; - TStatusBar *stbFunction; - TPageControl *pgLinearFormatCard; - TTabSheet *tabLinearFormatCard; - TTabSheet *tabLinearFormatCardAKM1; - TTabSheet *tabLinearFormatCardAKM2; - TTabSheet *tabLinearFormatCardPK; - TLabel *lblBlockAccessBits; - TComboBox *cboBlockAccessBits; - TLabel *lblSectorTrailerAccessBits; - TComboBox *cboSectorTrailerAccessBits; - TLabel *lblSectorTrailerByte9; - TEdit *txtSectorTrailerByte9; - TButton *btnLinearFormatCard; - TLabel *lblSectorFormatted; - TEdit *txtSectorFormatted; - TLabel *lblBlockAccessBitsAKM1; - TComboBox *cboBlockAccessBitsAKM1; - TLabel *lblSectorTrailerAccessBitsAKM1; - TComboBox *cboSectorTrailerAccessBitsAKM1; - TLabel *lblSectorTrailerByte9AKM1; - TEdit *txtSectorTrailerByte9AKM1; - TButton *btnLinearFormatCardAKM1; - TLabel *lblSectorFormattedAKM1; - TEdit *txtSectorFormattedAKM1; - TLabel *lblBlockAccessBitsAKM2; - TComboBox *cboBlockAccessBitsAKM2; - TLabel *lblSectorTrailerAccessBitsAKM2; - TComboBox *cboSectorTrailerAccessBitsAKM2; - TLabel *lblSectorTrailerByte9AKM2; - TEdit *txtSectorTrailerByte9AKM2; - TButton *btnLinearFormatCardAKM2; - TLabel *lblSectorFormattedAKM2; - TEdit *txtSectorFormattedAKM2; - TLabel *lblBlockAccessBitsPK; - TComboBox *cboBlockAccessBitsPK; - TLabel *lblSectorTrailerAccessBitsPK; - TComboBox *cboSectorTrailerAccessBitsPK; - TLabel *lblSectorTrailerByte9PK; - TEdit *txtSectorTrailerByte9PK; - TButton *btnLinearFormatCardPK; - TLabel *lblSectorFormattedPK; - TEdit *txtSectorFormattedPK; - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall OnKeyA_KeyPress(TObject *Sender,char &Key); - void __fastcall OnKeyA_Exit(TObject *Sender); - void __fastcall OnKeyB_KeyPress(TObject *Sender,char &Key); - void __fastcall OnKeyB_Exit(TObject *Sender); - void __fastcall FormCreate(TObject *Sender); - void __fastcall chkHexAClick(TObject *Sender); - void __fastcall chkHexBClick(TObject *Sender); - void __fastcall btnLinearFormatCardClick(TObject *Sender); - void __fastcall btnLinearFormatCardAKM1Click(TObject *Sender); - void __fastcall btnLinearFormatCardAKM2Click(TObject *Sender); - void __fastcall btnLinearFormatCardPKClick(TObject *Sender); -private: - unsigned long result; -public: - __fastcall TfrmLinearFormatCard(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmLinearFormatCard *frmLinearFormatCard; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/LinearFormatCard.obj b/uFCoderAdvanced/LinearFormatCard.obj deleted file mode 100644 index 30422f580dfba9b2b53d8d5af3a1a30933ac94aa..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/LinearFormatCard.obj and /dev/null differ diff --git a/uFCoderAdvanced/LinearFormatCard.~cpp b/uFCoderAdvanced/LinearFormatCard.~cpp deleted file mode 100644 index 21d548256528599a9aa9ce45ee287a61a3d992ed..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.~cpp +++ /dev/null @@ -1,256 +0,0 @@ - - -#include -#pragma hdrstop - -#include "LinearFormatCard.h" -#include "Globals.h" -#include "uFCoder1x.h" - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmLinearFormatCard *frmLinearFormatCard; - - -__fastcall TfrmLinearFormatCard::TfrmLinearFormatCard(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmLinearFormatCard::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} - -void __fastcall TfrmLinearFormatCard:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} -void __fastcall TfrmLinearFormatCard::OnKeyA_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexA); -} -void __fastcall TfrmLinearFormatCard::OnKeyB_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexB); -} -void __fastcall TfrmLinearFormatCard:: OnKeyA_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexA); -} -void __fastcall TfrmLinearFormatCard:: OnKeyB_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexB); -} -void __fastcall TfrmLinearFormatCard::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); - CreateKey(this,31,27,40,25,"txtKeyA",pnlKeyA,OnKeyA_KeyPress,OnKeyA_Exit); - CreateKey(this,31,27,40,25,"txtKeyB",pnlKeyB,OnKeyB_KeyPress,OnKeyB_Exit); -} - -void __fastcall TfrmLinearFormatCard::chkHexAClick(TObject *Sender) -{ - Check_hex(this,chkHexA,"txtKeyA"); -} - -void __fastcall TfrmLinearFormatCard::chkHexBClick(TObject *Sender) -{ - Check_hex(this,chkHexB,"txtKeyB"); -} - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult =0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9->SetFocus(); - return; - } - txtSectorFormatted->Clear(); - ucBlockAccessBits = cboBlockAccessBits->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBits->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB,&ucSectorFormatted, - ucAuthMode,ucKeyIndex); - if (ulFResult==DL_OK) - { - txtSectorFormatted->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormatted->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(ERROR_LIGHT,ERROR_SOUND); - - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9AKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9AKM1->SetFocus(); - return; - } - txtSectorFormattedAKM1->Clear(); - ucBlockAccessBits = cboBlockAccessBitsAKM1->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsAKM1->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9AKM1->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_AKM1(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode); - if (ulFResult==DL_OK) - { - txtSectorFormattedAKM1->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedAKM1->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(ERROR_LIGHT,ERROR_SOUND); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9AKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9AKM2->SetFocus(); - return; - } - txtSectorFormattedAKM2->Clear(); - ucBlockAccessBits = cboBlockAccessBitsAKM2->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsAKM2->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9AKM2->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_AKM2(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode); - if (ulFResult==DL_OK) - { - txtSectorFormattedAKM2->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedAKM2->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(ERROR_LIGHT,ERROR_SOUND); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearFormatCard::btnLinearFormatCardPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAccessBits = 0, - ucSectorTrailerAccessBits = 0, - ucSectorTrailerByte9 = 0, - ucSectorFormatted = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtSectorTrailerByte9PK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR TRAILER BYTE 9!","Warning !",MB_OK | MB_ICONWARNING); - txtSectorTrailerByte9PK->SetFocus(); - return; - } - txtSectorFormattedPK->Clear(); - ucBlockAccessBits = cboBlockAccessBitsPK->Text.ToInt(); - ucSectorTrailerAccessBits = cboSectorTrailerAccessBitsPK->Text.ToInt(); - ucSectorTrailerByte9 = txtSectorTrailerByte9PK->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = LinearFormatCard_PK(KeyA,ucBlockAccessBits,ucSectorTrailerAccessBits,ucSectorTrailerByte9,KeyB, - &ucSectorFormatted,ucAuthMode,PKValue(this)); - if (ulFResult==DL_OK) - { - txtSectorFormattedPK->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtSectorFormattedPK->Text=IntToStr(ucSectorFormatted); - ReaderUISignal(ERROR_LIGHT,ERROR_SOUND); - - } - } - __finally - { - SetFunctionStart(false); - } -} - - diff --git a/uFCoderAdvanced/LinearFormatCard.~ddp b/uFCoderAdvanced/LinearFormatCard.~ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/LinearFormatCard.~ddp and /dev/null differ diff --git a/uFCoderAdvanced/LinearFormatCard.~dfm b/uFCoderAdvanced/LinearFormatCard.~dfm deleted file mode 100644 index 289f45696d36401e474ee40186d63738eb0e6ddd..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.~dfm +++ /dev/null @@ -1,785 +0,0 @@ -object frmLinearFormatCard: TfrmLinearFormatCard - Left = 373 - Top = 213 - Width = 527 - Height = 401 - Caption = 'LinearFormat Card' - Color = clBtnFace - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - OldCreateOrder = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object pnlKeys: TPanel - Left = 0 - Top = 56 - Width = 511 - Height = 73 - Align = alTop - TabOrder = 0 - object pnlKeyA: TPanel - Left = 1 - Top = 1 - Width = 255 - Height = 71 - Align = alLeft - Caption = ' ' - TabOrder = 0 - object lblKeyA: TStaticText - Left = 1 - Top = 1 - Width = 253 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY A' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexA: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexAClick - end - end - object pnlKeyB: TPanel - Left = 256 - Top = 1 - Width = 254 - Height = 71 - Align = alClient - Caption = ' ' - TabOrder = 1 - object lblKeyB: TStaticText - Left = 1 - Top = 1 - Width = 252 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY B' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexB: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexBClick - end - end - end - object pnlAuth: TPanel - Left = 0 - Top = 25 - Width = 511 - Height = 31 - Align = alTop - Caption = ' ' - Ctl3D = True - ParentCtl3D = False - TabOrder = 1 - object lblKeyIndex: TLabel - Left = 179 - Top = 8 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object lblPK: TLabel - Left = 297 - Top = 8 - Width = 15 - Height = 13 - Caption = 'PK' - end - object rbAUTH1A: TRadioButton - Left = 8 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1A' - Checked = True - TabOrder = 0 - TabStop = True - end - object rbAUTH1B: TRadioButton - Left = 87 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1B' - TabOrder = 1 - end - object cboKeyIndex: TComboBox - Left = 245 - Top = 5 - Width = 40 - Height = 21 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 13 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7' - '8' - '9' - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - '19' - '20' - '21' - '22' - '23' - '24' - '25' - '26' - '27' - '28' - '29' - '30' - '31') - end - end - object pnlHeader: TStaticText - Left = 0 - Top = 0 - Width = 511 - Height = 25 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'LinearFormat Card(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -17 - Font.Name = 'Verdana' - Font.Style = [] - ParentColor = False - ParentFont = False - TabOrder = 2 - end - object stbFunction: TStatusBar - Left = 0 - Top = 338 - Width = 511 - Height = 25 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'Function Error:' - Width = 119 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pgLinearFormatCard: TPageControl - Left = 0 - Top = 129 - Width = 511 - Height = 209 - ActivePage = tabLinearFormatCard - Align = alClient - TabIndex = 0 - TabOrder = 4 - object tabLinearFormatCard: TTabSheet - Caption = 'LinearFormat Card' - object lblBlockAccessBits: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBits: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormatted: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBits: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBits: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCard: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardClick - end - object txtSectorFormatted: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 22 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardAKM1: TTabSheet - Caption = 'LinearFormat_AKM1' - ImageIndex = 1 - object lblBlockAccessBitsAKM1: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsAKM1: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9AKM1: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedAKM1: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsAKM1: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsAKM1: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9AKM1: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardAKM1: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardAKM1Click - end - object txtSectorFormattedAKM1: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardAKM2: TTabSheet - Caption = 'LinearFormat_AKM2' - ImageIndex = 2 - object lblBlockAccessBitsAKM2: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsAKM2: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9AKM2: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedAKM2: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsAKM2: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsAKM2: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9AKM2: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardAKM2: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardAKM2Click - end - object txtSectorFormattedAKM2: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearFormatCardPK: TTabSheet - Caption = 'LinearFormat_PK' - ImageIndex = 3 - object lblBlockAccessBitsPK: TLabel - Left = 49 - Top = 51 - Width = 99 - Height = 13 - Caption = 'Block Access Bits' - end - object lblSectorTrailerAccessBitsPK: TLabel - Left = 49 - Top = 78 - Width = 146 - Height = 13 - Caption = 'Sector Trailer Access Bits' - end - object lblSectorTrailerByte9PK: TLabel - Left = 49 - Top = 103 - Width = 119 - Height = 13 - Caption = 'Sector Trailer Byte 9' - end - object lblSectorFormattedPK: TLabel - Left = 273 - Top = 113 - Width = 99 - Height = 13 - Caption = 'Sector Formatted' - end - object cboBlockAccessBitsPK: TComboBox - Left = 207 - Top = 48 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboSectorTrailerAccessBitsPK: TComboBox - Left = 207 - Top = 75 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtSectorTrailerByte9PK: TEdit - Left = 207 - Top = 101 - Width = 41 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 2 - Text = ' ' - end - object btnLinearFormatCardPK: TButton - Left = 271 - Top = 48 - Width = 185 - Height = 50 - Cursor = crHandPoint - Caption = 'FORMAT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnLinearFormatCardPKClick - end - object txtSectorFormattedPK: TEdit - Left = 415 - Top = 109 - Width = 41 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - end -end diff --git a/uFCoderAdvanced/LinearFormatCard.~h b/uFCoderAdvanced/LinearFormatCard.~h deleted file mode 100644 index eeb1279d197af4087685bc1d718778ae28a41eb8..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearFormatCard.~h +++ /dev/null @@ -1,93 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef LinearFormatCardH -#define LinearFormatCardH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmLinearFormatCard : public TForm -{ -__published: // IDE-managed Components - TPanel *pnlKeys; - TPanel *pnlKeyA; - TStaticText *lblKeyA; - TCheckBox *chkHexA; - TPanel *pnlKeyB; - TStaticText *lblKeyB; - TCheckBox *chkHexB; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TStaticText *pnlHeader; - TStatusBar *stbFunction; - TPageControl *pgLinearFormatCard; - TTabSheet *tabLinearFormatCard; - TTabSheet *tabLinearFormatCardAKM1; - TTabSheet *tabLinearFormatCardAKM2; - TTabSheet *tabLinearFormatCardPK; - TLabel *lblBlockAccessBits; - TComboBox *cboBlockAccessBits; - TLabel *lblSectorTrailerAccessBits; - TComboBox *cboSectorTrailerAccessBits; - TLabel *lblSectorTrailerByte9; - TEdit *txtSectorTrailerByte9; - TButton *btnLinearFormatCard; - TLabel *lblSectorFormatted; - TEdit *txtSectorFormatted; - TLabel *lblBlockAccessBitsAKM1; - TComboBox *cboBlockAccessBitsAKM1; - TLabel *lblSectorTrailerAccessBitsAKM1; - TComboBox *cboSectorTrailerAccessBitsAKM1; - TLabel *lblSectorTrailerByte9AKM1; - TEdit *txtSectorTrailerByte9AKM1; - TButton *btnLinearFormatCardAKM1; - TLabel *lblSectorFormattedAKM1; - TEdit *txtSectorFormattedAKM1; - TLabel *lblBlockAccessBitsAKM2; - TComboBox *cboBlockAccessBitsAKM2; - TLabel *lblSectorTrailerAccessBitsAKM2; - TComboBox *cboSectorTrailerAccessBitsAKM2; - TLabel *lblSectorTrailerByte9AKM2; - TEdit *txtSectorTrailerByte9AKM2; - TButton *btnLinearFormatCardAKM2; - TLabel *lblSectorFormattedAKM2; - TEdit *txtSectorFormattedAKM2; - TLabel *lblBlockAccessBitsPK; - TComboBox *cboBlockAccessBitsPK; - TLabel *lblSectorTrailerAccessBitsPK; - TComboBox *cboSectorTrailerAccessBitsPK; - TLabel *lblSectorTrailerByte9PK; - TEdit *txtSectorTrailerByte9PK; - TButton *btnLinearFormatCardPK; - TLabel *lblSectorFormattedPK; - TEdit *txtSectorFormattedPK; - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall OnKeyA_KeyPress(TObject *Sender,char &Key); - void __fastcall OnKeyA_Exit(TObject *Sender); - void __fastcall OnKeyB_KeyPress(TObject *Sender,char &Key); - void __fastcall OnKeyB_Exit(TObject *Sender); - void __fastcall FormCreate(TObject *Sender); - void __fastcall chkHexAClick(TObject *Sender); - void __fastcall chkHexBClick(TObject *Sender); - void __fastcall btnLinearFormatCardClick(TObject *Sender); - void __fastcall btnLinearFormatCardAKM1Click(TObject *Sender); - void __fastcall btnLinearFormatCardAKM2Click(TObject *Sender); - void __fastcall btnLinearFormatCardPKClick(TObject *Sender); -private: - unsigned long result; -public: - __fastcall TfrmLinearFormatCard(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmLinearFormatCard *frmLinearFormatCard; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/LinearReadWrite.cpp b/uFCoderAdvanced/LinearReadWrite.cpp deleted file mode 100644 index 8224f06f3b239daeef64fa505a8f0b159d99c1c6..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearReadWrite.cpp +++ /dev/null @@ -1,539 +0,0 @@ - - -#include -#pragma hdrstop - -#include "LinearReadWrite.h" -#include "uFAdvance.h" -#include "Globals.h" -#include "uFCoder1x.h" - - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmLinearReadWrite *frmLinearReadWrite; - -__fastcall TfrmLinearReadWrite::TfrmLinearReadWrite(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmLinearReadWrite::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} -void __fastcall TfrmLinearReadWrite::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); -} -void __fastcall TfrmLinearReadWrite:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} - - -void __fastcall TfrmLinearReadWrite::btnLinearReadClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - DL_STATUS ulFResult = 0; - try - { - txtLinearRead->Clear(); - - if (AnsiString(Trim(txtLRLinearAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLRLinearAddress->SetFocus(); - txtLRLinearAddress->Undo(); - return; - } - if (AnsiString(Trim(txtLRDataLength->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLRDataLength->SetFocus(); - txtLRDataLength->Undo(); - return; - } - - txtLRBytesReturned->Clear(); - usLinearAddress = txtLRLinearAddress->Text.ToInt(); - usDataLength = txtLRDataLength->Text.ToInt(); - pData = new char[usDataLength]; - ulFResult = LinearRead(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode,ucKeyIndex); - - if (ulFResult==DL_OK) - { - txtLinearRead->Text=pData; - txtLRBytesReturned->Text=IntToStr(usBytesRet); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtLRBytesReturned->Text=IntToStr(usBytesRet); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - - } - __finally - { - delete[]pData; - pData=0; - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearReadWrite::btnLinearReadAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - DL_STATUS ulFResult = 0; - try - { - if (AnsiString(Trim(txtLRLinearAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLRLinearAddressAKM1->SetFocus(); - txtLRLinearAddressAKM1->Undo(); - return; - } - if (AnsiString(Trim(txtLRDataLengthAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLRDataLengthAKM1->SetFocus(); - txtLRDataLengthAKM1->Undo(); - return; - } - txtLRBytesReturnedAKM1->Clear(); - usLinearAddress = txtLRLinearAddressAKM1->Text.ToInt(); - usDataLength = txtLRDataLengthAKM1->Text.ToInt(); - pData = new char[usDataLength]; - ulFResult=LinearRead_AKM1(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode); - if (ulFResult==DL_OK) - { - txtLinearReadAKM1 ->Text=pData; - txtLRBytesReturnedAKM1->Text=IntToStr(usBytesRet); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtLRBytesReturnedAKM1->Text=IntToStr(usBytesRet); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } - -} - - -void __fastcall TfrmLinearReadWrite::btnLinearReadAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - DL_STATUS ulFResult = 0; - try - { - if (AnsiString(Trim(txtLRLinearAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLRLinearAddressAKM2->SetFocus(); - txtLRLinearAddressAKM2->Undo(); - return; - } - if (AnsiString(Trim(txtLRDataLengthAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLRDataLengthAKM2->SetFocus(); - txtLRDataLengthAKM2->Undo(); - return; - } - txtLRBytesReturnedAKM2->Clear(); - usLinearAddress = txtLRLinearAddressAKM2->Text.ToInt(); - usDataLength = txtLRDataLengthAKM2->Text.ToInt(); - pData = new char[usDataLength]; - ulFResult=LinearRead_AKM2(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode); - if (ulFResult==DL_OK) - { - txtLinearReadAKM2 ->Text=pData; - txtLRBytesReturnedAKM2->Text=IntToStr(usBytesRet); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtLRBytesReturnedAKM2->Text=IntToStr(usBytesRet); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearReadWrite::btnLinearReadPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - - DL_STATUS ulFResult = 0; - - try - { - if (AnsiString(Trim(txtLRLinearAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLRLinearAddressPK->SetFocus(); - txtLRLinearAddressPK->Undo(); - return; - } - if (AnsiString(Trim(txtLRDataLengthPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLRDataLengthPK->SetFocus(); - txtLRDataLengthPK->Undo(); - return; - } - - txtLRBytesReturnedPK->Clear(); - usLinearAddress = txtLRLinearAddressPK->Text.ToInt(); - usDataLength = txtLRDataLengthPK->Text.ToInt(); - pData = new char[usDataLength]; - - ulFResult=LinearRead_PK(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode,PKValue(this)); - if (ulFResult==DL_OK) - { - txtLinearReadPK ->Text=pData; - txtLRBytesReturnedPK ->Text=IntToStr(usBytesRet); - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - txtLRBytesReturnedPK ->Text=IntToStr(usBytesRet); - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } - -} - - -void __fastcall TfrmLinearReadWrite::btnLinearWriteClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - - DL_STATUS ulFResult = 0; - - try - { - if (AnsiString(Trim(txtLinearWrite->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtLinearWrite->SetFocus(); - txtLinearWrite->Undo(); - return; - } - if (AnsiString(Trim(txtLWLinearAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLWLinearAddress->SetFocus(); - txtLWLinearAddress->Undo(); - return; - } - if (AnsiString(Trim(txtLWDataLength->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLWDataLength->SetFocus(); - txtLWDataLength->Undo(); - return; - } - - txtBytesWritten->Clear(); - usLinearAddress = txtLWLinearAddress->Text.ToInt(); - usDataLength = txtLWDataLength->Text.ToInt(); - pData = new char[usDataLength]; - memcpy(pData,txtLinearWrite->Text.c_str(),usDataLength); - ulFResult=LinearWrite(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode,ucKeyIndex); - - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - SetStatusBar(stbFunction,ulFResult); - txtBytesWritten->Text=IntToStr(usBytesRet); - - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearReadWrite::btnLinearWriteAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - - DL_STATUS ulFResult = 0; - - try - { - if (AnsiString(Trim(txtLinearWriteAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtLinearWriteAKM2->SetFocus(); - txtLinearWriteAKM2 ->Undo(); - return; - } - if (AnsiString(Trim(txtLWLinearAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLWLinearAddressAKM2->SetFocus(); - txtLWLinearAddressAKM2->Undo(); - return; - } - if (AnsiString(Trim(txtLWDataLengthAKM2 ->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLWDataLengthAKM2->SetFocus(); - txtLWDataLengthAKM2->Undo(); - return; - } - txtBytesWrittenAKM2->Clear(); - usLinearAddress = txtLWLinearAddressAKM2->Text.ToInt(); - usDataLength = txtLWDataLengthAKM2->Text.ToInt(); - pData = new char[usDataLength]; - memcpy(pData,txtLinearWriteAKM2->Text.c_str(),usDataLength); - ulFResult=LinearWrite_AKM2(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode); - - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - SetStatusBar(stbFunction,ulFResult); - txtBytesWrittenAKM2->Text=IntToStr(usBytesRet); - - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearReadWrite::btnLinearWriteAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - - DL_STATUS ulFResult = 0; - - try - { - if (AnsiString(Trim(txtLinearWriteAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtLinearWriteAKM1->SetFocus(); - txtLinearWriteAKM1 ->Undo(); - return; - } - if (AnsiString(Trim(txtLWLinearAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLWLinearAddressAKM1->SetFocus(); - txtLWLinearAddressAKM1->Undo(); - return; - } - if (AnsiString(Trim(txtLWDataLengthAKM1 ->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLWDataLengthAKM1->SetFocus(); - txtLWDataLengthAKM1->Undo(); - return; - } - txtBytesWrittenAKM1->Clear(); - usLinearAddress = txtLWLinearAddressAKM1->Text.ToInt(); - usDataLength = txtLWDataLengthAKM1->Text.ToInt(); - pData = new char[usDataLength]; - memcpy(pData,txtLinearWriteAKM1->Text.c_str(),usDataLength); - ulFResult=LinearWrite_AKM1(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode); - - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - SetStatusBar(stbFunction,ulFResult); - txtBytesWrittenAKM1->Text=IntToStr(usBytesRet); - - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } - -} - - -void __fastcall TfrmLinearReadWrite::btnLinearWritePKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - - unsigned char ucAuthMode = AuthMode(rbAUTH1A); - unsigned short usLinearAddress = 0, - usDataLength = 0, - usBytesRet = 0; - char *pData = 0; - - DL_STATUS ulFResult = 0; - - try - { - if (AnsiString(Trim(txtLinearWritePK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtLinearWritePK->SetFocus(); - txtLinearWritePK->Undo(); - return; - } - if (AnsiString(Trim(txtLWLinearAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the LINEAR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtLWLinearAddressPK->SetFocus(); - txtLWLinearAddressPK->Undo(); - return; - } - if (AnsiString(Trim(txtLWDataLengthPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the DATA LENGTH !","Warning !",MB_OK | MB_ICONWARNING); - txtLWDataLengthPK->SetFocus(); - txtLWDataLengthPK->Undo(); - return; - } - txtBytesWrittenPK->Clear(); - usLinearAddress = txtLWLinearAddressPK->Text.ToInt(); - usDataLength = txtLWDataLengthPK->Text.ToInt(); - pData = new char[usDataLength]; - memcpy(pData,txtLinearWritePK->Text.c_str(),usDataLength); - ulFResult=LinearWrite_PK(pData,usLinearAddress,usDataLength,&usBytesRet,ucAuthMode,PKValue(this)); - - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - - SetStatusBar(stbFunction,ulFResult); - txtBytesWrittenPK->Text=IntToStr(usBytesRet); - } - __finally - { - delete []pData; - pData=0; - SetFunctionStart(false); - } -} - - -void __fastcall TfrmLinearReadWrite::txtLinearWriteChange(TObject *Sender) -{ - txtLWDataLength->Text=AnsiString(txtLinearWrite->Text).Length(); -} -//--------------------------------------------------------------------------- - -void __fastcall TfrmLinearReadWrite::txtLinearWritePKChange( - TObject *Sender) -{ - txtLWDataLengthPK->Text=AnsiString(txtLinearWritePK->Text).Length(); -} -//--------------------------------------------------------------------------- - -void __fastcall TfrmLinearReadWrite::txtLinearWriteAKM2Change( - TObject *Sender) -{ - txtLWDataLengthAKM2->Text=AnsiString(txtLinearWriteAKM2->Text).Length(); -} -//--------------------------------------------------------------------------- - -void __fastcall TfrmLinearReadWrite::txtLinearWriteAKM1Change( - TObject *Sender) -{ - txtLWDataLengthAKM1->Text=AnsiString(txtLinearWriteAKM1->Text).Length(); -} -//--------------------------------------------------------------------------- - diff --git a/uFCoderAdvanced/LinearReadWrite.ddp b/uFCoderAdvanced/LinearReadWrite.ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/LinearReadWrite.ddp and /dev/null differ diff --git a/uFCoderAdvanced/LinearReadWrite.dfm b/uFCoderAdvanced/LinearReadWrite.dfm deleted file mode 100644 index 9f9c32ab9f9f293559e11e9f05135103d9e8b787..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearReadWrite.dfm +++ /dev/null @@ -1,1063 +0,0 @@ -object frmLinearReadWrite: TfrmLinearReadWrite - Left = 403 - Top = 168 - Width = 527 - Height = 402 - Caption = 'LinearReadWrite' - Color = clBtnFace - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - OldCreateOrder = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object pnlHeader: TStaticText - Left = 0 - Top = 0 - Width = 511 - Height = 25 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'Linear Read/Write(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -17 - Font.Name = 'Verdana' - Font.Style = [] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object pnlAuth: TPanel - Left = 0 - Top = 25 - Width = 511 - Height = 31 - Align = alTop - Caption = ' ' - Ctl3D = True - ParentCtl3D = False - TabOrder = 1 - object lblKeyIndex: TLabel - Left = 179 - Top = 8 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object lblPK: TLabel - Left = 297 - Top = 8 - Width = 15 - Height = 13 - Caption = 'PK' - end - object rbAUTH1A: TRadioButton - Left = 8 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1A' - Checked = True - TabOrder = 0 - TabStop = True - end - object rbAUTH1B: TRadioButton - Left = 87 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1B' - TabOrder = 1 - end - object cboKeyIndex: TComboBox - Left = 245 - Top = 5 - Width = 40 - Height = 21 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 13 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7' - '8' - '9' - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - '19' - '20' - '21' - '22' - '23' - '24' - '25' - '26' - '27' - '28' - '29' - '30' - '31') - end - end - object stbFunction: TStatusBar - Left = 0 - Top = 339 - Width = 511 - Height = 25 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'Function Error:' - Width = 119 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pgLinearReadWrite: TPageControl - Left = 0 - Top = 56 - Width = 511 - Height = 283 - ActivePage = tabLinearRead - Align = alClient - TabIndex = 0 - TabOrder = 3 - object tabLinearRead: TTabSheet - Caption = 'Linear Read' - object lblLinearRead: TLabel - Left = 8 - Top = 4 - Width = 68 - Height = 13 - Caption = 'Linear Read' - end - object lblLRLinearAddress: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLRDataLength: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblReadBytes: TLabel - Left = 167 - Top = 220 - Width = 65 - Height = 13 - Caption = 'Read Bytes' - end - object txtLinearRead: TMemo - Left = 8 - Top = 22 - Width = 485 - Height = 171 - Ctl3D = False - Lines.Strings = ( - '') - ParentCtl3D = False - ReadOnly = True - ScrollBars = ssVertical - TabOrder = 3 - end - object txtLRLinearAddress: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLRDataLength: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object btnLinearRead: TButton - Left = 336 - Top = 200 - Width = 141 - Height = 48 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearReadClick - end - object txtLRBytesReturned: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 22 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - end - object tabLinearReadAKM1: TTabSheet - Caption = 'LinearRead AKM1' - ImageIndex = 1 - object lblLinearReadAKM1: TLabel - Left = 8 - Top = 4 - Width = 68 - Height = 13 - Caption = 'Linear Read' - end - object lblLRLinearAddressAKM1: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLRDataLengthAKM1: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblReadBytesAKM1: TLabel - Left = 167 - Top = 220 - Width = 65 - Height = 13 - Caption = 'Read Bytes' - end - object txtLinearReadAKM1: TMemo - Left = 8 - Top = 22 - Width = 485 - Height = 171 - Ctl3D = False - Lines.Strings = ( - '') - ParentCtl3D = False - ReadOnly = True - ScrollBars = ssVertical - TabOrder = 4 - end - object txtLRLinearAddressAKM1: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLRDataLengthAKM1: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtLRBytesReturnedAKM1: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - Text = ' ' - end - object btnLinearReadAKM1: TButton - Left = 336 - Top = 200 - Width = 141 - Height = 48 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearReadAKM1Click - end - end - object tabLinearReadAKM2: TTabSheet - Caption = 'LinearRead AKM2' - ImageIndex = 2 - object lblLinearReadAKM2: TLabel - Left = 8 - Top = 4 - Width = 68 - Height = 13 - Caption = 'Linear Read' - end - object lblLRLinearAddressAKM2: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLRDataLengthAKM2: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblReadBytesAKM2: TLabel - Left = 167 - Top = 220 - Width = 65 - Height = 13 - Caption = 'Read Bytes' - end - object txtLinearReadAKM2: TMemo - Left = 8 - Top = 22 - Width = 485 - Height = 171 - Ctl3D = False - Lines.Strings = ( - '') - ParentCtl3D = False - ReadOnly = True - ScrollBars = ssVertical - TabOrder = 3 - end - object txtLRLinearAddressAKM2: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLRDataLengthAKM2: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtLRBytesReturnedAKM2: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - object btnLinearReadAKM2: TButton - Left = 336 - Top = 200 - Width = 141 - Height = 48 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearReadAKM2Click - end - end - object tabLinearReadPK: TTabSheet - Caption = 'LinearRead PK' - ImageIndex = 3 - object lblLinearReadPK: TLabel - Left = 8 - Top = 4 - Width = 68 - Height = 13 - Caption = 'Linear Read' - end - object lblLRLinearAdrressPK: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLRDataLengthPK: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblReadBytesPK: TLabel - Left = 167 - Top = 220 - Width = 65 - Height = 13 - Caption = 'Read Bytes' - end - object txtLinearReadPK: TMemo - Left = 8 - Top = 22 - Width = 485 - Height = 171 - Ctl3D = False - Lines.Strings = ( - '') - ParentCtl3D = False - ReadOnly = True - ScrollBars = ssVertical - TabOrder = 3 - end - object txtLRLinearAddressPK: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLRDataLengthPK: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtLRBytesReturnedPK: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 4 - Text = ' ' - end - object btnLinearReadPK: TButton - Left = 336 - Top = 200 - Width = 141 - Height = 48 - Cursor = crHandPoint - Caption = 'READ' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearReadPKClick - end - end - object tabLinearWrite: TTabSheet - Caption = 'Linear Write' - ImageIndex = 4 - object lblLinearWrite: TLabel - Left = 8 - Top = 4 - Width = 69 - Height = 13 - Caption = 'Linear Write' - end - object lblLWLinearAddress: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLWDataLength: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblBytesWritten: TLabel - Left = 167 - Top = 220 - Width = 77 - Height = 13 - Caption = 'Bytes Written' - end - object txtLWLinearAddress: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLWDataLength: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtBytesWritten: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - Text = ' ' - end - object btnLinearWrite: TButton - Left = 336 - Top = 200 - Width = 152 - Height = 48 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearWriteClick - end - object txtLinearWrite: TRichEdit - Left = 8 - Top = 24 - Width = 480 - Height = 169 - BevelInner = bvLowered - BevelKind = bkFlat - BorderStyle = bsNone - Ctl3D = False - ParentCtl3D = False - ScrollBars = ssVertical - TabOrder = 4 - OnChange = txtLinearWriteChange - end - end - object tabLinearWriteAKM1: TTabSheet - Caption = 'LinearWrite AKM1' - ImageIndex = 5 - object lblLinearWriteAKM1: TLabel - Left = 8 - Top = 4 - Width = 69 - Height = 13 - Caption = 'Linear Write' - end - object lblLWLinearAddressAKM1: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLWDataLengthAKM1: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblBytesWrittenAKM1: TLabel - Left = 167 - Top = 220 - Width = 77 - Height = 13 - Caption = 'Bytes Written' - end - object txtLWLinearAddressAKM1: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLWDataLengthAKM1: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtBytesWrittenAKM1: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - Text = ' ' - end - object btnLinearWriteAKM1: TButton - Left = 336 - Top = 200 - Width = 152 - Height = 48 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearWriteAKM1Click - end - object txtLinearWriteAKM1: TRichEdit - Left = 8 - Top = 24 - Width = 480 - Height = 169 - BevelInner = bvLowered - BevelKind = bkFlat - BorderStyle = bsNone - Ctl3D = False - ParentCtl3D = False - ScrollBars = ssVertical - TabOrder = 4 - OnChange = txtLinearWriteAKM1Change - end - end - object tabLinearWriteAKM2: TTabSheet - Caption = 'LinearWrite AKM2' - ImageIndex = 6 - object lblLinearWriteAKM2: TLabel - Left = 8 - Top = 4 - Width = 69 - Height = 13 - Caption = 'Linear Write' - end - object lblLWLinearAddressAKM2: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLWDataLengthAKM2: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblBytesWrittenAKM2: TLabel - Left = 167 - Top = 220 - Width = 77 - Height = 13 - Caption = 'Bytes Written' - end - object txtLWLinearAddressAKM2: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLWDataLengthAKM2: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtBytesWrittenAKM2: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 19 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - Text = ' ' - end - object btnLinearWriteAKM2: TButton - Left = 336 - Top = 200 - Width = 152 - Height = 48 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearWriteAKM2Click - end - object txtLinearWriteAKM2: TRichEdit - Left = 8 - Top = 24 - Width = 480 - Height = 169 - BevelInner = bvLowered - BevelKind = bkFlat - BorderStyle = bsNone - Ctl3D = False - ParentCtl3D = False - ScrollBars = ssVertical - TabOrder = 4 - OnChange = txtLinearWriteAKM2Change - end - end - object tabLinearWritePK: TTabSheet - Caption = 'LinearWrite PK' - ImageIndex = 7 - object lblLinearWritePK: TLabel - Left = 8 - Top = 4 - Width = 69 - Height = 13 - Caption = 'Linear Write' - end - object lblLWLinearAddressPK: TLabel - Left = 8 - Top = 204 - Width = 85 - Height = 13 - Caption = 'Linear Address' - end - object lblLWDataLengthPK: TLabel - Left = 8 - Top = 228 - Width = 69 - Height = 13 - Caption = 'Data Length' - end - object lblBytesWrittenPK: TLabel - Left = 167 - Top = 220 - Width = 77 - Height = 13 - Caption = 'Bytes Written' - end - object txtLWLinearAddressPK: TEdit - Left = 101 - Top = 201 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 0 - Text = ' ' - end - object txtLWDataLengthPK: TEdit - Left = 101 - Top = 225 - Width = 40 - Height = 24 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentFont = False - TabOrder = 1 - Text = ' ' - end - object txtBytesWrittenPK: TEdit - Left = 260 - Top = 216 - Width = 40 - Height = 22 - BevelOuter = bvRaised - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 4 - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 3 - Text = ' ' - end - object btnLinearWritePK: TButton - Left = 336 - Top = 200 - Width = 152 - Height = 48 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnLinearWritePKClick - end - object txtLinearWritePK: TRichEdit - Left = 8 - Top = 24 - Width = 480 - Height = 169 - BevelInner = bvLowered - BevelKind = bkFlat - BorderStyle = bsNone - Ctl3D = False - ParentCtl3D = False - ScrollBars = ssVertical - TabOrder = 4 - OnChange = txtLinearWritePKChange - end - end - end -end diff --git a/uFCoderAdvanced/LinearReadWrite.h b/uFCoderAdvanced/LinearReadWrite.h deleted file mode 100644 index 3797f06af530698bddecd2427023f13389961e31..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/LinearReadWrite.h +++ /dev/null @@ -1,130 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef LinearReadWriteH -#define LinearReadWriteH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmLinearReadWrite : public TForm -{ -__published: // IDE-managed Components - TStaticText *pnlHeader; - TPanel *pnlAuth; - TStatusBar *stbFunction; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TLabel *lblKeyIndex; - TComboBox *cboKeyIndex; - TLabel *lblPK; - TPageControl *pgLinearReadWrite; - TTabSheet *tabLinearRead; - TTabSheet *tabLinearReadAKM1; - TTabSheet *tabLinearReadAKM2; - TTabSheet *tabLinearReadPK; - TMemo *txtLinearRead; - TLabel *lblLinearRead; - TLabel *lblLRLinearAddress; - TEdit *txtLRLinearAddress; - TLabel *lblLRDataLength; - TEdit *txtLRDataLength; - TButton *btnLinearRead; - TLabel *lblReadBytes; - TEdit *txtLRBytesReturned; - TLabel *lblLinearReadAKM1; - TMemo *txtLinearReadAKM1; - TLabel *lblLRLinearAddressAKM1; - TEdit *txtLRLinearAddressAKM1; - TLabel *lblLRDataLengthAKM1; - TEdit *txtLRDataLengthAKM1; - TLabel *lblReadBytesAKM1; - TEdit *txtLRBytesReturnedAKM1; - TButton *btnLinearReadAKM1; - TLabel *lblLinearReadAKM2; - TMemo *txtLinearReadAKM2; - TLabel *lblLRLinearAddressAKM2; - TEdit *txtLRLinearAddressAKM2; - TLabel *lblLRDataLengthAKM2; - TEdit *txtLRDataLengthAKM2; - TLabel *lblReadBytesAKM2; - TEdit *txtLRBytesReturnedAKM2; - TButton *btnLinearReadAKM2; - TLabel *lblLinearReadPK; - TMemo *txtLinearReadPK; - TLabel *lblLRLinearAdrressPK; - TEdit *txtLRLinearAddressPK; - TLabel *lblLRDataLengthPK; - TEdit *txtLRDataLengthPK; - TLabel *lblReadBytesPK; - TEdit *txtLRBytesReturnedPK; - TButton *btnLinearReadPK; - TTabSheet *tabLinearWrite; - TTabSheet *tabLinearWriteAKM1; - TTabSheet *tabLinearWriteAKM2; - TTabSheet *tabLinearWritePK; - TLabel *lblLinearWrite; - TLabel *lblLWLinearAddress; - TEdit *txtLWLinearAddress; - TLabel *lblLWDataLength; - TEdit *txtLWDataLength; - TLabel *lblBytesWritten; - TEdit *txtBytesWritten; - TButton *btnLinearWrite; - TLabel *lblLinearWriteAKM1; - TLabel *lblLWLinearAddressAKM1; - TEdit *txtLWLinearAddressAKM1; - TLabel *lblLWDataLengthAKM1; - TEdit *txtLWDataLengthAKM1; - TLabel *lblBytesWrittenAKM1; - TEdit *txtBytesWrittenAKM1; - TButton *btnLinearWriteAKM1; - TLabel *lblLinearWriteAKM2; - TLabel *lblLWLinearAddressAKM2; - TEdit *txtLWLinearAddressAKM2; - TLabel *lblLWDataLengthAKM2; - TEdit *txtLWDataLengthAKM2; - TLabel *lblBytesWrittenAKM2; - TEdit *txtBytesWrittenAKM2; - TButton *btnLinearWriteAKM2; - TLabel *lblLinearWritePK; - TLabel *lblLWLinearAddressPK; - TEdit *txtLWLinearAddressPK; - TLabel *lblLWDataLengthPK; - TEdit *txtLWDataLengthPK; - TLabel *lblBytesWrittenPK; - TEdit *txtBytesWrittenPK; - TButton *btnLinearWritePK; - TRichEdit *txtLinearWrite; - TRichEdit *txtLinearWriteAKM1; - TRichEdit *txtLinearWriteAKM2; - TRichEdit *txtLinearWritePK; - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall FormCreate(TObject *Sender); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall btnLinearReadClick(TObject *Sender); - void __fastcall btnLinearReadAKM1Click(TObject *Sender); - void __fastcall btnLinearReadAKM2Click(TObject *Sender); - void __fastcall btnLinearReadPKClick(TObject *Sender); - void __fastcall btnLinearWriteClick(TObject *Sender); - void __fastcall btnLinearWriteAKM2Click(TObject *Sender); - void __fastcall btnLinearWriteAKM1Click(TObject *Sender); - void __fastcall btnLinearWritePKClick(TObject *Sender); - void __fastcall txtLinearWriteChange(TObject *Sender); - void __fastcall txtLinearWritePKChange(TObject *Sender); - void __fastcall txtLinearWriteAKM2Change(TObject *Sender); - void __fastcall txtLinearWriteAKM1Change(TObject *Sender); -private: - unsigned long result; - -public: - __fastcall TfrmLinearReadWrite(TComponent* Owner); - -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmLinearReadWrite *frmLinearReadWrite; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/LinearReadWrite.obj b/uFCoderAdvanced/LinearReadWrite.obj deleted file mode 100644 index 63944b335dce8a217546c8a2a1da5a812bb91662..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/LinearReadWrite.obj and /dev/null differ diff --git a/uFCoderAdvanced/SectorTrailerWrite.cpp b/uFCoderAdvanced/SectorTrailerWrite.cpp deleted file mode 100644 index 2c65728327547b324c5195a7147275ee456a40c6..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/SectorTrailerWrite.cpp +++ /dev/null @@ -1,281 +0,0 @@ - - -#include -#pragma hdrstop - -#include "SectorTrailerWrite.h" -#include "Globals.h" -#include "uFCoder1x.h" - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmSectorTrailerWrite *frmSectorTrailerWrite; - -__fastcall TfrmSectorTrailerWrite::TfrmSectorTrailerWrite(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmSectorTrailerWrite::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} - -void __fastcall TfrmSectorTrailerWrite:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} -void __fastcall TfrmSectorTrailerWrite::OnKeyA_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexA); -} -void __fastcall TfrmSectorTrailerWrite::OnKeyB_KeyPress(TObject *Sender,char &Key) -{ - Check_key_press(Sender,Key,chkHexB); -} -void __fastcall TfrmSectorTrailerWrite:: OnKeyA_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexA); -} -void __fastcall TfrmSectorTrailerWrite:: OnKeyB_Exit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkHexB); -} - - - -void __fastcall TfrmSectorTrailerWrite::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); - CreateKey(this,31,27,40,25,"txtKeyA",pnlKeyA,OnKeyA_KeyPress,OnKeyA_Exit); - CreateKey(this,31,27,40,25,"txtKeyB",pnlKeyB,OnKeyB_KeyPress,OnKeyB_Exit); -} - -void __fastcall TfrmSectorTrailerWrite::chkHexAClick(TObject *Sender) -{ - Check_hex(this,chkHexA,"txtKeyA"); -} - -void __fastcall TfrmSectorTrailerWrite::chkHexBClick(TObject *Sender) -{ - Check_hex(this,chkHexB,"txtKeyB"); -} - -void __fastcall TfrmSectorTrailerWrite::btnSectorTrailerWriteClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucAddressingMode = 0, - ucBlockOrSectorAddress = 0, - ucAccessBits0 = 0, - ucAccessBits1 = 0, - ucAccessBits2 = 0, - ucTrailerAccessBits = 0, - ucTrailerByte9 = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtTrailerByte9->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the TRAILER BYTE 9 !","Warning !",MB_OK | MB_ICONWARNING); - txtTrailerByte9->SetFocus(); - return; - } - - ucAddressingMode = cboAddressingMode->Text.ToInt(); - ucBlockOrSectorAddress = cboBlockOrSectorAccess->Text.ToInt(); - ucAccessBits0 = cboAccessBits0->Text.ToInt(); - ucAccessBits1 = cboAccessBits1->Text.ToInt(); - ucAccessBits2 = cboAccessBits2->Text.ToInt(); - ucTrailerAccessBits = cboTrailerAccessBits->Text.ToInt(); - ucTrailerByte9 = txtTrailerByte9->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult=SectorTrailerWrite(ucAddressingMode,ucBlockOrSectorAddress,KeyA,ucAccessBits0,ucAccessBits1,ucAccessBits2, - ucTrailerAccessBits,ucTrailerByte9,KeyB,ucAuthMode,ucKeyIndex); - if (ulFResult==DL_OK) - { - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmSectorTrailerWrite::btnSectorTrailerWriteAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucAddressingMode = 0, - ucBlockOrSectorAddress = 0, - ucAccessBits0 = 0, - ucAccessBits1 = 0, - ucAccessBits2 = 0, - ucTrailerAccessBits = 0, - ucTrailerByte9 = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtTrailerByte9AKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the TRAILER BYTE 9 !","Warning !",MB_OK | MB_ICONWARNING); - txtTrailerByte9AKM1->SetFocus(); - return; - } - - ucAddressingMode = cboAddressingModeAKM1->Text.ToInt(); - ucBlockOrSectorAddress = cboBlockOrSectorAccessAKM1->Text.ToInt(); - ucAccessBits0 = cboAccessBits0AKM1->Text.ToInt(); - ucAccessBits1 = cboAccessBits1AKM1->Text.ToInt(); - ucAccessBits2 = cboAccessBits2AKM1->Text.ToInt(); - ucTrailerAccessBits = cboTrailerAccessBitsAKM1->Text.ToInt(); - ucTrailerByte9 = txtTrailerByte9AKM1->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = SectorTrailerWrite_AKM1(ucAddressingMode,ucBlockOrSectorAddress,KeyA,ucAccessBits0,ucAccessBits1,ucAccessBits2, - ucTrailerAccessBits,ucTrailerByte9,KeyB,ucAuthMode); - if (ulFResult==DL_OK) - { - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmSectorTrailerWrite::btnSectorTrailerWriteAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucAddressingMode = 0, - ucBlockOrSectorAddress = 0, - ucAccessBits0 = 0, - ucAccessBits1 = 0, - ucAccessBits2 = 0, - ucTrailerAccessBits = 0, - ucTrailerByte9 = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtTrailerByte9AKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the TRAILER BYTE 9 !","Warning !",MB_OK | MB_ICONWARNING); - txtTrailerByte9AKM2->SetFocus(); - return; - } - - ucAddressingMode = cboAddressingModeAKM2->Text.ToInt(); - ucBlockOrSectorAddress = cboBlockOrSectorAccessAKM2->Text.ToInt(); - ucAccessBits0 = cboAccessBits0AKM2->Text.ToInt(); - ucAccessBits1 = cboAccessBits1AKM2->Text.ToInt(); - ucAccessBits2 = cboAccessBits2AKM2->Text.ToInt(); - ucTrailerAccessBits = cboTrailerAccessBitsAKM2->Text.ToInt(); - ucTrailerByte9 = txtTrailerByte9AKM2->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - ulFResult = SectorTrailerWrite_AKM2(ucAddressingMode,ucBlockOrSectorAddress,KeyA,ucAccessBits0,ucAccessBits1,ucAccessBits2, - ucTrailerAccessBits,ucTrailerByte9,KeyB,ucAuthMode); - if (ulFResult==DL_OK) - { - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmSectorTrailerWrite::btnSectorTrailerWritePKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucAddressingMode = 0, - ucBlockOrSectorAddress = 0, - ucAccessBits0 = 0, - ucAccessBits1 = 0, - ucAccessBits2 = 0, - ucTrailerAccessBits = 0, - ucTrailerByte9 = 0, - KeyA[6], - KeyB[6]; - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtTrailerByte9PK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the TRAILER BYTE 9 !","Warning !",MB_OK | MB_ICONWARNING); - txtTrailerByte9PK->SetFocus(); - return; - } - - ucAddressingMode = cboAddressingModePK->Text.ToInt(); - ucBlockOrSectorAddress = cboBlockOrSectorAccessPK->Text.ToInt(); - ucAccessBits0 = cboAccessBits0PK->Text.ToInt(); - ucAccessBits1 = cboAccessBits1PK->Text.ToInt(); - ucAccessBits2 = cboAccessBits2PK->Text.ToInt(); - ucTrailerAccessBits = cboTrailerAccessBitsPK->Text.ToInt(); - ucTrailerByte9 = txtTrailerByte9PK->Text.ToInt(); - Key_save(this,chkHexA,KeyA,"txtKeyA"); - Key_save(this,chkHexB,KeyB,"txtKeyB"); - - ulFResult = SectorTrailerWrite_PK(ucAddressingMode,ucBlockOrSectorAddress,KeyA,ucAccessBits0,ucAccessBits1,ucAccessBits2, - ucTrailerAccessBits,ucTrailerByte9,KeyB,ucAuthMode,PKValue(this)); - if (ulFResult==DL_OK) - { - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - else - { - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - SetStatusBar(stbFunction,ulFResult); - } - } - __finally - { - SetFunctionStart(false); - } -} - - diff --git a/uFCoderAdvanced/SectorTrailerWrite.ddp b/uFCoderAdvanced/SectorTrailerWrite.ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/SectorTrailerWrite.ddp and /dev/null differ diff --git a/uFCoderAdvanced/SectorTrailerWrite.dfm b/uFCoderAdvanced/SectorTrailerWrite.dfm deleted file mode 100644 index 4697eb7a3eac770cab3db36f16e90b48673da0f4..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/SectorTrailerWrite.dfm +++ /dev/null @@ -1,1153 +0,0 @@ -object frmSectorTrailerWrite: TfrmSectorTrailerWrite - Left = 386 - Top = 173 - Width = 527 - Height = 402 - Caption = 'Sector Trailer Write' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - OldCreateOrder = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object pnlHeader: TStaticText - Left = 0 - Top = 0 - Width = 511 - Height = 25 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'SectorTrailer Write(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -17 - Font.Name = 'Verdana' - Font.Style = [] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object pnlAuth: TPanel - Left = 0 - Top = 25 - Width = 511 - Height = 31 - Align = alTop - Caption = ' ' - Ctl3D = True - ParentCtl3D = False - TabOrder = 1 - object lblKeyIndex: TLabel - Left = 179 - Top = 8 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object lblPK: TLabel - Left = 297 - Top = 8 - Width = 15 - Height = 13 - Caption = 'PK' - end - object rbAUTH1A: TRadioButton - Left = 8 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1A' - Checked = True - TabOrder = 0 - TabStop = True - end - object rbAUTH1B: TRadioButton - Left = 87 - Top = 7 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'AUTH 1B' - TabOrder = 1 - end - object cboKeyIndex: TComboBox - Left = 245 - Top = 5 - Width = 40 - Height = 21 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 13 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7' - '8' - '9' - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - '19' - '20' - '21' - '22' - '23' - '24' - '25' - '26' - '27' - '28' - '29' - '30' - '31') - end - end - object stbFunction: TStatusBar - Left = 0 - Top = 339 - Width = 511 - Height = 25 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'Function Error:' - Width = 119 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pnlKeys: TPanel - Left = 0 - Top = 56 - Width = 511 - Height = 73 - Align = alTop - TabOrder = 3 - object pnlKeyA: TPanel - Left = 1 - Top = 1 - Width = 255 - Height = 71 - Align = alLeft - Caption = ' ' - TabOrder = 0 - object lblKeyA: TStaticText - Left = 1 - Top = 1 - Width = 253 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY A' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexA: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexAClick - end - end - object pnlKeyB: TPanel - Left = 256 - Top = 1 - Width = 254 - Height = 71 - Align = alClient - Caption = ' ' - TabOrder = 1 - object lblKeyB: TStaticText - Left = 1 - Top = 1 - Width = 252 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'KEY B' - Color = clWhite - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - end - object chkHexB: TCheckBox - Left = 42 - Top = 48 - Width = 57 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - TabOrder = 1 - OnClick = chkHexBClick - end - end - end - object pgSectorTrailerWrite: TPageControl - Left = 0 - Top = 129 - Width = 511 - Height = 210 - ActivePage = tabSectorTrailerWrite - Align = alClient - TabIndex = 0 - TabOrder = 4 - object tabSectorTrailerWrite: TTabSheet - Caption = 'SectorTrailer Write' - object lblAddressingMode: TLabel - Left = 49 - Top = 24 - Width = 97 - Height = 13 - Caption = 'Addressing Mode' - end - object lblBlockOrSectorAccess: TLabel - Left = 49 - Top = 49 - Width = 131 - Height = 13 - Caption = 'Block or Sector Access' - end - object lblAccessBits0: TLabel - Left = 49 - Top = 79 - Width = 75 - Height = 13 - Caption = 'Access Bits 0' - end - object lblAccessBits1: TLabel - Left = 49 - Top = 103 - Width = 75 - Height = 13 - Caption = 'Access Bits 1' - end - object lblAccessBits2: TLabel - Left = 49 - Top = 127 - Width = 79 - Height = 13 - Caption = 'Access Bits 2 ' - end - object lblTrailerAccessBits: TLabel - Left = 273 - Top = 23 - Width = 105 - Height = 13 - Caption = 'Trailer Access Bits' - end - object lblTrailerByte9: TLabel - Left = 273 - Top = 50 - Width = 78 - Height = 13 - Caption = 'Trailer Byte 9' - end - object cboAddressingMode: TComboBox - Left = 193 - Top = 22 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboBlockOrSectorAccess: TComboBox - Left = 193 - Top = 46 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboAccessBits0: TComboBox - Left = 193 - Top = 76 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits1: TComboBox - Left = 193 - Top = 100 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 3 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits2: TComboBox - Left = 193 - Top = 124 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 4 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboTrailerAccessBits: TComboBox - Left = 417 - Top = 20 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 5 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtTrailerByte9: TEdit - Left = 417 - Top = 48 - Width = 39 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 6 - Text = ' ' - end - object btnSectorTrailerWrite: TButton - Left = 273 - Top = 80 - Width = 185 - Height = 65 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - OnClick = btnSectorTrailerWriteClick - end - end - object tabSectorTrailerWriteAKM1: TTabSheet - Caption = 'SectorTrailer_AKM1' - ImageIndex = 1 - object lblAddressingModeAKM1: TLabel - Left = 49 - Top = 24 - Width = 97 - Height = 13 - Caption = 'Addressing Mode' - end - object lblBlockOrSectorAccessAKM1: TLabel - Left = 49 - Top = 49 - Width = 131 - Height = 13 - Caption = 'Block or Sector Access' - end - object lblAccessBits0AKM1: TLabel - Left = 49 - Top = 79 - Width = 75 - Height = 13 - Caption = 'Access Bits 0' - end - object lblAccessBits1AKM1: TLabel - Left = 49 - Top = 103 - Width = 75 - Height = 13 - Caption = 'Access Bits 1' - end - object lblAccessBits2AKM1: TLabel - Left = 49 - Top = 127 - Width = 79 - Height = 13 - Caption = 'Access Bits 2 ' - end - object lblTrailerAccessBitsAKM1: TLabel - Left = 273 - Top = 23 - Width = 105 - Height = 13 - Caption = 'Trailer Access Bits' - end - object lblTrailerByte9AKM1: TLabel - Left = 273 - Top = 50 - Width = 78 - Height = 13 - Caption = 'Trailer Byte 9' - end - object cboAddressingModeAKM1: TComboBox - Left = 193 - Top = 22 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboBlockOrSectorAccessAKM1: TComboBox - Left = 193 - Top = 46 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboAccessBits0AKM1: TComboBox - Left = 193 - Top = 76 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits1AKM1: TComboBox - Left = 193 - Top = 100 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 3 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits2AKM1: TComboBox - Left = 193 - Top = 124 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 4 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboTrailerAccessBitsAKM1: TComboBox - Left = 417 - Top = 20 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 5 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtTrailerByte9AKM1: TEdit - Left = 417 - Top = 48 - Width = 39 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 6 - Text = ' ' - end - object btnSectorTrailerWriteAKM1: TButton - Left = 273 - Top = 80 - Width = 185 - Height = 65 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - OnClick = btnSectorTrailerWriteAKM1Click - end - end - object tabSectorTrailerWriteAKM2: TTabSheet - Caption = 'SectorTrailer_AKM2' - ImageIndex = 2 - object lblAddressingModeAKM2: TLabel - Left = 49 - Top = 24 - Width = 97 - Height = 13 - Caption = 'Addressing Mode' - end - object lblBlockOrSectorAccessAKM2: TLabel - Left = 49 - Top = 49 - Width = 131 - Height = 13 - Caption = 'Block or Sector Access' - end - object lblAccessBits0AKM2: TLabel - Left = 49 - Top = 79 - Width = 75 - Height = 13 - Caption = 'Access Bits 0' - end - object lblAccessBits1AKM2: TLabel - Left = 49 - Top = 103 - Width = 75 - Height = 13 - Caption = 'Access Bits 1' - end - object lblAccessBits2AKM2: TLabel - Left = 49 - Top = 127 - Width = 79 - Height = 13 - Caption = 'Access Bits 2 ' - end - object lblTrailerAccessBitsAKM2: TLabel - Left = 273 - Top = 23 - Width = 105 - Height = 13 - Caption = 'Trailer Access Bits' - end - object lblTrailerByte9AKM2: TLabel - Left = 273 - Top = 50 - Width = 78 - Height = 13 - Caption = 'Trailer Byte 9' - end - object cboAddressingModeAKM2: TComboBox - Left = 193 - Top = 22 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboBlockOrSectorAccessAKM2: TComboBox - Left = 193 - Top = 46 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboAccessBits0AKM2: TComboBox - Left = 193 - Top = 76 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits1AKM2: TComboBox - Left = 193 - Top = 100 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 3 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits2AKM2: TComboBox - Left = 193 - Top = 124 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 4 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboTrailerAccessBitsAKM2: TComboBox - Left = 417 - Top = 20 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 5 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtTrailerByte9AKM2: TEdit - Left = 417 - Top = 48 - Width = 39 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 6 - Text = ' ' - end - object btnSectorTrailerWriteAKM2: TButton - Left = 273 - Top = 80 - Width = 185 - Height = 65 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - OnClick = btnSectorTrailerWriteAKM2Click - end - end - object tabSectorTrailerWritePK: TTabSheet - Caption = 'SectorTrailer_PK' - ImageIndex = 3 - object lblAddressingModePK: TLabel - Left = 49 - Top = 24 - Width = 97 - Height = 13 - Caption = 'Addressing Mode' - end - object lblBlockOrSectorAccessPK: TLabel - Left = 49 - Top = 49 - Width = 131 - Height = 13 - Caption = 'Block or Sector Access' - end - object lblAccessBits0PK: TLabel - Left = 49 - Top = 79 - Width = 75 - Height = 13 - Caption = 'Access Bits 0' - end - object lblAccessBits1PK: TLabel - Left = 49 - Top = 103 - Width = 75 - Height = 13 - Caption = 'Access Bits 1' - end - object lblAccessBits2PK: TLabel - Left = 49 - Top = 127 - Width = 79 - Height = 13 - Caption = 'Access Bits 2 ' - end - object lblTrailerAccessBitsPK: TLabel - Left = 273 - Top = 23 - Width = 105 - Height = 13 - Caption = 'Trailer Access Bits' - end - object lblTrailerByte9PK: TLabel - Left = 273 - Top = 50 - Width = 78 - Height = 13 - Caption = 'Trailer Byte 9' - end - object cboAddressingModePK: TComboBox - Left = 193 - Top = 22 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 0 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboBlockOrSectorAccessPK: TComboBox - Left = 193 - Top = 46 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentFont = False - TabOrder = 1 - Text = '0' - Items.Strings = ( - '0' - '1') - end - object cboAccessBits0PK: TComboBox - Left = 193 - Top = 76 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 2 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits1PK: TComboBox - Left = 193 - Top = 100 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 3 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboAccessBits2PK: TComboBox - Left = 193 - Top = 124 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 4 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object cboTrailerAccessBitsPK: TComboBox - Left = 417 - Top = 20 - Width = 41 - Height = 24 - Cursor = crHandPoint - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ParentFont = False - TabOrder = 5 - Text = '0' - Items.Strings = ( - '0' - '1' - '2' - '3' - '4' - '5' - '6' - '7') - end - object txtTrailerByte9PK: TEdit - Left = 417 - Top = 48 - Width = 39 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - MaxLength = 3 - ParentFont = False - TabOrder = 6 - Text = ' ' - end - object btnSectorTrailerWritePK: TButton - Left = 273 - Top = 80 - Width = 185 - Height = 65 - Cursor = crHandPoint - Caption = 'WRITE' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - OnClick = btnSectorTrailerWritePKClick - end - end - end -end diff --git a/uFCoderAdvanced/ftd2xx.dll b/uFCoderAdvanced/ftd2xx.dll deleted file mode 100644 index dc923a9cf2d49238ae76f12064270a907e3b7265..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/ftd2xx.dll and /dev/null differ