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

[Pasha.YPY]

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

const
  CAL_CFIMEI = $00000012;

type
  IMEID = interface;
  IMEIDDisp = dispinterface;
  IWriteHexIMEI = interface;
  IWriteHexIMEIDisp = dispinterface;
  IWriteIMEI = interface;
  IWriteIMEIDisp = dispinterface;
  IWriteIMEIBaryonGW = interface;
  IWriteIMEIBaryonGWDisp = dispinterface;

 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}';

// *********************************************************************//
// 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.

[Marthianfred]

IWriteIMEI.Execute("123456789012345")

[Pasha.YPY]

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

[GTunlocker]

Try this to change IMEI GL

function BBIMEI(strchar):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

[Pasha.YPY]

Originally Posted by GTunlocker

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.

[radar1]

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.