diff --git a/uFCoderAdvanced/SectorTrailerWrite.h b/uFCoderAdvanced/SectorTrailerWrite.h deleted file mode 100644 index f9415634417009eca1f0f0ff0e9b6a1a1b03a8d9..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/SectorTrailerWrite.h +++ /dev/null @@ -1,118 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef SectorTrailerWriteH -#define SectorTrailerWriteH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmSectorTrailerWrite : public TForm -{ -__published: // IDE-managed Components - TStaticText *pnlHeader; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TStatusBar *stbFunction; - TPanel *pnlKeys; - TPanel *pnlKeyA; - TPanel *pnlKeyB; - TStaticText *lblKeyA; - TStaticText *lblKeyB; - TCheckBox *chkHexA; - TCheckBox *chkHexB; - TPageControl *pgSectorTrailerWrite; - TTabSheet *tabSectorTrailerWrite; - TTabSheet *tabSectorTrailerWriteAKM1; - TTabSheet *tabSectorTrailerWriteAKM2; - TTabSheet *tabSectorTrailerWritePK; - TLabel *lblAddressingMode; - TComboBox *cboAddressingMode; - TLabel *lblBlockOrSectorAccess; - TComboBox *cboBlockOrSectorAccess; - TLabel *lblAccessBits0; - TComboBox *cboAccessBits0; - TLabel *lblAccessBits1; - TComboBox *cboAccessBits1; - TLabel *lblAccessBits2; - TComboBox *cboAccessBits2; - TLabel *lblTrailerAccessBits; - TComboBox *cboTrailerAccessBits; - TLabel *lblTrailerByte9; - TEdit *txtTrailerByte9; - TButton *btnSectorTrailerWrite; - TLabel *lblAddressingModeAKM1; - TComboBox *cboAddressingModeAKM1; - TLabel *lblBlockOrSectorAccessAKM1; - TComboBox *cboBlockOrSectorAccessAKM1; - TLabel *lblAccessBits0AKM1; - TComboBox *cboAccessBits0AKM1; - TLabel *lblAccessBits1AKM1; - TComboBox *cboAccessBits1AKM1; - TLabel *lblAccessBits2AKM1; - TComboBox *cboAccessBits2AKM1; - TLabel *lblTrailerAccessBitsAKM1; - TComboBox *cboTrailerAccessBitsAKM1; - TLabel *lblTrailerByte9AKM1; - TEdit *txtTrailerByte9AKM1; - TButton *btnSectorTrailerWriteAKM1; - TLabel *lblAddressingModeAKM2; - TComboBox *cboAddressingModeAKM2; - TLabel *lblBlockOrSectorAccessAKM2; - TComboBox *cboBlockOrSectorAccessAKM2; - TLabel *lblAccessBits0AKM2; - TComboBox *cboAccessBits0AKM2; - TLabel *lblAccessBits1AKM2; - TComboBox *cboAccessBits1AKM2; - TLabel *lblAccessBits2AKM2; - TComboBox *cboAccessBits2AKM2; - TLabel *lblTrailerAccessBitsAKM2; - TComboBox *cboTrailerAccessBitsAKM2; - TLabel *lblTrailerByte9AKM2; - TEdit *txtTrailerByte9AKM2; - TButton *btnSectorTrailerWriteAKM2; - TLabel *lblAddressingModePK; - TComboBox *cboAddressingModePK; - TLabel *lblBlockOrSectorAccessPK; - TComboBox *cboBlockOrSectorAccessPK; - TLabel *lblAccessBits0PK; - TComboBox *cboAccessBits0PK; - TLabel *lblAccessBits1PK; - TComboBox *cboAccessBits1PK; - TLabel *lblAccessBits2PK; - TComboBox *cboAccessBits2PK; - TLabel *lblTrailerAccessBitsPK; - TComboBox *cboTrailerAccessBitsPK; - TLabel *lblTrailerByte9PK; - TEdit *txtTrailerByte9PK; - TButton *btnSectorTrailerWritePK; - 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 btnSectorTrailerWriteClick(TObject *Sender); - void __fastcall btnSectorTrailerWriteAKM1Click(TObject *Sender); - void __fastcall btnSectorTrailerWriteAKM2Click(TObject *Sender); - void __fastcall btnSectorTrailerWritePKClick(TObject *Sender); -private: - unsigned long result; -public: - - __fastcall TfrmSectorTrailerWrite(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmSectorTrailerWrite *frmSectorTrailerWrite; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/SectorTrailerWrite.obj b/uFCoderAdvanced/SectorTrailerWrite.obj deleted file mode 100644 index 503850ce5b1de05cadb8d34f67da40f1c71c295c..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/SectorTrailerWrite.obj and /dev/null differ diff --git a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.cpp b/uFCoderAdvanced/ValueBlockInSectorIncrDecr.cpp deleted file mode 100644 index 3d2139bde42c061be2921beff29386e318463f0b..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.cpp +++ /dev/null @@ -1,460 +0,0 @@ - - -#include -#pragma hdrstop - -#include "ValueBlockInSectorIncrDecr.h" -#include "Globals.h" -#include "uFCoder1x.h" - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmValueBlockInSectorIncrDecr *frmValueBlockInSectorIncrDecr; - -__fastcall TfrmValueBlockInSectorIncrDecr::TfrmValueBlockInSectorIncrDecr(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmValueBlockInSectorIncrDecr::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} - -void __fastcall TfrmValueBlockInSectorIncrDecr:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} -void __fastcall TfrmValueBlockInSectorIncrDecr::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); -} - -void __fastcall TfrmValueBlockInSectorIncrDecr::btnValueBlockIncrementClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISIncrement->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISIncrement->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBISectorAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISectorAddress->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddress->SetFocus(); - return; - } - - lValueIncrement = txtVBISIncrement->Text.ToInt(); - ucSectorAddress = txtVBISectorAddress->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddress->Text.ToInt(); - ulFResult = ValueBlockInSectorIncrement(lValueIncrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockIncrementAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISIncrementAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISIncrementAKM1->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBISectorAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISectorAddressAKM1->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressAKM1->SetFocus(); - return; - } - - lValueIncrement = txtVBISIncrementAKM1->Text.ToInt(); - ucSectorAddress = txtVBISectorAddressAKM1->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressAKM1->Text.ToInt(); - ulFResult = ValueBlockInSectorIncrement_AKM1(lValueIncrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockIncrementAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISIncrementAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISIncrementAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBISectorAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISectorAddressAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressAKM2->SetFocus(); - return; - } - - lValueIncrement = txtVBISIncrementAKM2->Text.ToInt(); - ucSectorAddress = txtVBISectorAddressAKM2->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressAKM2->Text.ToInt(); - ulFResult = ValueBlockInSectorIncrement_AKM2(lValueIncrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockIncrementPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISIncrementPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISIncrementPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBISectorAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISectorAddressPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressPK->SetFocus(); - return; - } - lValueIncrement = txtVBISIncrementPK->Text.ToInt(); - ucSectorAddress = txtVBISectorAddressPK->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressPK->Text.ToInt(); - ulFResult = ValueBlockInSectorIncrement_PK(lValueIncrement,ucSectorAddress,ucBlockAddress,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); - } -} - - -void __fastcall TfrmValueBlockInSectorIncrDecr::btnValueBlockDecrementClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISDecrement->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISDecrement->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDSectorAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDSectorAddress->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddress->SetFocus(); - return; - } - - lValueDecrement = txtVBISDecrement->Text.ToInt(); - ucSectorAddress = txtVBDSectorAddress->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddress->Text.ToInt(); - ulFResult = ValueBlockInSectorDecrement(lValueDecrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockDecrementAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISDecrementAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISDecrementAKM1->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDSectorAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDSectorAddressAKM1->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressAKM1->SetFocus(); - return; - } - lValueDecrement = txtVBISDecrementAKM1->Text.ToInt(); - ucSectorAddress = txtVBDSectorAddressAKM1->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressAKM1->Text.ToInt(); - ulFResult = ValueBlockInSectorDecrement_AKM1(lValueDecrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockDecrementAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISDecrementAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISDecrementAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDSectorAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDSectorAddressAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressAKM2->SetFocus(); - return; - } - - lValueDecrement = txtVBISDecrementAKM2->Text.ToInt(); - ucSectorAddress = txtVBDSectorAddressAKM2->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressAKM2->Text.ToInt(); - ulFResult = ValueBlockInSectorDecrement_AKM2(lValueDecrement,ucSectorAddress,ucBlockAddress,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 TfrmValueBlockInSectorIncrDecr::btnValueBlockDecrementPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0, - ucSectorAddress = 0; - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtVBISDecrementPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter any long value !","Warning !",MB_OK | MB_ICONWARNING); - txtVBISDecrementPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDSectorAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the SECTOR ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDSectorAddressPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressPK->SetFocus(); - return; - } - lValueDecrement = txtVBISDecrementPK->Text.ToInt(); - ucSectorAddress = txtVBDSectorAddressPK->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressPK->Text.ToInt(); - ulFResult = ValueBlockInSectorDecrement_PK(lValueDecrement,ucSectorAddress,ucBlockAddress,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/ValueBlockInSectorIncrDecr.ddp b/uFCoderAdvanced/ValueBlockInSectorIncrDecr.ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.ddp and /dev/null differ diff --git a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.dfm b/uFCoderAdvanced/ValueBlockInSectorIncrDecr.dfm deleted file mode 100644 index e7486872cffadea296671895d020b94f2d3707a9..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.dfm +++ /dev/null @@ -1,1047 +0,0 @@ -object frmValueBlockInSectorIncrDecr: TfrmValueBlockInSectorIncrDecr - Left = 384 - Top = 163 - Width = 527 - Height = 402 - Caption = 'ValueBlockInSector Increment/Decrement' - 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 = 'ValueBlockInSector Increment/Decrement(AKM1,AKM2,PK)' - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -15 - 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 pgValueBlockInSectorIncrDecr: TPageControl - Left = 0 - Top = 56 - Width = 511 - Height = 283 - ActivePage = tabVBISIncrement - Align = alClient - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - ParentFont = False - TabIndex = 0 - TabOrder = 2 - object tabVBISIncrement: TTabSheet - Caption = 'ValueBlockInSector Increment' - object pnlVBISIncrement: TPanel - Left = 3 - Top = 1 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblVBISIncrement: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBISectorAddress: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBIBlockAddress: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorIncrement: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSector Increment' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISIncrement: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockIncrement: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockIncrementClick - end - object txtVBISectorAddress: TEdit - Left = 106 - Top = 59 - 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 txtVBIBlockAddress: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISIncrementAKM1: TPanel - Left = 254 - Top = 1 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 1 - object lblVBISIncrementAKM1: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBISectorAddressAKM1: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBIBlockAddressAKM1: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorIncrementAKM1: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorIncrement_AKM1' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISIncrementAKM1: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockIncrementAKM1: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockIncrementAKM1Click - end - object txtVBISectorAddressAKM1: TEdit - Left = 106 - Top = 59 - 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 txtVBIBlockAddressAKM1: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISIncrementAKM2: TPanel - Left = 3 - Top = 129 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblVBISIncrementAKM2: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBISectorAddressAKM2: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBIBlockAddressAKM2: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorIncrementAKM2: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorIncrement_AKM2' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISIncrementAKM2: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockIncrementAKM2: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockIncrementAKM2Click - end - object txtVBISectorAddressAKM2: TEdit - Left = 106 - Top = 59 - 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 txtVBIBlockAddressAKM2: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISIncrementPK: TPanel - Left = 254 - Top = 129 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblVBISIncrementPK: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBISectorAddressPK: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBIBlockAddressPK: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorIncrementPK: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorIncrement_PK' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISIncrementPK: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockIncrementPK: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockIncrementPKClick - end - object txtVBISectorAddressPK: TEdit - Left = 106 - Top = 59 - 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 txtVBIBlockAddressPK: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - end - object tabVBISDecrement: TTabSheet - Caption = 'ValueBlockInSector Decrement' - ImageIndex = 1 - object pnlVBISDecrement: TPanel - Left = 3 - Top = 1 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblVBISDecrement: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDSectorAddress: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBDBlockAddress: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorDecrement: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSector Decrement' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISDecrement: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockDecrement: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockDecrementClick - end - object txtVBDSectorAddress: TEdit - Left = 106 - Top = 59 - 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 txtVBDBlockAddress: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISDecrementAKM1: TPanel - Left = 254 - Top = 1 - Width = 247 - Height = 121 - BorderStyle = bsSingle - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - ParentFont = False - TabOrder = 1 - object lblVBISDecrementAKM1: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDSectorAddressAKM1: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBDBlockAddressAKM1: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorDecrementAKM1: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorDecrement_AKM1' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISDecrementAKM1: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockDecrementAKM1: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockDecrementAKM1Click - end - object txtVBDSectorAddressAKM1: TEdit - Left = 106 - Top = 59 - 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 txtVBDBlockAddressAKM1: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISDecrementAKM2: TPanel - Left = 3 - Top = 129 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblVBISDecrementAKM2: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDSectorAddressAKM2: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBDBlockAddressAKM2: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorDecrementAKM2: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorDecrement_AKM2' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISDecrementAKM2: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockDecrementAKM2: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockDecrementAKM2Click - end - object txtVBDSectorAddressAKM2: TEdit - Left = 106 - Top = 59 - 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 txtVBDBlockAddressAKM2: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - object pnlVBISDecrementPK: TPanel - Left = 254 - Top = 129 - Width = 247 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblVBISDecrementPK: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDSectorAddressPK: TLabel - Left = 5 - Top = 63 - Width = 87 - Height = 13 - Caption = 'Sector Address' - end - object lblVBDBlockAddressPK: TLabel - Left = 5 - Top = 87 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBInSectorDecrementPK: TStaticText - Left = 1 - Top = 1 - Width = 241 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockInSectorDecrement_PK' - Color = clSilver - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 4 - end - object txtVBISDecrementPK: TEdit - Left = 106 - Top = 24 - Width = 127 - 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 btnValueBlockDecrementPK: TButton - Left = 152 - Top = 59 - Width = 81 - Height = 48 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = btnValueBlockDecrementPKClick - end - object txtVBDSectorAddressPK: TEdit - Left = 106 - Top = 59 - 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 txtVBDBlockAddressPK: TEdit - Left = 106 - Top = 83 - 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 = 2 - end - end - 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 -end diff --git a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.h b/uFCoderAdvanced/ValueBlockInSectorIncrDecr.h deleted file mode 100644 index 3a1d0304ced2e8b8869e44c65bb2514846088ee4..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockInSectorIncrDecr.h +++ /dev/null @@ -1,118 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef ValueBlockInSectorIncrDecrH -#define ValueBlockInSectorIncrDecrH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmValueBlockInSectorIncrDecr : public TForm -{ -__published: // IDE-managed Components - TStaticText *pnlHeader; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TPageControl *pgValueBlockInSectorIncrDecr; - TTabSheet *tabVBISIncrement; - TPanel *pnlVBISIncrement; - TLabel *lblVBISIncrement; - TLabel *lblVBISectorAddress; - TStaticText *lblVBInSectorIncrement; - TEdit *txtVBISIncrement; - TButton *btnValueBlockIncrement; - TEdit *txtVBISectorAddress; - TTabSheet *tabVBISDecrement; - TStatusBar *stbFunction; - TLabel *lblVBIBlockAddress; - TEdit *txtVBIBlockAddress; - TPanel *pnlVBISIncrementAKM1; - TLabel *lblVBISIncrementAKM1; - TLabel *lblVBISectorAddressAKM1; - TLabel *lblVBIBlockAddressAKM1; - TStaticText *lblVBInSectorIncrementAKM1; - TEdit *txtVBISIncrementAKM1; - TButton *btnValueBlockIncrementAKM1; - TEdit *txtVBISectorAddressAKM1; - TEdit *txtVBIBlockAddressAKM1; - TPanel *pnlVBISIncrementAKM2; - TLabel *lblVBISIncrementAKM2; - TLabel *lblVBISectorAddressAKM2; - TLabel *lblVBIBlockAddressAKM2; - TStaticText *lblVBInSectorIncrementAKM2; - TEdit *txtVBISIncrementAKM2; - TButton *btnValueBlockIncrementAKM2; - TEdit *txtVBISectorAddressAKM2; - TEdit *txtVBIBlockAddressAKM2; - TPanel *pnlVBISIncrementPK; - TLabel *lblVBISIncrementPK; - TLabel *lblVBISectorAddressPK; - TLabel *lblVBIBlockAddressPK; - TStaticText *lblVBInSectorIncrementPK; - TEdit *txtVBISIncrementPK; - TButton *btnValueBlockIncrementPK; - TEdit *txtVBISectorAddressPK; - TEdit *txtVBIBlockAddressPK; - TPanel *pnlVBISDecrement; - TLabel *lblVBISDecrement; - TLabel *lblVBDSectorAddress; - TLabel *lblVBDBlockAddress; - TStaticText *lblVBInSectorDecrement; - TEdit *txtVBISDecrement; - TButton *btnValueBlockDecrement; - TEdit *txtVBDSectorAddress; - TEdit *txtVBDBlockAddress; - TPanel *pnlVBISDecrementAKM1; - TLabel *lblVBISDecrementAKM1; - TLabel *lblVBDSectorAddressAKM1; - TLabel *lblVBDBlockAddressAKM1; - TStaticText *lblVBInSectorDecrementAKM1; - TEdit *txtVBISDecrementAKM1; - TButton *btnValueBlockDecrementAKM1; - TEdit *txtVBDSectorAddressAKM1; - TEdit *txtVBDBlockAddressAKM1; - TPanel *pnlVBISDecrementAKM2; - TLabel *lblVBISDecrementAKM2; - TLabel *lblVBDSectorAddressAKM2; - TLabel *lblVBDBlockAddressAKM2; - TStaticText *lblVBInSectorDecrementAKM2; - TEdit *txtVBISDecrementAKM2; - TButton *btnValueBlockDecrementAKM2; - TEdit *txtVBDSectorAddressAKM2; - TEdit *txtVBDBlockAddressAKM2; - TPanel *pnlVBISDecrementPK; - TLabel *lblVBISDecrementPK; - TLabel *lblVBDSectorAddressPK; - TLabel *lblVBDBlockAddressPK; - TStaticText *lblVBInSectorDecrementPK; - TEdit *txtVBISDecrementPK; - TButton *btnValueBlockDecrementPK; - TEdit *txtVBDSectorAddressPK; - TEdit *txtVBDBlockAddressPK; - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall FormCreate(TObject *Sender); - void __fastcall btnValueBlockIncrementClick(TObject *Sender); - void __fastcall btnValueBlockIncrementAKM1Click(TObject *Sender); - void __fastcall btnValueBlockIncrementAKM2Click(TObject *Sender); - void __fastcall btnValueBlockIncrementPKClick(TObject *Sender); - void __fastcall btnValueBlockDecrementClick(TObject *Sender); - void __fastcall btnValueBlockDecrementAKM1Click(TObject *Sender); - void __fastcall btnValueBlockDecrementAKM2Click(TObject *Sender); - void __fastcall btnValueBlockDecrementPKClick(TObject *Sender); -private: - unsigned long result; -public: - __fastcall TfrmValueBlockInSectorIncrDecr(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmValueBlockInSectorIncrDecr *frmValueBlockInSectorIncrDecr; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/ValueBlockIncrDecr.cpp b/uFCoderAdvanced/ValueBlockIncrDecr.cpp deleted file mode 100644 index b97acf3095f05ce65b189b0ea7c0712d19348172..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockIncrDecr.cpp +++ /dev/null @@ -1,402 +0,0 @@ - - -#include -#pragma hdrstop -#include "ValueBlockIncrDecr.h" -#include "Globals.h" -#include "uFCoder1x.h" - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmValueBlockIncrDecr *frmValueBlockIncrDecr; - -__fastcall TfrmValueBlockIncrDecr::TfrmValueBlockIncrDecr(TComponent* Owner) - : TForm(Owner) -{ - -} - -void __fastcall TfrmValueBlockIncrDecr::OnPK_KeyPress(TObject *Sender,char &Key) -{ - Check_PK_key_press(Sender,Key); -} - -void __fastcall TfrmValueBlockIncrDecr:: OnPK_Exit(TObject *Sender) -{ - Check_On_Exit(Sender); -} -void __fastcall TfrmValueBlockIncrDecr::FormCreate(TObject *Sender) -{ - CreateKey(this,31,27,320,5,"txtPKKey",pnlAuth,OnPK_KeyPress,OnPK_Exit); -} - -void __fastcall TfrmValueBlockIncrDecr::btnValueBlockIncrementClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueIncrement->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE INCREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueIncrement->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddress->SetFocus(); - return; - } - - lValueIncrement = txtValueIncrement->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddress->Text.ToInt(); - ulFResult = ValueBlockIncrement(lValueIncrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockIncrementAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueIncrementAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE INCREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueIncrementAKM1->SetFocus(); - return; - } - - if (AnsiString(Trim(txtVBIBlockAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressAKM1->SetFocus(); - return; - } - lValueIncrement = txtValueIncrementAKM1->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressAKM1->Text.ToInt(); - ulFResult = ValueBlockIncrement_AKM1(lValueIncrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockIncrementAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueIncrementAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE INCREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueIncrementAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressAKM2->SetFocus(); - return; - } - - lValueIncrement = txtValueIncrementAKM2->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressAKM2->Text.ToInt(); - ulFResult = ValueBlockIncrement_AKM2(lValueIncrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockIncrementPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - long lValueIncrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueIncrementPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE INCREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueIncrementPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBIBlockAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBIBlockAddressPK->SetFocus(); - return; - } - - lValueIncrement = txtValueIncrementPK->Text.ToInt(); - ucBlockAddress = txtVBIBlockAddressPK->Text.ToInt(); - ulFResult = ValueBlockIncrement_PK(lValueIncrement,ucBlockAddress,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); - } - -} - - -void __fastcall TfrmValueBlockIncrDecr::btnValueBlockDecrementClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucKeyIndex = cboKeyIndex->Text.ToInt(), - ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueDecrement->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE DECREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueDecrement->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddress->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddress->SetFocus(); - return; - } - - lValueDecrement = txtValueDecrement->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddress->Text.ToInt(); - ulFResult = ValueBlockDecrement(lValueDecrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockDecrementAKM1Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueDecrementAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the VALUE DECREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueDecrementAKM1->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressAKM1->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter the BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressAKM1->SetFocus(); - return; - } - lValueDecrement = txtValueDecrementAKM1->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressAKM1->Text.ToInt(); - ulFResult = ValueBlockDecrement_AKM1(lValueDecrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockDecrementAKM2Click(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueDecrementAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter VALUE DECREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueDecrementAKM2->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressAKM2->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressAKM2->SetFocus(); - return; - } - - lValueDecrement = txtValueDecrementAKM2->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressAKM2->Text.ToInt(); - ulFResult = ValueBlockDecrement_AKM2(lValueDecrement,ucBlockAddress,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 TfrmValueBlockIncrDecr::btnValueBlockDecrementPKClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - unsigned char ucAuthMode = AuthMode(rbAUTH1A), - ucBlockAddress = 0; - - long lValueDecrement = 0; - - DL_STATUS ulFResult = 0; - try - { - SetFunctionStart(true); - if (AnsiString(Trim(txtValueDecrementPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter VALUE DECREMENT !","Warning !",MB_OK | MB_ICONWARNING); - txtValueDecrementPK->SetFocus(); - return; - } - if (AnsiString(Trim(txtVBDBlockAddressPK->Text)).IsEmpty()) - { - Application->MessageBoxA("You must enter BLOCK ADDRESS !","Warning !",MB_OK | MB_ICONWARNING); - txtVBDBlockAddressPK->SetFocus(); - return; - } - - lValueDecrement = txtValueDecrementPK->Text.ToInt(); - ucBlockAddress = txtVBDBlockAddressPK->Text.ToInt(); - ulFResult = ValueBlockDecrement_PK(lValueDecrement,ucBlockAddress,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/ValueBlockIncrDecr.ddp b/uFCoderAdvanced/ValueBlockIncrDecr.ddp deleted file mode 100644 index cdc0ee8c2b54a98895d906932c4351134611c8d5..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/ValueBlockIncrDecr.ddp and /dev/null differ diff --git a/uFCoderAdvanced/ValueBlockIncrDecr.dfm b/uFCoderAdvanced/ValueBlockIncrDecr.dfm deleted file mode 100644 index fac7cc8fe713fc37566842b075944ed14cdb03d7..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockIncrDecr.dfm +++ /dev/null @@ -1,867 +0,0 @@ -object frmValueBlockIncrDecr: TfrmValueBlockIncrDecr - Left = 359 - Top = 180 - Width = 527 - Height = 402 - Caption = 'ValueBlock Increment/Decrement' - 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 = 'ValueBlock Increment/Decrement(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 pgValueBlockIncrDecr: TPageControl - Left = 0 - Top = 56 - Width = 511 - Height = 283 - ActivePage = tabVBIncrement - Align = alClient - TabIndex = 0 - TabOrder = 2 - object tabVBIncrement: TTabSheet - Caption = 'ValueBlock Increment' - object pnlVBIncrement: TPanel - Left = 3 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblValueBlockIncrement: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBIBlockAddress: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBIncrement: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlock Increment' - 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 txtValueIncrement: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockIncrement: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockIncrementClick - end - object txtVBIBlockAddress: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBIncrementAKM1: TPanel - Left = 263 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 1 - object lblValueBlockIncrementAKM1: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBIBlockAddressAKM1: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBIncrementAKM1: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockIncrement_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 txtValueIncrementAKM1: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockIncrementAKM1: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockIncrementAKM1Click - end - object txtVBIBlockAddressAKM1: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBIncrementAKM2: TPanel - Left = 3 - Top = 126 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblValueBlockIncrementAKM2: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBIBlockAddressAKM2: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBIncrementAKM2: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockIncrement_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 txtValueIncrementAKM2: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockIncrementAKM2: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockIncrementAKM2Click - end - object txtVBIBlockAddressAKM2: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBIncrementPK: TPanel - Left = 264 - Top = 126 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblValueBlockIncrementPK: TLabel - Left = 5 - Top = 28 - Width = 95 - Height = 13 - Caption = 'Value Increment' - end - object lblVBIBlockAddressPK: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBIncrementPK: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockIncrement_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 txtValueIncrementPK: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockIncrementPK: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'INCREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockIncrementPKClick - end - object txtVBIBlockAddressPK: TEdit - Left = 106 - Top = 51 - 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 - end - end - object tabVBDecrement: TTabSheet - Caption = 'ValueBlock Decrement' - ImageIndex = 1 - object pnlVBDecrement: TPanel - Left = 3 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 0 - object lblValueBlockDecrement: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDBlockAddress: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBDecrement: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlock Decrement' - 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 txtValueDecrement: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockDecrement: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockDecrementClick - end - object txtVBDBlockAddress: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBDecrementAKM1: TPanel - Left = 263 - Top = 1 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 1 - object lblValueBlockDecrementAKM1: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDBlockAddressAKM1: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBDecrementAKM1: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockDecrement_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 txtValueDecrementAKM1: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockDecrementAKM1: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockDecrementAKM1Click - end - object txtVBDBlockAddressAKM1: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBDecrementAKM2: TPanel - Left = 3 - Top = 126 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 2 - object lblValueBlockDecrementAKM2: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDBlockAddressAKM2: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBDecrementAKM2: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockDecrement_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 txtValueDecrementAKM2: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockDecrementAKM2: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockDecrementAKM2Click - end - object txtVBDBlockAddressAKM2: TEdit - Left = 106 - Top = 51 - 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 - end - object pnlVBDecrementPK: TPanel - Left = 264 - Top = 126 - Width = 235 - Height = 121 - BorderStyle = bsSingle - TabOrder = 3 - object lblValueBlockDecrementPK: TLabel - Left = 5 - Top = 28 - Width = 99 - Height = 13 - Caption = 'Value Decrement' - end - object lblVBDBlockAddressPK: TLabel - Left = 5 - Top = 55 - Width = 81 - Height = 13 - Caption = 'Block Address' - end - object lblVBDecrementPK: TStaticText - Left = 1 - Top = 1 - Width = 229 - Height = 18 - Align = alTop - Alignment = taCenter - AutoSize = False - BorderStyle = sbsSingle - Caption = 'ValueBlockDecrement_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 txtValueDecrementPK: TEdit - Left = 106 - Top = 24 - Width = 117 - 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 btnValueBlockDecrementPK: TButton - Left = 6 - Top = 77 - Width = 216 - Height = 34 - Cursor = crHandPoint - Caption = 'DECREMENT' - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = btnValueBlockDecrementPKClick - end - object txtVBDBlockAddressPK: TEdit - Left = 106 - Top = 51 - 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 - end - 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 -end diff --git a/uFCoderAdvanced/ValueBlockIncrDecr.h b/uFCoderAdvanced/ValueBlockIncrDecr.h deleted file mode 100644 index e59e433908f03b88aca572c12f72558a20fff5d9..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/ValueBlockIncrDecr.h +++ /dev/null @@ -1,102 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef ValueBlockIncrDecrH -#define ValueBlockIncrDecrH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -//--------------------------------------------------------------------------- -class TfrmValueBlockIncrDecr : public TForm -{ -__published: // IDE-managed Components - TStaticText *pnlHeader; - TPanel *pnlAuth; - TLabel *lblKeyIndex; - TLabel *lblPK; - TRadioButton *rbAUTH1A; - TRadioButton *rbAUTH1B; - TComboBox *cboKeyIndex; - TPageControl *pgValueBlockIncrDecr; - TTabSheet *tabVBIncrement; - TPanel *pnlVBIncrement; - TLabel *lblValueBlockIncrement; - TLabel *lblVBIBlockAddress; - TStaticText *lblVBIncrement; - TEdit *txtValueIncrement; - TButton *btnValueBlockIncrement; - TEdit *txtVBIBlockAddress; - TTabSheet *tabVBDecrement; - TStatusBar *stbFunction; - TPanel *pnlVBIncrementAKM1; - TLabel *lblValueBlockIncrementAKM1; - TLabel *lblVBIBlockAddressAKM1; - TStaticText *lblVBIncrementAKM1; - TEdit *txtValueIncrementAKM1; - TButton *btnValueBlockIncrementAKM1; - TEdit *txtVBIBlockAddressAKM1; - TPanel *pnlVBIncrementAKM2; - TLabel *lblValueBlockIncrementAKM2; - TLabel *lblVBIBlockAddressAKM2; - TStaticText *lblVBIncrementAKM2; - TEdit *txtValueIncrementAKM2; - TButton *btnValueBlockIncrementAKM2; - TEdit *txtVBIBlockAddressAKM2; - TPanel *pnlVBIncrementPK; - TLabel *lblValueBlockIncrementPK; - TLabel *lblVBIBlockAddressPK; - TStaticText *lblVBIncrementPK; - TEdit *txtValueIncrementPK; - TButton *btnValueBlockIncrementPK; - TEdit *txtVBIBlockAddressPK; - TPanel *pnlVBDecrement; - TLabel *lblValueBlockDecrement; - TLabel *lblVBDBlockAddress; - TStaticText *lblVBDecrement; - TEdit *txtValueDecrement; - TButton *btnValueBlockDecrement; - TEdit *txtVBDBlockAddress; - TPanel *pnlVBDecrementAKM1; - TLabel *lblValueBlockDecrementAKM1; - TLabel *lblVBDBlockAddressAKM1; - TStaticText *lblVBDecrementAKM1; - TEdit *txtValueDecrementAKM1; - TButton *btnValueBlockDecrementAKM1; - TEdit *txtVBDBlockAddressAKM1; - TPanel *pnlVBDecrementAKM2; - TLabel *lblValueBlockDecrementAKM2; - TLabel *lblVBDBlockAddressAKM2; - TStaticText *lblVBDecrementAKM2; - TEdit *txtValueDecrementAKM2; - TButton *btnValueBlockDecrementAKM2; - TEdit *txtVBDBlockAddressAKM2; - TPanel *pnlVBDecrementPK; - TLabel *lblValueBlockDecrementPK; - TLabel *lblVBDBlockAddressPK; - TStaticText *lblVBDecrementPK; - TEdit *txtValueDecrementPK; - TButton *btnValueBlockDecrementPK; - TEdit *txtVBDBlockAddressPK; - void __fastcall OnPK_KeyPress(TObject *Sender,char &Key); - void __fastcall OnPK_Exit(TObject *Sender); - void __fastcall FormCreate(TObject *Sender); - void __fastcall btnValueBlockIncrementClick(TObject *Sender); - void __fastcall btnValueBlockIncrementAKM1Click(TObject *Sender); - void __fastcall btnValueBlockIncrementAKM2Click(TObject *Sender); - void __fastcall btnValueBlockIncrementPKClick(TObject *Sender); - void __fastcall btnValueBlockDecrementClick(TObject *Sender); - void __fastcall btnValueBlockDecrementAKM1Click(TObject *Sender); - void __fastcall btnValueBlockDecrementAKM2Click(TObject *Sender); - void __fastcall btnValueBlockDecrementPKClick(TObject *Sender); -private: - unsigned long result; -public: - __fastcall TfrmValueBlockIncrDecr(TComponent* Owner); -}; -//--------------------------------------------------------------------------- -extern PACKAGE TfrmValueBlockIncrDecr *frmValueBlockIncrDecr; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/ValueBlockIncrDecr.obj b/uFCoderAdvanced/ValueBlockIncrDecr.obj deleted file mode 100644 index e053d441c7b5078e48bddb01ae5281927fcfc085..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/ValueBlockIncrDecr.obj and /dev/null differ diff --git a/uFCoderAdvanced/uFAdvance.cpp b/uFCoderAdvanced/uFAdvance.cpp deleted file mode 100644 index 0f148ed0d516d33b93a2ee3c3c0a58e5c0fd07ed..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFAdvance.cpp +++ /dev/null @@ -1,336 +0,0 @@ - - -#include -#pragma hdrstop - -#define WIN32 - -#include "uFCoder1x.h" -#include "uFAdvance.h" -#include "LinearReadWrite.h" -#include "BlockReadWrite.h" -#include "BlockInSectorReadWrite.h" -#include "ValueBlockReadWrite.h" -#include "ValueBlockIncrDecr.h" -#include "ValueBlockInSectorReadWrite.h" -#include "ValueBlockInSectorIncrDecr.h" -#include "SectorTrailerWrite.h" -#include "LinearFormatCard.h" -#include "ViewAll.h" -#include "Globals.h" - - - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmuFrAdvance *frmuFrAdvance; - - -//--------------------------------------------------------------------------- -__fastcall TfrmuFrAdvance::TfrmuFrAdvance(TComponent* Owner): TForm(Owner) -{ - boCONN = false; - ErrorCodes(); - -} -void __fastcall TfrmuFrAdvance::ReadingMifare() -{ - - unsigned long ulReaderType = 0, - ulReaderSerial = 0, - ulCardSerial = 0; - - unsigned char ucCardUIDSize = 0, - ucCardType = 0, - aucCardUID[9]; - - char cUserData[16]; - DL_STATUS ulRResult = 0, - ulCResult = 0, - ulFResult = 0; - String sBuffer = ""; - - SetReaderStart(true); - - if (!boCONN) - { - ulRResult=ReaderOpen(); - if (ulRResult==DL_OK) - { - boCONN=true; - stbReader->Panels->Items[0]->Text="CONNECTED"; - SetStatusBar(stbReader,ulRResult); - } - else - { - stbReader->Panels->Items[0]->Text="NOT CONNECTED"; - txtReaderType ->Clear(); - txtReaderSerial ->Clear(); - txtCardType ->Clear(); - txtUIDSize ->Clear(); - txtCardSerial ->Clear(); - SetStatusBar(stbReader,ulRResult); - } - } - if (boCONN) - { - ulRResult=GetReaderType(&ulReaderType); - if (ulRResult==DL_OK) - { - txtReaderType->Text="0x"+AnsiString().IntToHex(ulReaderType,8); - SetStatusBar(stbReader,ulRResult); - ulRResult=GetReaderSerialNumber(&ulReaderSerial); - if (ulRResult==DL_OK) - { - txtReaderSerial->Text = "0x"+AnsiString().IntToHex(ulReaderSerial,8); - ulCResult = GetDlogicCardType(&ucDLogicCardType); - - if (ulCResult==DL_OK) - { - if (ucDLogicCardType<=DL_NTAG_216) SetMenuValue(false); - else SetMenuValue(true); - SetCardType(ucDLogicCardType); - GetCardIdEx(&ucCardType,&aucCardUID[0],&ucCardUIDSize); - for (unsigned char ucBr=0;ucBrText="0x"+AnsiString().IntToHex(ucDLogicCardType,2); - txtUIDSize ->Text="0x"+AnsiString().IntToHex(ucCardUIDSize,2);; - txtCardSerial ->Text="0x"+sBuffer; - SetStatusBar(stbCardStatus,ulCResult); - } - else - { - txtCardType ->Clear(); - txtCardSerial->Clear(); - txtUIDSize ->Clear(); - SetMenuValue(true); - SetStatusBar(stbCardStatus,ulCResult); - } - if ((ulFResult=ReadUserData(cUserData))==DL_OK) - { - txtReadUserData->Text=AnsiString(cUserData); - } - } - } - else - { - ReaderClose(); - boCONN=false; - } - } - SetReaderStart(false); -} -void TfrmuFrAdvance::SetMenuValue(bool aValue) -{ - mnuValueBlockReadWriteItems ->Enabled = aValue; - mnuValueBlockIncrementDecrementItems ->Enabled = aValue; - mnuValueBlockInSectorReadWriteItems ->Enabled = aValue; - mnuValueBlockInSectorIncrementDecrementItems->Enabled = aValue; - mnuBlockInsectorReadWriteItems ->Enabled = aValue; - mnuLinearFormatCardItem ->Enabled = aValue; - mnuSectorTrailerWriteItems ->Enabled = aValue; -} - -void __fastcall TfrmuFrAdvance::FormShow(TObject *Sender) -{ - - ShowForm(frmLinearReadWrite,pnlContainer); - CreateKey(this,31,27,23,20,"txtReaderKey",pnlReaderKey,OnReaderKeyPress,OnReaderKeyExit); - -} - -void __fastcall TfrmuFrAdvance::OnReaderKeyExit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkReaderHex); -} -void __fastcall TfrmuFrAdvance::btnReaderUISignalClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderUISignal(cboLightMode->ItemIndex,cboSoundMode->ItemIndex); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnReaderResetClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderReset(); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnSoftRestartClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderSoftRestart(); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnWriteUserDataClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - try - { - SetFunctionStart(true); - char acUserData[MAX_USER_DATA]; - DL_STATUS ulFResult = 0; - if (AnsiString(Trim(txtWriteUserData->Text)).IsEmpty()) - { - Application->MessageBox("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtWriteUserData->SetFocus(); - return; - } - - memcpy(acUserData,txtWriteUserData->Text.c_str(),txtWriteUserData->Text.SetLength(MAX_USER_DATA).Length()); - ulFResult=WriteUserData(acUserData); - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmuFrAdvance::chkReaderHexClick(TObject *Sender) -{ - Check_hex(this,chkReaderHex,"txtReaderKey"); -} - -void __fastcall TfrmuFrAdvance::OnReaderKeyPress(TObject *Sender,char &Key) -{ - - Check_key_press(Sender,Key,chkReaderHex); -} - - - -void __fastcall TfrmuFrAdvance::btnWriteReaderKey_KeyIndexClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - try - { - SetFunctionStart(true); - DL_STATUS ulFResult = 0; - unsigned char ReaderKey[6]; - Key_save(this,chkReaderHex,ReaderKey,"txtReaderKey"); - ulFResult=ReaderKeyWrite(ReaderKey,cboKeyIndex->Text.ToInt()); - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmuFrAdvance::mnuBlockReadWriteItemClick(TObject *Sender) -{ - ShowForm(frmBlockReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuLinearReadWriteItemClick(TObject *Sender) -{ - ShowForm(frmLinearReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuBlockInsectorReadWriteItemsClick(TObject *Sender) -{ - ShowForm(frmBlockInSectorReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockReadWriteItemsClick(TObject *Sender) -{ - ShowForm(frmValueBlockReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockInSectorReadWriteItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockInSectorReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockIncrementDecrementItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockIncrDecr,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockInSectorIncrementDecrementItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockInSectorIncrDecr,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuSectorTrailerWriteItemsClick( - TObject *Sender) -{ - ShowForm(frmSectorTrailerWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuLinearFormatCardItemClick( - TObject *Sender) -{ - ShowForm(frmLinearFormatCard,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuExitItemClick(TObject *Sender) -{ - Close(); -} - - -void __fastcall TfrmuFrAdvance::mnuViewAllItemClick(TObject *Sender) -{ - ShowForm(frmViewAll,pnlContainer); -} - - - - -void __fastcall TfrmuFrAdvance::TimerTimer(TObject *Sender) -{ - if (FunctionStart) return; - ReadingMifare(); -} -//--------------------------------------------------------------------------- - - -void __fastcall TfrmuFrAdvance::mnuHardwareFirmwareVersionItemClick( - TObject *Sender) -{ - unsigned char ucRHMajor,ucRHMinor; - unsigned char ucRFMajor,ucRFMinor; - GetReaderHardwareVersion(&ucRHMajor,&ucRHMinor); - GetReaderFirmwareVersion(&ucRFMajor,&ucRFMinor); - - MessageDlg("Hardware version : " + IntToStr(ucRHMajor)+ "." + IntToStr(ucRHMinor) + - "\nFirmware version : " + IntToStr(ucRFMajor) + "." + IntToStr(ucRFMinor), - mtInformation,TMsgDlgButtons()< - SimplePanel = False - UseSystemFont = False - end - object txtReaderType: TEdit - Left = 113 - Top = 15 - Width = 99 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 1 - end - object txtReaderSerial: TEdit - Left = 113 - Top = 39 - Width = 99 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 2 - end - object txtCardType: TEdit - Left = 325 - Top = 15 - Width = 36 - Height = 19 - Ctl3D = False - 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 cboLightMode: TComboBox - Left = 110 - Top = 80 - Width = 121 - Height = 21 - Cursor = crHandPoint - ItemHeight = 13 - ItemIndex = 0 - TabOrder = 4 - Text = 'None' - Items.Strings = ( - 'None' - 'Long Green' - 'LongRed' - 'Alternation' - 'Flash') - end - object cboSoundMode: TComboBox - Left = 110 - Top = 104 - Width = 121 - Height = 21 - Cursor = crHandPoint - ItemHeight = 13 - ItemIndex = 0 - TabOrder = 5 - Text = 'None' - Items.Strings = ( - 'None' - 'Short' - 'Long' - 'Double Short' - 'Tripple Short' - 'Tripplet Melody') - end - object btnReaderUISignal: TButton - Left = 243 - Top = 80 - Width = 118 - Height = 43 - Cursor = crHandPoint - Caption = 'ReaderUI Signal' - TabOrder = 6 - OnClick = btnReaderUISignalClick - end - object btnReaderReset: TButton - Left = 364 - Top = 77 - Width = 121 - Height = 25 - Cursor = crHandPoint - Caption = 'Reader Reset' - TabOrder = 7 - OnClick = btnReaderResetClick - end - object btnSoftRestart: TButton - Left = 364 - Top = 101 - Width = 121 - Height = 25 - Cursor = crHandPoint - Caption = 'Soft Restart' - TabOrder = 8 - OnClick = btnSoftRestartClick - end - object pgReaderKeyUserData: TPageControl - Left = 24 - Top = 129 - Width = 461 - Height = 97 - ActivePage = tabReaderKey - TabIndex = 0 - TabOrder = 9 - object tabReaderKey: TTabSheet - Caption = 'Reader Key' - object pnlReaderKey: TPanel - Left = 3 - Top = 0 - Width = 445 - Height = 69 - TabOrder = 0 - object Label3: TLabel - Left = 229 - Top = 14 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object chkReaderHex: TCheckBox - Left = 26 - Top = 43 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - Ctl3D = True - ParentCtl3D = False - TabOrder = 0 - OnClick = chkReaderHexClick - end - object cboKeyIndex: TComboBox - Left = 240 - Top = 31 - Width = 41 - Height = 24 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 1 - 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 - object btnWriteReaderKey_KeyIndex: TButton - Left = 295 - Top = 11 - Width = 141 - Height = 46 - Cursor = crHandPoint - Caption = 'Reader Key Write' - TabOrder = 2 - OnClick = btnWriteReaderKey_KeyIndexClick - end - end - end - object tabUserData: TTabSheet - Caption = 'User Data' - ImageIndex = 1 - object lblReadUserData: TLabel - Left = 16 - Top = 9 - Width = 90 - Height = 13 - Caption = 'Read User Data' - end - object Label2: TLabel - Left = 176 - Top = 9 - Width = 91 - Height = 13 - Caption = 'Write User Data' - end - object txtReadUserData: TEdit - Left = 16 - Top = 24 - Width = 153 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object txtWriteUserData: TEdit - Left = 176 - Top = 23 - Width = 153 - 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 = 1 - end - object btnWriteUserData: TButton - Left = 333 - Top = 13 - Width = 108 - Height = 41 - Cursor = crHandPoint - Caption = 'Write User Data' - TabOrder = 2 - OnClick = btnWriteUserDataClick - end - end - end - object txtUIDSize: TEdit - Left = 446 - Top = 15 - Width = 36 - Height = 19 - Hint = 'Card UID Size' - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ParentShowHint = False - ReadOnly = True - ShowHint = False - TabOrder = 10 - end - object txtCardSerial: TEdit - Left = 326 - Top = 39 - Width = 156 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 11 - end - end - object stbCardStatus: TStatusBar - Left = 0 - Top = 636 - Width = 510 - Height = 22 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'CARD STATUS' - Width = 120 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pnlContainer: TPanel - Left = 0 - Top = 257 - Width = 510 - Height = 379 - Align = alClient - TabOrder = 2 - end - object mnuMeni: TMainMenu - Left = 464 - Top = 464 - object mnuFunctionsItem: TMenuItem - Caption = 'Functions' - object mnuLinearReadWriteItem: TMenuItem - Caption = 'Linear Read/Write' - OnClick = mnuLinearReadWriteItemClick - end - object SEP0: TMenuItem - Caption = '-' - end - object mnuBlockReadWriteItem: TMenuItem - Caption = 'Block Read/Write' - OnClick = mnuBlockReadWriteItemClick - end - object mnuBlockInsectorReadWriteItems: TMenuItem - Caption = 'BlockInSector Read/Write' - OnClick = mnuBlockInsectorReadWriteItemsClick - end - object SEP1: TMenuItem - Caption = '-' - end - object mnuValueBlockReadWriteItems: TMenuItem - Caption = 'ValueBlock Read/Write' - OnClick = mnuValueBlockReadWriteItemsClick - end - object mnuValueBlockIncrementDecrementItems: TMenuItem - Caption = 'ValueBlock Increment/Decrement' - OnClick = mnuValueBlockIncrementDecrementItemsClick - end - object SEP3: TMenuItem - Caption = '-' - end - object mnuValueBlockInSectorReadWriteItems: TMenuItem - Caption = 'ValueBlockInSector Read/Write' - OnClick = mnuValueBlockInSectorReadWriteItemsClick - end - object mnuValueBlockInSectorIncrementDecrementItems: TMenuItem - Caption = 'ValueBlockInSector Increment/Decrement' - OnClick = mnuValueBlockInSectorIncrementDecrementItemsClick - end - object N1: TMenuItem - Caption = '-' - end - object mnuSectorTrailerWriteItems: TMenuItem - Caption = 'SectorTrailer Write' - OnClick = mnuSectorTrailerWriteItemsClick - end - object mnuLinearFormatCardItem: TMenuItem - Caption = 'LinearFormat Card' - OnClick = mnuLinearFormatCardItemClick - end - object SEP4: TMenuItem - Caption = '-' - end - object mnuHardwareFirmwareVersionItem: TMenuItem - Caption = 'Reader Hardware/Firmware version' - OnClick = mnuHardwareFirmwareVersionItemClick - end - object SEP6: TMenuItem - Caption = '-' - end - object mnuExitItem: TMenuItem - Caption = 'Exit' - ShortCut = 16465 - OnClick = mnuExitItemClick - end - end - object mnuViewAllItem: TMenuItem - Caption = 'View All' - OnClick = mnuViewAllItemClick - end - end - object Timer: TTimer - Interval = 500 - OnTimer = TimerTimer - Left = 456 - Top = 416 - end -end diff --git a/uFCoderAdvanced/uFAdvance.h b/uFCoderAdvanced/uFAdvance.h deleted file mode 100644 index 001a491d220947048e6dd8b00c174ad962c16f42..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFAdvance.h +++ /dev/null @@ -1,149 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef uFAdvanceH -#define uFAdvanceH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -#include - -//--------------------------------------------------------------------------- - -class TfrmuFrAdvance : public TForm -{ -__published: // IDE-managed Components - TMainMenu *mnuMeni; - TMenuItem *mnuFunctionsItem; - TMenuItem *mnuLinearReadWriteItem; - TPanel *pnlReader; - TStatusBar *stbReader; - TLabel *lblReaderType; - TEdit *txtReaderType; - TLabel *lblReaderSerial; - TEdit *txtReaderSerial; - TLabel *lblCardType; - TEdit *txtCardType; - TBevel *Bevel1; - TLabel *lblLightMode; - TComboBox *cboLightMode; - TLabel *Label1; - TComboBox *cboSoundMode; - TButton *btnReaderUISignal; - TButton *btnReaderReset; - TButton *btnSoftRestart; - TStatusBar *stbCardStatus; - TPanel *pnlContainer; - TMenuItem *SEP0; - TMenuItem *mnuBlockReadWriteItem; - TMenuItem *mnuBlockInsectorReadWriteItems; - TMenuItem *SEP1; - TMenuItem *mnuValueBlockReadWriteItems; - TMenuItem *mnuValueBlockInSectorReadWriteItems; - TMenuItem *N1; - TMenuItem *mnuValueBlockIncrementDecrementItems; - TMenuItem *SEP3; - TMenuItem *mnuValueBlockInSectorIncrementDecrementItems; - TMenuItem *mnuSectorTrailerWriteItems; - TMenuItem *mnuLinearFormatCardItem; - TMenuItem *SEP4; - TMenuItem *mnuExitItem; - TMenuItem *mnuViewAllItem; - TPageControl *pgReaderKeyUserData; - TTabSheet *tabReaderKey; - TPanel *pnlReaderKey; - TLabel *Label3; - TCheckBox *chkReaderHex; - TComboBox *cboKeyIndex; - TButton *btnWriteReaderKey_KeyIndex; - TTabSheet *tabUserData; - TLabel *lblReadUserData; - TLabel *Label2; - TEdit *txtReadUserData; - TEdit *txtWriteUserData; - TButton *btnWriteUserData; - TTimer *Timer; - TLabel *lblUIDSize; - TEdit *txtUIDSize; - TLabel *lblCardSerial; - TEdit *txtCardSerial; - TMenuItem *mnuHardwareFirmwareVersionItem; - TMenuItem *SEP6; - - void __fastcall FormShow(TObject *Sender); - void __fastcall btnReaderUISignalClick(TObject *Sender); - void __fastcall btnReaderResetClick(TObject *Sender); - void __fastcall btnSoftRestartClick(TObject *Sender); - void __fastcall btnWriteUserDataClick(TObject *Sender); - void __fastcall chkReaderHexClick(TObject *Sender); - void __fastcall OnReaderKeyPress(TObject *Sender,char &Key); - void __fastcall btnWriteReaderKey_KeyIndexClick(TObject *Sender); - void __fastcall OnReaderKeyExit(TObject *Sender); - void __fastcall mnuBlockReadWriteItemClick(TObject *Sender); - void __fastcall mnuLinearReadWriteItemClick(TObject *Sender); - void __fastcall mnuBlockInsectorReadWriteItemsClick(TObject *Sender); - void __fastcall mnuValueBlockReadWriteItemsClick(TObject *Sender); - void __fastcall mnuValueBlockInSectorReadWriteItemsClick( - TObject *Sender); - void __fastcall mnuValueBlockIncrementDecrementItemsClick( - TObject *Sender); - void __fastcall mnuValueBlockInSectorIncrementDecrementItemsClick( - TObject *Sender); - void __fastcall mnuSectorTrailerWriteItemsClick(TObject *Sender); - void __fastcall mnuLinearFormatCardItemClick(TObject *Sender); - void __fastcall mnuExitItemClick(TObject *Sender); - void __fastcall mnuViewAllItemClick(TObject *Sender); - void __fastcall TimerTimer(TObject *Sender); - void __fastcall mnuHardwareFirmwareVersionItemClick( - TObject *Sender); - -private: - bool boCONN, - boReaderStart, - boFunctionStart; - unsigned char ucDLogicCardType; - void __fastcall ReadingMifare(); -public: - //unsigned char ucCardType; - __fastcall TfrmuFrAdvance(TComponent* Owner); - void SetMenuValue(bool AValue); -protected: - bool __fastcall GetReaderStart(void) - { - return boReaderStart; - } - void __fastcall SetReaderStart(bool boValue) - { - boReaderStart=boValue; - } - - bool __fastcall GetFunctionStart(void) - { - return boFunctionStart; - } - void __fastcall SetFunctionStart(bool boValue) - { - boFunctionStart=boValue; - } - -__published: - __property bool ReaderStart= - { - read=GetReaderStart, - write=SetReaderStart - }; - __property bool FunctionStart= - { - read=GetFunctionStart, - write=SetFunctionStart - }; - -}; - -//--------------------------------------------------------------------------- -extern PACKAGE TfrmuFrAdvance *frmuFrAdvance; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/uFAdvance.obj b/uFCoderAdvanced/uFAdvance.obj deleted file mode 100644 index 940d35d04bfd700e2f0105690befd92e0f7409b4..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFAdvance.obj and /dev/null differ diff --git a/uFCoderAdvanced/uFAdvance.~cpp b/uFCoderAdvanced/uFAdvance.~cpp deleted file mode 100644 index 7f97be444639ba6ff446bb82b66f27cc73d9da21..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFAdvance.~cpp +++ /dev/null @@ -1,337 +0,0 @@ - - -#include -#pragma hdrstop - -#define WIN32 - -#include "uFCoder1x.h" -#include "uFAdvance.h" -#include "LinearReadWrite.h" -#include "BlockReadWrite.h" -#include "BlockInSectorReadWrite.h" -#include "ValueBlockReadWrite.h" -#include "ValueBlockIncrDecr.h" -#include "ValueBlockInSectorReadWrite.h" -#include "ValueBlockInSectorIncrDecr.h" -#include "SectorTrailerWrite.h" -#include "LinearFormatCard.h" -#include "ViewAll.h" -#include "Globals.h" - - - -#pragma package(smart_init) -#pragma resource "*.dfm" -TfrmuFrAdvance *frmuFrAdvance; - - -//--------------------------------------------------------------------------- -__fastcall TfrmuFrAdvance::TfrmuFrAdvance(TComponent* Owner): TForm(Owner) -{ - boCONN = false; - ErrorCodes(); - -} -void __fastcall TfrmuFrAdvance::ReadingMifare() -{ - - unsigned long ulReaderType = 0, - ulReaderSerial = 0, - ulCardSerial = 0; - - unsigned char ucCardUIDSize = 0, - ucCardType = 0, - ucDLogicCardType =0, - aucCardUID[9]; - - char cUserData[16]; - DL_STATUS ulRResult = 0, - ulCResult = 0, - ulFResult = 0; - String sBuffer = ""; - - SetReaderStart(true); - - if (!boCONN) - { - ulRResult=ReaderOpen(); - if (ulRResult==DL_OK) - { - boCONN=true; - stbReader->Panels->Items[0]->Text="CONNECTED"; - SetStatusBar(stbReader,ulRResult); - } - else - { - stbReader->Panels->Items[0]->Text="NOT CONNECTED"; - txtReaderType ->Clear(); - txtReaderSerial ->Clear(); - txtCardType ->Clear(); - txtUIDSize ->Clear(); - txtCardSerial ->Clear(); - SetStatusBar(stbReader,ulRResult); - } - } - if (boCONN) - { - ulRResult=GetReaderType(&ulReaderType); - if (ulRResult==DL_OK) - { - txtReaderType->Text="0x"+AnsiString().IntToHex(ulReaderType,8); - SetStatusBar(stbReader,ulRResult); - ulRResult=GetReaderSerialNumber(&ulReaderSerial); - if (ulRResult==DL_OK) - { - txtReaderSerial->Text="0x"+AnsiString().IntToHex(ulReaderSerial,8); - ulCResult=GetDlogicCardType(&ucDLogicCardType); - - if (ulCResult==DL_OK) - { - if (ucDLogicCardType<=DL_NTAG_216) SetMenuValue(false); - else SetMenuValue(true); - SetCardType(ucDLogicCardType); - GetCardIdEx(&ucCardType,&aucCardUID[0],&ucCardUIDSize); - for (unsigned char ucBr=0;ucBrText="0x"+AnsiString().IntToHex(ucDLogicCardType,2); - txtUIDSize ->Text="0x"+AnsiString().IntToHex(ucCardUIDSize,2);; - txtCardSerial ->Text="0x"+sBuffer; - SetStatusBar(stbCardStatus,ulCResult); - } - else - { - txtCardType ->Clear(); - txtCardSerial->Clear(); - txtUIDSize ->Clear(); - SetMenuValue(true); - SetStatusBar(stbCardStatus,ulCResult); - } - if ((ulFResult=ReadUserData(cUserData))==DL_OK) - { - txtReadUserData->Text=AnsiString(cUserData); - } - } - } - else - { - ReaderClose(); - boCONN=false; - } - } - SetReaderStart(false); -} -void TfrmuFrAdvance::SetMenuValue(bool aValue) -{ - mnuValueBlockReadWriteItems ->Enabled = aValue; - mnuValueBlockIncrementDecrementItems ->Enabled = aValue; - mnuValueBlockInSectorReadWriteItems ->Enabled = aValue; - mnuValueBlockInSectorIncrementDecrementItems->Enabled = aValue; - mnuBlockInsectorReadWriteItems ->Enabled = aValue; - mnuLinearFormatCardItem ->Enabled = aValue; - mnuSectorTrailerWriteItems ->Enabled = aValue; -} - -void __fastcall TfrmuFrAdvance::FormShow(TObject *Sender) -{ - - ShowForm(frmLinearReadWrite,pnlContainer); - CreateKey(this,31,27,23,20,"txtReaderKey",pnlReaderKey,OnReaderKeyPress,OnReaderKeyExit); - -} - -void __fastcall TfrmuFrAdvance::OnReaderKeyExit(TObject *Sender) -{ - Check_On_ExitPK(Sender,chkReaderHex); -} -void __fastcall TfrmuFrAdvance::btnReaderUISignalClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderUISignal(cboLightMode->ItemIndex,cboSoundMode->ItemIndex); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnReaderResetClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderReset(); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnSoftRestartClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - SetFunctionStart(true); - ReaderSoftRestart(); - SetFunctionStart(false); -} - - -void __fastcall TfrmuFrAdvance::btnWriteUserDataClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - - try - { - SetFunctionStart(true); - char acUserData[MAX_USER_DATA]; - DL_STATUS ulFResult = 0; - if (AnsiString(Trim(txtWriteUserData->Text)).IsEmpty()) - { - Application->MessageBox("You must enter any data !","Warning !",MB_OK | MB_ICONWARNING); - txtWriteUserData->SetFocus(); - return; - } - - memcpy(acUserData,txtWriteUserData->Text.c_str(),txtWriteUserData->Text.SetLength(MAX_USER_DATA).Length()); - ulFResult=WriteUserData(acUserData); - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmuFrAdvance::chkReaderHexClick(TObject *Sender) -{ - Check_hex(this,chkReaderHex,"txtReaderKey"); -} - -void __fastcall TfrmuFrAdvance::OnReaderKeyPress(TObject *Sender,char &Key) -{ - - Check_key_press(Sender,Key,chkReaderHex); -} - - - -void __fastcall TfrmuFrAdvance::btnWriteReaderKey_KeyIndexClick(TObject *Sender) -{ - if (GetFunctionStart() || GetReaderStart()) return; - try - { - SetFunctionStart(true); - DL_STATUS ulFResult = 0; - unsigned char ReaderKey[6]; - Key_save(this,chkReaderHex,ReaderKey,"txtReaderKey"); - ulFResult=ReaderKeyWrite(ReaderKey,cboKeyIndex->Text.ToInt()); - if (ulFResult==DL_OK) - ReaderUISignal(FRES_OK_LIGHT,FRES_OK_SOUND); - else - ReaderUISignal(FERR_LIGHT,FERR_SOUND); - } - __finally - { - SetFunctionStart(false); - } -} - - -void __fastcall TfrmuFrAdvance::mnuBlockReadWriteItemClick(TObject *Sender) -{ - ShowForm(frmBlockReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuLinearReadWriteItemClick(TObject *Sender) -{ - ShowForm(frmLinearReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuBlockInsectorReadWriteItemsClick(TObject *Sender) -{ - ShowForm(frmBlockInSectorReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockReadWriteItemsClick(TObject *Sender) -{ - ShowForm(frmValueBlockReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockInSectorReadWriteItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockInSectorReadWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockIncrementDecrementItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockIncrDecr,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuValueBlockInSectorIncrementDecrementItemsClick( - TObject *Sender) -{ - ShowForm(frmValueBlockInSectorIncrDecr,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuSectorTrailerWriteItemsClick( - TObject *Sender) -{ - ShowForm(frmSectorTrailerWrite,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuLinearFormatCardItemClick( - TObject *Sender) -{ - ShowForm(frmLinearFormatCard,pnlContainer); -} - - -void __fastcall TfrmuFrAdvance::mnuExitItemClick(TObject *Sender) -{ - Close(); -} - - -void __fastcall TfrmuFrAdvance::mnuViewAllItemClick(TObject *Sender) -{ - ShowForm(frmViewAll,pnlContainer); -} - - - - -void __fastcall TfrmuFrAdvance::TimerTimer(TObject *Sender) -{ - if (FunctionStart) return; - ReadingMifare(); -} -//--------------------------------------------------------------------------- - - -void __fastcall TfrmuFrAdvance::mnuHardwareFirmwareVersionItemClick( - TObject *Sender) -{ - unsigned char ucRHMajor,ucRHMinor; - unsigned char ucRFMajor,ucRFMinor; - GetReaderHardwareVersion(&ucRHMajor,&ucRHMinor); - GetReaderFirmwareVersion(&ucRFMajor,&ucRFMinor); - - MessageDlg("Hardware version : " + IntToStr(ucRHMajor)+ "." + IntToStr(ucRHMinor) + - "\nFirmware version : " + IntToStr(ucRFMajor) + "." + IntToStr(ucRFMinor), - mtInformation,TMsgDlgButtons()< - SimplePanel = False - UseSystemFont = False - end - object txtReaderType: TEdit - Left = 113 - Top = 15 - Width = 99 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 1 - end - object txtReaderSerial: TEdit - Left = 113 - Top = 39 - Width = 99 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 2 - end - object txtCardType: TEdit - Left = 325 - Top = 15 - Width = 36 - Height = 19 - Ctl3D = False - 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 cboLightMode: TComboBox - Left = 110 - Top = 80 - Width = 121 - Height = 21 - Cursor = crHandPoint - ItemHeight = 13 - ItemIndex = 0 - TabOrder = 4 - Text = 'None' - Items.Strings = ( - 'None' - 'Long Green' - 'LongRed' - 'Alternation' - 'Flash') - end - object cboSoundMode: TComboBox - Left = 110 - Top = 104 - Width = 121 - Height = 21 - Cursor = crHandPoint - ItemHeight = 13 - ItemIndex = 0 - TabOrder = 5 - Text = 'None' - Items.Strings = ( - 'None' - 'Short' - 'Long' - 'Double Short' - 'Tripple Short' - 'Tripplet Melody') - end - object btnReaderUISignal: TButton - Left = 243 - Top = 80 - Width = 118 - Height = 43 - Cursor = crHandPoint - Caption = 'ReaderUI Signal' - TabOrder = 6 - OnClick = btnReaderUISignalClick - end - object btnReaderReset: TButton - Left = 364 - Top = 77 - Width = 121 - Height = 25 - Cursor = crHandPoint - Caption = 'Reader Reset' - TabOrder = 7 - OnClick = btnReaderResetClick - end - object btnSoftRestart: TButton - Left = 364 - Top = 101 - Width = 121 - Height = 25 - Cursor = crHandPoint - Caption = 'Soft Restart' - TabOrder = 8 - OnClick = btnSoftRestartClick - end - object pgReaderKeyUserData: TPageControl - Left = 24 - Top = 129 - Width = 461 - Height = 97 - ActivePage = tabReaderKey - TabIndex = 0 - TabOrder = 9 - object tabReaderKey: TTabSheet - Caption = 'Reader Key' - object pnlReaderKey: TPanel - Left = 3 - Top = 0 - Width = 445 - Height = 69 - TabOrder = 0 - object Label3: TLabel - Left = 229 - Top = 14 - Width = 59 - Height = 13 - Caption = 'Key Index' - end - object chkReaderHex: TCheckBox - Left = 26 - Top = 43 - Width = 73 - Height = 17 - Cursor = crHandPoint - Caption = 'Hex' - Ctl3D = True - ParentCtl3D = False - TabOrder = 0 - OnClick = chkReaderHexClick - end - object cboKeyIndex: TComboBox - Left = 240 - Top = 31 - Width = 41 - Height = 24 - Cursor = crHandPoint - Ctl3D = True - DropDownCount = 10 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ItemHeight = 16 - ItemIndex = 0 - ParentCtl3D = False - ParentFont = False - TabOrder = 1 - 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 - object btnWriteReaderKey_KeyIndex: TButton - Left = 295 - Top = 11 - Width = 141 - Height = 46 - Cursor = crHandPoint - Caption = 'Reader Key Write' - TabOrder = 2 - OnClick = btnWriteReaderKey_KeyIndexClick - end - end - end - object tabUserData: TTabSheet - Caption = 'User Data' - ImageIndex = 1 - object lblReadUserData: TLabel - Left = 16 - Top = 9 - Width = 90 - Height = 13 - Caption = 'Read User Data' - end - object Label2: TLabel - Left = 176 - Top = 9 - Width = 91 - Height = 13 - Caption = 'Write User Data' - end - object txtReadUserData: TEdit - Left = 16 - Top = 24 - Width = 153 - Height = 19 - Color = clSilver - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - TabOrder = 0 - end - object txtWriteUserData: TEdit - Left = 176 - Top = 23 - Width = 153 - 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 = 1 - end - object btnWriteUserData: TButton - Left = 333 - Top = 13 - Width = 108 - Height = 41 - Cursor = crHandPoint - Caption = 'Write User Data' - TabOrder = 2 - OnClick = btnWriteUserDataClick - end - end - end - object txtUIDSize: TEdit - Left = 446 - Top = 15 - Width = 36 - Height = 19 - Hint = 'Card UID Size' - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ParentShowHint = False - ReadOnly = True - ShowHint = False - TabOrder = 10 - end - object txtCardSerial: TEdit - Left = 326 - Top = 39 - Width = 156 - Height = 19 - Ctl3D = False - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [fsBold] - ParentCtl3D = False - ParentFont = False - ReadOnly = True - TabOrder = 11 - end - end - object stbCardStatus: TStatusBar - Left = 0 - Top = 636 - Width = 510 - Height = 22 - Font.Charset = ANSI_CHARSET - Font.Color = clBtnText - Font.Height = -11 - Font.Name = 'Verdana' - Font.Style = [] - Panels = < - item - Alignment = taCenter - Text = 'CARD STATUS' - Width = 120 - end - item - Alignment = taCenter - Width = 50 - end - item - Alignment = taCenter - Width = 50 - end> - SimplePanel = False - UseSystemFont = False - end - object pnlContainer: TPanel - Left = 0 - Top = 257 - Width = 510 - Height = 379 - Align = alClient - TabOrder = 2 - end - object mnuMeni: TMainMenu - Left = 464 - Top = 464 - object mnuFunctionsItem: TMenuItem - Caption = 'Functions' - object mnuLinearReadWriteItem: TMenuItem - Caption = 'Linear Read/Write' - OnClick = mnuLinearReadWriteItemClick - end - object SEP0: TMenuItem - Caption = '-' - end - object mnuBlockReadWriteItem: TMenuItem - Caption = 'Block Read/Write' - OnClick = mnuBlockReadWriteItemClick - end - object mnuBlockInsectorReadWriteItems: TMenuItem - Caption = 'BlockInSector Read/Write' - OnClick = mnuBlockInsectorReadWriteItemsClick - end - object SEP1: TMenuItem - Caption = '-' - end - object mnuValueBlockReadWriteItems: TMenuItem - Caption = 'ValueBlock Read/Write' - OnClick = mnuValueBlockReadWriteItemsClick - end - object mnuValueBlockIncrementDecrementItems: TMenuItem - Caption = 'ValueBlock Increment/Decrement' - OnClick = mnuValueBlockIncrementDecrementItemsClick - end - object SEP3: TMenuItem - Caption = '-' - end - object mnuValueBlockInSectorReadWriteItems: TMenuItem - Caption = 'ValueBlockInSector Read/Write' - OnClick = mnuValueBlockInSectorReadWriteItemsClick - end - object mnuValueBlockInSectorIncrementDecrementItems: TMenuItem - Caption = 'ValueBlockInSector Increment/Decrement' - OnClick = mnuValueBlockInSectorIncrementDecrementItemsClick - end - object N1: TMenuItem - Caption = '-' - end - object mnuSectorTrailerWriteItems: TMenuItem - Caption = 'SectorTrailer Write' - OnClick = mnuSectorTrailerWriteItemsClick - end - object mnuLinearFormatCardItem: TMenuItem - Caption = 'LinearFormat Card' - OnClick = mnuLinearFormatCardItemClick - end - object SEP4: TMenuItem - Caption = '-' - end - object mnuHardwareFirmwareVersionItem: TMenuItem - Caption = 'Reader Hardware/Firmware version' - OnClick = mnuHardwareFirmwareVersionItemClick - end - object SEP6: TMenuItem - Caption = '-' - end - object mnuExitItem: TMenuItem - Caption = 'Exit' - ShortCut = 16465 - OnClick = mnuExitItemClick - end - end - object mnuViewAllItem: TMenuItem - Caption = 'View All' - OnClick = mnuViewAllItemClick - end - end - object Timer: TTimer - Interval = 500 - OnTimer = TimerTimer - Left = 456 - Top = 416 - end -end diff --git a/uFCoderAdvanced/uFAdvance.~h b/uFCoderAdvanced/uFAdvance.~h deleted file mode 100644 index 5b24570b6faffdc196ae1cc1c904bc8fd16b115a..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFAdvance.~h +++ /dev/null @@ -1,148 +0,0 @@ -//--------------------------------------------------------------------------- - -#ifndef uFAdvanceH -#define uFAdvanceH -//--------------------------------------------------------------------------- -#include -#include -#include -#include -#include -#include -#include - -//--------------------------------------------------------------------------- - -class TfrmuFrAdvance : public TForm -{ -__published: // IDE-managed Components - TMainMenu *mnuMeni; - TMenuItem *mnuFunctionsItem; - TMenuItem *mnuLinearReadWriteItem; - TPanel *pnlReader; - TStatusBar *stbReader; - TLabel *lblReaderType; - TEdit *txtReaderType; - TLabel *lblReaderSerial; - TEdit *txtReaderSerial; - TLabel *lblCardType; - TEdit *txtCardType; - TBevel *Bevel1; - TLabel *lblLightMode; - TComboBox *cboLightMode; - TLabel *Label1; - TComboBox *cboSoundMode; - TButton *btnReaderUISignal; - TButton *btnReaderReset; - TButton *btnSoftRestart; - TStatusBar *stbCardStatus; - TPanel *pnlContainer; - TMenuItem *SEP0; - TMenuItem *mnuBlockReadWriteItem; - TMenuItem *mnuBlockInsectorReadWriteItems; - TMenuItem *SEP1; - TMenuItem *mnuValueBlockReadWriteItems; - TMenuItem *mnuValueBlockInSectorReadWriteItems; - TMenuItem *N1; - TMenuItem *mnuValueBlockIncrementDecrementItems; - TMenuItem *SEP3; - TMenuItem *mnuValueBlockInSectorIncrementDecrementItems; - TMenuItem *mnuSectorTrailerWriteItems; - TMenuItem *mnuLinearFormatCardItem; - TMenuItem *SEP4; - TMenuItem *mnuExitItem; - TMenuItem *mnuViewAllItem; - TPageControl *pgReaderKeyUserData; - TTabSheet *tabReaderKey; - TPanel *pnlReaderKey; - TLabel *Label3; - TCheckBox *chkReaderHex; - TComboBox *cboKeyIndex; - TButton *btnWriteReaderKey_KeyIndex; - TTabSheet *tabUserData; - TLabel *lblReadUserData; - TLabel *Label2; - TEdit *txtReadUserData; - TEdit *txtWriteUserData; - TButton *btnWriteUserData; - TTimer *Timer; - TLabel *lblUIDSize; - TEdit *txtUIDSize; - TLabel *lblCardSerial; - TEdit *txtCardSerial; - TMenuItem *mnuHardwareFirmwareVersionItem; - TMenuItem *SEP6; - - void __fastcall FormShow(TObject *Sender); - void __fastcall btnReaderUISignalClick(TObject *Sender); - void __fastcall btnReaderResetClick(TObject *Sender); - void __fastcall btnSoftRestartClick(TObject *Sender); - void __fastcall btnWriteUserDataClick(TObject *Sender); - void __fastcall chkReaderHexClick(TObject *Sender); - void __fastcall OnReaderKeyPress(TObject *Sender,char &Key); - void __fastcall btnWriteReaderKey_KeyIndexClick(TObject *Sender); - void __fastcall OnReaderKeyExit(TObject *Sender); - void __fastcall mnuBlockReadWriteItemClick(TObject *Sender); - void __fastcall mnuLinearReadWriteItemClick(TObject *Sender); - void __fastcall mnuBlockInsectorReadWriteItemsClick(TObject *Sender); - void __fastcall mnuValueBlockReadWriteItemsClick(TObject *Sender); - void __fastcall mnuValueBlockInSectorReadWriteItemsClick( - TObject *Sender); - void __fastcall mnuValueBlockIncrementDecrementItemsClick( - TObject *Sender); - void __fastcall mnuValueBlockInSectorIncrementDecrementItemsClick( - TObject *Sender); - void __fastcall mnuSectorTrailerWriteItemsClick(TObject *Sender); - void __fastcall mnuLinearFormatCardItemClick(TObject *Sender); - void __fastcall mnuExitItemClick(TObject *Sender); - void __fastcall mnuViewAllItemClick(TObject *Sender); - void __fastcall TimerTimer(TObject *Sender); - void __fastcall mnuHardwareFirmwareVersionItemClick( - TObject *Sender); - -private: - bool boCONN, - boReaderStart, - boFunctionStart; - void __fastcall ReadingMifare(); -public: - //unsigned char ucCardType; - __fastcall TfrmuFrAdvance(TComponent* Owner); - void SetMenuValue(bool AValue); -protected: - bool __fastcall GetReaderStart(void) - { - return boReaderStart; - } - void __fastcall SetReaderStart(bool boValue) - { - boReaderStart=boValue; - } - - bool __fastcall GetFunctionStart(void) - { - return boFunctionStart; - } - void __fastcall SetFunctionStart(bool boValue) - { - boFunctionStart=boValue; - } - -__published: - __property bool ReaderStart= - { - read=GetReaderStart, - write=SetReaderStart - }; - __property bool FunctionStart= - { - read=GetFunctionStart, - write=SetFunctionStart - }; - -}; - -//--------------------------------------------------------------------------- -extern PACKAGE TfrmuFrAdvance *frmuFrAdvance; -//--------------------------------------------------------------------------- -#endif diff --git a/uFCoderAdvanced/uFCoder1x.dll b/uFCoderAdvanced/uFCoder1x.dll deleted file mode 100644 index cf96a3aa7fc3d5a760786d7cbfbacd1c2523b7e9..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFCoder1x.dll and /dev/null differ diff --git a/uFCoderAdvanced/uFCoder1x.h b/uFCoderAdvanced/uFCoder1x.h deleted file mode 100644 index 7d96c868f265136c86906b042046b210985d1d1d..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFCoder1x.h +++ /dev/null @@ -1,587 +0,0 @@ -/* - * uFCoder1x.h - * - * Created on: 14.01.2009. - * Author: Zborac - */ - -#ifndef uFCoder_H_ -#define uFCoder_H_ -#define WIN32 - -#ifdef WIN32 - -#ifdef DL_uFC_STATIC_LIB - -# define DL_uFC_API -//# define DL_uFC_API __stdcall -//# define DL_uFC_API _cdecl - -#else -# ifndef DL_uFC_EXPORTS -# define DL_uFC_API __declspec(dllimport) __stdcall -# else -# define DL_uFC_API __declspec(dllexport) __stdcall -# endif -#endif - -#elif __linux__ - -# define DL_uFC_API - -#endif - -// MIFARE CLASSIC type id's: -#define MIFARE_CLASSIC_1k 0x08 -#define MF1ICS50 0x08 -#define SLE66R35 0x88 // Infineon = Mifare Classic 1k -#define MIFARE_CLASSIC_4k 0x18 -#define MF1ICS70 0x18 -#define MIFARE_CLASSIC_MINI 0x09 -#define MF1ICS20 0x09 - -//DLOGIC CARD TYPE -#define DL_MIFARE_ULTRALIGHT 0x01 -#define DL_MIFARE_ULTRALIGHT_EV1_11 0x02 -#define DL_MIFARE_ULTRALIGHT_EV1_21 0x03 -#define DL_MIFARE_ULTRALIGHT_C 0x04 -#define DL_NTAG_203 0x05 -#define DL_NTAG_210 0x06 -#define DL_NTAG_212 0x07 -#define DL_NTAG_213 0x08 -#define DL_NTAG_215 0x09 -#define DL_NTAG_216 0x0A - -#define DL_MIFARE_MINI 0x20 -#define DL_MIFARE_CLASSIC_1K 0x21 -#define DL_MIFARE_CLASSIC_4K 0x22 -#define DL_MIFARE_PLUS_S_2K 0x23 -#define DL_MIFARE_PLUS_S_4K 0x24 -#define DL_MIFARE_PLUS_X_2K 0x25 -#define DL_MIFARE_PLUS_X_4K 0x26 -#define DL_MIFARE_DESFIRE 0x27 -#define DL_MIFARE_DESFIRE_EV1_2K 0x28 -#define DL_MIFARE_DESFIRE_EV1_4K 0x29 -#define DL_MIFARE_DESFIRE_EV1_8K 0x2A - -// MIFARE CLASSIC Authentication Modes: -enum MIFARE_AUTHENTICATION -{ - MIFARE_AUTHENT1A = 0x60, - MIFARE_AUTHENT1B = 0x61, -}; - - -// API Status Codes Type: -typedef enum UFCODER_ERROR_CODES -{ - UFR_OK = 0x00, - UFR_COMMUNICATION_ERROR = 0x01, - UFR_CHKSUM_ERROR = 0x02, - UFR_READING_ERROR = 0x03, - UFR_WRITING_ERROR = 0x04, - UFR_BUFFER_OVERFLOW = 0x05, - UFR_MAX_ADDRESS_EXCEEDED = 0x06, - UFR_MAX_KEY_INDEX_EXCEEDED = 0x07, - UFR_NO_CARD = 0x08, - UFR_COMMAND_NOT_SUPPORTED = 0x09, - UFR_FORBIDEN_DIRECT_WRITE_IN_SECTOR_TRAILER = 0x0A, - UFR_ADDRESSED_BLOCK_IS_NOT_SECTOR_TRAILER = 0x0B, - UFR_WRONG_ADDRESS_MODE = 0x0C, - UFR_WRONG_ACCESS_BITS_VALUES = 0x0D, - UFR_AUTH_ERROR = 0x0E, - UFR_PARAMETERS_ERROR = 0x0F, // ToDo, tačka 5. - UFR_MAX_SIZE_EXCEEDED = 0x10, - - UFR_WRITE_VERIFICATION_ERROR = 0x70, - UFR_BUFFER_SIZE_EXCEEDED = 0x71, - UFR_VALUE_BLOCK_INVALID = 0x72, - UFR_VALUE_BLOCK_ADDR_INVALID = 0x73, - UFR_VALUE_BLOCK_MANIPULATION_ERROR = 0x74, - UFR_WRONG_UI_MODE = 0x75, - UFR_KEYS_LOCKED = 0x76, - UFR_KEYS_UNLOCKED = 0x77, - UFR_WRONG_PASSWORD = 0x78, - UFR_CAN_NOT_LOCK_DEVICE = 0x79, - UFR_CAN_NOT_UNLOCK_DEVICE = 0x7A, - UFR_DEVICE_EEPROM_BUSY = 0x7B, - UFR_RTC_SET_ERROR = 0x7C, - - UFR_COMMUNICATION_BREAK = 0x50, - UFR_NO_MEMORY_ERROR = 0x51, - UFR_CAN_NOT_OPEN_READER = 0x52, - UFR_READER_NOT_SUPPORTED = 0x53, - UFR_READER_OPENING_ERROR = 0x54, - UFR_READER_PORT_NOT_OPENED = 0x55, - UFR_CANT_CLOSE_READER_PORT = 0x56, - - UFR_FT_STATUS_ERROR_1 = 0xA0, - UFR_FT_STATUS_ERROR_2 = 0xA1, - UFR_FT_STATUS_ERROR_3 = 0xA2, - UFR_FT_STATUS_ERROR_4 = 0xA3, - UFR_FT_STATUS_ERROR_5 = 0xA4, - UFR_FT_STATUS_ERROR_6 = 0xA5, - UFR_FT_STATUS_ERROR_7 = 0xA6, - UFR_FT_STATUS_ERROR_8 = 0xA7, - UFR_FT_STATUS_ERROR_9 = 0xA8, - - MAX_UFR_STATUS = 0xFFFFFFFF -} UFR_STATUS; - -#ifdef __cplusplus -extern "C" { -#endif -DL_uFC_API UFR_STATUS ReaderOpen(void); -DL_uFC_API UFR_STATUS ReaderReset(void); -DL_uFC_API UFR_STATUS ReaderClose(void); -DL_uFC_API UFR_STATUS ReaderSoftRestart(void); -DL_uFC_API UFR_STATUS GetReaderType(unsigned long *lpulReaderType); -DL_uFC_API UFR_STATUS GetReaderSerialNumber(unsigned long *lpulSerialNumber); - -DL_uFC_API UFR_STATUS ReaderKeyWrite(const unsigned char *aucKey, unsigned char ucKeyIndex); -DL_uFC_API UFR_STATUS ReaderKeysLock(const unsigned char *password); -DL_uFC_API UFR_STATUS ReaderKeysUnlock(const unsigned char *password); -DL_uFC_API UFR_STATUS ReaderUISignal(unsigned char light_signal_mode, - unsigned char beep_signal_mode); -DL_uFC_API UFR_STATUS ReadUserData(unsigned char *aucData); -DL_uFC_API UFR_STATUS WriteUserData(const unsigned char *aucData); -DL_uFC_API UFR_STATUS GetCardId(unsigned char *lpucCardType, unsigned long *lpulCardSerial); -DL_uFC_API UFR_STATUS BlockRead(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockWrite(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockInSectorRead(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockInSectorWrite(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS LinearRead(unsigned char *aucData, - unsigned short usLinearAddress, - unsigned short usDataLength, - unsigned short *lpusBytesReturned, - unsigned char ucKeyMode, - unsigned char ucReaderKeyIndex); -DL_uFC_API UFR_STATUS LinearWrite(const unsigned char *aucData, - unsigned short usLinearAddress, - unsigned short usDataLength, - unsigned short *lpusBytesWritten, - unsigned char ucKeyMode, - unsigned char ucReaderKeyIndex); -DL_uFC_API UFR_STATUS LinearFormatCard(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS SectorTrailerWrite(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockRead(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockWrite(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockIncrement(long increment_value, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockDecrement(long decrement_value, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); - -DL_uFC_API UFR_STATUS BlockRead_AKM1(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockWrite_AKM1(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorRead_AKM1(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorWrite_AKM1(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearRead_AKM1(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearWrite_AKM1(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearFormatCard_AKM1(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWrite_AKM1(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_AKM1(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockRead_AKM1(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_AKM1(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockWrite_AKM1(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_AKM1(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockIncrement_AKM1(long increment_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_AKM1(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockDecrement_AKM1(long decrement_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_AKM1(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); - -DL_uFC_API UFR_STATUS BlockRead_AKM2(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockWrite_AKM2(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorRead_AKM2(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorWrite_AKM2(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearRead_AKM2(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearWrite_AKM2(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearFormatCard_AKM2(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWrite_AKM2(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_AKM2(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockRead_AKM2(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_AKM2(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockWrite_AKM2(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_AKM2(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockIncrement_AKM2(long increment_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_AKM2(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockDecrement_AKM2(long decrement_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_AKM2(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); - -DL_uFC_API UFR_STATUS BlockRead_PK(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockWrite_PK(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockInSectorRead_PK(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockInSectorWrite_PK(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearRead_PK(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearWrite_PK(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearFormatCard_PK(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS SectorTrailerWrite_PK(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_PK(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockRead_PK(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_PK(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockWrite_PK(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_PK(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockIncrement_PK(long increment_value, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_PK(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockDecrement_PK(long decrement_value, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_PK(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS GetReaderHardwareVersion(unsigned char *version_major, - unsigned char *version_minor); -DL_uFC_API UFR_STATUS GetReaderFirmwareVersion(unsigned char *version_major, - unsigned char *version_minor); - -// New commands (for RTC & I2C EEPROM): -DL_uFC_API UFR_STATUS GetReaderTime(unsigned char *time); -DL_uFC_API UFR_STATUS SetReaderTime(unsigned char *password, unsigned char *time); -DL_uFC_API UFR_STATUS ChangeReaderPassword(unsigned char *old_password, unsigned char *new_password); -DL_uFC_API UFR_STATUS ReaderEepromWrite(unsigned char *data, unsigned long address, unsigned long size, unsigned char *password); -DL_uFC_API UFR_STATUS ReaderEepromRead(unsigned char *data, unsigned long address, unsigned long size); -DL_uFC_API UFR_STATUS ChangeReaderJobId(unsigned char *job_id, unsigned char *new_password); - -DL_uFC_API UFR_STATUS GetReaderSerialDescription(char pSerialDescription[8]); -DL_uFC_API UFR_STATUS SetReaderSerialDescription(const char pSerialDescription[8]); - -// New since version 2.0: -DL_uFC_API UFR_STATUS GetBuildNumber(unsigned char *build); -DL_uFC_API UFR_STATUS GetCardIdEx(unsigned char *lpuSak, - unsigned char *aucUid, unsigned char *lpucUidSize); -DL_uFC_API UFR_STATUS EnableAntiColl(void); -DL_uFC_API UFR_STATUS DisableAntiColl(void); -DL_uFC_API UFR_STATUS EnumCards(unsigned char *lpucCardsNumber, - unsigned char *lpucUidListSize); -DL_uFC_API UFR_STATUS ListCards(unsigned char *aucUidList, - unsigned char ucUidListSize); // Before calling this function you must call EnumCards() first. -DL_uFC_API UFR_STATUS SelectCard(const unsigned char *aucUid, - unsigned char ucUidSize, unsigned char *lpucSak); -DL_uFC_API UFR_STATUS DeslectCard(void); -DL_uFC_API UFR_STATUS GetAntiCollStatus(char *lpcIsAntiCollEnabled, - char *lpcIsAnyCardSelected); -DL_uFC_API UFR_STATUS GetDlogicCardType(unsigned char *lpucCardType); - -// uFCoder PRO MODE -DL_uFC_API UFR_STATUS GetReaderProMode(int * pReaderProMode); -DL_uFC_API UFR_STATUS SetReaderProMode(const int ReaderProMode); - -// QR barcode crypt algorithm -// initialization. with TB serial like 'TB123456' -DL_uFC_API UFR_STATUS CardEncryption_Initialize(const char TBSerialString[8], int job_number); - -// You must define 25 bytes array in memory for CardSerialString[] -DL_uFC_API -UFR_STATUS CardEncryption_GetNextEncryptedCard(const unsigned long from_timestamp, const unsigned long to_timestamp, - unsigned char CardSerialString[25]); -DL_uFC_API -UFR_STATUS CardEncryption_GetActualCardSN(unsigned long *ActualCard_SN, unsigned long *ActualCard_SN_LOG); -DL_uFC_API -UFR_STATUS CardEncryption_GetJobSN(unsigned long *JobSN); -DL_uFC_API -UFR_STATUS CardEncryption_GetSalterSN(unsigned char SalterSN[8], int * magicByte); - -// DLL version -DL_uFC_API unsigned long GetDllVersion(void); - -/* - * Get "exploded" dll version example: - * - * #include - * #include - * - * void main(int argc, char *argv[]) - * { - * unsigned long dwDllVersion = 0; - * unsigned long dwDllMajorVersion = 0; - * unsigned long dwDllMinorVersion = 0; - * unsigned long dwDllBuild = 0; - * - * dwDllVersion = GetDllVersion(); - * - * // "explode" the dll version: - * dwDllMajorVersion = (DWORD)(LOBYTE(LOWORD(dwDllVersion))); - * dwDllMinorVersion = (DWORD)(HIBYTE(LOWORD(dwDllVersion))); - * - * // Get the dll build number. - * dwDllBuild = (DWORD)(HIWORD(dwDllVersion)); - * - * printf("Dll version is %ld.%ld (%ld)\n", dwDllMajorVersion, - * dwDllMinorVersion, - * dwDllBuild); - * } - * - */ - -typedef char * chr_ptr; -DL_uFC_API chr_ptr UFR_Status2String(const UFR_STATUS status); - -DL_uFC_API void error_get(void *out, int *size); - -#ifdef __cplusplus -} -#endif - -#endif // uFCoder_H_ diff --git a/uFCoderAdvanced/uFCoder1x.lib b/uFCoderAdvanced/uFCoder1x.lib deleted file mode 100644 index a236ae688298b997144228a16bf2cd2ece7e0c82..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFCoder1x.lib and /dev/null differ diff --git a/uFCoderAdvanced/uFCoder1x.~h b/uFCoderAdvanced/uFCoder1x.~h deleted file mode 100644 index ebbb17875df0c6ccb159e442fa9fea2dc9bdf7f1..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFCoder1x.~h +++ /dev/null @@ -1,587 +0,0 @@ -/* - * uFCoder1x.h - * - * Created on: 14.01.2009. - * Author: Zborac - */ - -#ifndef uFCoder_H_ -#define uFCoder_H_ -#define WIN32 - -#ifdef WIN32 - -#ifdef DL_uFC_STATIC_LIB - -# define DL_uFC_API -//# define DL_uFC_API __stdcall -//# define DL_uFC_API _cdecl - -#else -# ifndef DL_uFC_EXPORTS -# define DL_uFC_API __declspec(dllimport) __stdcall -# else -# define DL_uFC_API __declspec(dllexport) __stdcall -# endif -#endif - -#elif __linux__ - -# define DL_uFC_API - -#endif - -// MIFARE CLASSIC type id's: -#define MIFARE_CLASSIC_1k 0x08 -#define MF1ICS50 0x08 -#define SLE66R35 0x88 // Infineon = Mifare Classic 1k -#define MIFARE_CLASSIC_4k 0x18 -#define MF1ICS70 0x18 -#define MIFARE_CLASSIC_MINI 0x09 -#define MF1ICS20 0x09 - -//DLOGIC CARD TYPE -#define DL_MIFARE_ULTRALIGHT 0x01 -#define DL_MIFARE_ULTRALIGHT_EV1_11 0x02 -#define DL_MIFARE_ULTRALIGHT_EV1_21 0x03 -#define DL_MIFARE_ULTRALIGHT_C 0x04 -#define DL_NTAG_203 0x05 -#define DL_NTAG_210 0x06 -#define DL_NTAG_212 0x07 -#define DL_NTAG_213 0x08 -#define DL_NTAG_215 0x09 -#define DL_NTAG_216 0x0A - -#define DL_MIFARE_MINI 0x20 -#define DL_MIFARE_CLASSIC_1K 0x21 -#define DL_MIFARE_CLASSIC_4K 0x22 -#define DL_MIFARE_PLUS_S_2K 0x23 -#define DL_MIFARE_PLUS_S_4K 0x24 -#define DL_MIFARE_PLUS_X_2K 0x25 -#define DL_MIFARE_PLUS_X_4K 0x26 -#define DL_MIFARE_DESFIRE 0x27 -#define DL_MIFARE_DESFIRE_EV1_2K 0x28 -#define DL_MIFARE_DESFIRE_EV1_4K 0x29 -#define DL_MIFARE_DESFIRE_EV1_8K 0x2A - -// MIFARE CLASSIC Authentication Modes: -enum MIFARE_AUTHENTICATION -{ - MIFARE_AUTHENT1A = 0x60, - MIFARE_AUTHENT1B = 0x61, -}; - - -// API Status Codes Type: -typedef enum UFCODER_ERROR_CODES -{ - UFR_OK = 0x00, - UFR_COMMUNICATION_ERROR = 0x01, - UFR_CHKSUM_ERROR = 0x02, - UFR_READING_ERROR = 0x03, - UFR_WRITING_ERROR = 0x04, - UFR_BUFFER_OVERFLOW = 0x05, - UFR_MAX_ADDRESS_EXCEEDED = 0x06, - UFR_MAX_KEY_INDEX_EXCEEDED = 0x07, - UFR_NO_CARD = 0x08, - UFR_COMMAND_NOT_SUPPORTED = 0x09, - UFR_FORBIDEN_DIRECT_WRITE_IN_SECTOR_TRAILER = 0x0A, - UFR_ADDRESSED_BLOCK_IS_NOT_SECTOR_TRAILER = 0x0B, - UFR_WRONG_ADDRESS_MODE = 0x0C, - UFR_WRONG_ACCESS_BITS_VALUES = 0x0D, - UFR_AUTH_ERROR = 0x0E, - UFR_PARAMETERS_ERROR = 0x0F, // ToDo, tačka 5. - UFR_MAX_SIZE_EXCEEDED = 0x10, - - UFR_WRITE_VERIFICATION_ERROR = 0x70, - UFR_BUFFER_SIZE_EXCEEDED = 0x71, - UFR_VALUE_BLOCK_INVALID = 0x72, - UFR_VALUE_BLOCK_ADDR_INVALID = 0x73, - UFR_VALUE_BLOCK_MANIPULATION_ERROR = 0x74, - UFR_WRONG_UI_MODE = 0x75, - UFR_KEYS_LOCKED = 0x76, - UFR_KEYS_UNLOCKED = 0x77, - UFR_WRONG_PASSWORD = 0x78, - UFR_CAN_NOT_LOCK_DEVICE = 0x79, - UFR_CAN_NOT_UNLOCK_DEVICE = 0x7A, - UFR_DEVICE_EEPROM_BUSY = 0x7B, - UFR_RTC_SET_ERROR = 0x7C, - - UFR_COMMUNICATION_BREAK = 0x50, - UFR_NO_MEMORY_ERROR = 0x51, - UFR_CAN_NOT_OPEN_READER = 0x52, - UFR_READER_NOT_SUPPORTED = 0x53, - UFR_READER_OPENING_ERROR = 0x54, - UFR_READER_PORT_NOT_OPENED = 0x55, - UFR_CANT_CLOSE_READER_PORT = 0x56, - - UFR_FT_STATUS_ERROR_1 = 0xA0, - UFR_FT_STATUS_ERROR_2 = 0xA1, - UFR_FT_STATUS_ERROR_3 = 0xA2, - UFR_FT_STATUS_ERROR_4 = 0xA3, - UFR_FT_STATUS_ERROR_5 = 0xA4, - UFR_FT_STATUS_ERROR_6 = 0xA5, - UFR_FT_STATUS_ERROR_7 = 0xA6, - UFR_FT_STATUS_ERROR_8 = 0xA7, - UFR_FT_STATUS_ERROR_9 = 0xA8, - - MAX_UFR_STATUS = 0xFFFFFFFF -} UFR_STATUS; - -#ifdef __cplusplus -extern "C" { -#endif -DL_uFC_API UFR_STATUS ReaderOpen(void); -DL_uFC_API UFR_STATUS ReaderReset(void); -DL_uFC_API UFR_STATUS ReaderClose(void); -DL_uFC_API UFR_STATUS ReaderSoftRestart(void); -DL_uFC_API UFR_STATUS GetReaderType(unsigned long *lpulReaderType); -DL_uFC_API UFR_STATUS GetReaderSerialNumber(unsigned long *lpulSerialNumber); - -DL_uFC_API UFR_STATUS ReaderKeyWrite(const unsigned char *aucKey, unsigned char ucKeyIndex); -DL_uFC_API UFR_STATUS ReaderKeysLock(const unsigned char *password); -DL_uFC_API UFR_STATUS ReaderKeysUnlock(const unsigned char *password); -DL_uFC_API UFR_STATUS ReaderUISignal(unsigned char light_signal_mode, - unsigned char beep_signal_mode); -DL_uFC_API UFR_STATUS ReadUserData(unsigned char *aucData); -DL_uFC_API UFR_STATUS WriteUserData(const unsigned char *aucData); -DL_uFC_API UFR_STATUS GetCardId(unsigned char *lpucCardType, unsigned long *lpulCardSerial); -DL_uFC_API UFR_STATUS BlockRead(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockWrite(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockInSectorRead(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS BlockInSectorWrite(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS LinearRead(unsigned char *aucData, - unsigned short usLinearAddress, - unsigned short usDataLength, - unsigned short *lpusBytesReturned, - unsigned char ucKeyMode, - unsigned char ucReaderKeyIndex); -DL_uFC_API UFR_STATUS LinearWrite(const unsigned char *aucData, - unsigned short usLinearAddress, - unsigned short usDataLength, - unsigned short *lpusBytesWritten, - unsigned char ucKeyMode, - unsigned char ucReaderKeyIndex); -DL_uFC_API UFR_STATUS LinearFormatCard(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS SectorTrailerWrite(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockRead(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockWrite(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockIncrement(long increment_value, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockDecrement(long decrement_value, - unsigned char block_address, - unsigned char auth_mode, - unsigned char key_index); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - unsigned char key_index); - -DL_uFC_API UFR_STATUS BlockRead_AKM1(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockWrite_AKM1(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorRead_AKM1(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorWrite_AKM1(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearRead_AKM1(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearWrite_AKM1(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearFormatCard_AKM1(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWrite_AKM1(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_AKM1(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockRead_AKM1(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_AKM1(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockWrite_AKM1(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_AKM1(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockIncrement_AKM1(long increment_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_AKM1(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockDecrement_AKM1(long decrement_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_AKM1(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); - -DL_uFC_API UFR_STATUS BlockRead_AKM2(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockWrite_AKM2(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorRead_AKM2(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS BlockInSectorWrite_AKM2(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearRead_AKM2(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearWrite_AKM2(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS LinearFormatCard_AKM2(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWrite_AKM2(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_AKM2(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockRead_AKM2(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_AKM2(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockWrite_AKM2(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_AKM2(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockIncrement_AKM2(long increment_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_AKM2(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockDecrement_AKM2(long decrement_value, - unsigned char block_address, - unsigned char auth_mode); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_AKM2(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode); - -DL_uFC_API UFR_STATUS BlockRead_PK(unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockWrite_PK(const unsigned char *data, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockInSectorRead_PK(unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS BlockInSectorWrite_PK(const unsigned char *data, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearRead_PK(unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_returned, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearWrite_PK(const unsigned char *data, - unsigned short linear_address, - unsigned short length, - unsigned short *bytes_written, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS LinearFormatCard_PK(const unsigned char *new_key_A, - unsigned char blocks_access_bits, - unsigned char sector_trailers_access_bits, - unsigned char sector_trailers_byte9, - const unsigned char *new_key_B, - unsigned char *lpucSectorsFormatted, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS SectorTrailerWrite_PK(unsigned char addressing_mode, - unsigned char address, - const unsigned char *new_key_A, - unsigned char block0_access_bits, - unsigned char block1_access_bits, - unsigned char block2_access_bits, - unsigned char sector_trailer_access_bits, - unsigned char sector_trailer_byte9, - const unsigned char *new_key_B, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS SectorTrailerWriteUnsafe_PK(unsigned char addressing_mode, - unsigned char address, - const unsigned char *sector_trailer, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockRead_PK(long *value, - unsigned char *value_addr, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorRead_PK(long *value, - unsigned char *value_addr, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockWrite_PK(long value, - unsigned char value_addr, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorWrite_PK(long value, - unsigned char value_addr, - unsigned char sector_address, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockIncrement_PK(long increment_value, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorIncrement_PK(long increment_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockDecrement_PK(long decrement_value, - unsigned char block_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS ValueBlockInSectorDecrement_PK(long decrement_value, - unsigned char sector_address, - unsigned char block_in_sector_address, - unsigned char auth_mode, - const unsigned char *key); -DL_uFC_API UFR_STATUS GetReaderHardwareVersion(unsigned char *version_major, - unsigned char *version_minor); -DL_uFC_API UFR_STATUS GetReaderFirmwareVersion(unsigned char *version_major, - unsigned char *version_minor); - -// New commands (for RTC & I2C EEPROM): -DL_uFC_API UFR_STATUS GetReaderTime(unsigned char *time); -DL_uFC_API UFR_STATUS SetReaderTime(unsigned char *password, unsigned char *time); -DL_uFC_API UFR_STATUS ChangeReaderPassword(unsigned char *old_password, unsigned char *new_password); -DL_uFC_API UFR_STATUS ReaderEepromWrite(unsigned char *data, unsigned long address, unsigned long size, unsigned char *password); -DL_uFC_API UFR_STATUS ReaderEepromRead(unsigned char *data, unsigned long address, unsigned long size); -DL_uFC_API UFR_STATUS ChangeReaderJobId(unsigned char *job_id, unsigned char *new_password); - -DL_uFC_API UFR_STATUS GetReaderSerialDescription(char pSerialDescription[8]); -DL_uFC_API UFR_STATUS SetReaderSerialDescription(const char pSerialDescription[8]); - -// New since version 2.0: -DL_uFC_API UFR_STATUS GetBuildNumber(unsigned char *build); -DL_uFC_API UFR_STATUS GetCardIdEx(unsigned char *lpuSak, - unsigned char *aucUid, unsigned char *lpucUidSize); -DL_uFC_API UFR_STATUS EnableAntiColl(void); -DL_uFC_API UFR_STATUS DisableAntiColl(void); -DL_uFC_API UFR_STATUS EnumCards(unsigned char *lpucCardsNumber, - unsigned char *lpucUidListSize); -DL_uFC_API UFR_STATUS ListCards(unsigned char *aucUidList, - unsigned char ucUidListSize); // Before calling this function you must call EnumCards() first. -DL_uFC_API UFR_STATUS SelectCard(const unsigned char *aucUid, - unsigned char ucUidSize, unsigned char *lpucSak); -DL_uFC_API UFR_STATUS DeslectCard(void); -DL_uFC_API UFR_STATUS GetAntiCollStatus(char *lpcIsAntiCollEnabled, - char *lpcIsAnyCardSelected); -DL_uFC_API UFR_STATUS GetDlogicCardType(unsigned char *lpucCardType); - -// uFCoder PRO MODE -DL_uFC_API UFR_STATUS GetReaderProMode(int * pReaderProMode); -DL_uFC_API UFR_STATUS SetReaderProMode(const int ReaderProMode); - -// QR barcode crypt algorithm -// initialization. with TB serial like 'TB123456' -DL_uFC_API UFR_STATUS CardEncryption_Initialize(const char TBSerialString[8], int job_number); - -// You must define 25 bytes array in memory for CardSerialString[] -DL_uFC_API -UFR_STATUS CardEncryption_GetNextEncryptedCard(const unsigned long from_timestamp, const unsigned long to_timestamp, - unsigned char CardSerialString[25]); -DL_uFC_API -UFR_STATUS CardEncryption_GetActualCardSN(unsigned long *ActualCard_SN, unsigned long *ActualCard_SN_LOG); -DL_uFC_API -UFR_STATUS CardEncryption_GetJobSN(unsigned long *JobSN); -DL_uFC_API -UFR_STATUS CardEncryption_GetSalterSN(unsigned char SalterSN[8], int * magicByte); - -// DLL version -DL_uFC_API unsigned long GetDllVersion(void); - -/* - * Get "exploded" dll version example: - * - * #include - * #include - * - * void main(int argc, char *argv[]) - * { - * unsigned long dwDllVersion = 0; - * unsigned long dwDllMajorVersion = 0; - * unsigned long dwDllMinorVersion = 0; - * unsigned long dwDllBuild = 0; - * - * dwDllVersion = GetDllVersion(); - * - * // "explode" the dll version: - * dwDllMajorVersion = (DWORD)(LOBYTE(LOWORD(dwDllVersion))); - * dwDllMinorVersion = (DWORD)(HIBYTE(LOWORD(dwDllVersion))); - * - * // Get the dll build number. - * dwDllBuild = (DWORD)(HIWORD(dwDllVersion)); - * - * printf("Dll version is %ld.%ld (%ld)\n", dwDllMajorVersion, - * dwDllMinorVersion, - * dwDllBuild); - * } - * - */ - -typedef char * chr_ptr; -DL_uFC_API chr_ptr UFR_Status2String(const UFR_STATUS status); - -DL_uFC_API void error_get(void *out, int *size); - -#ifdef __cplusplus -} -#endif - -#endif // uFCoder_H_ diff --git a/uFCoderAdvanced/uFRCoderAdvance.obj b/uFCoderAdvanced/uFRCoderAdvance.obj deleted file mode 100644 index b77f626f4f0b71613107be776b223e7ee69d0081..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFRCoderAdvance.obj and /dev/null differ diff --git a/uFCoderAdvanced/uFrAdvance.bpr b/uFCoderAdvanced/uFrAdvance.bpr deleted file mode 100644 index b94b75307b17579b3050021de036fc4588040d6a..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFrAdvance.bpr +++ /dev/null @@ -1,161 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=2 -MinorVer=1 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=9242 -CodePage=1250 - -[Version Info Keys] -CompanyName=D-Logic -FileDescription=uFrAdvance with hex conversion -FileVersion=2.1.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=2.0.0.0 -Comments= - -[HistoryLists\hlIncludePath] -Count=1 -Item0=C:\Program Files (x86)\Borland\CBuilder6\Projects;D:\Moji Programi\Borland C++;$(BCB)\include;$(BCB)\include\vcl - -[HistoryLists\hlLibraryPath] -Count=2 -Item0=C:\Program Files (x86)\Borland\CBuilder6\Projects;$(BCB)\lib\obj;$(BCB)\lib -Item1=C:\Program Files (x86)\Borland\CBuilder6\Projects;D:\Moji Programi\Borland C++;$(BCB)\lib\obj;$(BCB)\lib - -[HistoryLists\hlDebugSourcePath] -Count=1 -Item0=$(BCB)\source\vcl - -[HistoryLists\hlConditionals] -Count=1 -Item0=_DEBUG - -[Debugging] -DebugSourceDirs=$(BCB)\source\vcl - -[Parameters] -RunParams= -Launcher= -UseLauncher=0 -DebugCWD= -HostApplication= -RemoteHost= -RemotePath= -RemoteLauncher= -RemoteCWD= -RemoteDebug=0 - -[Compiler] -ShowInfoMsgs=0 -LinkDebugVcl=0 -LinkCGLIB=0 - -[CORBA] -AddServerUnit=1 -AddClientUnit=1 -PrecompiledHeaders=1 - -[Language] -ActiveLang= -ProjectLang= -RootDir= - - \ No newline at end of file diff --git a/uFCoderAdvanced/uFrAdvance.cpp b/uFCoderAdvanced/uFrAdvance.cpp deleted file mode 100644 index d2eb55e21fc72804547933bfd8c647e5169cf0a7..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFrAdvance.cpp +++ /dev/null @@ -1,54 +0,0 @@ -//--------------------------------------------------------------------------- - -#include -#pragma hdrstop -//--------------------------------------------------------------------------- -USEFORM("uFAdvance.cpp", frmuFrAdvance); -USEFORM("LinearReadWrite.cpp", frmLinearReadWrite); -USEFORM("BlockReadWrite.cpp", frmBlockReadWrite); -USEFORM("BlockInSectorReadWrite.cpp", frmBlockInSectorReadWrite); -USEFORM("ValueBlockReadWrite.cpp", frmValueBlockReadWrite); -USEFORM("ValueBlockInSectorReadWrite.cpp", frmValueBlockInSectorReadWrite); -USEFORM("ValueBlockIncrDecr.cpp", frmValueBlockIncrDecr); -USEFORM("ValueBlockInSectorIncrDecr.cpp", frmValueBlockInSectorIncrDecr); -USEFORM("SectorTrailerWrite.cpp", frmSectorTrailerWrite); -USEFORM("LinearFormatCard.cpp", frmLinearFormatCard); -USEFORM("ViewAll.cpp", frmViewAll); -//--------------------------------------------------------------------------- -WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) -{ - try - { - Application->Initialize(); - Application->Title = "uFRCoder Advance"; - Application->CreateForm(__classid(TfrmuFrAdvance), &frmuFrAdvance); - Application->CreateForm(__classid(TfrmLinearReadWrite), &frmLinearReadWrite); - Application->CreateForm(__classid(TfrmBlockReadWrite), &frmBlockReadWrite); - Application->CreateForm(__classid(TfrmBlockInSectorReadWrite), &frmBlockInSectorReadWrite); - Application->CreateForm(__classid(TfrmValueBlockReadWrite), &frmValueBlockReadWrite); - Application->CreateForm(__classid(TfrmValueBlockInSectorReadWrite), &frmValueBlockInSectorReadWrite); - Application->CreateForm(__classid(TfrmValueBlockIncrDecr), &frmValueBlockIncrDecr); - Application->CreateForm(__classid(TfrmValueBlockInSectorIncrDecr), &frmValueBlockInSectorIncrDecr); - Application->CreateForm(__classid(TfrmSectorTrailerWrite), &frmSectorTrailerWrite); - Application->CreateForm(__classid(TfrmLinearFormatCard), &frmLinearFormatCard); - Application->CreateForm(__classid(TfrmViewAll), &frmViewAll); - Application->Run(); - } - catch (Exception &exception) - { - Application->ShowException(&exception); - } - catch (...) - { - try - { - throw Exception(""); - } - catch (Exception &exception) - { - Application->ShowException(&exception); - } - } - return 0; -} -//--------------------------------------------------------------------------- diff --git a/uFCoderAdvanced/uFrAdvance.exe b/uFCoderAdvanced/uFrAdvance.exe deleted file mode 100644 index 999d4e4c408aa2336419f3cb90b037f055c2790d..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFrAdvance.exe and /dev/null differ diff --git a/uFCoderAdvanced/uFrAdvance.obj b/uFCoderAdvanced/uFrAdvance.obj deleted file mode 100644 index c09a1c42ae3f20efdbb63d7ebbbf4d5267b4fec2..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFrAdvance.obj and /dev/null differ diff --git a/uFCoderAdvanced/uFrAdvance.res b/uFCoderAdvanced/uFrAdvance.res deleted file mode 100644 index 01ec78bd0a63c005445a9912cdf70b618b880f87..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFrAdvance.res and /dev/null differ diff --git a/uFCoderAdvanced/uFrAdvance.tds b/uFCoderAdvanced/uFrAdvance.tds deleted file mode 100644 index 58999decb27654d5015e8c3749f32a291ad3662d..0000000000000000000000000000000000000000 Binary files a/uFCoderAdvanced/uFrAdvance.tds and /dev/null differ diff --git a/uFCoderAdvanced/uFrAdvance.~bpr b/uFCoderAdvanced/uFrAdvance.~bpr deleted file mode 100644 index b94b75307b17579b3050021de036fc4588040d6a..0000000000000000000000000000000000000000 --- a/uFCoderAdvanced/uFrAdvance.~bpr +++ /dev/null @@ -1,161 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=2 -MinorVer=1 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=9242 -CodePage=1250 - -[Version Info Keys] -CompanyName=D-Logic -FileDescription=uFrAdvance with hex conversion -FileVersion=2.1.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=2.0.0.0 -Comments= - -[HistoryLists\hlIncludePath] -Count=1 -Item0=C:\Program Files (x86)\Borland\CBuilder6\Projects;D:\Moji Programi\Borland C++;$(BCB)\include;$(BCB)\include\vcl - -[HistoryLists\hlLibraryPath] -Count=2 -Item0=C:\Program Files (x86)\Borland\CBuilder6\Projects;$(BCB)\lib\obj;$(BCB)\lib -Item1=C:\Program Files (x86)\Borland\CBuilder6\Projects;D:\Moji Programi\Borland C++;$(BCB)\lib\obj;$(BCB)\lib - -[HistoryLists\hlDebugSourcePath] -Count=1 -Item0=$(BCB)\source\vcl - -[HistoryLists\hlConditionals] -Count=1 -Item0=_DEBUG - -[Debugging] -DebugSourceDirs=$(BCB)\source\vcl - -[Parameters] -RunParams= -Launcher= -UseLauncher=0 -DebugCWD= -HostApplication= -RemoteHost= -RemotePath= -RemoteLauncher= -RemoteCWD= -RemoteDebug=0 - -[Compiler] -ShowInfoMsgs=0 -LinkDebugVcl=0 -LinkCGLIB=0 - -[CORBA] -AddServerUnit=1 -AddClientUnit=1 -PrecompiledHeaders=1 - -[Language] -ActiveLang= -ProjectLang= -RootDir= - - \ No newline at end of file