Imei, Проги и код для просмотра оного Поделиться Опции

[Vovan_mail]

:) Вот програмка. Вредоносного кода не содержит. Просьба протестить и выложить результат. Програма показывает имей Вашего тела. Модели расчёт на с 380, 650 и т п. Дайте пожалуйста результ, определит или нет, мона попробовать и другие модели. Телу не будет не чего. Если не трудно на каком у вас порту модем тела висит. Возможно что и не сработает на некоторых компах так как настройки могут быть разные. Но нужен результат для дольнейшей работы в этом направлении.



Сообщение отредактировал Vovan_mail - 30.5.2005, 16:27

[Jon X]

Не работает она. Да и зачем она нужна? Ведь есть другие проги.

Телефоны висят у меня на разных портах:

с650 - на 4
с380 - на 5

[Vovan_mail]

Jon X, Она не нужна. Только я пытаюсь получить имей через модем AT командами. И другую инфу мона выдёргивать. Ведь это гораздо быстрее чем другими способами. У меня тела висят на портах 3 и 4. Прога писалась тоже под них. Причем если тело на 4 то 3 должен быть не активен. Надо с портами рулить и точно определять модем тела на каком порту.

[Jon X]

Да Vovan_mail, надо, а то непорядок какой-то.

[Vovan_mail]

:) Народ у кого есть какие соображения на тему в делфе определять СОМ порт где висит подключенная мобила .

Вот отдельно для каждого случая ;)

[Vilko]

:) Народ у кого есть какие соображения на тему в делфе определять СОМ порт где висит подключенная мобила .

Вот отдельно для каждого случая ;)

проверяй реестр тут:
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\USBSERxxx - это виртуальные ком-порты на usb

[Тушик]

Vovan_mail,

Работает.Нормально определяет мой имей.Тело С650 висит на 4 коме.Пробовал самую первую версию.
Пользователю запрещено создавать сообщения

[Vovan_mail]

HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\USBSERxxx - это виртуальные ком-порты на usb

:D Конечно спасибо за инфу. но вроде как нашёл решение без реестра. Правда как поведёт себя эта хрень на других компах не знаю.

:o Вот пример проги с исходником делюсь не жалко мона кому пригодится.
Какой тол от проги ни какого, мона тока начинающим помощь в
разработке своего софта.
Правильность кода, афиг его знает-сам начинающий.
Не правильно введённый индекс и АТ команда виснет блин.
Как с этим бороться, а хрен его знает.
Для более быстрого обращения мона убрать возможно проверку
1 и 2 портов и ограничить 5 к примеру.
Использовать переменная:=функция, а потом уже мудрить над переменной.
Что знаю.
AT+CGSN IMEI Индекс 45
AT+CGMI Производитель 53
AT+CGMM Модель тела и GSM стандарт индекс 73
AT+CGMR Прошивка индекс 45
AT+MFLEX Флекс индекс 53
AT+CNUM Свой номер если записан индекс 45

[Vovan_mail]

:P Народ вот АТ команды


AT+CLIP

AT&C

AT&D

AT&F

AT&G

AT&K

AT&L

AT&M

AT&P

AT&Q

AT&R

AT&S

AT&T

AT%C

AT+CBST

AT+CEER

AT+CGACT

AT+CGATT

AT+CGCLASS

AT+CGDCONT

AT+CGPADDR

AT+CGQMIN

AT+CGQREQ

AT+CHUP

AT+CMOD

AT+CR

AT+CRC

AT+CRLP

AT+CSQ

AT+FCLASS

AT+FLO

AT+FPR

AT+FRH

AT+FTH

AT+FRM

AT+FTM

AT+FRS

AT+FTS

AT+GCAP

AT+IFC

AT+IPR

AT+MDAI

AT+MODE

AT+MTXDATA

AT+TCFG

ATA

ATB

ATD

ATDL

ATF

ATH

ATI

ATL

ATM

ATN

ATO

ATP

ATS

ATT

ATW

ATY

ATZ

AT\A

AT\B

AT\G

AT\J

AT\K

AT\N

AT+CIND

AT+CKPD

AT+CMER

AT+CMUT

AT+COLP

AT+MAFVL

AT+MAPC

AT+MAPS

AT+MAPTH

AT+MARD

AT+MASS

AT+MAVL

AT+MCHS

AT+MCST

AT+MDBAD

AT+MDBL

AT+MDBR

AT+MDBW

AT+MDBWE

AT+MEGA

AT+MFLEX

AT+MGCB

AT+MHCS

AT+MHFP

AT+MHIG

AT+MHMN

AT+MKPD

AT+MLCK

AT+MLKC

AT+MMCR

AT+MMDL

AT+MMRR

AT+MMTC

AT+MOON

AT+MPBF

AT+MPBR

AT+MPBRE

AT+MPBW

AT+MPBWE

AT+MPGR

AT+MPGW

AT+MPIN

AT+MPOD

AT+MSEEM

AT+MSPS

AT+MSSI

AT+MSYN

AT+MUPB

AT+MVMN

ATA

ATD

ATDL

ATDV

ATE

ATH

ATQ

ATV

ATX

ATS

AT+CBC

AT+CCFC

AT+CCLK

AT+CCWA

AT+CGMI

AT+CGMM

AT+CGMR

AT+CGSMS

AT+CGSN

AT+CHLD

AT+CHUP

AT+CHV

AT+CIMI

AT+CLAC

AT+CLCC

AT+CLCK

AT+CLIP

AT+CLIR

AT+CMEE

AT+CMGC

AT+CMGD

AT+CMGF

AT+CMGL

AT+CMGR

AT+CMGW

AT+CMGS

AT+CMSS

AT+CMMS

AT+CNMA

AT+CNMI

AT+CNUM

AT+COPS

AT+CPAS

AT+CPBF

AT+CPBR

AT+CPBS

AT+CPBW

AT+CPIN

AT+CPMS

AT+CRC

AT+CREG

AT+CRES

AT+CSAS

AT+CSCA

AT+CSCB

AT+CSCS

AT+CSDH

AT+CSMS

AT+CVHU

AT+FMI

AT+FMM

AT+FMR

AT+GMI

AT+GMM

AT+GMR

AT+MAID

AT+MAPV

AT+MDN

AT+MMAR

AT+MMGL

AT+MMGR

AT+MODE

AT+MPBFN

AT+MPBSC

AT+MPBSCS

AT+MPDPM

AT+VGR

AT+VGT

AT+VTD

AT+VTS


Мона в терминале набрать AT+CLAC и получите вот этот список команд. Некоторые работают с знаком вопроса
AT+COPS? получаем +COPS: 0,0,"MTS-RUS"
А на счёт Atcommandera надо мудрить с функцией. Делать просто терминал.


Эта хрень - исходник выше, не совсем чётко она работала, так как не правильный подход был: индексы и т.п, теперь просто здорово пашет. На каком бы мобила порту не висела находится чётко. Если несколько тел подключено подцепляется первая по порядку порта. В принципе вопрос решил. Это теперь даст в прогах самописках не юзать Настройки, а получать подключение к порту автоматом. Так что идея сканирование порта, лучше чем через реестр . rolleyes: Тему можно закрыть, :) а может мона оставить, решать админам.

Если нужен исходник точно рабочей мути могу выкинуть.

Сообщение отредактировал Vovan_mail - 31.5.2005, 15:07

[dvMax]

Vovan_mail

Если интересно почитать про AT-команды прочти тему:

Список At-команд для модема С650

А тут лежит обновленная версия:
ftp://ftp.efo.ru/pub/motorola/gsm_modem/9808901C68-A_Final230204.pdf
Размер: 4,1 Мб

*******
Мультисим без симки в с650 - Сообщение #23

[Vovan_mail]

bigsmile; dvMax, bigsmile; Спасибо громаднейшее!!!!

[nirishere]

Hi !
Please, what is +MFLEX doing ?
Thanx !

[n0wheremany]

Глупо конечно. Зачем делать программу, которая имеет большой размер (150 кБ это много даже очень) для вывода информации (в часности Imei) по 1 команде (AT+CGSN) модема (тела).
Тем более что вроде ктото мне говорил, что показывается не весь, там неск цифр отсутствует. (это не точно)

[Random]

Hi !
Please, what is +MFLEX doing ?
Thanx !

It returns flex version.

[MS_Tos]

Вопросик такой.... а ты как реализовал прогу, через Api ?
(интересно как єто все делаеться.... учусь работать с VB 6.0)
Намного интересней было бы если бы найти способ расшифровки имея из симов.... насколько я помню он круто зашифрован.... чуть ли не вторая RSA....

[Osta]

Намного интересней было бы если бы найти способ расшифровки имея из симов

уже где-то здесь писали .....
там он написан без посл. цифры, а вот она по формуле вычисляется...
Bezols-а кажется пост был ... или ...

[Random]

Osta,
Вот-вот, я кажись по тому посту считал в FlashBackup.
Где-то напутал или я или он, но считалось неправильно.
Думать не хотелось, поэтому в новом FB вместо нее просто "x"
Тем более что эта цифра ничего не значит, это типа контрольной суммы.

[MS_Tos]

контрольная цифра...... у меня завалялась одна прога, у нее "побочным эфектом" являеться вычисление контрольной цифры..... основным (окончательным) результатом - значение выводимое при проверке имея с помощью опкодов... прогу прилагаю, на всякий случай. Сама прога скачана когда-то из мотофана.

[ZaharS]

Это про что тема? При мне на E398 на клаве набирали несколько цифр и высвечивался IMEI.
Сказали на всех телах работает.
Если интересно кому могу написать. (спросить сперва)

[Method man]

*#06# - Просмотр EMEI на всех телах

[n0wheremany]

Намного интересней было бы если бы найти способ расшифровки имея из симов.... насколько я помню он круто зашифрован....

Неа. Всё дело в битах.

Гораздо интересней как сгенерировать последнюю цифру?

[Synergy]

Неа. Всё дело в битах.

Гораздо интересней как сгенерировать последнюю цифру?

В какой-то теме было написано как ее посчитать...САм ищу эту тему уже третий день...


Нашел!

В-общем, так:
Берем IMEI без последней цифры, полученный из симов.
Складываем вместе все нечетные цифры плюс суммы цифр удвоенных четных цифр.
Контрольная цифра - разность между 10 и последней цифрой получившегося числа.
Ставим контрольную цифру справа от ранее имевшегося "неполного" IMEI и получаем полный IMEI.

Спасибо Booroondook'у. Это было в теме про p2kapi.

[Random]

В какой-то теме было написано как ее посчитать...САм ищу эту тему уже третий день...
Нашел!
Спасибо Booroondook'у. Это было в теме про p2kapi.

Кажется, это не совсем верный алгоритм...
Вечером может поищу точный.

[blackbox]

Random,
Далеко искать собрался?

http://wiki.motofan.ru/wiki/Seem_0004

Код

void print_imei(void)
{
   unsigned char i, digit, sum = 0;
   unsigned char seem[9];
   char imei[16];
   Seem_Read(4, 1, 0, 9, &seem);
   for (i = 0; i < 14; i++) {
       if (i & 1) {
           digit = seem[2+(i>>1)] & 0xf;
           imei[i] = '0' + digit;
           digit <<= 1;
       } else {
           digit = seem[1+(i>>1)] >> 4;
           imei[i] = '0' + digit;
       }
       if (digit > 9) digit -= 9;
       sum += digit;
   }
   imei[14] = '0' + ((sum/10 + 1) * 10 - sum) % 10;
   imei[15] = '\0';
   printf("%s", imei);
}

Сообщение отредактировал blackbox - 20.6.2006, 12:11

[Random]

Random,
Далеко искать собрался?

В кино ходил :) У меня было где-то описание как правильно посчитать цифру (не всем думаю будет понятно по коду на Wiki)
Вот, нашел, немного криво описано, но разобраться можно. Плюс еще и пример есть:

1. IMEI 44 91 94 70 56 96 82 1
2. Умножаем на 2 все нечетные считать начиная с конца и складываем.
2*2+6*2+6*2+0*2+4*2+1*2+4*2=46

4 , 12, 12, 0, 8 , 2, 8

3. к полученной сумме прибавляем сумму всех четных членов IMEI 8+9+5+7+9+9+4=51

and then add this sum to the sum of all the even
labelled digits

сумма с каждой цифрой
8+9+5+7+9+9+4=51 +4+1+2+1+2+0+8+2+8 = 79

4 Если получается 0 то запмсываем 0, если не ноль то пишем разницу между вышестоящим числом,
и следующим числом, оканчивающимся на 0
80-79=1

[lv333]

Вопрос Seem_0004 поменять достаточно легко :) на что это повлияет? ;)

[Serg c650]

на что это повлияет? 

Ну на IMEI ни как, т.к. писали что IMEI это номер флехи, а в seem 0004 только её капия. Вроде так.

[lv333]

Ну на IMEI ни как, т.к. писали что IMEI это номер флехи, а в seem 0004 только её капия. Вроде так.

А какой тогда в нем смысл? Зачем держать в seem то что и так в любой момент можно прочитать с другого места?

[Vilko]

lv333,
смысл в том что доступ к отп флехи - для системы достаточно сложный и медленный процесс. а симы - это стандартное api доступа к настройкам.

[n0wheremany]

У меня имей оканчивается на 8 а вышеприведённому коду - 1, в FlashBackup тоже 1.

[blackbox]

n0wheremany,
Ты прав, есть глюк.
У меня на L7 последняя цифра тоже 8, а код дает 2. А тестировал я только на E398, там последняя цифра была 5.

Может просто добавить в конце parity = 10 - parity?

[Random]

У меня имей оканчивается на 8 а вышеприведённому коду - 1, в FlashBackup тоже 1.

Как я уже написал код не совсем точный.
А в FlashBackup как раз такой алгоритм и был.
Но испольуя процитированную мной выше инструкцию, можно алгоритм описать так.
Написно очень просто и "в лоб", желания чего-то мудрить не было.

Код

function TP2kApi.GetIMEIFromSeem:String;
var Buf:array[0..8] of Byte;
   BufSize:Word;
   I:SmallInt;
   Sum:Word;
   tmpS:String;
begin
BufSize:=9;
ReadSeem($0004,$0001,0,8,@Buf,BufSize);
Result:=IntToHex(Buf[1],2)[1];
for I:=2 to 8 do Result:=Result+IntToHex(Buf[I],2)[2]+IntToHex(Buf[I],2)[1];
Sum:=0;
I:=14;
tmpS:='';
repeat
 tmps:=tmpS+IntToStr(StrToInt(Result[I])*2);
 Dec(I,2);
until I=0;
for I:=1 to Length(tmps) do Sum:=Sum+StrToInt(tmps[I]);
I:=13;
repeat
 Sum:=Sum+StrToInt(Result[I]);
 Dec(I,2);
until I=-1;
tmpS:=IntToStr(Sum);
if tmpS[2]='0' then Result[15]:='0' else begin
 I:=Sum;
 repeat inc(I) until IntToStr(I)[2]='0';
 Result[15]:=IntToStr(I-Sum)[1];
end;
end;

[n0wheremany]

Random

Может лучше просто алгорим дать...

Сам алгоритм я уже давал! Читаем 25-ое сообщение в этой теме.

Сообщение отредактировал Random - 22.6.2006, 6:47

[n0wheremany]

Этот алгория я и пользовал

Код

//MotoSysUtils.pas

function GetFullIMEI(IMEI:string):string;
var X:integer;
begin
//Складываем вместе все нечетные цифры плюс суммы цифр удвоенных четных цифр.
//Контрольная цифра - разность между 10 и последней цифрой получившегося числа.
Result := IMEI;
if Length(IMEI)<>14 then exit;
X :=
 StrToIntDef(IMEI[1],0) +StrToIntDef(IMEI[2],0)*2+
 StrToIntDef(IMEI[3],0) +StrToIntDef(IMEI[4],0)*2+
 StrToIntDef(IMEI[5],0) +StrToIntDef(IMEI[6],0)*2+
 StrToIntDef(IMEI[7],0) +StrToIntDef(IMEI[8],0)*2+
 StrToIntDef(IMEI[9],0) +StrToIntDef(IMEI[10],0)*2+
 StrToIntDef(IMEI[11],0)+StrToIntDef(IMEI[12],0)*2+
 StrToIntDef(IMEI[13],0)+StrToIntDef(IMEI[14],0)*2;
X := Trunc(((X div 10)+1)*10-X);
Result := IMEI + IntToStr(X);
end;

ЗЫ кстати вчера самолично видел IMEI из 16 цифр на Samsung C550 вроде. Не знаю какая марка.

[ALucaRD]

Этот алгория я и пользовал

Код

//MotoSysUtils.pas

function GetFullIMEI(IMEI:string):string;
var X:integer;
begin
//Складываем вместе все нечетные цифры плюс суммы цифр удвоенных четных цифр.
//Контрольная цифра - разность между 10 и последней цифрой получившегося числа.
Result := IMEI;
if Length(IMEI)<>14 then exit;
X :=
  StrToIntDef(IMEI[1],0) +StrToIntDef(IMEI[2],0)*2+
  StrToIntDef(IMEI[3],0) +StrToIntDef(IMEI[4],0)*2+
  StrToIntDef(IMEI[5],0) +StrToIntDef(IMEI[6],0)*2+
  StrToIntDef(IMEI[7],0) +StrToIntDef(IMEI[8],0)*2+
  StrToIntDef(IMEI[9],0) +StrToIntDef(IMEI[10],0)*2+
  StrToIntDef(IMEI[11],0)+StrToIntDef(IMEI[12],0)*2+
  StrToIntDef(IMEI[13],0)+StrToIntDef(IMEI[14],0)*2;
X := Trunc(((X div 10)+1)*10-X);
Result := IMEI + IntToStr(X);
end;

ЗЫ кстати вчера самолично видел IMEI из 16 цифр на Samsung C550 вроде. Не знаю какая марка.

ента функцыя считает не првильно у мну

вот, несколько переделал, тестил на своем моторе л7е и на маминой нокии 6060

Код

function GetIMEI(IMEI:string):string;
var X:integer;
Y:string;
begin
Result := IMEI;
if Length(IMEI)<>14 then exit;
X :=
strtoint(IMEI[1])*2+strtoint(IMEI[2])+
strtoint(IMEI[3])*2+strtoint(IMEI[4])+
strtoint(IMEI[5])*2+strtoint(IMEI[6])+
strtoint(IMEI[7])*2+strtoint(IMEI[8])+
strtoint(IMEI[9])*2+strtoint(IMEI[10])+
strtoint(IMEI[11])*2+strtoint(IMEI[12])+
strtoint(IMEI[13])*2+strtoint(IMEI[14]);
Y := inttostr(X+1);
X:=0;
x:=10-strtoint(Y[2]);
Result := IMEI + IntToStr(X);
end;

[n0wheremany]

Y := inttostr(X+1); > Если Y длиной не 2, то ошибка (Y[2]).
X:=0; тоже лишнее
strtoint очень не рекомендую использовать в этой функции, т.к. если ошибка, то функция вылетит да и быстродйствие хромает. Имхо воспользуйся Format.

ента функцыя считает не првильно у мну

Давно изменен алгоритм, попробуй в MotoSysUtils его вызвать.

маминой нокии 6060

16 цифр на Samsung C550 вроде

Как объяснил Vilko IMEI - только для каждой марки (Moto, SE, Nokia) стандартизирован.
ИМХО алгоритм соотвественно тоже разный для разных марок.

Сообщение отредактировал n0wheremany - 12.7.2007, 14:35

[ALucaRD]

Y := inttostr(X+1); > Если Y длиной не 2, то ошибка (Y[2]).

а там только после суммы может быть от 2 до 3 цыфр (3 - я сомневаюсь)

strtoint очень не рекомендую использовать в этой функции, т.к. если ошибка, то функция вылетит да и быстродйствие хромает. Имхо воспользуйся Format.

уш, извени, как учитель информатики научил, так и пользуюсь ))

[Dkfl]

Кто как, а я хочу поменять IMEI! у кента труба не его, нашёл видите ли! ну и возвращать кому не знает, а вещица-то видать понравилась - оставить кокчет! А мне то что?!, мне все равно в каком колупаться! Вот так! Ну и вообщем как его поменять? может ктонить подсказать. Я бегло почитал вышеописанное - никогда в такие дебри не лез! (то бишь симы и т.п.) можно ли какнить с помощью какойнить программы? За ранее благодарен. или ссылки на посты актуальные.

[Osta]

За ранее благодарен. или ссылки на посты актуальные.

вот ссылка https://forum.motofan.ru/index.php?act=announce&f=70&id=17
там прочитай про IMEI

[Dkfl]

вот ссылка https://forum.motofan.ru/index.php?act=announce&f=70&id=17
там прочитай про IMEI

спасибо! очень помогло! отлегло прямо!