Blackberry MEP + IMEI reader

[mustipusti]

Originally Posted by dheasy_mns

any wrong bro?? bcozz can not open in my delphi 7

edit Project1.dpr
Unit1 in '..\BB_Logger\Unit1.pas' to the dir. where the source is placed

[dheasy_mns]

big thanks to Y3KT..

finish learning imei+mep...
now work in delphi..

br.
dodo

[mardi]

Originally Posted by y3kt

Hi, complete source is HERE, it is all you need, luck

cant open project1 need help

[mardi]

NEED HELP HOW TO USE IReturnUnlockCode,I CANT GET code

regards

[mustipusti]

Originally Posted by mardi

NEED HELP HOW TO USE IReturnUnlockCode,I CANT GET code

regards

heheheheheh your joking right? IReturnUnlockCode where did you found that?

[mardi]

Originally Posted by mustipusti

heheheheheh your joking right? IReturnUnlockCode where did you found that?

Get from rimradiocom.dll
i use this code

procedure TForm1.btnReadInfoClick(Sender: TObject);
var
  i: Cardinal;
  SwPartList: IGetSwPartList;
  PartList: PSafeArray;
  RRO: *****adioObj;
  Connection: IConnection;
  IMEI: IReadIMEI;
  StrImei: WideString;
  pl: WideString;
  BBPIN: IReadBBPIN;
  edtClipBoard: TEdit;
  BSN: IReadBSN;
  StrBsn: WideString;
begin
  // Create RIM Radio Object
  RRO := *****adioObj.Create(Form1);
  // Query different interfaces to see if are supported
  // if OK then read desired information
  if RRO.DefaultInterface.QueryInterface(IID_IConnection, Connection) = S_OK then
  begin
    // Connect to phone
    Connection.Connect('USB', 300, 19200, '');
    // Read BBPIN
    if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IReadBBPIN, BBPIN) = S_OK) then
    begin
        ListBox1.Items.Add('BBPIN: ' + IntToHex(BBPIN.Execute,6));
    end;
    // IMEI
    if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IReadIMEI, IMEI) = S_OK) then
    begin
      IMEI.Execute(StrImei);
      edtIMEI.Text := StringReplace(StrImei, '/', '', [rfReplaceAll]);
    end;
    // BSN
    if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IReadBSN, BSN) = S_OK) then
    begin
      BSN.Execute(StrBsn);
      edtBSN.Text := StringReplace(StrBsn, '/', '', [rfReplaceAll]);
    end;
    // PartList
    if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IGetSwPartList, SwPartList) = S_OK) then
    begin
      SwPartList.Execute(PartList);
      for i:=0 to PartList.rgsabound[0].cElements-1 do
      begin
         SafeArrayGetElement(PartList, i, pl);
         // From all partlist info just show MEP
         if Pos('MEP', pl) > 0  then
           edtMEP.Text := pl;
      end;
    end;
    // Create a TEdit to put IMEI + MEP + BSN + BBPIN together and paste it to clipboard
    edtClipBoard := TEdit.Create(Form1);
    edtClipBoard.Parent := Form1;
    edtClipBoard.Text := 'IMEI:' + edtIMEI.Text + ' MEP:' + edtMEP.Text + ' BSN: ' + edtBSN.text;
    edtClipBoard.SelectAll;
    edtClipBoard.CopyToClipboard;
    edtClipBoard.Free;
    // Finish then disconnect interface
    Connection.Disconnect;
  end;
  // Release Rim Radio Object
  RRO.Free;
end;

end.

and get this logger http://forum.gsmhosting.com/vbb/atta...9&d=1280177026

some body know how use this
IID_IReturnUnlockCode TGUID = '{FD2BA101-FA4E-40DF-8C37-95BCF2DBB122}';
IReturnUnlockCode = interface;
Interface IReturnUnlockCode
ReturnUnlockCode = interface(IDispatch)
procedure Execute(category Byte; out outUnlockCode WideString); safecall;
end;


regards

[mardi]

This for test

regards

[karabey]

Can somebody do this in Java??

Contact me pls!

[kfarouq]

Imei: 980042000432936
mep: Mep-07723-005

[ligteltelecom]

Hi y3kt;

Where can I find these Librarys ?
BlackBerry Dev1.0 Type Library and RIMRadioCOM 1.3 Type Library

I tried for google, but I did not had sucess

[y3kt]

To have those libraries you need to register RIMRadioCom.dll, it comes with old MFI MultiLoader in bin folder, luck

[carlosVEN]

go to this page How to read BlackBerry MEP without Cable | FastGSM.com follow the steps and you´ll get the mep code

[y3kt]

Originally Posted by carlosVEN

go to this page How to read BlackBerry MEP without Cable | FastGSM.com follow the steps and you´ll get the mep code

This is about how to programtically read mep, luck

[kique007]

some one have done in c# languaje?

[.:Gsm-Nikki:.]

hi
guys, i have no knowlege in programming any thing..

it would be great if someone could make me a mep/imei reader with my avatar..

thanx a lot in advance

wbr
GsmNikki