накодил такую вот штуковину: BTResearcher - PERL'овая тулза для взамодействия с Bluetooth-устройствами на уровне протоколов RFCOMM, OBEX и др., предназначенная в первую очередь для тестирования безопасности Bluetooth-устройств. Dля работы данного скрипта необходима установка модуля Net::Bluetooth. Установка Net::Bluetooth в ActivePerl: Code: ppm install http://www.conditor.com/Net-Bluetooth.ppd Dля взаимодействия с OBEX-сервисами скрипт использует консольную утилиту obexftp от Christian W. Zuckschwerdt <[email protected]>. Тулза под ОС Win XP SP2 и Vist'у (хотя можно было сделать ее и кроссплаторменной, я не стал - под *nix и так хватает подобных скриптиков).. Пока возможностей маловато, но уже можно попробовать реализовать, например, атаки типа BlueBug, BlueSnarf и т.п. Link: Версия 0.1b: http://digimortal.freeweb7.com/toolz/btr.rar p.s. я пока что протестировал скрипт тока на двух телах - SE T630 и не помню какой модели Нокии.. Отписуйтесь тут, если с вашим телом скрипт будет работать некорректно (например, такое может случится при передаче AT-команд).. p.p.s. буду благодарен тому, кто найдет и скинет мне ссылки на какие нибудь перл-скрипты с использованием модуля Net::Bluetooth, ато мои поиски подобных скриптегов успехов не принесли.. такое ощущение, что я чуть ли не первый решил воспользоваться данным модулем.. ) p.p.p.s. забыл сказать: после запуска вводим команду help..
