Bináris fájl összehasonlító PERL-ben

Még 2003-ban írtam ezt a programot, most csak egy kicsit kiegészítettem. Két bináris fájlt hasonlít össze, csak a különbségeket írja ki. Nem veszi észre, ha a két fájlban elcsúsztak bájtok. Itt tölthető le: bdiff. Hasznos lehet még a bcat is.

Két fájl összehasonlítása hexadecimális kimenettel:

me@computer bin> ./bdiff -i bin1 -j bin2

Input file 1: bin1

Input file 2: bin2

Division: 16

Opening bin1... Ok.

Opening bin2... Ok.

Comparing...

Offset: 240 0xf0

bin1 | 34 d6 a8 70 b1 ba e1 66 d0 4c 08 82 6a f5 6e ba | 4..p...f.L..j.n.

bin2 | 34 d7 a8 70 b1 ba e1 66 d0 4c 08 82 6a f5 6e ba | 4..p...f.L..j.n.

Offset: 288 0x120

bin1 | 88 15 b2 14 3b 45 80 b7 a4 98 3b 91 1c 89 05 ce | ....;E....;.....

bin2 | 88 15 b2 14 3b 45 80 b7 a4 98 3b 91 1c 89 05 cd | ....;E....;.....

Does not match!

Két fájl összehasonlítása bináris kimenettel:

me@computer bin> ./bdiff -i bin1 -j bin2 -b -d 4

Input file 1: bin1

Input file 2: bin2

Division: 4

Opening bin1... Ok.

Opening bin2... Ok.

Comparing...

Offset: 240 0xf0

bin1 | 00110100 11010110 10101000 01110000 | 4..p

bin2 | 00110100 11010111 10101000 01110000 | 4..p

Offset: 300 0x12c

bin1 | 00011100 10001001 00000101 11001110 | ....

bin2 | 00011100 10001001 00000101 11001101 | ....

Does not match!