如何才能得到dll（没有源码）内的接口及参数(100分)

linuxer · 2003-04-12

如何才能得到dll（没有源码）内的接口及参数

lixx · 2003-04-12

用dumpbin试试。 好像有点难度，我觉得应该首先知道它是语言开发的，因为不同的语言对接口的参数的及 调用方式改动不一样，再次充分发挥一下想像力：－（ 另外网上有个dlltolib不知这个对你有没有用？

LiChaoHui · 2003-04-12

好像只有分析函数的汇编指令了

iloveqq · 2003-04-12

调出dll文件接口的源码 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls; type   TFrmmain = class(TForm)     Button1: TButton;     ListBox1: TListBox;     OpenDialog1: TOpenDialog;     ListView1: TListView;     function ListExport( const name: String; ordinal: Integer; address

ointer ): Boolean;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Frmmain: TFrmmain; implementation uses dlltools; {$R *.dfm} function TFrmmain.ListExport( const name: String; ordinal: Integer; address

ointer ): Boolean; var   listentry:TLIstItem;   begin   Result := true;   listentry:= listview1.Items.Add;   listbox1.Items.Add(Format('%p',[address] )+','+                   format('%d',[ordinal] )+','+                   name                   );   listentry.Caption := Format('%p',[address] );   listentry.Subitems.Add( format('%d',[ordinal] ));  // edit1.Text:=format('%d',[ordinal] );  // edit2.Text:=name;   listentry.Subitems.Add( name );   end; procedure TFrmmain.Button1Click(Sender: TObject); begin if opendialog1.execute then   begin   listview1.items.clear;   listbox1.Items.Clear;   ListDLLExports( opendialog1.filename, listexport );   end; end; end. unit dlltools;     interface     Uses Windows, Classes, Sysutils, imagehlp ;     type   TDLLExportCallback = function (const name: String; ordinal: Integer;   address: Pointer): Boolean of Object;   { Note: address is a RVA here, not a usable virtual address! }   DLLToolsError = Class( Exception );     Procedure ListDLLExports( const filename: String; callback:   TDLLExportCallback );   Procedure DumpExportDirectory( Const ExportDirectory: TImageExportDirectory;   lines: TStrings; const Image: LoadedImage );   Function RVAToPchar( rva: DWORD; const Image: LoadedImage ): PChar;   Function RVAToPointer( rva: DWORD; const Image: LoadedImage ): Pointer;     implementation     resourcestring   eDLLNotFound =   'ListDLLExports: DLL %s does not exist!';     {+----------------------------------------------------------------------   | Procedure EnumExports   |   | Parameters :   | ExportDirectory: IMAGE_EXPORT_DIRECTORY record to enumerate   | image : LOADED_IMAGE record for the DLL the export directory belongs   | to.   | callback : callback function to hand the found exports to, must not be   Nil   | Description:   | The export directory of a PE image contains three RVAs that point at   tables   | which describe the exported functions. The first is an array of RVAs   that   | refer to the exported function names, these we translate to PChars to   | get the exported name. The second array is an array of Word that   contains   | the export ordinal for the matching entry in the names array. The   ordinal   | is biased, that is we have to add the ExportDirectory.Base value to it   to   | get the actual export ordinal. The biased ordinal serves as index for   the   | third array, which is an array of RVAs that give the position of the   | function code in the image. We don't translate these RVAs since the DLL   | is not relocated since we load it via MapAndLoad. The function array is   | usually much larger than the names array, since the ordinals for the   | exported functions do not have to be in sequence, there can be (and   | frequently are) gaps in the sequence, for which the matching entries in   the   | function RVA array are garbage.   | Error Conditions: none   | Created: 9.1.2000 by P. Below   +----------------------------------------------------------------------}   Procedure EnumExports( const ExportDirectory : TImageExportDirectory ;   const image : LoadedImage ;   callback : TDLLExportCallback ) ;   Type   TDWordArray = Array [0..$FFFFF] of DWORD;   Var   i: Cardinal;   pNameRVAs, pFunctionRVas: ^TDWordArray;   pOrdinals: ^TWordArray;   name: String;   address: Pointer;   ordinal: Word;   Begin { EnumExports }   pNameRVAs :=   RVAToPointer( DWORD(ExportDirectory.AddressOfNames), image );   pFunctionRVAs :=   RVAToPointer( DWORD(ExportDirectory.AddressOfFunctions), image );   pOrdinals :=   RVAToPointer( DWORD(ExportDirectory.AddressOfNameOrdinals), image );   For i:= 0 to Pred( ExportDirectory.NumberOfNames ) Do Begin   name := RVAToPChar( pNameRVAs^, image );   ordinal := pOrdinals^;   address := Pointer( pFunctionRVAs^[ ordinal ] );   If not callback( name, ordinal+ExportDirectory.Base, address ) Then   Exit;   End; { For }   End; { EnumExports }     {+----------------------------------------------------------------------   | Procedure ListDLLExports   |   | Parameters :   | filename : full pathname of DLL to examine   | callback : callback to hand the found exports to, must not be Nil   | Description:   | Loads the passed DLL using the LoadImage function, finds the exported   | names table and reads it. Each found entry is handed to the callback   | for further processing, until no more entries remain or the callback   | returns false. Note that the address passed to the callback for a   exported   | function is an RVA, so not identical to the address the function would   | have in a properly loaded and relocated DLL!   | Error Conditions:   | Exceptions are raised if   | - the passed DLL does not exist or could not be loaded   | - no callback was passed (only if assertions are on)   | - an API function failed   | Created: 9.1.2000 by P. Below   +----------------------------------------------------------------------}   Procedure ListDLLExports( const filename : String ; callback : TDLLExportCallback ) ;   Var   imageinfo: LoadedImage;   pExportDirectory: PImageExportDirectory;   dirsize: Cardinal;   Begin { ListDLLExports }   Assert( Assigned( callback ));   If not FileExists( filename ) Then   raise DLLToolsError.CreateFmt( eDLLnotFound, [filename] );     If MapAndLoad( PChar( filename ), nil, @imageinfo, true, true ) Then   try   pExportDirectory :=   ImageDirectoryEntryToData(   imageinfo.MappedAddress, false,   IMAGE_DIRECTORY_ENTRY_EXPORT, dirsize );     If pExportDirectory = Nil Then   RaiseLastWin32Error   Else   EnumExports( pExportDirectory^, imageinfo, callback );   finally   UnMapAndLoad( @imageinfo );   end   Else   RaiseLastWin32Error;   End; { ListDLLExports }     {+----------------------------------------------------------------------   | Procedure DumpExportDirectory   |   | Parameters :   | ExportDirectory: a IMAGE_EXPORT_DIRECTORY record   | lines : a TStrings descendend to put the info into, must not be Nil   | Description:   | Dumps the fields of the passed structure to the passed strings   descendent   | as strings.   | Error Conditions:   | will raise an exception if lines is Nil and assertions are enabled.   | Created: 9.1.2000 by P. Below   +----------------------------------------------------------------------}   Procedure DumpExportDirectory( Const ExportDirectory : TImageExportDirectory;   lines : TStrings; const Image: LoadedImage ) ;   Begin { DumpExportDirectory }   Assert( Assigned( lines ));     lines.add( 'Dump of IMAGE_EXPORT_DIRECTORY' );   lines.add( format('Characteristics: %d',   [ExportDirectory.Characteristics]));   lines.add( format('TimeDateStamp: %d',   [ExportDirectory.TimeDateStamp]));   lines.add( format('Version: %d.%d',   [ExportDirectory.MajorVersion,   ExportDirectory.MinorVersion]));   lines.add( format('Name (RVA): %x',   [ExportDirectory.Name]));   lines.add( format('Name (translated): %s',   [RVAToPchar( ExportDirectory.name, Image )]));   lines.add( format('Base: %d',   [ExportDirectory.Base]));   lines.add( format('NumberOfFunctions: %d',   [ExportDirectory.NumberOfFunctions]));   lines.add( format('NumberOfNames: %d',   [ExportDirectory.NumberOfNames]));   lines.add( format('AddressOfFunctions (RVA): %p',   [Pointer(ExportDirectory.AddressOfFunctions)]));   lines.add( format('AddressOfNames (RVA): %p',   [Pointer(ExportDirectory.AddressOfNames)]));   lines.add( format('AddressOfNameOrdinals (RVA): %p',   [Pointer(ExportDirectory.AddressOfNameOrdinals)]));   End; { DumpExportDirectory }     {+----------------------------------------------------------------------   | Function RVAToPointer   |   | Parameters :   | rva : a relative virtual address to translate   | Image : LOADED_IMAGE structure for the image the RVA relates to   | Returns : translated address   | Description:   | Uses the ImageRVAToVA function to translate the RVA to a virtual   | address.   | Error Conditions:   | Will raise an exception if the translation failed   | Created: 9.1.2000 by P. Below   +----------------------------------------------------------------------}   Function RVAToPointer( rva : DWORD ; const Image : LoadedImage ) : Pointer;   var   pDummy: PImageSectionHeader;   Begin { RVAToPchar }   pDummy := nil;   Result :=   ImageRvaToVa( Image.FileHeader, Image.MappedAddress, rva,   pDummy );   If Result = Nil Then   RaiseLastWin32Error;   End; { RVAToPointer }     {+----------------------------------------------------------------------   | Function RVAToPchar   |   | Parameters :   | rva : a relative virtual address to translate   | Image : LOADED_IMAGE structure for the image the RVA relates to   | Returns : translated address   | Description:   | Uses the RVAToPointer function to translate the RVA to a virtual   | address. Note that we do not check that the address does indeed point   | to a zero-terminated string!   | Error Conditions:   | Will raise an exception if the translation failed   | Created: 9.1.2000 by P. Below   +----------------------------------------------------------------------}   Function RVAToPchar( rva : DWORD ; const Image : LoadedImage ) : PChar ;   Begin { RVAToPchar }   Result := RVAToPointer( rva, image );   End; { RVAToPchar }     end.

linuxer · 2003-04-13

dumpbin只能列出接口，不能列出参数。 dlltolib不知是否OK，下载一个试试看

djw · 2003-04-14

用delphi导入ActiveX 控件，导入这个Dll，生成的PAS文件里就有接口及参数

siteboy · 2003-04-14

最简单明了的就是使用Delphi的类型库编程器来查看。

zuofeng · 2003-05-11

对不起,上面的老兄,我很菜,不要笑我 您说的类型库编程器是什么东东?怎么使用?

3cs · 2003-05-11

关注中...

linuxer · 2003-05-29

沒有找到答案﹐但lixx的答案最為接近。

如何才能得到dll（没有源码）内的接口及参数(100分)

linuxer

Unregistered / Unconfirmed

lixx

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

iloveqq

Unregistered / Unconfirmed

linuxer

Unregistered / Unconfirmed

djw

Unregistered / Unconfirmed

siteboy

Unregistered / Unconfirmed

zuofeng

Unregistered / Unconfirmed

3cs

Unregistered / Unconfirmed

linuxer

Unregistered / Unconfirmed

Similar threads