Bueno aui les traigo esta uncion hecha por linkgl, creditos a el nada mas
aqui les dejo la explicacion del autor!

---

Esta función te devuelve una string con los bytes EN HEX del rango indicado, ejemplo:

Código:

Salida:=LeerXbytes('c:\miarchivo.exe',32,39);

Me
devolvera los bytes 32 33 34 35 36 37 38 39 que tenga el archivo pero
no los simbolos raros, los convierte a hex como si estuvieras viendo
esos archivos en un editor hex es decir me va a devolver algo como:

Código:


00010D00E00FF210

Dependiendo
de los bytes que estén en el rango jeje pero no confundan no devuelve
los caracteres en ascii los convierte a hex, jeje use parte de esto en
el programa de los firmware's de ps3

Funcion:

Código:

function LeerXbytes(ruta:String;inicio, fin:Integer):String;
{
  * Coder: Linkgl
  * Indetectables Coders Team :D
}
var x:Integer;
var a:Char;
var fp:TFileStream;
var Temp:String;
begin
fp:=TFileStream.Create(ruta,fmOpenRead);
for x:=inicio to fin do
begin
fp.Seek(x,soFromBeginning);
fp.Read(a,1);
Temp:=Temp+IntToHex(ord(a),2);
end;
fp.Free;
Result:=Temp;
end;