GSM-Forum  

Welcome to the GSM-Forum forums.

You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features.
Only registered members may post questions, contact other members or search our database of over 8 million posts.

Registration is fast, simple and absolutely free so please - Click to REGISTER!

If you have any problems with the registration process or your account login, please contact contact us .

Go Back   GSM-Forum > Other Gsm/Mobile Related Forums > GSM Programming & Reverse Engineering

GSM Programming & Reverse Engineering Here you can post all Kind of GSM Programming and Reverse Engineering tools and Secrets.

Reply
 
LinkBack Thread Tools Display Modes
Old 06-12-2012, 20:14   #1 (permalink)
Junior Member
 
Join Date: Jan 2012
Posts: 5
Member: 1715494
Status: Offline
Thanks Meter: 12
howto change backberry imei after disable RTAS?(delphi RIMRadioCOMLib)

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.
  Reply With Quote
Old 06-12-2012, 23:22   #2 (permalink)
Insane Poster
 
Join Date: Jan 2008
Location: Venezuela
Posts: 63
Member: 682544
Status: Offline
Thanks Meter: 16
Cool

IWriteIMEI.Execute("123456789012345")
  Reply With Quote
Old 06-13-2012, 09:30   #3 (permalink)
Junior Member
 
Join Date: Jan 2012
Posts: 5
Member: 1715494
Status: Offline
Thanks Meter: 12
can i reset or clear mep 0 after disable RTAS?(RimLib)
  Reply With Quote
Old 06-14-2012, 11:54   #4 (permalink)
Freak Poster
 
Join Date: Jul 2011
Location: Australia/Melbourne
Posts: 100
Member: 1610809
Status: Offline
Sonork: 100.1616347
Thanks Meter: 20
Try this to change IMEI GL

Quote:
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
  Reply With Quote
The Following 2 Users Say Thank You to GTunlocker For This Useful Post:
Old 06-14-2012, 20:58   #5 (permalink)
Junior Member
 
Join Date: Jan 2012
Posts: 5
Member: 1715494
Status: Offline
Thanks Meter: 12
Quote:
Originally Posted by GTunlocker View Post
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.
  Reply With Quote
Old 06-15-2012, 07:38   #6 (permalink)
No Life Poster
 
radar1's Avatar
 
Join Date: Mar 2008
Location: Romania
Age: 34
Posts: 766
Member: 724928
Status: Offline
Thanks Meter: 217
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.
  Reply With Quote
The Following 2 Users Say Thank You to radar1 For This Useful Post:
Reply

Bookmarks

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
thread Thread Starter Forum Replies Last Post
what prog changes imei on 6110 and how do i do it? Ravetrancer Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L ) 3 07-31-2012 20:09
Nokia 51xx/61xx imei changer ver. 1.10?????? Ravetrancer Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L ) 8 04-06-2012 16:22
6110 imei changer !!!!!! Ravetrancer Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L ) 5 11-21-2011 00:44
ESN Change OGOMEZ Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L ) 0 09-21-1999 23:56
Imei Arnis Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L ) 1 09-15-1999 02:38

 



All times are GMT +1. The time now is 11:08.



Powered by Searchlight © 2014 Axivo Inc.
vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2014 DragonByte Technologies Ltd.
- GSM Hosting Ltd. - 1999-2014 -
Page generated in 0.45127 seconds with 8 queries

SEO by vBSEO