Foro de elhacker.net

Buenas tardes a todos    :laugh: :

   Les envio un cordial saludo y a su vez le comento lo siguiente    ;-)  :

   Tengo una apliacion hecha en windows que manda instrucciones a un dispositivo que se conecta con USB (No es HID), y deseo enviarle instrucciones en hexadecimal, pero, no he podido, no he encontrado documentacion suficiente para enviarle datos y recibir la respuesta, tambien he visto que ese dispositivo no emula serial, a lo mucho he logrado abrir la conexion, pero, tengo la aplicacion que lo hace, por medio del OllyDbg he visto en que sector de la mamoria lo hace, trate de copiar esa parte en ASM y ejecutarla por fuera y me arroja error, lo que deseo y si me pueden orientar, o que debo de leer, el cómo puedo hacer una apliacion que lea esa parte de memoria y que la ejecute desde ahi.

Gracias de antemano por su ayuda!!  :laugh:

  SALUDOS!!!   :-*

Hola!

Si sabes de ASM, deberías poder copiar, reparar y ejecutar el código. Por supuesto, depende del código, si tiene llamadas a APIS, etc.

Si es por leer, puedes empezar por la intro al cracking con Olly de ricardo narvaja, que está disponible en el FAQ (link en mi firma).

Si quieres modificar el binario ejecutándose, puedes usar WriteProcessMemory (https://msdn.microsoft.com/es-es/library/windows/desktop/ms681674(v=vs.85).aspx) desde un ejecutable externo e inyectarle las instrucciones que desees, pero necesitarás saber lo básico para poder hacer algo así.

Saludos!

Escriba la aplicación con lenguaje de fácil implementación de ASM, así como Delphi

begin
asm
...........
...........
escriba asm.......
end;

begin
..........
..........Delphi
...........
end;


Esto lee y graba en la memoria de un proceso .....

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs , TlHelp32, StdCtrls, ExtCtrls , Registry , ComCtrls ,shellapi ;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
function BlockInput( fBlockIt:boolean):Boolean; StdCall; External 'User32.dll';
//
function GetProcessID(Const ExeFileName: string; var ProcessId: integer): boolean;
    var
    ContinueLoop: BOOL;
    FSnapshotHandle: THandle;
    FProcessEntry32: TProcessEntry32;
    begin
    result := false;
    FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
    while integer(ContinueLoop) <> 0 do begin
    if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)
    or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then begin
    ProcessId:= FProcessEntry32.th32ProcessID;
    result := true;
    break;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
    end;
 //
procedure TForm1.Button1Click(Sender: TObject);
VAR
  valor,buffer: cardinal;
  PID: integer;
  HandleX:THandle;
BEGIN
   if GetProcessID('Porgrama.exe',PID)then
   begin
    Handlex:= OpenProcess(PROCESS_ALL_ACCESS,False,PID);
    ReadProcessMemory(HandleX,Pointer(strToint('$'+ Edit2.Text)),@valor ,4 ,buffer);
    Edit1.Text:= intTostr(valor);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
VAR
  valor,buffer,endereco: cardinal;
  PID: integer;
  HandleX:THandle;
begin
 if GetProcessID('Porgrama.exe',PID)then
   begin
   endereco:=strToint('$'+ Edit2.Text);
   valor:=strToint(Edit1.Text);
   Handlex:= OpenProcess(PROCESS_ALL_ACCESS,False,PID);
   WriteProcessMemory(HandleX,Pointer(endereco),@valor ,4 ,buffer);
end;
end;
 
end.
 

Buenas tardes a todos, y gracias por compartir sus conocimientos, voy a probar lo que me dicen y les comento mas adelasnte.

  SALUDOS!!!  ;-)