GSM-Forum - howto change backberry imei after disable RTAS?(delphi RIMRadioCOMLib)

GSM-Forum (https://forum.gsmhosting.com/vbb/)

- GSM Programming & Reverse Engineering (https://forum.gsmhosting.com/vbb/f83/)

- - howto change backberry imei after disable RTAS?(delphi RIMRadioCOMLib) (https://forum.gsmhosting.com/vbb/f83/howto-change-backberry-imei-after-disable-rtas-delphi-rimradiocomlib-1489709/)

howto change backberry imei after disable RTAS?(delphi RIMRadioCOMLib)

Code:

const

  CAL_CFIMEI = $00000012;

Code:

type

  IMEID = interface;

  IMEIDDisp = dispinterface;

  IWriteHexIMEI = interface;

  IWriteHexIMEIDisp = dispinterface;

  IWriteIMEI = interface;

  IWriteIMEIDisp = dispinterface;

  IWriteIMEIBaryonGW = interface;

  IWriteIMEIBaryonGWDisp = dispinterface;

Code:

 IID_IMEID: TGUID = '{FC74BAB0-F20C-11DC-95FF-0800200C9A66}';

  IID_IMfgError: TGUID = '{63AF45A0-5219-480E-B23A-72943D68C47E}';

  IID_IWriteHexIMEI: TGUID = '{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}';

  IID_IWriteIMEI: TGUID = '{66BAB079-9EBB-4247-AAA6-DB1EA741FD65}';

  IID_IWriteIMEIBaryonGW: TGUID = '{98F1704F-56BB-4CCB-AD33-753366112909}';

Code:

// *********************************************************************//

// Interface: IMEID

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {FC74BAB0-F20C-11DC-95FF-0800200C9A66}

// *********************************************************************//

  IMEID = interface(IDispatch)

    ['{FC74BAB0-F20C-11DC-95FF-0800200C9A66}']

    procedure Read(out meid_high: LongWord; out meid_low: LongWord); safecall;

    procedure Write(meid_high: LongWord; meid_low: LongWord); safecall;

  end;
 

// *********************************************************************//

// DispIntf:  IMEIDDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {FC74BAB0-F20C-11DC-95FF-0800200C9A66}

// *********************************************************************//

  IMEIDDisp = dispinterface

    ['{FC74BAB0-F20C-11DC-95FF-0800200C9A66}']

    procedure Read(out meid_high: LongWord; out meid_low: LongWord); dispid 1;

    procedure Write(meid_high: LongWord; meid_low: LongWord); dispid 2;

  end;
 

// *********************************************************************//

// Interface: IWriteHexIMEI

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {36DBEA17-A1FA-4604-A9A5-3575E45B56FC}

// *********************************************************************//

  IWriteHexIMEI = interface(IDispatch)

    ['{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}']

    procedure Execute(const str: WideString); safecall;

  end;
 

// *********************************************************************//

// DispIntf:  IWriteHexIMEIDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {36DBEA17-A1FA-4604-A9A5-3575E45B56FC}

// *********************************************************************//

  IWriteHexIMEIDisp = dispinterface

    ['{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}']

    procedure Execute(const str: WideString); dispid 158;

  end;
 

// *********************************************************************//

// Interface: IWriteIMEI

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {66BAB079-9EBB-4247-AAA6-DB1EA741FD65}

// *********************************************************************//

  IWriteIMEI = interface(IDispatch)

    ['{66BAB079-9EBB-4247-AAA6-DB1EA741FD65}']

    procedure Execute(const str: WideString); safecall;

  end;

how to change backberry imei after disable RTAS?

thanks
BR.

IWriteIMEI.Execute("123456789012345")

can i reset or clear mep 0 after disable RTAS?(RimLib)

Try this to change IMEI GL

Quote:

function BBIMEI(str:pchar):string ;
const
imei1 :Array[0..9] of string = ('63','62','61','60','67','66','65','64','6B','6A' );
imei2 :Array[0..9] of string = ('DA','DB','D8','D9','DE','DF','DC','DD','D2','D3' );
imei3 :Array[0..9] of string = ('94','95','96','97','90','91','92','93','9C','9D' );
imei4 :Array[0..9] of string = ('92','93','90','91','96','97','94','95','9A','9B' );
imei5 :Array[0..9] of string = ('C1','C0','C3','C2','C5','C4','C7','C6','C9','C8' );
imei6 :Array[0..9] of string = ('B8','B9','BA','BB','BC','BD','BE','BF','B0','B1' );
imei7 :Array[0..9] of string = ('A9','A8','AB','AA','AD','AC','AF','AE','A1','A0' );
imei8 :Array[0..9] of string = ('A7','A6','A5','A4','A3','A2','A1','A0','AF','AE' );
imei9 :Array[0..9] of string = ('BB','BA','B9','B8','BF','BE','BD','BC','B3','B2' );
imei10:Array[0..9] of string = ('AD','AC','AF','AE','A9','A8','AB','AA','A5','A4' );
imei11:Array[0..9] of string = ('C7','C6','C5','C4','C3','C2','C1','C0','CF','CE' );
imei12:Array[0..9] of string = ('72','73','70','71','76','77','74','75','7A','7B' );
imei13:Array[0..9] of string = ('D3','D2','D1','D0','D7','D6','D5','D4','DB','DA' );
imei14:Array[0..9] of string = ('9A','9B','98','99','9E','9F','9C','9D','92','93' );
imei15:Array[0..9] of string = ('8D','8C','8F','8E','89','88','8B','8A','85','84' );
var
i,i1:integer;
res:string;
begin
result:='';
for i:=0 to 14 do begin
i1:=i;
case i1 of
0 :result:=result+imei1[strtoint(str[i])];
1 :result:=result+imei2[strtoint(str[i])];
2 :result:=result+imei3[strtoint(str[i])];
3 :result:=result+imei4[strtoint(str[i])];
4 :result:=result+imei5[strtoint(str[i])];
5 :result:=result+imei6[strtoint(str[i])];
6 :result:=result+imei7[strtoint(str[i])];
7 :result:=result+imei8[strtoint(str[i])];
8 :result:=result+imei9[strtoint(str[i])];
9 :result:=result+imei10[strtoint(str[i])];
10:result:=result+imei11[strtoint(str[i])];
11:result:=result+imei12[strtoint(str[i])];
12:result:=result+imei13[strtoint(str[i])];
13:result:=result+imei14[strtoint(str[i])];
14:result:=result+imei15[strtoint(str[i])];
end;
end;
result:='01001C0080FE1400'+result+'0005030000';
end;

i seems u are from indonesia

Quote:

Originally Posted by GTunlocker (Post 8500751)

Try this to change IMEI GL

i seems u are from indonesia

no i'm from iran.

thanks for code now can i use rimlib to reset or clear mep 0? after disable rtas.

After you disable in PHONE you can do what you want whit the phone , iff you disable only in sw to bypass .... the phone will refuse anyway to acept bicouse you are not auth the secure zones for write.