MD5 conversion problem

[Peter Afonin]

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like this:

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang
=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =
BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this string,
it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Joe Kaplan \(MVP - ADSI\)]

Why don't you try Convert.ToBase6 4String instead? Typically, you encode
binary data as a string with either Base64 or hex string encoding.

Also, be careful about using ASCII encoding to convert the input string to
binary. If it includes any non-ASCII characters, you'll be throwing data
away. UTF8 is safer. Whatever you do, make sure you alway compute the hash
the same way if you are going to be using it for a comparison.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like this:

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang
=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan = BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this string, it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Peter Afonin]

Thank you, Joe.

I've tried to change it like this:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As new UTF8Encoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
Me.crc.Value = sCRC

Yes, the output string has changed:

'<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+

But I'm still getting a "bad crc" error.

Peter

"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..

Why don't you try Convert.ToBase6 4String instead? Typically, you encode
binary data as a string with either Base64 or hex string encoding.

Also, be careful about using ASCII encoding to convert the input string to
binary. If it includes any non-ASCII characters, you'll be throwing data
away. UTF8 is safer. Whatever you do, make sure you alway compute the hash the same way if you are going to be using it for a comparison.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like this:
"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this

string,

it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Joe Kaplan \(MVP - ADSI\)]

What is giving you a "bad CRC" error? Is it the code below? That looks
like it should just return a base64 encoded MD5 hash of whatever string was
provided.

It isn't clear to me what you are trying to do or what the input is in the
funtion.

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eQ******** ********@TK2MSF TNGP12.phx.gbl. ..

Thank you, Joe.

I've tried to change it like this:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As new UTF8Encoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
Me.crc.Value = sCRC

Yes, the output string has changed:

'<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+

But I'm still getting a "bad crc" error.

Peter

"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..

Why don't you try Convert.ToBase6 4String instead? Typically, you encode
binary data as a string with either Base64 or hex string encoding.

Also, be careful about using ASCII encoding to convert the input string to

binary. If it includes any non-ASCII characters, you'll be throwing data away. UTF8 is safer. Whatever you do, make sure you alway compute the

hash

the same way if you are going to be using it for a comparison.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like

this:
"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this

string,

it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Peter Afonin]

Joe, I'm connecting an online store to the payment system. I need to pass
this string to this payment gateway, and it will return me another string
back, confirming that the payment was successful.

I contacted the techsupport of this gateway. They said that I don't have to
convert my string to Base64. I need to convert every byte to 16-bit number
or something like this. They don't use ASP.Net, so couldn't give me an exact
code. They said that it should look approximately like this:

StringBuilder sb = new StringBuilder() ;

for (int i=0;i<hash.Leng th;i++)
sb.Append(hash[i].ToString("x"). PadLeft(2,'0')) ;

return sb.ToString();

How it should look in VB.Net?

Thank you,

Peter
"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:OJ******** ********@tk2msf tngp13.phx.gbl. ..

What is giving you a "bad CRC" error? Is it the code below? That looks
like it should just return a base64 encoded MD5 hash of whatever string was provided.

It isn't clear to me what you are trying to do or what the input is in the
funtion.

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eQ******** ********@TK2MSF TNGP12.phx.gbl. ..

Thank you, Joe.

I've tried to change it like this:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As new UTF8Encoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
Me.crc.Value = sCRC

Yes, the output string has changed:

'<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+

But I'm still getting a "bad crc" error.

Peter

"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote

in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..

Why don't you try Convert.ToBase6 4String instead? Typically, you encode binary data as a string with either Base64 or hex string encoding.

Also, be careful about using ASCII encoding to convert the input string

to binary. If it includes any non-ASCII characters, you'll be throwing data away. UTF8 is safer. Whatever you do, make sure you alway compute

the

hash

the same way if you are going to be using it for a comparison.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...
> Hello,
>
> I'm struggling with the string conversion to MD5 which I've never

user > before.
>
> I have a string that I need to encode which looks approximately like

this:

>
>

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang

>

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

> BU:shp_Term=2"
>
> I'm doing it this way:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServic eProvider
> Dim encoder As New ASCIIEncoding
> hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) ) >
> It doesn't work. When I see the output on the page where I pass this
string,
> it looks like this:
>
> '<input type=hidden name=crc value="System.B yte[]">'+
>
> I don't know exactly how it should look like, but probably not like
> "System.Byt e[]"
>
> I'm doing something wrong, but I don't know what.
>
> I would really appreciate your help.
>
> Thank you,
>
> Peter Afonin
>
>

[José Joye]

By the way, If you want to compute an MD5 ash on a pswd like string and get
the result in a string (eg for storing ashing in a dB), you could use this
wrapper method:
FormsAuthentica tion.HashPasswo rdForStoringInC onfigFile()

José
"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like this:

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang
=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =
BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this
string,
it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Peter Afonin]

Thank you, I'll try.

Peter

"José Joye" <jo*******@KILL THESPAMSbluewin .ch> wrote in message
news:uI******** *****@TK2MSFTNG P12.phx.gbl...

By the way, If you want to compute an MD5 ash on a pswd like string and get the result in a string (eg for storing ashing in a dB), you could use this
wrapper method:
FormsAuthentica tion.HashPasswo rdForStoringInC onfigFile()

José
"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eJ******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

I'm struggling with the string conversion to MD5 which I've never user
before.

I have a string that I need to encode which looks approximately like this:
"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang =ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan = BU:shp_Term=2"

I'm doing it this way:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

It doesn't work. When I see the output on the page where I pass this
string,
it looks like this:

'<input type=hidden name=crc value="System.B yte[]">'+

I don't know exactly how it should look like, but probably not like
"System.Byt e[]"

I'm doing something wrong, but I don't know what.

I would really appreciate your help.

Thank you,

Peter Afonin

[Joe Kaplan \(MVP - ADSI\)]

Ah, this is the hex encoding thing I mentioned in my first post and didn't
provide an example for. You can either use the BitConverter class to
convert the byte[] to hex digits and then strip out the - characters it puts
in between or using something like my function called ConvertToOctetS tring
that you can do a Google groups search for that does this. It basically
just uses a StringBuilder and the X2 format code to loop over the bytes and
build the string.

Also, MAKE SURE that the vendor is calculating the MD5 of the data using the
same encoding that you are (UTF8, ACSII, UTF16, etc.) or else your input
byte array may be different and thus your hash will be different.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:ut******** ******@TK2MSFTN GP10.phx.gbl...

Joe, I'm connecting an online store to the payment system. I need to pass
this string to this payment gateway, and it will return me another string
back, confirming that the payment was successful.

I contacted the techsupport of this gateway. They said that I don't have to convert my string to Base64. I need to convert every byte to 16-bit number
or something like this. They don't use ASP.Net, so couldn't give me an exact code. They said that it should look approximately like this:

StringBuilder sb = new StringBuilder() ;

for (int i=0;i<hash.Leng th;i++)
sb.Append(hash[i].ToString("x"). PadLeft(2,'0')) ;

return sb.ToString();

How it should look in VB.Net?

Thank you,

Peter
"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:OJ******** ********@tk2msf tngp13.phx.gbl. ..

What is giving you a "bad CRC" error? Is it the code below? That looks
like it should just return a base64 encoded MD5 hash of whatever string

was

provided.

It isn't clear to me what you are trying to do or what the input is in the

funtion.

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eQ******** ********@TK2MSF TNGP12.phx.gbl. ..

Thank you, Joe.

I've tried to change it like this:

Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServic eProvider
Dim encoder As new UTF8Encoding
hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
Me.crc.Value = sCRC

Yes, the output string has changed:

'<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+

But I'm still getting a "bad crc" error.

Peter

"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com>

wrote in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..
> Why don't you try Convert.ToBase6 4String instead? Typically, you encode > binary data as a string with either Base64 or hex string encoding.
>
> Also, be careful about using ASCII encoding to convert the input string

to

> binary. If it includes any non-ASCII characters, you'll be throwing

data

> away. UTF8 is safer. Whatever you do, make sure you alway compute

the hash
> the same way if you are going to be using it for a comparison.
>
> HTH,
>
> Joe K.
>
> "Peter Afonin" <pv*@speakeasy. net> wrote in message
> news:eJ******** ******@TK2MSFTN GP11.phx.gbl...
> > Hello,
> >
> > I'm struggling with the string conversion to MD5 which I've never user > > before.
> >
> > I have a string that I need to encode which looks approximately like this:
> >
> >
"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang > >
>

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

> > BU:shp_Term=2"
> >
> > I'm doing it this way:
> >
> > Dim hashedBytes As Byte()
> > Dim md5 As New MD5CryptoServic eProvider
> > Dim encoder As New ASCIIEncoding
> > hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> > Dim sNewCRC as String = Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) ) > >
> > It doesn't work. When I see the output on the page where I pass this > string,
> > it looks like this:
> >
> > '<input type=hidden name=crc value="System.B yte[]">'+
> >
> > I don't know exactly how it should look like, but probably not like > > "System.Byt e[]"
> >
> > I'm doing something wrong, but I don't know what.
> >
> > I would really appreciate your help.
> >
> > Thank you,
> >
> > Peter Afonin
> >
> >
>
>

[Peter Afonin]

Thank you, Joe!

Peter

"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:eB******** ******@TK2MSFTN GP11.phx.gbl...

Ah, this is the hex encoding thing I mentioned in my first post and didn't
provide an example for. You can either use the BitConverter class to
convert the byte[] to hex digits and then strip out the - characters it puts in between or using something like my function called ConvertToOctetS tring
that you can do a Google groups search for that does this. It basically
just uses a StringBuilder and the X2 format code to loop over the bytes and build the string.

Also, MAKE SURE that the vendor is calculating the MD5 of the data using the same encoding that you are (UTF8, ACSII, UTF16, etc.) or else your input
byte array may be different and thus your hash will be different.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:ut******** ******@TK2MSFTN GP10.phx.gbl...

Joe, I'm connecting an online store to the payment system. I need to pass

this string to this payment gateway, and it will return me another string back, confirming that the payment was successful.

I contacted the techsupport of this gateway. They said that I don't have

to

convert my string to Base64. I need to convert every byte to 16-bit number or something like this. They don't use ASP.Net, so couldn't give me an

exact

code. They said that it should look approximately like this:

StringBuilder sb = new StringBuilder() ;

for (int i=0;i<hash.Leng th;i++)
sb.Append(hash[i].ToString("x"). PadLeft(2,'0')) ;

return sb.ToString();

How it should look in VB.Net?

Thank you,

Peter
"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote in message news:OJ******** ********@tk2msf tngp13.phx.gbl. ..

What is giving you a "bad CRC" error? Is it the code below? That looks like it should just return a base64 encoded MD5 hash of whatever string

was

provided.

It isn't clear to me what you are trying to do or what the input is in the funtion.

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eQ******** ********@TK2MSF TNGP12.phx.gbl. ..
> Thank you, Joe.
>
> I've tried to change it like this:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServic eProvider
> Dim encoder As new UTF8Encoding
> hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
> Me.crc.Value = sCRC
>
> Yes, the output string has changed:
>
> '<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+
>
> But I'm still getting a "bad crc" error.
>
> Peter
>
> "Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com>

wrote

> in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..
> > Why don't you try Convert.ToBase6 4String instead? Typically, you

encode

> > binary data as a string with either Base64 or hex string encoding.
> >
> > Also, be careful about using ASCII encoding to convert the input

string

to
> > binary. If it includes any non-ASCII characters, you'll be

throwing data
> > away. UTF8 is safer. Whatever you do, make sure you alway compute the

> hash
> > the same way if you are going to be using it for a comparison.
> >
> > HTH,
> >
> > Joe K.
> >
> > "Peter Afonin" <pv*@speakeasy. net> wrote in message
> > news:eJ******** ******@TK2MSFTN GP11.phx.gbl...
> > > Hello,
> > >
> > > I'm struggling with the string conversion to MD5 which I've

never user

> > > before.
> > >
> > > I have a string that I need to encode which looks approximately

like > this:
> > >
> > >
>

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang > > >
> >
>

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

> > > BU:shp_Term=2"
> > >
> > > I'm doing it this way:
> > >
> > > Dim hashedBytes As Byte()
> > > Dim md5 As New MD5CryptoServic eProvider
> > > Dim encoder As New ASCIIEncoding
> > > hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> > > Dim sNewCRC as String =

Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

> > >
> > > It doesn't work. When I see the output on the page where I pass this > > string,
> > > it looks like this:
> > >
> > > '<input type=hidden name=crc value="System.B yte[]">'+
> > >
> > > I don't know exactly how it should look like, but probably not like > > > "System.Byt e[]"
> > >
> > > I'm doing something wrong, but I don't know what.
> > >
> > > I would really appreciate your help.
> > >
> > > Thank you,
> > >
> > > Peter Afonin
> > >
> > >
> >
> >
>
>

[Peter Afonin]

Hello Joe,

I found a code that should do exactly the same as in the example in my
previous message, but still doing something wrong, because the payment
gateway gives me a message that the string is bad. There is a chance that
the code itself is OK, but the data I put in is bad. But do you see anything
wrong with this code? I would appreciate your comments very much. Peter.

Dim enc As Encoder = System.Text.Enc oding.Unicode.G etEncoder()

Dim unicodeText() As Byte
unicodeText = System.Text.Uni codeEncoding.Un icode.GetBytes( sCRC)

enc.GetBytes(sC RC.ToCharArray( ), 0, sCRC.Length, unicodeText, _
0, True)

Dim oMD5 As New System.Security .Cryptography.M D5CryptoService Provider
Dim result() As Byte = oMD5.ComputeHas h(unicodeText)

Dim sb As New StringBuilder
Dim i As Integer = 0
For i = 0 To CType(result.Le ngth - 1, Integer)
sb.Append(resul t(i).ToString(" X").PadLeft( 2, "0"))
Next

sCRC = sb.ToString
"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote
in message news:eB******** ******@TK2MSFTN GP11.phx.gbl...

Ah, this is the hex encoding thing I mentioned in my first post and didn't
provide an example for. You can either use the BitConverter class to
convert the byte[] to hex digits and then strip out the - characters it puts in between or using something like my function called ConvertToOctetS tring
that you can do a Google groups search for that does this. It basically
just uses a StringBuilder and the X2 format code to loop over the bytes and build the string.

Also, MAKE SURE that the vendor is calculating the MD5 of the data using the same encoding that you are (UTF8, ACSII, UTF16, etc.) or else your input
byte array may be different and thus your hash will be different.

HTH,

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:ut******** ******@TK2MSFTN GP10.phx.gbl...

Joe, I'm connecting an online store to the payment system. I need to pass

this string to this payment gateway, and it will return me another string back, confirming that the payment was successful.

I contacted the techsupport of this gateway. They said that I don't have

to

convert my string to Base64. I need to convert every byte to 16-bit number or something like this. They don't use ASP.Net, so couldn't give me an

exact

code. They said that it should look approximately like this:

StringBuilder sb = new StringBuilder() ;

for (int i=0;i<hash.Leng th;i++)
sb.Append(hash[i].ToString("x"). PadLeft(2,'0')) ;

return sb.ToString();

How it should look in VB.Net?

Thank you,

Peter
"Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com> wrote in message news:OJ******** ********@tk2msf tngp13.phx.gbl. ..

What is giving you a "bad CRC" error? Is it the code below? That looks like it should just return a base64 encoded MD5 hash of whatever string

was

provided.

It isn't clear to me what you are trying to do or what the input is in the funtion.

Joe K.

"Peter Afonin" <pv*@speakeasy. net> wrote in message
news:eQ******** ********@TK2MSF TNGP12.phx.gbl. ..
> Thank you, Joe.
>
> I've tried to change it like this:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServic eProvider
> Dim encoder As new UTF8Encoding
> hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> sCRC = Convert.ToBase6 4String(md5.Com puteHash(hashed Bytes))
> Me.crc.Value = sCRC
>
> Yes, the output string has changed:
>
> '<input type=hidden name=crc value="35r0XmeF IOXs5evTQM0q+w= =">'+
>
> But I'm still getting a "bad crc" error.
>
> Peter
>
> "Joe Kaplan (MVP - ADSI)" <jo************ *@removethis.ac centure.com>

wrote

> in message news:uo******** ********@TK2MSF TNGP09.phx.gbl. ..
> > Why don't you try Convert.ToBase6 4String instead? Typically, you

encode

> > binary data as a string with either Base64 or hex string encoding.
> >
> > Also, be careful about using ASCII encoding to convert the input

string

to
> > binary. If it includes any non-ASCII characters, you'll be

throwing data
> > away. UTF8 is safer. Whatever you do, make sure you alway compute the

> hash
> > the same way if you are going to be using it for a comparison.
> >
> > HTH,
> >
> > Joe K.
> >
> > "Peter Afonin" <pv*@speakeasy. net> wrote in message
> > news:eJ******** ******@TK2MSFTN GP11.phx.gbl...
> > > Hello,
> > >
> > > I'm struggling with the string conversion to MD5 which I've

never user

> > > before.
> > >
> > > I have a string that I need to encode which looks approximately

like > this:
> > >
> > >
>

"pva:0.05:10121 4:pa7735tH:inv_ desc=205308:shp _Email=petera_g udzon.net:lang > > >
> >
>

=ru:shp_Payment No=200408252053 08:shp_UserID=p va:shp_Price=2. 95:shp_HostPlan =

> > > BU:shp_Term=2"
> > >
> > > I'm doing it this way:
> > >
> > > Dim hashedBytes As Byte()
> > > Dim md5 As New MD5CryptoServic eProvider
> > > Dim encoder As New ASCIIEncoding
> > > hashedBytes = md5.ComputeHash (encoder.GetByt es(sCRC))
> > > Dim sNewCRC as String =

Convert.ToStrin g(md5.ComputeHa sh(hashedBytes) )

> > >
> > > It doesn't work. When I see the output on the page where I pass this > > string,
> > > it looks like this:
> > >
> > > '<input type=hidden name=crc value="System.B yte[]">'+
> > >
> > > I don't know exactly how it should look like, but probably not like > > > "System.Byt e[]"
> > >
> > > I'm doing something wrong, but I don't know what.
> > >
> > > I would really appreciate your help.
> > >
> > > Thank you,
> > >
> > > Peter Afonin
> > >
> > >
> >
> >
>
>