Help exporting AnalyzeFile() from PESniffer.dll

Сейчас на форуме: rmn (+1 невидимый пользователь)

Посл.ответ	Сообщение
iNNos Ранг: 24.1 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 28 августа 2008 03:01 · Личное сообщение · #1 Hello, I need little help exporting function AnalyzeFile(,) :;StdCall; from PESniffer.dll (http://rapidshare.com/files/112423975/PESniffer.rar), seem it have 2 parameters (or one more) and maybe second is the file ( AnalyzeFile(otherparameter:,FileName:pchar):pchar; ) but not sure, I get always blank result :/ Any help much appreciated bye

Archer Ранг: 2014.5 (!!!!), 1278thx Активность: 1.34↘0.25 Статус: Модератор retired	Создано: 28 августа 2008 08:46 · Личное сообщение · #2 .data:10001162 ; Exported entry 1. AnalyzeFile .data:10001162 .data:10001162 ; --------------- S U B R O U T I N E --------------------------------------- .data:10001162 .data:10001162 ; Attributes: bp-based frame .data:10001162 .data:10001162 ; int __stdcall AnalyzeFile(LPCSTR lpFileName,int,int,LPSTR lpString1)
ProTeuS Ранг: 172.2 (ветеран) Активность: 0.07↘0 Статус: Участник	Создано: 28 августа 2008 12:09 · Поправил: ProTeuS · Личное сообщение · #3 Code: pSniffer = 'PESniffer.dll'; AFile = 'AnalyzeFile'; TotalSignatures = 'GetTotalSignatures'; var AnalyzeFile, GetTotalSignatures: pointer; filename, temp: string; lib, snif, res, sig_count: DWORD; begin snif := LoadLibrary(pSniffer); AnalyzeFile := GetProcAddress(snif, AFile); GetTotalSignatures := GetProcAddress(snif, TotalSignatures); SetLength(temp, 1000); asm push 0 call GetTotalSignatures mov sig_count, eax push temp push 0 push 0 push filename call AnalyzeFile MOV EAX, DWORD PTR SS:[ESP-4] mov res, eax end; temp := IntToStr(sig_count); Memo1.Lines.Add('Signatures count: ' + temp); temp := PChar(POINTER(res)); Memo1.Lines.Add('File Signature: '+ temp); ----- HOW MUCH BLOOD WOULD YOU SHED TO STAY ALIVE
iNNos Ранг: 24.1 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 28 августа 2008 19:07 · Личное сообщение · #4 Thanks Archer and nice code ProTeuS Problem solved.
Guru_eXe Ранг: 282.8 (наставник), 24thx Активность: 0.26↘0 Статус: Участник win32.org.ru	Создано: 28 августа 2008 21:24 · Личное сообщение · #5 Code: var IsDataBaseLoaded: function: boolean; GetTotalSignatures: function: integer; begin IsDataBaseLoaded:=GetProcAddress(fLibHandle,'IsDataBaseLoaded'); if @IsDataBaseLoaded<>nil then begin IsDataBaseLoaded; dllloaded:=true; end; GetTotalSignatures:=GetProcAddress(fLibHandle,'GetTotalSignatures'); if @GetTotalSignatures<>nil then begin signatures:=GetTotalSignatures; end; =P ----- may all your PUSHes be POPed!

Для печати