Blackberry MEP + IMEI reader

[josedavido]

Please, i am still waitting for solution to send commands by USB, using VB .NET

[reep74]

is some one can tell me in java, i whant to make a imei and mep reader but have to know about rim, some one help me please.

[cdma-unlocker]

HI Dears;

any one can post the complete source code for this mep reader?
i know is already posted by other member "y3kt" but this source is not working.
thanks.

[darmiles]

Originally Posted by cdma-unlocker

HI Dears;

any one can post the complete source code for this mep reader?
i know is already posted by other member "y3kt" but this source is not working.
thanks.

algo and source code already posted in this thread open your eyes//

[aldofavorito]

Originally Posted by y3kt

Hi, i could finally read the BlackBerry's MEP and IMEI without RIMRADIOCOMM been involved, here is log:

Phone found @ \\?\usb#vid_0fca&pid_8004&mi_00#7&34ebb32b&0&0000#{80375827-83b8-4a51-b39b-905fedd4f118}\MAIN
BBPIN: 2128CFC7
IMEI: 355931034930070
MEP: MEP-20669-001

All info needed is available in this forum most of it in this thread, luck

Dim devicePathName As String = find_device()


deviceHandle = CreateFile _
(devicePathName + "\ MAIN", _
GENERIC_READ Or GENERIC_WRITE, _
FILE_SHARE_READ, _
IntPtr.Zero, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, _
0)

If deviceHandle.IsInvalid = True Then
ListBox1.Items.Add("No hay dispositivos Conectados")
Else
ListBox1.Items.Add("Dispositivo conectado")
ListBox1.Items.Add(devicePathName)

dispositivo encontrado: \\?\usb#vid_0fca&pid_8004&mi_00#7&34ebb32b&0&0000# {80375827-83b8-4a51-b39b-905fedd4f118}\MAIN

help me friend, now read as?

[josedavido]

MEGAUPLOAD - The leading online storage and file delivery service


Here is my software:
Read general information
Read Language list
Get Screenshots
Reset and wipe phones
all using javaloader,

i just establish an USB connection to detect connected phones BUT I STILL CAN'T READ MEP
if some one can help me to send and recibe commans by USB i'll be thanksfull
I am not a fool that wants the solution ready, i just want to learn.



Br,
Josedavido

[josedavido]

First Test on 8520



Fist Test on 9300


Still have some troubles reading MEP. but i am working on it.
thanks to my friend to hep Me.


Br,
Josedavido

[elcapitel]

Here my old example:

For to receive MEP and others data, you need send to phone:
01 00 10 00 38 FF 08 00 00 00 00 00 00 00 00 00

In Delphi:
copy(buffer,pos('MEP',buffer),13)

where:
MEP = MEP-XXXXX-XXX (13 characters)

In VisualBasic i dont know similar function to "copy" in Delphi

Good luck brother

br
elcapitel

[y3kt]

Originally Posted by josedavido

First Test on 8520



Fist Test on 9300


Still have some troubles reading MEP. but i am working on it.
thanks to my friend to hep Me.


Br,
Josedavido

Hi, try inserting this in the code you have and let me know:

Dim mep_data() As Byte
mep_data = read_write_byte(deviceHandle, MEPData, MEPData.Length)

Dim enc As New System.Text.UTF8Encoding()
mep_info = enc.GetString(mep_data)
If mep_info.IndexOf("MEP") > 0 Then
    mep_info = mep_info.Substring(mep_info.IndexOf("MEP"), 13)
    ListBox1.Items.Add("MEP: " & mep_info)
Else
    ListBox1.Items.Add("No Valid MEP Found. Please Reconnect Device and Try Again.")
End If

This would be the function involved here, in case you don't have it or can't figure it out

     Public Function read_write_byte(ByVal devicehandle, ByVal command, ByVal commandlenght) As Byte()
        Dim inputReportBuffer(1000) As Byte
        unManagedBuffer = Marshal.AllocHGlobal(inputReportBuffer.Length)
        numberOfBytesRead = 0
        numberOfBytesWritten = 0

        success = WriteFile _
        (devicehandle, _
        command, _
        commandlenght, _
        numberOfBytesWritten, _
        IntPtr.Zero)

        Thread.Sleep(100)

        success = ReadFile _
           (devicehandle, _
            unManagedBuffer, _
            inputReportBuffer.Length, _
            numberOfBytesRead, _
            unManagedOverlapped)

        Marshal.Copy _
        (unManagedBuffer, inputReportBuffer, 0, numberOfBytesRead)

        ReDim Preserve inputReportBuffer(numberOfBytesRead - 1)

        Return inputReportBuffer

    End Function

Luck!

[josedavido]

Big Thanks to Mr. Y3KT and El_Capitel ... My two ASERES

Good news, finally full code works fine
tested on different PC's

8520


9780



9800


9300



Now i am working on a new function.

Br,
Josedavido

[elcapitel]

Suggestion:
why some parts in english and other in spanish?
Better remove spanish from buttons or to make multilanguage

By the way.. try to use with OS7 models:
Blackberry 7 devices:

BlackBerry Bold series (2011): BlackBerry Bold 9900/9930/9790
BlackBerry Torch series (2011): BlackBerry Torch 9810
BlackBerry Torch series (2011): BlackBerry Torch 9850/9860
BlackBerry Curve series (2011): BlackBerry 9350/9360/9370/9380


br
elcapitel

Originally Posted by josedavido

Big Thanks to Mr. Y3KT and El_Capitel ... My two ASERES

Good news, finally full code works fine
tested on different PC's

8520


9780



9800


9300



Now i am working on a new function.

Br,
Josedavido

[aldofavorito]

Originally Posted by josedavido

First Test on 8520



Fist Test on 9300


Still have some troubles reading MEP. but i am working on it.
thanks to my friend to hep Me.


Br,
Josedavido

my friend here, you obtain in mep information. SVP-xxxxx-xxx-xxx adds more length ,13 not best

what bytes using?

[josedavido]

Well, the work is finished, I have an ad¡tion to the software, for identify MEP's but my MEP's list is wrong. so, doesn't matter what appears onn the software




Here is the BETA Version


Br,
Josedavido

[y3kt]

Have you triedy it on any OS7 devices as already asked by elcapitel?

[josedavido]

Originally Posted by y3kt

Have you triedy it on any OS7 devices as already asked by elcapitel?

No asere, i dont have these models right now, but i will post it if can find it