ExploitingPerlonWindowswithOLECOM1章节.pptVIP

Roth Consulting Exploiting Perl on Windows with OLE/COM * Variants To set the value of a variant use the Put() method. Otherwise you are simply setting the value of the Perl variable: use Win32::OLE::Variant; $String = August 2, 1999; # Make a date $Var = Variant( VT_DATE, $String ); # Change the date $Var-Put( February 13, 1967 ); $SomeComObj-{Date}-{Value} = $Var; IV Roth Consulting Exploiting Perl on Windows with OLE/COM * Errors Last COM/OLE error can be retrieved: Win32::OLE-LastError() Returned result depends upon context of the call. Numeric context returns error code print 0 + Win32::OLE-LastError(); other scalar context returns error string print Win32::OLE-LastError(); Roth Consulting Exploiting Perl on Windows with OLE/COM * Tricks about COM objects Reference Counters Every time a COM object is referenced (requested) a counter (a reference counter) inside the COM server is incremented When the object is destroyed the COM server decrements the counter Only when the counter is 0 can the COM server be unloaded from memory This is why sometimes a buggy program which uses COM will fail to quit Win32::OLE takes care of any counter for you Roth Consulting Exploiting Perl on Windows with OLE/COM * Tricks about COM objects Function and property names are not case sensitive $ComObj-Print() is same as $ComObj-prINt() $ComObj-{Name} is same as $ComObj-{naME} Function can be accessed as properties $ComObj-Print() is same as $ComObj-{Print} Obviously no parameters can be passed Roth Consulting Exploiting Perl on Windows with OLE/COM * Interacting with a COM object Read about the object model! Use online documentation SDK’s! Use IDL files Use OLEVIEW.EXE to read .tbl, .dll, .exe type libraries Roth Consulting Exploiting Perl on Windows with OLE/COM * Documentation (online) Read the online documentation! Most Microsoft applications provide a Visual Basic Reference section in their help files Roth Consulting Exploiting Perl on Windows with OLE/COM * Documentation