hexadecimal depuis fichier

Salut,

Je pose une question de débutant, qui a d'ailleurs sûrement sa réponse dans la FAQ (même si je ne l'ai que brièvement cherchée sans la trouver). En fait j'ai une forte envie de taper mon clavier très fort pour un truc si bête :aie:.
Tout simplement, j'ai un fichier texte qui ne contient que des caractères du type "\x41 \x43 ....", que j'aimerais pouvoir afficher en ascii. Quand je fais un print directement sur cette chaîne, j'obtiens bien les caractères ascii. Par contre quand je l'affiche en provenance du fichier, c'est comme si aucun des caractères n'était interprété ! Je me meurs :mouarf:
Voici le mini code (même si c'est un peu inutile) :

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w open (LIRE,"/tmp/shellcode.txt") || die("error"); while(<LIRE>) { print STDOUT "$_"; } close(LIRE);

---

Ou bien encore

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w open (LIRE,"/tmp/s.txt") || die("error");   $str = <LIRE>; print "$str";   close(LIRE);

---

Merci d'avance !

C'est normal, le programme lit une chaîne de caractères dans ton fichier, et il imprime cette chaîne de caractère.

Si tu veux récupérer, mes codes ascii, il faut décoder les nombres hexa puis traduire en ascii.

En fait, je viens de faire un essai sous le debuger Perl, il y a plus simple. Il suffit de remplacer les backslashes par des zéros:

Code:

---

1 2 3 4 5 6 7 8

DB<1> $c = "\x41 \x43 ...."   DB<2> $c =~ s/\\/0/g;   DB<3> p $c A C .... DB<4>

---

Merci beaucoup !

Pourrais tu, si tu le veux bien, m'expliquer la différence fondamentale avec print "\x41 \x43...." ? L'argument passé est considéré, comme en C, comme un const char*, différent du type string ? Je ne programme absolument pas en perl, et je dois avouer que je n'ai pas trop envie de me regarder ces détails vu le peu d'utilisation que j'en fait.
En tout cas je vais passer le sujet en résolu, merci ;)

En fait, je ne sais pas trop. Je viens de faire quelques nouveaux essais, pour mieux comprendre ce qui se passe exactement.

D'abord, en utilisant ta chaîne (avec les backslashes), ça semble marcher, sans avoir besoin de remplacer les backslashes par des zéros, aussi bien à la ligne de commande, :

Code:

---

1 2 3

$ perl -e 'print "\x41 \x43...."' A C....

---

que sous le debuger:

Code:

---

1 2 3

DB<1> print "\x41 \x43...." A C....

---

Mais si j'utilise les single quotes sous le debugger, ça ne marche pas:

Code:

---

1 2 3 4

DB<1> print '\x41 \x43....'; \x41 \x43.... DB<2>

---

Ce qui commence à donner un élément de piste: avec les single quotes, c'est la chaîne littérale qui est utilisée, alors qu'avec les guillemets, il y a interpolation et Perl interprète bien les nombres comme des hexadécimaux.

Dans le cas de ton post d'origine, la chaîne de caractères est lue depuis un fichier et c'est forcément la chaîne littérale lue depuis le fichier qui est considérée, sans interpolation des backslashes. Donc, pour vérifier, je simule la lecture d'un fichier en redirigeant un écho vers le programme Perl avec un pipe Unix:

Code:

---

1 2 3 4 5 6

$ echo "\x41 \x43...." | perl -ne 'print $_;' \x41 \x43....   $ echo "\x41 \x43...." | perl -ne 's/\\/0/g; print $_;' 0x41 0x43....

---

La conversion ne se fait pas, et la substitution du backslash par 0 ne marche pas non plus. Toujours parce que c'est une chaîne littérale, semble-t-il, qui est utilisée.

En revanche, en faisant la double conversion dont je parlais dans mon premier post, ça semble marcher:

Code:

---

1 2 3

$ echo "\x41 \x43...." | perl -ne 's/\\/0/g; print chr hex ($_) for split / /, $_;' AC

---

Donc, c'est sans doute cette dernière syntaxe que tu dois employer pour la lecture d'un fichier. Le 's/\\/0/g' remplace le '\' par un zéro, le split divise la ligne en caractères hexa individuels, le hex convertit la valeur hexa en valeur décimale et, enfin, le chr convertit la valeur décimale trouvée en caractère ASCII.

Code:

---

1 2	Je ne programme absolument pas en perl, et je dois avouer que je n'ai pas trop envie de me regarder ces détails vu le peu d'utilisation que j'en fait.

---

Tu as bien tort. :mrgreen: Cette simple ligne de code:

Code:

---

1 2	s/\\/0/g; print chr hex $_ for split / /, $_;

---

écrite en 15 secondes, c'est sans doute 50 lignes de code et probablement une bonne heure de codage en C (sans même parler des risques accrus de bug). Mais tout dépend naturellement de si tu es payé à l'heure de travail ou au résultat. :roll: Moi, je suis consultant indépendant, je suis payé au résultat. Si j'étais payé à l'heure ou à la ligne de code, peut-être que je travaillerais en C ou en Java (voire en ADA ou même en assembleur)... Quoique... Non, plus trop envie de me prendre la tête avec des langages aussi peu efficaces (en terme de rapidité et concision de codage) quand je peux éviter.

Bon, je ne faisais que plaisanter dans ce dernier paragraphe, et je ne cherche certainement pas à déclencher une polémique stérile sur les mérites respectifs des différents langages. Tu fais ce que tu veux et, surtout, ça m'est bien égal.

J'espère tout de même et surtout que les exemples ci-dessus auront un peu éclairé ta lanterne et, surtout, t'auront donné la base d'une solution à ton problème.

Bonne soirée.

Merci beaucoup pour ta réponse détaillée, c'est toujours intéressant de voir comment ça fonctionne, même si on n'en a pas toujours le temps !

Bonjour,

La solution que je donne n'est pas en perl mais en shell, mais je la donne (juste pour le fun) car elle est aussi très courte et comme à première vue, tu n'es pas un adepte du perl (ce qui est dommage...):

Code:

---

1 2 3

$ cat xxxx \x41 \x43.... \x42 \x45...XX

---

Code:

---

1 2 3

$ echo -e "$(<xxxx)" A C.... B E...XX

---

Bon, ici, la meilleur méthode, est bien celle de perl, puisque plus portable que la méthode en shell...