информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
За кого нас держат?Страшный баг в WindowsАтака на Internet
BugTraq.Ru
Русский BugTraq
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Модель надежности отказоустойчивой... 
 Человек, из-за которого нас заставляют... 
 Взломано популярное расширение... 
 IPv6 добрался до стандарта 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Win32::API модуль 19.05.01 23:19  Число просмотров: 325
Автор: izlam Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Суть:
нужно поюзать функцию из DLL-ки.
(packet.dll если это говорит о чем-нить).
В доке к dll-ке черным по белому написано:

ULONG PacketGetAdapterNames(PTSTR pStr, PULONG BufferSize)
Usually, this is the first function that should be used to communicate with the driver. It returns the names of the adapters installed on the system in the user allocated buffer pStr. After the names of the adapters, pStr contains a string that describes each of them.

BufferSize is the length of the buffer.

Исходя из данной описанки пишу код:
----
#!perl
use Win32::API;

$function = new Win32::API("packet.dll",
"PacketGetAdapterNames",
'PP', 'N');

$length = pack('L', 250); # store ULONG
$buffer = " " x $length;
$return = $function->Call($buffer, $length);
print $return;
---

Почему перл валится ??
Никакие комбинации из P,N в качестве описания параметров не подходят, валится стабильно... Там где метод Call вызываю.
"Приложение совершило недопустимую операцию и будет закрыто" !!!

Как можно заюзать сию процедурку из DLL-ки на перле ?
<programming> Поиск 
  • [Perl] Win32::API модуль - izlam 19.05.01 23:19 [325]








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2017 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach