JvXORCipher bug sur widestring

Version imprimable

1 pièce(s) jointe(s)

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:

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,

10/02/2017, 10h37
ShaiLeTroll

:tagcode:

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

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:

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

14/02/2017, 18h26
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:

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

Citation:
Envoyé par 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:

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:

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:

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.

16/02/2017, 08h48
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:

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 :roll:)
Code:

1 2 3 4 function TRELCALChoixSortieFrm.DecodeReg(pkey, pACoder: AnsiString): String; begin result := JvXORCipher1.DecodeString(pKey,pACoder); end;
16/02/2017, 13h12
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:

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:

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:

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

Au niveau SetString, cela devrait être :

Code:

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:

Result := PChar(ms.memory);