HEX editing

[craky2ooo]

Hi

I have a BIG problem....
I'm working on an hex edit project,
So, the problem is that I have the adress of the value that
I want to modifie...this value is an Unsigned Long, when I store the value in a Long type variable
it give me a Signed Long, but me I want a Unsigned Long!!
So, in what type of variable I have to store it to have the correct value of an unsigned long?

Understood?
no?..
hum...

look at this ;

Hex value = C7 CB4A DB
When I store this in a Long..
ea : Dim MyVariable as Long
MyVariable=&HC7CB4ADB
Text1.Text = MyVariable

In the screen, in my text box I see '-615855161', and this value is the Signed Long of the hex value

Me I need to see the Unsigned Long of the hex value that is '3679112135'

So, if you understand something and how to resolve this, please help........

[plenderj]

Use C++ instead of VB, or manually convert the number yourself.
Below is the source to one that I use.
I didnt write it though.

[plenderj]

First part of source.

[plenderj]

Second part of source.

[craky2ooo]

Don't have another option????

Plzzzzzzzzzzzzzzzz

[craky2ooo]

um...

thanx for the help

but if someone have an other option tell me...

[plenderj]

You can download it from here too :
http://www.tu-darmstadt.de/~rkibria

[craky2ooo]

What is this URL for??
For the binary editor?

[plenderj]

Yeah the official website for the hex editor.
Its a real good editor. The one I use.

[craky2ooo]

I/m using Hex WorkShop...that is really cool too

With a great file compare option

[craky2ooo]

The code you give me is in C or C++ !!
I'm searching for a Visual Basic Solutions or (or code)

[plenderj]

I never implied it was written in VB.

These may help :

http://www.a1vbcode.com/coderedirect...ication&ID=359
http://www.a1vbcode.com/coderedirect...ication&ID=349
http://www.a1vbcode.com/coderedirect...ication&ID=347

I presume they're in VB.

[Nucleus]

Also try this function out:

Private Sub Command1_Click()
Dim MyVariable
MyVariable = HexToDec("C7CB4ADB")
Debug.Print MyVariable
 
End Sub
 
 
Function HexToDec(ByVal sHex As String) As Variant
 'Nucleus
 Dim ba() As Byte, i&, bitval As Variant, b As Byte
 bitval = 1
 ba = sHex
 For i = UBound(ba) - 1 To 0 Step -2
    b = ba(i)
    If b < 58 Then HexToDec = CDec(HexToDec + (b - 48) * bitval) Else HexToDec = CDec(HexToDec + (b - 55) * bitval)
    bitval = CDec(bitval * 16)
 Next i
End Function

[Nucleus]

BTW when you convert hex C7CB4ADB to decimal the result is: 3351988955 not 3679112135.

[craky2ooo]

Thanx all

[craky2ooo]

heu...
plendj, do you know where I can find some of these ocx for my 16 bit version of vb 4 ??

[craky2ooo]

Nucleus..
I have verify with HexWorkShop, the unsigned long for the hex C7 CB4A DB is 3679112135....

[Nucleus]

Originally posted by craky2ooo
Nucleus..
I have verify with HexWorkShop, the unsigned long for the hex C7 CB4A DB is 3679112135....

Well I verified it with the windows calculator and the base 10 value of C7CB4ADB (base 16) does not equal 3679112135.

Do you mean you want to convert it to a different base?

[craky2ooo]

Do you have a hex editor, if so try to convert the signed long value of the hex to his unsigned long....
you'll see

[nishantp]

I think its pretty tragic that theres an argument over the decimal value of a number...but just for the record i got the same as Nucleus...and i really doubt that the windows calc. is wrong....but maybe theres a mixup in this signed and unsigned stuff.

[Nucleus]

Perhaps it is the unsigned integer that is the cause of the differing results?

I am sure someone knows the largest integer an unsigned integer can support?

[plenderj]

unsigned Integer   0 - 65535
unsigned Long      0 - 4294967295