Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

avatar
Administrador
Administrador

Ver perfil de usuario http://www.pitbullsecurity.org
el Jue Mayo 05, 2011 8:34 pm
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;




               
                  


___________________
Admin: Pitbull Security Labs , Colaborador: Indetectables , Moderador: Level-23

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.