Need Serious Help - Converting a String Key to a Binary Key

[woods91]

I need to convert a registry key in win 95 that has a string value to a new registry key that has a binary value. Then I need to pull the binary value out of the newly created key and view it as a string to make sure these values match the original values as set in the string key.

Can anyone please help?????

[DerFarm]

can you give an example of the string key?

[woods91]

Ok here are the specifics:

Windows 95 registry: under HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Categories
Key: Master list
Value: String

I need to read these values from the registry - had success
Convert these string values to their binary/hex equivalent

Create a new key with a binary value

Insert the converted values into this new key as binary

Finally read these values from the new key (stored as binary)

and write to a message box the string equivalent. Check to make sure these values from the new key are the same as the original string values from the original key.

I hope this makes sense????

Thanks
Phil.

[DerFarm]

The code for translating Decimal to Binary:

Function Bin2Dec(strBinary As String) As Long
   Dim Ret_Val As Long, intBinLen As Integer
   Dim i As Integer
   
   intBinLen = Len(strBinary)
   For i = intBinLen To 1 Step (-1)
      If Mid$(strBinary, i, 1) = "1" Then
         Ret_Val = Ret_Val + (2 ^ (intBinLen - i))
      End If
   Next i
Xit_Bin2Dec:
    Bin2Dec = Ret_Val
End Function

Translating Decimal to Binary

Function Dec2Bin(lngDecimal As Long) As String
   Dim Ret_Val As String, dbl_Temp0 As Double
   Dim str_Temp0 As String
   
   lng_Temp0 = lngDecimal
   Ret_Val = ""
   While lng_Temp0 > 0
        str_Temp0 = "0"
        lng_Temp0 = lng_Temp0 / 2
     
        If lng_Temp0 > Int(lng_Temp0) Then str_Temp0 = "1"
        
        Ret_Val = str_Temp0 & Ret_Val
        lng_Temp0 = Int(lng_Temp0)
   Wend


Xit_Dec2Bin:
    Dec2Bin = Ret_Val
End Function