HEX editing

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........

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.

First part of source.

Second part of source.

Don't have another option????

Plzzzzzzzzzzzzzzzz :( :( :( :( :( :( :( :( :( :(

um...

thanx for the help;)

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

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

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

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

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

With a great file compare option :)

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

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.

Also try this function out:

VB Code:

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

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

Thanx all

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

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

Quote:

---

Originally posted by craky2ooo
:mad: 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?

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

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.

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?

Code:

---

unsigned Integer  0 - 65535
unsigned Long      0 - 4294967295

---