накодил такую вот штуковину:

BTResearcher - PERL'овая тулза для взамодействия с Bluetooth-устройствами на уровне протоколов RFCOMM, OBEX и др., предназначенная в первую очередь для тестирования безопасности Bluetooth-устройств.

Dля работы данного скрипта необходима установка модуля Net::Bluetooth.

Установка Net::Bluetooth в ActivePerl:
Dля взаимодействия с OBEX-сервисами скрипт использует консольную утилиту obexftp от Christian W. Zuckschwerdt <zany@triq.net>.

Тулза под ОС 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..