Discussion :

[neurotech]

Bonjour,
j'utilise le composant JEDI JvXORCipher afin d'encoder une chaine de caractères et la décoder.

si la chaine de caractères à décoder est "fournie" par la méthode Decodestring : ok
si je lis cette chaine de caractères dans un fichier texte la méthode decodestring ne prend pas en compte tous les caractères.

le bug est lié au fait que sur embarcadero XE7 les widestring sont alloués sur 2 octets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

merci pour votre aide,

[ShaiLeTroll]

Sur XE7 String et WideString sont les deux sur 2 octets !
C'est quoi le prototype de la TJvXORCipher.DecodeString ? String ou RawByteString ?
Pour ce genre chose, vaut mieux utiliser un PByte ou TStream, c'est chiant ces vieilles API de Delphi7 utisant encore du string

Quel est la raison d'utiliser du WideString, tu veux intégrer cela à un ActiveX, un objet COM que encapsulera ton système de licence ?
En dehors de l'automation, il n'y pas de raison d'utiliser du WideString

[neurotech]

La fonction implémentée decodeString(pkey : AnsiString; const Value : pAnsiString) : AnsiString dans JvXorCipher renvoi un AnsiString.
C'est cette fonction qui est beuguée au vue du codage de ansistring;
J'ai essayé de passé par un TStream et utiliser la procedure DecodeStream(pkey: AnsiString; Stream: TStream) avec passage du string en tstream avant , puis tstream en string après mais cela donne un résultat incohérent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
**********************
  bStream := StringToStream(RELCALCommon.CleAnnuelle);
  DecodeReg(bStream ,RELCALCommon.CleGen);
  edDectxt.Text := StreamToString(bStream);
********************
 
function TRELCALChoixSortieFrm.StringToStream(const pString: string): TStream;
begin
  Result := TStringStream.Create(pString);
end;
 
function TRELCALChoixSortieFrm.StreamToString(Stream: TStream): string;
var
  ms: TMemoryStream;
begin
  Result := '';
  ms := TMemoryStream.Create;
  try
    ms.LoadFromStream(Stream);
    SetString(Result, PChar(ms.memory), ms.Size);
  finally
    ms.Free;
  end;
end;
 
resultat : function TRELCALChoixSortieFrm.StreamToString(Stream: TStream): string;
var
  ms: TMemoryStream;
begin
  Result := '';
  ms := TMemoryStream.Create;
  try
    ms.LoadFromStream(Stream);
    SetString(Result, PChar(ms.memory), ms.Size);
  finally
    ms.Free;
  end;
end;

suggestion ?

Merci

[ShaiLeTroll]

AnsiString, c'est justement nettement mieux pour gérer une sorte de binaire
Attention sur le Stream.Size, une chaine "string" en XE7 c'est Size = Length x 2
Tu risques de récupérer de caractère genre chinois ou russe avec ton SetString

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
function TRELCALChoixSortieFrm.StreamToString(Stream: TStream): AnsiString;
...
SetString(Result, PAnsiChar(ms.memory), ms.Size);

[neurotech]

AnsiString, c'est justement nettement mieux pour gérer une sorte de binaire
Attention sur le Stream.Size, une chaine "string" en XE7 c'est Size = Length x 2
Tu risques de récupérer de caractère genre chinois ou russe avec ton SetString

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
function TRELCALChoixSortieFrm.StreamToString(Stream: TStream): AnsiString;
...
SetString(Result, PAnsiChar(ms.memory), ms.Size);

Bonjour, j'ai modifié le code de la procédure
************************************

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function TRELCALChoixSortieFrm.StreamToString(Stream: TStream): string;
var
  ms: TMemoryStream;
begin
  Result := '';
  ms := TMemoryStream.Create;
  try
    ms.LoadFromStream(Stream);
    SetString(Result, PAnsiChar(ms.memory),(ms.Size)*2);
  finally
    ms.Free;
  end;
end;

*****************************
ci-dessous les lignes de codes avec commentaires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  edAbonnement.Text := RELCALCOMMON.NomAbonnement;       // Lit le nom de la société abonnée
  bACoder := bYear+ASerial+RELCALCOMMON.NomAbonnement;    // Concatene l'année, le numéro unique du PC, le nom société
  adACoder.Text := bACoder; //Afiche la concaténation avant codage
  bBlocCode := GetGenReg(bACoder, RELCALCommon.CleGen);  //Codage Xor du champs à coder
  EdLiceCode.Text := bBlocCode;  //Affiche le code généré
  EdLicenceLUE.text := bLicTxt;   //Affiche le Code lue dans le fichier txt
  bDecodeString := DecodeReg(bBlocCode,RELCALCommon.CleGen);    //Décode le code généré par le Xor
  edLicenceDec.Text := bDecodeString;  //Affiche le décodage du codage
  bStream := StringToStream(RELCALCommon.CleAnnuelle);  //passage du string du fichier texte en Tstream
  DecodeStreamProc(bStream ,RELCALCommon.CleGen);  //décodage du stream
  edDectxt.Text := StreamToString(bStream); //cast du stream en string

//////// !!!!!!!!!!! ///////
Et finallement j'ai toujours la chaine décodée tronquée ( voir image)

peut-être qu'une autre méthode pour coder décoder serait plus adaptée ? Le besoin final est de controler une licence annuelle sur le soft fourni.

[SergioMaster]

Bonjour,

ce n'est pas un bug de JvXORCipher, et AMHA, je me trompe peut être mais une simple conversion devrait suffire (en supposant qu'il n'y ait pas de caractères non ANSI, sinon il doit être possible de jouer sur le Codepage de l'AnsiString) i.e type W1252String = type AnsiString(1252) .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function TRELCALChoixSortieFrm.DecodeReg(pACoder: widestring; pkey: widestring):string;
begin
  result := JvXORCipher1.DecodeString(AnsiString(pKey),AnsiString(pACoder));
end;

ou encore une déclaration différente de decodereg (déjà que je trouve que l'inversion des paramètres est perturbante )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function TRELCALChoixSortieFrm.DecodeReg(pkey, pACoder: AnsiString): String;
begin
  result := JvXORCipher1.DecodeString(pKey,pACoder);
end;

[Andnotor]

Pour moi, il y a un problème sur la longueur de la clé.

Comment est déclaré CleAnnuelle, aussi string[100] comme bLicTxt ?

En admettant que la clé soit "Andnotor" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
bBlocCode := GetGenReg(bACoder, RELCALCommon.CleGen); //Length(bBlocCode) = 8
DecodeReg(bBlocCode,RELCALCommon.CleGen);             //Décodage sur une clé de 8 caractères

mais ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DecodeReg(RELCALCommon.CleAnnuelle ,RELCALCommon.CleGen); //Décodage sur une clé de 100 caractères si CleAnnuelle est string[100]

Même si une chaîne string[100] est chargée avec "Andnotor", sa longueur sera toujours de 100 caractères. Sa représentation en mémoire sera Andnotor#0vdvjdvbjr3le98wduchcb31od8hncl.... Passer cela en paramètre à une widestring n'y changera rien, la widestring fera aussi 100 caractères.

Afficher ensuite ces deux clés de décodage dans des TEdit est trompeur puisque les chaînes sont tronquées au premier #0. Elles semblent identiques mais ne le sont pas

pour passer CleAnnuelle sur la longueur réelle (tronquée au #0) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

eddectxt.Text := DecodeReg(PChar(RELCALCommon.CleAnnuelle) ,RELCALCommon.CleGen);

Au niveau SetString, cela devrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetString(Result, PChar(ms.memory), ms.Size div SizeOf(Char));

ou plus simplement (pour autant qu'il y ait un #0 terminal bien sûr) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := PChar(ms.memory);