Discussion :

[akdmks]

Bonjour,

pour les besoins d'un projet je dois convertir une chaine base64 en hexadecimal.
J'ai 2 chaines en base64 que je dois convertir en binaire, pour ensuite retirer certains octets des 2 trames binaires, et enfin les comparer entre elles.
J'ai donc essayé d'utiliser MIME::Base64.
Mon soucis, quand je convertis la chaine et que je fais print, j'obtiens bien la conversion mais elle s'affiche sous forme ascii.

Exemple :
my $chaine ="aa"
my $chainedecodee = decode_base64($chaine);
print $chaine donne 'i' au lieu de '01101001'

Comment forcer perl a utiliser des valeurs binaires pour que ma variable soit du genre 01101001 ???

Merci d'avance.

PS : je suis pas un professionnel du Perl :-)

[Jedai]

Utilise unpack() avec B* :

Code :

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

1
2
3
my $code ="aa"
my $result = unpack( 'B*', decode_base64($code));
print $results;

--
Jedaï

[MarneusCalgarXP]

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
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $chaine = 'i';
&binchar($chaine);
 
sub binchar {
	my ($char) = @_;
	my $ordinalvalue = ord($char);
	print "[$char] vaut [$ordinalvalue] en décimal";
 
	my $binstring = '';
	for (my $power = 0; $power < 8; $power++) {
		my $bitactive = ($ordinalvalue >> $power) & 1;
		$binstring = sprintf("%d%s", ($bitactive, $binstring));
	}
	print " et [$binstring] en binaire";
}

sortie

Code :

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

[i] vaut [105] en décimal et [01101001] en binaire

[akdmks]

Merci pour les 2 réponses surtout le unpack(). :-)
Mon probleme est réglé.
Bonne fin de journée.