VB6 Flash analyser

[slikmik]

Recently been playing around with Visual Basic and ive managed to make a simple program whereby you open a flash file and it searches for the string "V 0" (the Version bit) and then displays the mobile make version number and date etc in a box, pretty lame i know but hey its a start

I want to make it possible to correct all the checksums and find out imei etc

NokFree help with offsests :p but how do you actually pull out of a string the hex at this offset? Im all confused

This Developer forum seems dead but PLEASE if anybody can give some help to a novice programmer i'll be a happy chappy :D

Cheers Guys

Mike

P.S. Find attached my little proggy ;)
TO USE IT RENAME TO "whatever.EXE" AS I COULDNT UPLOAD A ".EXE" EXTENSION AND CANT RUN WINZIP ON BLOODY WINDOWS .NET - SORRY

[laleas]

It doesn't work for me man. Sorry!:(
I tried it with flash files of 3210, 3310, 3330, 6210, 8210.

Nick

[phonedudes]

Couldnt get it to work either.... What model and flash version did you test your prog with???

Also not quite sure what your asking.

Are you wanting to know how to write that capability in VB? Or what exactly?

Phonedudes :) :grin: :)

[slikmik]

I tried it with various MCU+PPM flashes from the download section and it worked fine - shame u cant get it to work :(

All im asking is how in VB6 do you get certain info from a string at a certain offset address - i've read the flash to string called FLASH but how do i pull certain info from the string? for example the imei is at offset whatever and how do i get that info?

I know many people dont like VB6 and prefer C++ but i find vb easy enough to work with...

Any help gratefull

Cheers
Mike

P.s. What error you guys getting? - Itw orks with various flasshes from the download section - like the 3330 and 3350 and 5110 etc

[slikmik]

Find attached a zip file containing a screen shot and working fls file from the downlaod area - its a 3330 4.50!

[:: sunny ::]

Only attached file is working ... with that soft ..

i tried 3310,8250,5210 .. didnt show any thing ?

[skynet]

i dunno why you read the whole thing to a string... but

if you wanna get characters from a string from a certain address then use mid(string, begin, length)

e.g.

FLASH="what is this for"
eg=mid(FLASH,4,5)
msgbox eg

it will show "t is t"

i'm not sure about this, maybe it'll return "at is " coz the first character is the 0th, but as i know vb, the first char is the first, not the 0th

did this answer your question or have i totally misunderstood it?

[chenko]

the functions to get parts of strings are

mid()
left()
right()

personally i dont like Mid() so i just use a mix of Left(Right()) :p


also, look into the split() function and the instr() (and instrrev() )

these will help you with parsing

[slikmik]

Cheers for the tips but not exactly what im after...

Okay if i read one character at a time from a flash file

and store it as a STRING and say text1.text = STRING then it should display the entire flash file yes?? Well it doesnt it just displays the text parts like 1234567890 abcdefghijklmnopqrstuvwxyz etc etc

How would one read the flash one character at a time - convert it to hex and put it in a text box??

Cheers

Mike

[slikmik]

Hiya! :)

I found this source on net and thought i'd share
Its a very basic Mbus protocol thingy in VB6 - maybe people can build on it, neways lets have fun and see what cool prggys we can make :D

Have fun

Mike

[chenko]

Originally posted by slikmik
Cheers for the tips but not exactly what im after...

Okay if i read one character at a time from a flash file

and store it as a STRING and say text1.text = STRING then it should display the entire flash file yes?? Well it doesnt it just displays the text parts like 1234567890 abcdefghijklmnopqrstuvwxyz etc etc

How would one read the flash one character at a time - convert it to hex and put it in a text box??

Cheers

Mike

are you reading it in using binary or ASCII? also, when you read a line, use "Line Input #filenum, sBuffer" instead of just Input (Input has a character limit per line)



for spliting the file (or any string) down into single characters, use this function, it returns an array with each character (including vbCrLf and spaces etc) in each position



Public Function CharList(sData As Variant) As Variant
Dim vCharList()
Dim FileLen

FileLen = Len(sData)
ReDim vCharList(FileLen - 1)

For i = 0 To FileLen - 1
vCharList(i) = Right(Left(sData, i + 1), 1)
Next i
CharList = vCharList
End Function

[Liam]

Originally posted by slikmik
TO USE IT RENAME TO "whatever.EXE" AS I COULDNT UPLOAD A ".EXE" EXTENSION AND CANT RUN WINZIP ON BLOODY WINDOWS .NET - SORRY


Install Compressed Folders if it isnt already, right click then send to -> add to compressed folder

that makes zip files

I too have windows .net (is your legit? ;) I am on beta list :D)

[slikmik]

Cheers for that info about zipping on .net

But ive gotten rid of it and back to win2k cos its me favourite :D

Legit? Ofcourse not ;) lol

Mike

[mrbig4545]

Mike your silly, it was ligit as im on the beta test list, and i can install it on 10 pc's.

Silly Billy:D :D :D

Mark

[china_pda]

Originally posted by slikmik
Hiya! :)

I found this source on net and thought i'd share
Its a very basic Mbus protocol thingy in VB6 - maybe people can build on it, neways lets have fun and see what cool prggys we can make :D

Have fun

Mike

thank you very much, that is needed!