Probing cellphone AT commands

Pre step

• Configure your cellphone to give you a serial interface. (it could be done by Bluetooth)

  • Cellphone as Modem

• Get a list of possible commands from your phone manufacture.

  • ericsson.txt Download

Script

#!/usr/bin/perl -w

my $modem = "/dev/rfcomm0";

use Device::SerialPort;

$modem = new Device::SerialPort( "/dev/rfcomm0" ) || die "Can't open $modem: $!\n";

$modem->baudrate(9600);

$modem->parity("odd");

$modem->databits(8);

$modem->stopbits(1);

$modem->write_settings;

open(LIST, "ericsson.txt");

foreach $comando (<LIST>) {

chomp($comando);

print "======= ".$comando." =======\n";

$modem->write("at".$comando."\r");

sleep 1;

print $modem->input;

print "/////////////////////////////\n";

}