root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migliorata gestione utenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@570 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-08 16:50:04 +00:00
parent 2b8789a8e4
commit 7ab438abb8
5 changed files with 656 additions and 666 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
ba/ba0100a.uml
View File

@ -1,35 +1,35 @@
#include "ba0100a.h" #include "ba0100a.h"
PAGE "Configurazione utente" -1 -1 35 7 PAGE "Selezione utente" -1 -1 35 7
STRING F_USER 8 STRING F_USER 8
BEGIN BEGIN
PROMPT 1 1 "Utente " PROMPT 1 1 "Utente "
HELP "Inserire il nome dell'utente" HELP "Inserire il nome dell'utente"
FLAGS "U" FLAGS "U"
USE LF_USER USE LF_USER
INPUT USERNAME F_USER INPUT USERNAME F_USER
DISPLAY "Utente" USERNAME DISPLAY "Utente" USERNAME
DISPLAY "Descrizione@50" USERDESC DISPLAY "Descrizione@50" USERDESC
OUTPUT F_USER USERNAME OUTPUT F_USER USERNAME
END END
STRING F_PASSWORD 8 0 STRING F_PASSWORD 8 0
BEGIN BEGIN
PROMPT 1 3 "Password " PROMPT 1 3 "Password "
HELP "Inserire la password" HELP "Inserire la password"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

49
ba/ba1.cpp
View File

@ -1,44 +1,35 @@
#include <xvt.h> #include <xvt.h>
#include <applicat.h> #include <applicat.h>
#include <stdtypes.h>
#include <checks.h> #include <checks.h>
#include "ba1.h" #include "ba1.h"
#define usage "Errore - uso : ba1 [-{0|1|2|3|4}]" #define usage "Errore - uso : ba1 [-{0|1|2|3|4}]"
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
int rt = 0 ; TApplication::check_parameters(argc, argv);
check_parameters(argc, argv);
if (argc == 1) const int r = (argc > 1) ? atoi(&argv[1][1]) : 0;
rt = ba1100(argc,argv);
else
if (argc >= 2)
{
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
switch (r) switch (r)
{ {
case 0: case 0:
rt = ba1100(argc,argv); break; ba1100(argc,argv); break;
case 1: case 1:
rt = ba1200(argc,argv); break; ba1200(argc,argv); break;
case 2: case 2:
rt = ba1300(argc,argv); break; ba1300(argc,argv); break;
case 3: case 3:
rt = ba1400(argc,argv); break; ba1400(argc,argv); break;
case 4: case 4:
rt = ba1500(argc,argv); break; ba1500(argc,argv); break;
default: default:
error_box(usage); break; error_box(usage); break;
} }
}
else fatal_box(usage); return 0;
return rt;
} }

229
ba/ba1400.cpp
View File

@ -1,115 +1,114 @@
#include <relapp.h> #include <relapp.h>
#include <stdtypes.h> #include <stdtypes.h>
#include <lffiles.h> #include <modaut.h>
#include <modaut.h> #include <utility.h>
#include <utility.h>
#include "ba1.h" #include "ba1.h"
#include "ba0100a.h" #include "ba0100a.h"
class set_users : public TRelation_application class TSet_users : public TRelation_application
{ {
TMask* _msk; TMask* _msk;
TRelation* _rel; TRelation* _rel;
virtual bool user_create() ; virtual bool user_create() ;
virtual bool user_destroy() ; virtual bool user_destroy() ;
virtual TMask* get_mask(int mode) { return _msk;} virtual TMask* get_mask(int mode) { return _msk;}
virtual bool changing_mask(int mode) { return FALSE;} virtual bool changing_mask(int mode) { return FALSE;}
virtual TRelation* get_relation() const { return _rel;} virtual TRelation* get_relation() const { return _rel;}
virtual int read(TMask& m); virtual int read(TMask& m);
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
void enable_aut(TMask& m); void enable_aut(TMask& m);
static bool password_handler(TMask_field& f, KEY key); static bool password_handler(TMask_field& f, KEY key);
virtual void init_query_mode(TMask& m) { enable_aut(m);} virtual void init_query_mode(TMask& m) { enable_aut(m);}
virtual void init_insert_mode(TMask& m) { enable_aut(m);} virtual void init_insert_mode(TMask& m) { enable_aut(m);}
virtual void init_modify_mode(TMask& m) { enable_aut(m);} virtual void init_modify_mode(TMask& m) { enable_aut(m);}
public: public:
set_users() {} TSet_users() : _msk(NULL), _rel(NULL) {}
virtual ~set_users() {} };
};
bool TSet_users::password_handler(TMask_field& f, KEY key)
bool set_users::password_handler(TMask_field& f, KEY key)
{
{ if (f.mask().mode() == MODE_QUERY || key != K_ENTER) return TRUE;
if (f.mask().mode() == MODE_QUERY || key != K_ENTER) return TRUE; const bool ok = f.get().len() > 3 ;
const bool ok = f.get().len() > 3 ; if (!ok) f.error_box("La password deve essere almeno 3 caratteri");
if (!ok) f.error_box("La password deve essere almeno 3 caratteri"); return ok;
return ok; }
}
void TSet_users::enable_aut(TMask& m)
void set_users::enable_aut(TMask& m) {
{ const bool prassi = (m.get(F_USER) == "PRASSI");
const bool prassi = (m.get(F_USER) == "PRASSI");
for (int i = 1; i < ENDAUT; i++)
for (int i = 1; i < ENDAUT; i++) {
{ if (i == MUAUT) continue;
if (i == MUAUT) continue; const int pos = _msk->id2pos(F_BASE + i);
const int pos = _msk->id2pos(F_BASE + i); if (pos >= 0)
if (pos >= 0) {
{ TMask_field& f = m.fld(pos);
TMask_field& f = m.fld(pos);
f.enable(!prassi && has_module(i, CHK_DONGLE));
f.enable(!prassi && has_module(i, CHK_DONGLE)); if (prassi) f.set("X");
if (prassi) f.set("X"); }
} }
} }
}
bool TSet_users::user_create()
bool set_users::user_create() {
{ if (user() != "PRASSI")
const TString16 u(user()); return error_box("Utente non abilitato all'uso di questo programma");
_msk = new TMask("ba1400a") ;
if (u != "PRASSI") return FALSE; _rel = new TRelation(LF_USER);
_msk = new TMask("ba1400a") ; _msk->field(F_MU).disable();
_rel = new TRelation(LF_USER); _msk->set_handler(F_PASSWORD, password_handler);
_msk->field(F_MU).disable(); return TRUE;
_msk->set_handler(F_PASSWORD, password_handler); }
return TRUE;
} int TSet_users::read(TMask& m)
int set_users::read(TMask& m) {
TRelation_application::read(m);
{ const TRelation *r = get_relation();
TRelation_application::read(m);
const TRelation *r = get_relation(); m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
return NOERR;
m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD"))); }
return NOERR;
} int TSet_users::write(const TMask& m)
int set_users::write(const TMask& m) {
TRelation *r = get_relation();
{ TString16 s(encode(m.get(F_PASSWORD)));
TRelation *r = get_relation();
TString16 s(encode(m.get(F_PASSWORD))); r->lfile().put("PASSWORD", (const char *) s);
return TRelation_application::write(m);
r->lfile().put("PASSWORD", (const char *) s); }
return TRelation_application::write(m);
} int TSet_users::rewrite(const TMask& m)
int set_users::rewrite(const TMask& m) {
TRelation *r = get_relation();
{ TString16 s(encode(m.get(F_PASSWORD)));
TRelation *r = get_relation();
TString16 s(encode(m.get(F_PASSWORD))); r->lfile().put("PASSWORD", s);
return TRelation_application::rewrite(m);
r->lfile().put("PASSWORD", s); }
return TRelation_application::rewrite(m);
}
bool TSet_users::user_destroy()
bool set_users::user_destroy() {
{ if (_msk != NULL) delete _msk;
delete _msk; if (_rel != NULL) delete _rel;
delete _rel; return TRUE;
return TRUE; }
}
int ba1400(int argc, char** argv)
int ba1400(int argc, char* argv[]) {
{ TSet_users a ;
set_users a ; a.run(argc, argv, "Configurazione utenti");
a.run(argc, argv, "Configurazione utenti"); return 0;
return 0; }
}

231
ba/ba1400a.uml
View File

@ -1,116 +1,115 @@
#include "ba0100a.h" #include "ba0100a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Selezione utente" -1 -1 35 7 PAGE "Gestione utenti" -1 -1 35 7
STRING F_USER 8 STRING F_USER 8
BEGIN BEGIN
PROMPT 1 1 "Utente " PROMPT 1 1 "Utente "
HELP "Inserire il nome dell'utente" HELP "Inserire il nome dell'utente"
FLAGS "U" FLAGS "U"
USE LF_USER USE LF_USER
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT USERNAME F_USER INPUT USERNAME F_USER
DISPLAY "Utente" USERNAME DISPLAY "Utente" USERNAME
DISPLAY "Descrizione@50" USERDESC DISPLAY "Descrizione@50" USERDESC
OUTPUT F_USER USERNAME OUTPUT F_USER USERNAME
KEY 1 KEY 1
CHECHTYPE REQUIRED CHECHTYPE REQUIRED
FIELD USERNAME FIELD USERNAME
END END
STRING F_USERDESC 50 STRING F_USERDESC 50
BEGIN BEGIN
PROMPT 1 3 "Descrizione " PROMPT 1 3 "Descrizione "
FIELD USERDESC FIELD USERDESC
MESSAGE "X",F_BASE MESSAGE "X",F_BASE
END END
STRING F_PASSWORD 8 0 STRING F_PASSWORD 8 0
BEGIN BEGIN
PROMPT 1 5 "Password " PROMPT 1 5 "Password "
HELP "Inserire la password" HELP "Inserire la password"
MESSAGE "X",F_BASE MESSAGE "X",F_BASE
MESSAGE "X",F_MU MESSAGE "X",F_MU
END END
GROUPBOX DLG_NULL 76 13 GROUPBOX DLG_NULL 76 13
BEGIN BEGIN
PROMPT 0 7 "Moduli" PROMPT 0 7 "Moduli"
END END
BOOLEAN F_BASE BOOLEAN F_BASE
BEGIN BEGIN
PROMPT 1 8 "Base" PROMPT 1 8 "Base"
FLAGS "D" FLAGS "D"
FIELD AUTSTR[1,1] FIELD AUTSTR[1,1]
END END
BOOLEAN F_CG BOOLEAN F_CG
BEGIN BEGIN
PROMPT 31 8 "Contabilita'" PROMPT 31 8 "Contabilita'"
FIELD AUTSTR[2,2] FIELD AUTSTR[2,2]
END END
BOOLEAN F_MU BOOLEAN F_MU
BEGIN BEGIN
PROMPT 59 8 "Multiutenza" PROMPT 59 8 "Multiutenza"
FIELD AUTSTR[3,3] FIELD AUTSTR[3,3]
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_SC BOOLEAN F_SC
BEGIN BEGIN
PROMPT 1 9 "Saldaconto" PROMPT 1 9 "Saldaconto"
FIELD AUTSTR[4,4] FIELD AUTSTR[4,4]
END END
BOOLEAN F_EF BOOLEAN F_EF
BEGIN BEGIN
PROMPT 31 9 "Portafoglio" PROMPT 31 9 "Portafoglio"
FIELD AUTSTR[5,5] FIELD AUTSTR[5,5]
END END
BOOLEAN F_VE BOOLEAN F_VE
BEGIN BEGIN
PROMPT 59 9 "Vendite" PROMPT 59 9 "Vendite"
FIELD AUTSTR[6,6] FIELD AUTSTR[6,6]
END END
BOOLEAN F_MG BOOLEAN F_MG
BEGIN BEGIN
PROMPT 1 10 "Magazzino" PROMPT 1 10 "Magazzino"
FIELD AUTSTR[7,7] FIELD AUTSTR[7,7]
END END
BOOLEAN F_770 BOOLEAN F_770
BEGIN BEGIN
PROMPT 31 10 "770" PROMPT 31 10 "770"
FIELD AUTSTR[8,8] FIELD AUTSTR[8,8]
END END
BOOLEAN F_AB BOOLEAN F_AB
BEGIN BEGIN
PROMPT 59 10 "Bilanci" PROMPT 59 10 "Bilanci"
FIELD AUTSTR[21,21] FIELD AUTSTR[21,21]
END END
BOOLEAN F_NI BOOLEAN F_NI
BEGIN BEGIN
PROMPT 1 11 "Nota integrativa" PROMPT 1 11 "Nota integrativa"
FIELD AUTSTR[22,22] FIELD AUTSTR[22,22]
END END
BOOLEAN F_NR BOOLEAN F_NR
BEGIN BEGIN
PROMPT 31 11 "Nota integrativa ridotta" PROMPT 31 11 "Nota integrativa ridotta"
FIELD AUTSTR[23,23] FIELD AUTSTR[23,23]
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

743
ba/ba1500.cpp
View File

@ -1,371 +1,372 @@
#include <applicat.h> #include <applicat.h>
#include <modaut.h> #include <modaut.h>
#include <mask.h> #include <mask.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include <extcdecl.h> #include <extcdecl.h>
#include "ba1.h"
#include "ba0100a.h" #include "ba1.h"
#include "ba1500a.h" #include "ba0100a.h"
#define USERADR 26952 #include "ba1500a.h"
#define AGAADR 26953
#define PRASSIADR 26954 #define USERADR 26952
#define K1 0x4500 #define AGAADR 26953
#define BYTEMASK 0x00FF #define PRASSIADR 26954
#define UBYTEMASK 0xFF00 #define K1 0x4500
#define MAXAUT 49 #define BYTEMASK 0x00FF
#define UBYTEMASK 0xFF00
enum kt { _user_key, _aga_key, _prassi_key}; #define MAXAUT 49
#define BITTEST(w,p) (((w) & (0x0001 << (p))) != 0) enum kt { _user_key, _aga_key, _prassi_key};
#define BITSET(w,p,v) ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
#define BITTEST(w,p) (((w) & (0x0001 << (p))) != 0)
class att_moduli : public TApplication #define BITSET(w,p,v) ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
{
TMask* _msk; class TAttivazione_moduli : public TApplication
kt _key_type; {
word _serno; TMask* _msk;
word _port;
kt _key_type;
virtual bool create() ; word _serno;
virtual bool destroy() ; word _port;
bool menu(MENU_TAG);
void generate_key(); virtual bool create() ;
void keyext(const TString16 & s, word * v); virtual bool destroy() ;
static bool user_hnd(TMask_field & f, KEY k); bool menu(MENU_TAG);
static bool decode_hnd(TMask_field & f, KEY k); void generate_key();
static bool activate_hnd(TMask_field & f, KEY k);
static void keyext(const TString & s, word * v);
public: static bool user_hnd(TMask_field & f, KEY k);
att_moduli() { _key_type = _user_key;} static bool decode_hnd(TMask_field & f, KEY k);
virtual ~att_moduli() {} static bool activate_hnd(TMask_field & f, KEY k);
};
public:
void att_moduli::generate_key() TAttivazione_moduli() : _msk(NULL) { _key_type = _user_key;}
{ };
word ud[4];
bool ok;
HIDDEN TAttivazione_moduli& app() { return (TAttivazione_moduli &) main_app(); }
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(_port, USERADR); void TAttivazione_moduli::generate_key()
ud[0] = HL_RD(_port, 48); {
ud[1] = HL_RD(_port, 49); #if XVT_OS == XVT_OS_SCOUNIX
ud[2] = HL_RD(_port, 50); word ud[4];
ud[3] = HL_RD(_port, 51); INT_OFF();
HL_OFF(_port); HL_ON(_port, USERADR);
INT_ON(); ud[0] = HL_RD(_port, 48);
#else ud[1] = HL_RD(_port, 49);
HL_READ(48, &ud[0]); ud[2] = HL_RD(_port, 50);
HL_READ(49, &ud[1]); ud[3] = HL_RD(_port, 51);
HL_READ(50, &ud[2]); HL_OFF(_port);
HL_READ(51, &ud[3]); INT_ON();
#endif #else
int nmod = 0; int ud[4];
HL_READ(48, &ud[0]);
_msk->set(F_K2, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3])); HL_READ(49, &ud[1]);
for (int i = 1; i < MAXAUT; i++) HL_READ(50, &ud[2]);
{ HL_READ(51, &ud[3]);
const int pos = _msk->id2pos(F_BASE + i); #endif
if (pos >= 0 && has_module(i, CHK_DONGLE)) int nmod = 0;
{
_msk->fld(pos).set("X"); _msk->set(F_K2, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
nmod++; for (int i = 1; i < MAXAUT; i++)
} {
} const int pos = _msk->id2pos(F_BASE + i);
_serno = SerNo; if (pos >= 0 && has_module(i, CHK_DONGLE))
ud[0] = _serno; {
ud[1] = K1 | (nmod & BYTEMASK); _msk->fld(pos).set("X");
long & l = (long &) ud[2]; nmod++;
TDate d(TODAY); }
}
l = (long) d;
#if XVT_OS == XVT_OS_SCOUNIX _serno = SerNo;
INT_OFF(); ud[0] = _serno;
HL_ON(_port, ModAd); ud[1] = K1 | (nmod & BYTEMASK);
ok = K_EYE(_port, (unsigned char *) ud, HLBLOCK); long & l = (long &) ud[2];
HL_OFF(_port); TDate d(TODAY);
INT_ON();
#else l = (long) d;
HL_CODE(EYECAST &ud[0], HLBLOCK); #if XVT_OS == XVT_OS_SCOUNIX
#endif INT_OFF();
_msk->set(F_K1, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3])); HL_ON(_port, ModAd);
_msk->set(F_SN, SerNo); K_EYE(_port, (unsigned char *) ud, HLBLOCK);
_msk->set(F_DT, d.string()); HL_OFF(_port);
} INT_ON();
#else
int hexdigit(char c) HL_CODE(EYECAST &ud[0], HLBLOCK);
{ #endif
static char s[] = "0123456789ABCDEF"; _msk->set(F_K1, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
int i = strlen(s); _msk->set(F_SN, SerNo);
_msk->set(F_DT, d.string());
while (i-- >= 0) }
if (s[i] == c)
break; int hexdigit(char c)
return i; {
} static char s[] = "0123456789ABCDEF";
int i = strlen(s);
void att_moduli::keyext(const TString16 & s, word * val)
{ while (i-- >= 0)
for (int i = 0 ; i < 4; i++) if (s[i] == c)
{ break;
const int off = i * 4; return i;
word & l = val[i]; }
l = 0; void TAttivazione_moduli::keyext(const TString& s, word * val)
for (int j = 0; j < 4; j++) {
l = l * 16 + hexdigit(s[off + j]); for (int i = 0 ; i < 4; i++)
} {
} const int off = i * 4;
word & l = val[i];
bool att_moduli::user_hnd(TMask_field & f, KEY k)
{ l = 0;
const TString16 k4(f.get()); for (int j = 0; j < 4; j++)
if (!f.to_check(k) || k4.empty()) return TRUE; l = l * 16 + hexdigit(s[off + j]);
att_moduli & app = (att_moduli &) main_app(); }
TMask & m = f.mask(); }
word ud1[4], ud2[4], port = app._port;
BOOLEAN ok; bool TAttivazione_moduli::user_hnd(TMask_field & f, KEY k)
const TString16 k3(m.get(F_K3)); {
const TString16 k4(f.get());
keyext(k3, ud1); if (!f.to_check(k) || k4.empty()) return TRUE;
keyext(k4, ud2); TMask & m = f.mask();
#if XVT_OS == XVT_OS_SCOUNIX word ud1[4], ud2[4], port = app()._port;
INT_OFF(); const TString16 k3(m.get(F_K3));
HL_ON(port, ModAd);
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK); keyext(k3, ud1);
HL_OFF(port); keyext(k4, ud2);
INT_ON(); #if XVT_OS == XVT_OS_SCOUNIX
#else INT_OFF();
HL_CODE(EYECAST ud1, HLBLOCK); HL_ON(port, ModAd);
#endif K_EYE(port, (unsigned char *) ud1, HLBLOCK);
const long & l = (long &) ud1[0]; HL_OFF(port);
TDate d(l), d1(TODAY); INT_ON();
#else
d.addmonth(3); HL_CODE(EYECAST ud1, HLBLOCK);
if (d < d1) #endif
return f.error_box("data non valida"); const long & l = (long &) ud1[0];
if ((ud1[2] & UBYTEMASK) != K1 || ud1[3] != app._serno) TDate d(l), d1(TODAY);
return f.error_box("primo codice errato");
#if XVT_OS == XVT_OS_SCOUNIX d.addmonth(3);
INT_OFF(); if (d < d1)
HL_ON(port, ModAd); return f.error_box("data non valida");
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK); if ((ud1[2] & UBYTEMASK) != K1 || ud1[3] != app()._serno)
HL_OFF(port); return f.error_box("primo codice errato");
INT_ON(); #if XVT_OS == XVT_OS_SCOUNIX
#else INT_OFF();
HL_CODE(EYECAST ud2, HLBLOCK); HL_ON(port, ModAd);
#endif ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
for (int i = 0; i < 4; i++) ud2[i] ^= app._serno; HL_OFF(port);
if (ud2[3] != 0) INT_ON();
return f.error_box("secondo codice errato"); #else
for (i = 1; i < MAXAUT; i++) HL_CODE(EYECAST ud2, HLBLOCK);
{ #endif
const int af = i - 1; for (int i = 0; i < 4; i++) ud2[i] ^= app()._serno;
const int pos = m.id2pos(F_BASE + i); if (ud2[3] != 0)
return f.error_box("secondo codice errato");
if (pos >= 0) for (i = 1; i < MAXAUT; i++)
m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " "); {
} const int af = i - 1;
if (k == K_ENTER) const int pos = m.id2pos(F_BASE + i);
{
keyext(k4, ud2); if (pos >= 0)
#if XVT_OS == XVT_OS_SCOUNIX m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
INT_OFF(); }
HL_ON(port, ModAd); if (k == K_ENTER)
HL_ON(port, ModAd); {
HL_WR(port, 48, ud2[0]); keyext(k4, ud2);
HL_WR(port, 49, ud2[1]); #if XVT_OS == XVT_OS_SCOUNIX
HL_WR(port, 50, ud2[2]); INT_OFF();
HL_WR(port, 51, ud2[3]); HL_ON(port, ModAd);
HL_OFF(port); HL_ON(port, ModAd);
INT_ON(); HL_WR(port, 48, ud2[0]);
#else HL_WR(port, 49, ud2[1]);
HL_WRITE(48, ud2[0]); HL_WR(port, 50, ud2[2]);
HL_WRITE(49, ud2[1]); HL_WR(port, 51, ud2[3]);
HL_WRITE(50, ud2[2]); HL_OFF(port);
HL_WRITE(51, ud2[3]); INT_ON();
#endif #else
} HL_WRITE(48, ud2[0]);
return TRUE; HL_WRITE(49, ud2[1]);
} HL_WRITE(50, ud2[2]);
HL_WRITE(51, ud2[3]);
bool att_moduli::decode_hnd(TMask_field & f, KEY k) #endif
{ }
const TString16 k2(f.get()); return TRUE;
if (!f.to_check(k) || k2.empty()) return TRUE; }
att_moduli & app = (att_moduli &) main_app();
TMask & m = f.mask(); bool TAttivazione_moduli::decode_hnd(TMask_field & f, KEY k)
word ud1[4], ud2[4], port = app._port; {
BOOLEAN ok; const TString16 k2(f.get());
const TString16 k1(m.get(F_K1)); if (!f.to_check(k) || k2.empty()) return TRUE;
TMask & m = f.mask();
keyext(k1, ud1); word ud1[4], ud2[4], port = app()._port;
keyext(k2, ud2); const TString16 k1(m.get(F_K1));
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF(); keyext(k1, ud1);
HL_ON(port, USERADR); keyext(k2, ud2);
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK); #if XVT_OS == XVT_OS_SCOUNIX
HL_OFF(port); INT_OFF();
INT_ON(); HL_ON(port, USERADR);
#else K_EYE(port, (unsigned char *) ud1, HLBLOCK);
HL_CODE(EYECAST ud1, HLBLOCK); HL_OFF(port);
#endif INT_ON();
long & l = (long &) ud1[2]; #else
const TDate d(l); HL_CODE(EYECAST ud1, HLBLOCK);
app._serno = ud1[0]; #endif
if ((ud1[1] & UBYTEMASK) != K1) long & l = (long &) ud1[2];
return f.error_box("primo codice errato"); const TDate d(l);
#if XVT_OS == XVT_OS_SCOUNIX app()._serno = ud1[0];
INT_OFF(); if ((ud1[1] & UBYTEMASK) != K1)
HL_ON(port, USERADR); return f.error_box("primo codice errato");
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK); #if XVT_OS == XVT_OS_SCOUNIX
HL_OFF(port); INT_OFF();
INT_ON(); HL_ON(port, USERADR);
#else K_EYE(port, (unsigned char *) ud2, HLBLOCK);
HL_CODE(EYECAST ud2, HLBLOCK); HL_OFF(port);
#endif INT_ON();
for (int i = 0; i < 4; i++) ud2[i] ^= app._serno; #else
if (ud2[3] != 0) HL_CODE(EYECAST ud2, HLBLOCK);
return f.error_box("secondo codice errato"); #endif
m.set(F_SN, app._serno); for (int i = 0; i < 4; i++) ud2[i] ^= app()._serno;
m.set(F_DT, d.string()); if (ud2[3] != 0)
for (i = 1; i < MAXAUT; i++) return f.error_box("secondo codice errato");
{ m.set(F_SN, app()._serno);
const int af = i - 1; m.set(F_DT, d.string());
const int pos = m.id2pos(F_BASE + i); for (i = 1; i < MAXAUT; i++)
{
if (pos >= 0) const int af = i - 1;
m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " "); const int pos = m.id2pos(F_BASE + i);
}
return TRUE; if (pos >= 0)
} m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
}
bool att_moduli::activate_hnd(TMask_field & f, KEY k) return TRUE;
{ }
if (!f.to_check(k)) return TRUE;
att_moduli & app = (att_moduli &) main_app(); bool TAttivazione_moduli::activate_hnd(TMask_field & f, KEY k)
TMask & m = f.mask(); {
word ud1[4], ud2[4], port = app._port; if (!f.to_check(k)) return TRUE;
BOOLEAN ok; TMask & m = f.mask();
int nmod = 0; word ud1[4], ud2[4], port = app()._port;
int nmod = 0;
for (int i = 0; i < 4; i++) ud2[i] = 0;
for (i = 1; i < MAXAUT; i++) for (int i = 0; i < 4; i++) ud2[i] = 0;
{ for (i = 1; i < MAXAUT; i++)
const int af = i - 1; {
const int pos = m.id2pos(F_BASE + i); const int af = i - 1;
const int pos = m.id2pos(F_BASE + i);
if (pos >= 0 && m.get_bool(F_BASE + i))
{ if (pos >= 0 && m.get_bool(F_BASE + i))
BITSET(ud2[af / 16], af % 16, TRUE); {
nmod++; BITSET(ud2[af / 16], af % 16, TRUE);
} nmod++;
} }
for (i = 0; i < 4; i++) ud2[i] ^= app._serno; }
for (i = 0; i < 4; i++) ud2[i] ^= app()._serno;
const TDate d(m.get(F_DT));
long & l = (long &) ud1[0]; const TDate d(m.get(F_DT));
long & l = (long &) ud1[0];
l = (long) d;
ud1[2] = K1 | (nmod & UBYTEMASK); l = (long) d;
ud1[3] = app._serno; ud1[2] = K1 | (nmod & UBYTEMASK);
#if XVT_OS == XVT_OS_SCOUNIX ud1[3] = app()._serno;
INT_OFF(); #if XVT_OS == XVT_OS_SCOUNIX
HL_ON(port, ModAd); INT_OFF();
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK); HL_ON(port, ModAd);
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK); K_EYE(port, (unsigned char *) ud1, HLBLOCK);
HL_OFF(port); K_EYE(port, (unsigned char *) ud2, HLBLOCK);
INT_ON(); HL_OFF(port);
#else INT_ON();
HL_CODE(EYECAST ud1, HLBLOCK); #else
HL_CODE(EYECAST ud2, HLBLOCK); HL_CODE(EYECAST ud1, HLBLOCK);
#endif HL_CODE(EYECAST ud2, HLBLOCK);
m.set(F_K4, format("%04X%04X%04X%04X", ud2[0], ud2[1], ud2[2], ud2[3])); #endif
m.set(F_K3, format("%04X%04X%04X%04X", ud1[0], ud1[1], ud1[2], ud1[3])); m.set(F_K4, format("%04X%04X%04X%04X", ud2[0], ud2[1], ud2[2], ud2[3]));
return TRUE; m.set(F_K3, format("%04X%04X%04X%04X", ud1[0], ud1[1], ud1[2], ud1[3]));
} return TRUE;
}
bool att_moduli::create()
{ bool TAttivazione_moduli::create()
const TString16 u(user()); {
if (user() != "PRASSI")
if (u != "PRASSI") return FALSE; return error_box("Utente non abilitato all'uso di questo programma");
_msk = new TMask("ba1500a") ;
#if XVT_OS == XVT_OS_SCOUNIX _msk = new TMask("ba1500a") ;
if (Hl_Port(AGAADR) != 0) #if XVT_OS == XVT_OS_SCOUNIX
_key_type = _aga_key; if (Hl_Port(AGAADR) != 0)
else _key_type = _aga_key;
if (Hl_Port(PRASSIADR) != 0) else
_key_type = _prassi_key; if (Hl_Port(PRASSIADR) != 0)
_port = Hl_Port(USERADR); _key_type = _prassi_key;
#else _port = Hl_Port(USERADR);
HL_LOGOUT(); #else
if (HL_LOGIN(AGAADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK) HL_LOGOUT();
_key_type = _aga_key; if (HL_LOGIN(AGAADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
else _key_type = _aga_key;
{ else
HL_LOGOUT(); {
if (HL_LOGIN(PRASSIADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK) HL_LOGOUT();
_key_type = _prassi_key; if (HL_LOGIN(PRASSIADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
} _key_type = _prassi_key;
HL_LOGOUT(); }
HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY); HL_LOGOUT();
#endif HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY);
switch (_key_type) #endif
{ switch (_key_type)
case _user_key: {
{ case _user_key:
_msk->disable(F_K1); {
_msk->disable(F_K2); _msk->disable(F_K1);
_msk->set_handler(F_K4, user_hnd); _msk->disable(F_K2);
generate_key(); _msk->set_handler(F_K4, user_hnd);
for (int i = 1; i < ENDAUT; i++) generate_key();
{ for (int i = 1; i < ENDAUT; i++)
const int pos = _msk->id2pos(F_BASE + i); {
if (pos >= 0) _msk->fld(pos).disable(); const int pos = _msk->id2pos(F_BASE + i);
} if (pos >= 0) _msk->fld(pos).disable();
} }
break; }
case _aga_key: break;
case _prassi_key: case _aga_key:
{ case _prassi_key:
_msk->set_handler(F_K2, decode_hnd); {
_msk->disable(F_K3); _msk->set_handler(F_K2, decode_hnd);
_msk->disable(F_K4); _msk->disable(F_K3);
for (int i = 1; i < MAXAUT; i++) _msk->disable(F_K4);
{ for (int i = 1; i < MAXAUT; i++)
const int pos = _msk->id2pos(F_BASE + i); {
const int pos = _msk->id2pos(F_BASE + i);
if (pos >= 0)
_msk->set_handler(F_BASE + i, activate_hnd); if (pos >= 0)
} _msk->set_handler(F_BASE + i, activate_hnd);
} }
break; }
default: break;
break; default:
} break;
dispatch_e_menu(BAR_ITEM(1)); }
return TRUE; dispatch_e_menu(BAR_ITEM(1));
} return TRUE;
}
bool att_moduli::destroy()
{ bool TAttivazione_moduli::destroy()
delete _msk; {
return TRUE; if (_msk != NULL) delete _msk;
} return TRUE;
}
bool att_moduli::menu(MENU_TAG)
{ bool TAttivazione_moduli::menu(MENU_TAG)
_msk->run(); {
return FALSE; _msk->run();
} return FALSE;
}
int ba1500(int argc, char* argv[])
{ int ba1500(int argc, char** argv)
att_moduli a ; {
a.run(argc, argv, "Attivazione moduli"); TAttivazione_moduli a ;
return 0; a.run(argc, argv, "Attivazione moduli");
} return 0;
}