"Противоугонная" прога для E6/1200, Альфа-версия. Тестируйте на свой страх и риск. Поделиться Опции

[Core_Huo]

# sudo motoguard

надо будет попробовать

[Core_Huo]

Версия противоугонного скрипта на PERL. Поддерживает неограниченное количество сим-карт. Если при проверке не обнаружено текущего IMSI в списке разрешенных, на заданный номер идет звонок. Сделать так чтобы отсылалась смс-ка, у меня пока не получилось

Установка:
1) установить PERL, распаковав архив perl.tar.bz2.zip в /ezx_user
2) положить сам скрипт куда нибудь, например в /ezx_user/bin/motoguard.pl
3) добавить в скрипт автозагрузки следующие строки:

Код

sleep 40
/ezx_user/bin/perl  /ezx_user/bin/motoguard.pl >>  /mmc/mmca1/.motolog

( т.к. у меня прошивка от Silent_Bob, я добавил в /ezx_user/startup1.sh )

4) настроить скрипт, изменив номер телефона в строке our $myphone = "80991234567";
5) запустить скрипт вручную или перезагрузить телефон

Чтобы добавить сим-карту в список доверенных, добавьте ее imsi с новой строки в файл "/ezx_user/download/appwrite/phone/imsi.my"
P.S Если нужно использовать модули, задайте переменную окружения PERL5LIB="/ezx_user/lib_perl/5.8.8/"

Spoiler:

Код

#!perl

###################################################
#    This script written by Michael Shulichenko
###################################################

our $myphone = "80991234567";

###################################################
#    DO NOT EDIT!
###################################################

my $curr_imsi = "/ezx_user/download/appwrite/phone/imsi";
my $imsi_file = $curr_imsi . ".my";

die "Is it really phone?\n" if ( !-e $curr_imsi );

if ( -e $imsi_file ) {
    print "Checking\t";
    check();
}

else { print "Calling setup\n"; setup() }

sub setup {
    open IMSI,    "<$curr_imsi" || die "Cannot open current imsi file!\n";
    open NEWIMSI, ">$imsi_file" || die "Cant open new file for writing!\n";
    my @imsi = <IMSI>;
    close IMSI;
    $imsi[0] =~ s/\r?\n//g;
    print NEWIMSI $imsi[0];
    close NEWIMSI;
}

sub check {
    open NEWIMSI, "<$imsi_file" || die "Cannot open your imsi file!\n";
    open IMSI,    "<$curr_imsi" || die "Cannot open current imsi file!\n";
    my $alert = 1;
    my @old   = <IMSI>;
    close IMSI;

    foreach my $line (<NEWIMSI>) {
        $line   =~ s/\r?\n//g;
        $old[0] =~ s/\r?\n//g;
        if ( $line eq $old[0] ) { $alert = 0 }
    }

    alert($alert);

    close NEWIMSI;

}

sub alert {
    if (shift) { print "\[FAIL\]\n"; `echo "ATDT$myphone;\r" >> /dev/mux0` }
    else       { print "\[OK\]\n" }
}

[close]

[Max111111]

Может моя отправлялка СМС кому-то поможет. Русский текст сообщения не поддерживается.
Отпишитесь если будет работать или нет.


./smssender +79052000303 "blablabla blabla blabla"

[Core_Huo]

на прошивке от Боба работает
палевное окошко правда вылазит

[Samsonov]

Поставил, все вроде делал как написано, но не работает, создает пустой лог на флэхе и все.
Может дело в этом:
P.S Если нужно использовать модули, задайте переменную окружения PERL5LIB="/ezx_user/lib_perl/5.8.8/"
Можно с этого места поподробнее как их задать и где?

[Core_Huo]

Поставил, все вроде делал как написано, но не работает, создает пустой лог на флэхе и все.
Может дело в этом:
P.S Если нужно использовать модули, задайте переменную окружения PERL5LIB="/ezx_user/lib_perl/5.8.8/"
Можно с этого места поподробнее как их задать и где?

по идее, там модули не используются и эта переменная не понадобится
самый простой способ ее задать:
выполнять команду, спереди приписывая эту переменную, например

PERL5LIB="/ezx_user/lib_perl/5.8.8/" perl <scriptname>

[Sirius_SS]

Намучился я с imsicheck.lin, не хочет работать в авторане и все тут (шлет смс при каждом включении), при этом в консоле гад работает.
В итоге переписал скрипт без busybox-a и все прекрасно заработало.
Вот обновленный imsicheck.lin может кому пригодиться.

Сообщение отредактировал Sirius_SS - 10.8.2009, 21:41