Discussion :

[Pascale38]

Bonjour,

je cherche l'algo ou la fonction utilisé par exemple par ce site : http://bin-hex-converter.online-domain-tools.com/
qui permet de convertir du texte en hexadécimal en un texte binaire
Exemple : a040f919fd6704e3ae87f44186c98f4c591a817b
devient @ ù . ý g . ã ® . ô A . É � L
Y . . {

merci beaucoup pour votre aide !!
Pascale38

[Xavier]

Bonjour,
pour convertir Hexa en ASCII, tu peux utiliser les codes suivants:

Code :

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

1
2
3
	Word ibyte = StrToInt("0X" + LabeledEdit4->Text);
	char ccc = char(ibyte);
	LabeledEdit5->Text = ccc;

Pour WideString, il faut chercher des codes similaires
Bon courage
Xavier

[DjmSoftware]

bonjour

Code :

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

1
2
3
4
 
Word ibyte = StrToInt("0X" + LabeledEdit4->Text);
	char ccc = char(ibyte);
	LabeledEdit5->Text = ccc;

Attention aux nombres signés
char ccc = char(ibyte); ne fonctionne qu’avec des entiers plus petit que 128 hors la valeur décimale du premier groupe de caractère 'A0" est égale à 160 équivalent ASCII á voir tableaux ci-dessous
il convient donc d'utiliser des <unsigned char>

http://www.asciitable.com/index/asciifull.gif
http://www.asciitable.com/index/extend.gif

pour l'ago je dirais
(le texte d'entrée est de l'hexadécimal représenté en minuscule)
1.Tester si la longueur du texte d'entrée est bien divisible par 2
2. convertir le code en majuscule
3. tant que le texte d'entrée n'est pas complétement parcouru
4. décoder par groupe de 2 le texte d'entrée
5 transformer le groupe de 2 en décimal
6. remplacer les codes de contrôle et de fonction par des points (valeur inférieure à 32, + 127 et 255)
7 Afficher le code ASCII correspondant

cdlt

[Pascale38]

Bonjour,

merci pour vos réponses , voilà le code que j'avais trouvé entre temps :

Code :

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

1
2
3
4
5
 
AnsiString hexa = "a040f919fd6704e3ae87f44186c98f4c591a817b";
int size = hexa.Length() / 2;	
unsigned char* buffer = new unsigned char[size];	
HexToBin(hexa.c_str(), buffer, size);

Bonne journée !
Pascale38

[DjmSoftware]

ton code est incorrect
une solution ci-dessous

Edit1 contient la valeur texte a transformer (en minuscule)
le Memo est utilisé pour visualiser la sortie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Memo1->Clear();
int longueur=Edit1->Text.Length();	   
AnsiString Tmp(Edit1->Text);
	   AnsiString Result;
	   unsigned char* Buffer = new  unsigned char[longueur*2];
	   HexToBin(Tmp.c_str(),Buffer,longueur*2);
	   Result=(char*)Buffer; // on caste en type char
	   for(int n=0;n<Result.Length();n++)
		 if(Buffer[n]<' ') Result[n+1]='.';     // transformation de tous les caractères non imprimables en '.'
	   Memo1->Lines->Add(Result);
	   delete []Buffer;

cdlt