grabsms.pl

#!/usr/bin/perl -w
#
# grabsms.pl
# print sms and mms in unencrypted GSMTAP pcap, work well with OsmocomBB
# 2013.06.01, @tombkeeper
#

# tshark -G fields | grep gsm_sms
my $cmdline = "tshark -r $ARGV[0] -R gsm_sms -Tfields -Eseparator=\\; " .
              "-e gsm_sms.tp-oa -e gsm_sms.tp-da -e mmse.from " .
              "-e mmse.content_location -e gsm_sms.sms_text 2>/dev/null";
my @smsinfo = `$cmdline`;

foreach(@smsinfo)
{
    chomp($_);
    (my $tpoa, my $tpda, my $mmsfrom, my $mmsloc, my $sms) = split(";", $_, 5);
    if($tpoa) { print( "From: $tpoa\n" ); }
    if($tpda) { print( "To: $tpda\n" ); }
    if($sms)
    {
        $sms=~s/\\x([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        print("Message: $sms\n");
    }
    if($mmsfrom) { print( "MMSFrom: $mmsfrom\n" ); }
    if($mmsloc) { print( "MMSLocation: $mmsloc\n" ); }

    if($tpoa || $tpda || $mmsfrom) { print('-'x74 . "\n"); }
}