1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Написание патчера на делфи

Тема в разделе "Программирование", создана пользователем K_NoW, 8 мар 2015.

  1. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Всем привет. В данной статье я обьясню как создать билдер в делфи. Я не буду всё разжевывать.
    Просто дам функцию для патчинга.

    Код:
    Procedure BlockPath(fname,str:string;fors,tos:integer);
    var
      f:thandle;
      c:byte;
      BytesRead:DWORD;
      i,u:integer;
    begin
    f:=fileopen(fname,fmOpenReadWrite);
    u :=0;
    for i :=fors-1 to tos do begin
    c:=ord(char(pchar(str)));
    SetFilePointer(f,i, nil, 0);
    WriteFile(f, c, SizeOf(c), BytesRead, nil);
    inc(u);
    end;
    FileClose(f);
    i :=0;
    u:=0;
    end;
    


    Функция предназначена для патчинга диапазона байт.
    Вот описание параметров:

    Procedure BlockPath(
    fname, - Имя файла для патчинга
    str - Строка которую запишем в диапазон байт

    :string;
    fors - Начальный адрес
    ,tos - Конечный адрес

    :integer);

    Теперь подробнее о адресах, вобщем зарезервивуйте в своей программе 30 символов.

    Код:
    var
    str:string;
    begin
    str:=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
    ShowMessage(str);
    end;
    
    Для чего это нужно, потому что нельзя будет взять и пропатчить строку больше чем есть, а так в нас есть запас 30 символов, и мы можем написать в билдере, 30 max.

    Теперь нужно узнать адрес для патчинга. Я покажу на скриншоте как это зделать в хекс редакторе HxD. Перед адресами нужно поставить символ даллара.
    Скрин:
    [​IMG]

    Пример использования:
    Код:
    BlockPath('stub.exe','http://InfoHacking.ru',$727c,$7299);
    
    На этом всё.
     
    • Like Like x 2
    Последнее редактирование: 8 мар 2015
    Метки:
  2. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Чёт редактор здесь глюкнул забыл скрин добавить
     
  3. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Вау а кто мне випку дал?
     

Поделиться этой страницей

Загрузка...