Link to home
Start Free TrialLog in
Avatar of Clive Beaton
Clive BeatonFlag for Australia

asked on

I need to convert a string into a string of decimals

I need to convert a string into a string of decimals, 2 decimals per original character.  Alternatively to convert to a hex looking format 1-9 A-F.

Can anyone help?

Thanks in advance.
Avatar of Rgonzo1971
Rgonzo1971

Hi,

Could you be more precise?

Regards
Yes, many can help.
But your question is more like a guessing contest - nothing to work with.

/gustav
I guess what you need is to match a char to a pair of numbers (e.g for encryption)
Public Function TextToPair(InputString As String) As String
Dim tmpOutput As String
Dim strLen As Integer
Dim counter As Integer
strLen = Len(InputString)
For counter = 1 To strLen
tmpOutput = tmpOutput & Format(Asc(Mid(InputString, counter, 1)) - 50, "00")
Next
Debug.Print tmpOutput
TextToPair = tmpOutput
End Function

Open in new window

To test it
TextToPair("ALPHATest")

Open in new window

produces :
152630221534516566

Open in new window

From there you can play many tricks like inverting the output...addng or substracting a value (eg. +10)...the minus 50 is to catch the letters above 99...so "A" instead of 65 becomes 15...you can also define your own mappings
Avatar of Clive Beaton

ASKER

If I have a string like "John Smith 1949" I want to resolve each character to 2 digits 0-9 so that I end up with a string that might look something like "156042318542789582652545657528".

The purpose is to create a product registration key from the user name and unique member number.

The user registers the product by sending me the user name and number.

My registration program creates the key and sends it back.

The user enters the key into the registration screen in the program, which creates the same key from the information in the prgram, using the same logic.  If thekeys  match the program is registered.

Hope that helps.
ASKER CERTIFIED SOLUTION
Avatar of John Tsioumpris
John Tsioumpris
Flag of Greece image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Really no point to doing that. That would be so easy to crack that you may as well not even bother. You really need to encrypt the key.
akb,
Thanks for the comment but I need a result that is numbers only.
Thanks, John.  Just what I needed.

Clive