УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 506 из 677

506

Опции темы

Поиск в этой теме

Опции просмотра

#5051

26.11.2009, 10:49

Alk@sh

Новичок

Регистрация: 05.07.2009

Сообщений: 29

Провел на форуме:
489621

Репутация: 18

Отправить сообщение для Alk@sh с помощью ICQ

привет, я в этой сфере новичек (второй день занимаюсь)
не могли бы вы мне показать код передачи информации мне на мейл
типа вводишь в программе логин и пароль а она отсылает его мне на мейл

заранее спс))

#5052

26.11.2009, 10:55

transserg

Участник форума

Регистрация: 02.07.2008

Сообщений: 132

Провел на форуме:
1035284

Репутация: 52

Отправить сообщение для transserg с помощью ICQ

Proger10 сделай копию проэкта и удали ресурсный фалй тот что с именем проэкта совпадает при открытии проэкта делви обругает тебе что несмогла найти его и создаст занова=) таккоу бывало когда разные версии среды

#5053

26.11.2009, 11:14

s0l_ir0n

Участник форума

Регистрация: 14.03.2009

Сообщений: 237

Провел на форуме:
813785

Репутация: 314

Отправить сообщение для s0l_ir0n с помощью ICQ

Цитата:

Сообщение от Alk@sh

http://forum.antichat.ru/showpost.php?p=1715554&postcount=19

#5054

26.11.2009, 11:48

alexey-m

Познающий

Регистрация: 15.07.2009

Сообщений: 71

Провел на форуме:
520157

Репутация: 35

Отправить сообщение для alexey-m с помощью ICQ

Цитата:

Сообщение от ZET36

У меня вопрос по прехвату api функций, использовал эту статью
http://www.xakep.ru/post/22263/default.asp

Вызываю замену апи функции на свою(в инжектируемой библиотеке)
InterceptDllCall(hInstance, 'user32.dll', 'MessageBoxA',Pointer(@MyMessageBox), nil, Pointer(myProc));

Вот описание, что бы было понятней

Код:

function InterceptDLLCall(hLocalModule: HModule; c_szDllName, c_szApiName:PChar;
pApiNew, pApiToChange: Pointer; var p_pApiOrg: Pointer): boolean;

hLocalModule: HModule;  - модуль в котором находиться Import Table
c_szDllName:PChar; - имя DLL, в которой находиться перехватываемая функция
c_szApiName:PChar;  - имя перехватываемой функции
pApiNew: Pointer;  - указатель на нашу функцию, которая будет вызываться вместо перехватываемой.
pApiToChange: Pointer;  - указатель на перехватываемую функцию, если равно nil, то адрес функции определяется через c_szDllName и c_szApiName.
p_pApiOrg: Pointer;  - указатель на старую перехватываемую функцию

но проблема вот в чём, замена функции работает только в инжектируемой библиотеке, а не в самом приложении куда я её инжектирую.
Даю гарантию это из за hLocalModule так как hInstance - дескриптор текущего экземпляра приложения, которым является инжектируемая библиотека а не само приложение.
Так как же мне узнать HModule этого приложения?

ZET36 посмотри это, если не читал
[WASM.RU] Цикл статей от Ms-Rem - "Перехват API функций в Windows NT"
http://www.wasm.ru/series.php?sid=8
Есть исходник готовой библы по перехвату и инжекции кода с примерами на delphi, советую почитать кто не видел для расширения кругозора

Последний раз редактировалось alexey-m; 26.11.2009 в 19:51..

#5055

26.11.2009, 11:56

Proger10

Познающий

Регистрация: 19.12.2008

Сообщений: 78

Провел на форуме:
184907

Репутация: 13

Отправить сообщение для Proger10 с помощью ICQ

Цитата:

Сообщение от s0l_ir0n

попробуй удалить из папки проекта все файлы с расширением dcu, bdsproj, bdsproj.local, identcache, res, dcu, cfg, dof, ~ddp, ~pas, ~dpr, drc

Цитата:

Сообщение от transserg

Большое спасибо за помощь! Но все было проше - в исходниках проекта (Client.dpr) было написано:

Код:

{$R Client.res}

, а должно было:

Код:

{$R *.res}

#5056

26.11.2009, 17:26

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Отправить сообщение для StealthMaster с помощью ICQ

Цитата:

Помогите решить задачку на паскале
даны действительное число a и натур. число n.Вычислить если n=5
p=a(a+1)...(a+n-1)

Код:

program Multiplier;
uses crt;
var
  p, a: real;
  n: integer;
begin
  n := 5;
  p := 0;
  write('a=');
  readln(a);

  repeat
    inc(n);
    p := p*(a+1);
  until (n = 0);

  writeln ('p=',p);
  readln;
end.

Как-то так, если я правильно условие задачи понял)