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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| procedure TRELCALChoixSortieFrm.FormActivate(Sender: TObject);
var
ii: integer;
tempstr: string;
bRandomCode: string;
Codedépart: string;
Codeactivation : string;
bACoder: string;
bYear: string;
bBlocCode : widestring;
bDecodestring: string;
bLicTxt : string[100];
begin
RELCALDataModule.ConnectBdd;
ASerial := getserial;
Edit2.Text := ASerial;
bLicTxt := RELCALCommon.CleAnnuelle;
RELCALDataModule.ADOSPGetMyDate.Parameters.ParamByName('@Ladate').Direction := pdOutput;
RELCALDataModule.ADOSPGetMyDate.ExecProc;
ADateJourStr := RELCALDataModule.ADOSPGetMyDate.Parameters.ParamByName('@Ladate').value;
AdateJour := StrtoDate(ADateJourStr);
AYear := YearOf(AdateJour);
bYear := inttostr(AYear);
EdAnnee.Text := bYear;
if RELCALCommon.CleGen = '' then
begin
bRandomCode := RELCALDataModule.RandomPassword(10);
RELCALCommon.BIniFile.WriteString('Produit', 'Gen ', bRandomCode );
RELCALCommon.CleGen := bRandomCode;
end;
edAbonnement.Text := RELCALCOMMON.NomAbonnement;
bACoder := bYear+ASerial+RELCALCOMMON.NomAbonnement;
adACoder.Text := bACoder;
bBlocCode := GetGenReg(bACoder, RELCALCommon.CleGen);
EdLiceCode.Text := bBlocCode;
EdLicenceLUE.text := bLicTxt;
bDecodeString := DecodeReg(bBlocCode,RELCALCommon.CleGen);
edLicenceDec.Text := bDecodeString;
eddectxt.Text := DecodeReg(RELCALCommon.CleAnnuelle ,RELCALCommon.CleGen);
SetCombo;
end;
function TRELCALChoixSortieFrm.DecodeReg(pACoder: widestring; pkey: widestring):string;
begin
result := JvXORCipher1.DecodeString(pKey,pACoder);
end; |
Partager