BIN to HEX

drip has asked for the wisdom of the Perl Monks concerning the following question:

i am new to perl and i have a lot of questions..one of those is this:

Example i have a binary file that contains this:

MZ´^@^L^@^@^@ ^@^@^@˙˙^G^@^@^Ae@^@^@^@^@@^@^@^@^A^@^@^@^@^@^@^@^@^@^@^
+@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^D^@^@^@^@^@^@^@^@^@^
$                                        Z^N^_´ Í!¸^ALÍ!^@^@^@^@^@^@^@
+^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@
:^Ac^FAf^^Ő^E^P^@^@^H^@^@^@^@^O^@^@^@^@^@^P^@^D^@b^K@^@Ŕ^@^K^A^[^A#^A^
+K^@^@^C^A       ^@^@^@^B^H^L^@^N^@^@^@
^C^M^@^N^A@^M^N^A^Z^@d^O^P^]d^O#^@qX^P^]rXQ^@M^P^]My^@$^C^P^]$^C{^@Ĺ^D
+^P^]Ć^D~^@ö     ^P^]ö   ^@^D^G^P^]^D^G^@ą^G^P^]˛^G^@^G^E^P^
CONNECTDLG^FOLECLI^@^@^CWEP^A^@^@^A^@^H^@^L^@^Q^@^@^FKERNEL^CGDI^DUSER
+^ESHELL^A^A^C^@^@^C˙^CÍ?^CN^@^CÍ?^CĆ^@^CÍ?^C"^A^A^@-˙^CÍ?^C^@^D^Í
^Y^CÍ?^C^@^CÍ?^B>      ^CÍ?^B
^CÍ?^Bś^K^CÍ?^B^L^CÍ?^BČ^L^CÍ?^C|^\^CÍ?^Bö^L^CÍ?^C^@^]^CÍ?^CB^L^CÍ?^C4
+^P^C^@^G˙^CÍ?^D^@^@^CÍ?^DZ^B^CÍ?^C<^M^CÍ?^Cž^\^CÍ?^C.^U^CÍ?^C¤^
^@^@^CÍ?
^D^CÍ?
8^D^CÍ?^CPG^CÍ?
^@^CÍ?
.^A^CÍ?
d^A^A^@^D˙^CÍ?^C`K^CÍ?^N˛^E^CÍ?
ŕ^D^CÍ?
"^BY^@^R˙^CÍ?^M4^@^CÍ?^M^A^CÍ?^M^@^CÍ?^M^@^CÍ?^MĐ^@^CÍ?^Mh^@^CÍ?^Mę^@^
+CÍ?^M^D^A^CÍ?^M8^A^CÍ?^MR^A^CÍ?^Ml^A^CÍ?^M"^B^CÍ?^Mş^A^CÍ?^MÔ
z^C^@Í?^Bś^B^@Í?^CXB^@Í?^B¸^G^@Í?^B
^F^@Í?^Br^N^@Í?^CÄ@^@Í?^Cđ7^@Í?^CR&^@Í?^DpI^@Í?^C^_^@Í?^D@L^@Í?^PŇ^A^@
+Í?^Dü.^@Í?^D.^@Í?^CŽ.^@Í?^C^0^@Í?^CÜH^@Í?^C(^@Í?^C:M^@Í?^Pł^B
^@Í?^C^H<^@Í?^DŇ^]^@Í?^D^@$^@Í?^DČ^F^@Í?^CŔ^_^@Í?^C˘^_^@Í?^Dđ^B^@Í?^D˘
+<^@Í?^DD^^^@Í?^D^H^@Í?^Dđ^H^@Í?^CJ'^@Í?^Cę=^@Í?^D^Z^C^@Í?^H^Z^C
Č^B^@Í?^N*^C^@Í?^P^@^@^@Í?^CNV^@Í?^B^^E^@Í?     ^\^F^@Í?         ^G^@Í
+?^M<^B^@Í?^M^@^@^@Í?^Mś^@^@Í?^M^Z^@^@Í?
^^^D^@Í?^CŚ8^@Í?^CîW^@Í?^CTW^@Í?^CRQ^@Í?^B^@^@^@^@LOLE Client. support
+ (c) Copyright Microsoft Corp. 1990 - All Rights Reserved^@^@^NGEN
ERREXECUTEÍ^B^HERRCLOSEĹ^B      MFRELEASE,^A^KLEQUERYOPEN×^@^QOLEQUERY
+OUTOFDATE^_^@^NLESAVETOSTREAMĎ^@
ERRSETDATAž^B   BMRELEASE^A^ROLECREATEINVISIBLE:^@     LESETDATAË^@^NM
+FSAVETOSTREAM.^A^QLESETTARGETDEVICEÍ^@^PLEQ
[download]

how am i supposed to know if a byte is larger that 30(hex)...?

20060822 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips, removed H2 tags

wellll thnx for the help!!!!=) it really helped a lot

Comment on BIN to HEX Download Code

Replies are listed 'Best First'.
Re: BIN to HEX by Roger (Parson) on Aug 22, 2006 at 07:01 UTC
You could first open the file, then read the byte in from the file handle, then inspect the byte. `# open a file open MYFILE, '<myfile.bin' or die 'can not open file'; # read a byte my $byte; read MYFILE, $byte, 1; # do perldoc -f read to see full doco # check the byte if ($byte > 0x30) { print "Byte is greater than 0x30\n"; } else { print "Byte is less than or equal to 0x30\n"; } # close the file close MYFILE;` [download]	[reply] [d/l]
Re^2: BIN to HEX by eyepopslikeamosquito (Archbishop) on Aug 22, 2006 at 11:26 UTC
If the file is binary, you should add: `binmode MYFILE;` [download] right after the open. Also the line: `if ($byte > 0x30) {` [download] should read: `if (ord($byte) > 0x30) {` [download]	[reply] [d/l] [select]
Re^2: BIN to HEX by betterworld (Curate) on Aug 22, 2006 at 11:15 UTC
`if ($byte > 0x30) {` Shouldn't that be `ord($byte) > 0x30`?	[reply] [d/l] [select]
Re: BIN to HEX by AndyArmstrong (Novice) on Aug 22, 2006 at 12:48 UTC
Firstly when people speak about converting binary into hex they're usually talking about converting a /representation/ of binary into hex. You have raw data - actually a Windows executable. For historical reasons program executables are referred to as binaries - but that doesn't mean you have to convert from binary to access them. Secondly reading the whole file into memory might be problematic - particularly if you may have to deal with a very large file. It's better to read the file in fixed size chunks - then you can put an upper bound on how much memory your program uses which doesn't depend on the size of the files you feed it. Finally unpack() is useful when working with non-textual data. Here it's used to turn a 8192 (or less) character string into an 8192 element array of byte values. #!/usr/bin/perl -w use strict; $\| = 1; my $MAXVALUE = 0x30; my $file = shift or die "Please name a file\n"; open my $fh, '<', $file or die "Can't open $file ($!)\n"; binmode $fh; my $buffer; CHUNK: for (;;) { # Read as much as 8k, less if at end of file my $rc = sysread $fh, $buffer, 8192; die "Read error\n" unless defined $rc; # No more bytes? last CHUNK if $rc == 0; for my $byte (unpack('C*', $buffer)) { if ($byte > $MAXVALUE) { printf("%02x > %02x\n", $byte, $MAXVALUE); last CHUNK; } } } close $fh; [download]	[reply] [d/l]
Re: BIN to HEX by talexb (Chancellor) on Aug 22, 2006 at 14:49 UTC
As a side note, the first two characters of the file tell the story: they are Mark Zbikowski's initials, and the file is a DOS executable. Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply]
Re: BIN to HEX by cdarke (Prior) on Aug 22, 2006 at 07:11 UTC
You might also like to look at the ord function, perldoc -f ord.	[reply]
Re: BIN to HEX by Fletch (Bishop) on Aug 22, 2006 at 13:30 UTC
TMTOWTDI, some not involving Perl; see `man od` (or judging by the contents of your binary file after grabbing Cygwin as necessary; alternately from the PPT project, but then that would involve Perl . . .).	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks