Ask a Question related to ASP.NET Security, Design and Development.
-
Peter Afonin #1
MD5 conversion problem
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:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang
=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=
BU:shp_Term=2"
I'm doing it this way:
Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServiceProvider
Dim encoder As New ASCIIEncoding
hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(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.Byte[]">'+
I don't know exactly how it should look like, but probably not like
"System.Byte[]"
I'm doing something wrong, but I don't know what.
I would really appreciate your help.
Thank you,
Peter Afonin
Peter Afonin Guest
-
Conversion problem
We are using RightFAX 8.5 sp4 from CAPTARIS. RightFAX (fax server) uses Acrobat (5.05) to convert PDF files to PCL then to TIFF automatically The... -
Font conversion problem
I'm using Distiller 4.05 on Win2000Pro, Word 2002. The distiller comes from an old copy of FrameMaker. I installed it using all defaults, and got... -
case conversion problem
On Friday, September 5, 2003, at 08:14 AM, Gary Stainburn wrote: That's how I would do it. Just put parenthesis around your split pattern and... -
DB2 Codepage conversion problem with XML
Hi all, i have the following problem. I'm using a DB2-Client V7 on a Linux-Server from a Java-Application. -
Date conversion problem
Thank you Otto, your solution fixed my problem! ~ Rick -
Joe Kaplan \(MVP - ADSI\) #2 Re: MD5 conversion problem
Why don't you try Convert.ToBase64String 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" <pva@speakeasy.net> wrote in message
news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> 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:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang
>string,> BU:shp_Term=2"
>
> I'm doing it this way:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServiceProvider
> Dim encoder As New ASCIIEncoding
> hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(hashedBytes))
>
> It doesn't work. When I see the output on the page where I pass this> it looks like this:
>
> '<input type=hidden name=crc value="System.Byte[]">'+
>
> I don't know exactly how it should look like, but probably not like
> "System.Byte[]"
>
> 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\) Guest
-
Peter Afonin #3 Re: MD5 conversion problem
Thank you, Joe.
I've tried to change it like this:
Dim hashedBytes As Byte()
Dim md5 As New MD5CryptoServiceProvider
Dim encoder As new UTF8Encoding
hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
Me.crc.Value = sCRC
Yes, the output string has changed:
'<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
But I'm still getting a "bad crc" error.
Peter
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...hash> Why don't you try Convert.ToBase64String 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 thethis:> the same way if you are going to be using it for a comparison.
>
> HTH,
>
> Joe K.
>
> "Peter Afonin" <pva@speakeasy.net> wrote in message
> news:eJWO769iEHA.3928@TK2MSFTNGP11.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"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> >
> >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> string,> > BU:shp_Term=2"
> >
> > I'm doing it this way:
> >
> > Dim hashedBytes As Byte()
> > Dim md5 As New MD5CryptoServiceProvider
> > Dim encoder As New ASCIIEncoding
> > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(hashedBytes))
> >
> > It doesn't work. When I see the output on the page where I pass this>> > it looks like this:
> >
> > '<input type=hidden name=crc value="System.Byte[]">'+
> >
> > I don't know exactly how it should look like, but probably not like
> > "System.Byte[]"
> >
> > I'm doing something wrong, but I don't know what.
> >
> > I would really appreciate your help.
> >
> > Thank you,
> >
> > Peter Afonin
> >
> >
>
Peter Afonin Guest
-
Joe Kaplan \(MVP - ADSI\) #4 Re: MD5 conversion problem
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" <pva@speakeasy.net> wrote in message
news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...to> Thank you, Joe.
>
> I've tried to change it like this:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServiceProvider
> Dim encoder As new UTF8Encoding
> hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> Me.crc.Value = sCRC
>
> Yes, the output string has changed:
>
> '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
>
> But I'm still getting a "bad crc" error.
>
> Peter
>
> "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
> in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...> > Why don't you try Convert.ToBase64String 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 stringdata> > binary. If it includes any non-ASCII characters, you'll be throwing=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> hash> > away. UTF8 is safer. Whatever you do, make sure you alway compute the> this:> > the same way if you are going to be using it for a comparison.
> >
> > HTH,
> >
> > Joe K.
> >
> > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > news:eJWO769iEHA.3928@TK2MSFTNGP11.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> "pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > >
> > >>> >> > >>> > string,> > > BU:shp_Term=2"
> > >
> > > I'm doing it this way:
> > >
> > > Dim hashedBytes As Byte()
> > > Dim md5 As New MD5CryptoServiceProvider
> > > Dim encoder As New ASCIIEncoding
> > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(hashedBytes))
> > >
> > > It doesn't work. When I see the output on the page where I pass this> >> > > it looks like this:
> > >
> > > '<input type=hidden name=crc value="System.Byte[]">'+
> > >
> > > I don't know exactly how it should look like, but probably not like
> > > "System.Byte[]"
> > >
> > > 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\) Guest
-
Peter Afonin #5 Re: MD5 conversion problem
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.Length;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)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...was> 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 stringwrote> 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" <pva@speakeasy.net> wrote in message
> news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...> > Thank you, Joe.
> >
> > I've tried to change it like this:
> >
> > Dim hashedBytes As Byte()
> > Dim md5 As New MD5CryptoServiceProvider
> > Dim encoder As new UTF8Encoding
> > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > Me.crc.Value = sCRC
> >
> > Yes, the output string has changed:
> >
> > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> >
> > But I'm still getting a "bad crc" error.
> >
> > Peter
> >
> > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>encode> > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...> > > Why don't you try Convert.ToBase64String instead? Typically, youstring> > > binary data as a string with either Base64 or hex string encoding.
> > >
> > > Also, be careful about using ASCII encoding to convert the inputthe> to> data> > > binary. If it includes any non-ASCII characters, you'll be throwing> > > away. UTF8 is safer. Whatever you do, make sure you alway computeuser> > hash> > > the same way if you are going to be using it for a comparison.
> > >
> > > HTH,
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > Hello,
> > > >
> > > > I'm struggling with the string conversion to MD5 which I've never"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > this:> > > > before.
> > > >
> > > > I have a string that I need to encode which looks approximately like> >> > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > >
> > >Convert.ToString(md5.ComputeHash(hashedBytes))> > > > BU:shp_Term=2"
> > > >
> > > > I'm doing it this way:
> > > >
> > > > Dim hashedBytes As Byte()
> > > > Dim md5 As New MD5CryptoServiceProvider
> > > > Dim encoder As New ASCIIEncoding
> > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > Dim sNewCRC as String =>> >> > > >
> > > > 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.Byte[]">'+
> > > >
> > > > I don't know exactly how it should look like, but probably not like
> > > > "System.Byte[]"
> > > >
> > > > I'm doing something wrong, but I don't know what.
> > > >
> > > > I would really appreciate your help.
> > > >
> > > > Thank you,
> > > >
> > > > Peter Afonin
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
-
José Joye #6 Re: MD5 conversion problem
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:
FormsAuthentication.HashPasswordForStoringInConfig File()
José
"Peter Afonin" <pva@speakeasy.net> wrote in message
news:eJWO769iEHA.3928@TK2MSFTNGP11.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:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang
> =ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=
> BU:shp_Term=2"
>
> I'm doing it this way:
>
> Dim hashedBytes As Byte()
> Dim md5 As New MD5CryptoServiceProvider
> Dim encoder As New ASCIIEncoding
> hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(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.Byte[]">'+
>
> I don't know exactly how it should look like, but probably not like
> "System.Byte[]"
>
> I'm doing something wrong, but I don't know what.
>
> I would really appreciate your help.
>
> Thank you,
>
> Peter Afonin
>
>
José Joye Guest
-
Peter Afonin #7 Re: MD5 conversion problem
Thank you, I'll try.
Peter
"José Joye" <jose.joye@KILLTHESPAMSbluewin.ch> wrote in message
news:uIDDl6AjEHA.140@TK2MSFTNGP12.phx.gbl...get> By the way, If you want to compute an MD5 ash on a pswd like string andthis:> the result in a string (eg for storing ashing in a dB), you could use this
> wrapper method:
> FormsAuthentication.HashPasswordForStoringInConfig File()
>
> José
> "Peter Afonin" <pva@speakeasy.net> wrote in message
> news:eJWO769iEHA.3928@TK2MSFTNGP11.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"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> >
> >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> >>> > BU:shp_Term=2"
> >
> > I'm doing it this way:
> >
> > Dim hashedBytes As Byte()
> > Dim md5 As New MD5CryptoServiceProvider
> > Dim encoder As New ASCIIEncoding
> > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > Dim sNewCRC as String = Convert.ToString(md5.ComputeHash(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.Byte[]">'+
> >
> > I don't know exactly how it should look like, but probably not like
> > "System.Byte[]"
> >
> > I'm doing something wrong, but I don't know what.
> >
> > I would really appreciate your help.
> >
> > Thank you,
> >
> > Peter Afonin
> >
> >
>
Peter Afonin Guest
-
Joe Kaplan \(MVP - ADSI\) #8 Re: MD5 conversion problem
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 ConvertToOctetString
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" <pva@speakeasy.net> wrote in message
news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...to> 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 haveexact> 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 anthe> code. They said that it should look approximately like this:
>
> StringBuilder sb = new StringBuilder();
>
> for (int i=0;i<hash.Length;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)" <joseph.e.kaplan@removethis.accenture.com> wrote
> in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...> was> > 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> > provided.
> >
> > It isn't clear to me what you are trying to do or what the input is inlike> wrote> > funtion.
> >
> > Joe K.
> >
> > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...> > > Thank you, Joe.
> > >
> > > I've tried to change it like this:
> > >
> > > Dim hashedBytes As Byte()
> > > Dim md5 As New MD5CryptoServiceProvider
> > > Dim encoder As new UTF8Encoding
> > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > Me.crc.Value = sCRC
> > >
> > > Yes, the output string has changed:
> > >
> > > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> > >
> > > But I'm still getting a "bad crc" error.
> > >
> > > Peter
> > >
> > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> encode> > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > Why don't you try Convert.ToBase64String instead? Typically, you> string> > > > binary data as a string with either Base64 or hex string encoding.
> > > >
> > > > Also, be careful about using ASCII encoding to convert the input> the> > to> > data> > > > binary. If it includes any non-ASCII characters, you'll be throwing> > > > away. UTF8 is safer. Whatever you do, make sure you alway compute> user> > > hash
> > > > the same way if you are going to be using it for a comparison.
> > > >
> > > > HTH,
> > > >
> > > > Joe K.
> > > >
> > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > Hello,
> > > > >
> > > > > I'm struggling with the string conversion to MD5 which I've never> > > > > before.
> > > > >
> > > > > I have a string that I need to encode which looks approximately=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> "pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > > this:
> > > > >
> > > > >
> > >>> >> > > > >
> > > >
> > >this> Convert.ToString(md5.ComputeHash(hashedBytes))> > > > > BU:shp_Term=2"
> > > > >
> > > > > I'm doing it this way:
> > > > >
> > > > > Dim hashedBytes As Byte()
> > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > Dim encoder As New ASCIIEncoding
> > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > Dim sNewCRC as String => > > > >
> > > > > It doesn't work. When I see the output on the page where I passlike> > > > string,
> > > > > it looks like this:
> > > > >
> > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > >
> > > > > I don't know exactly how it should look like, but probably not>> >> > > > > "System.Byte[]"
> > > > >
> > > > > 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\) Guest
-
Peter Afonin #9 Re: MD5 conversion problem
Thank you, Joe!
Peter
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...puts> 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 itand> in between or using something like my function called ConvertToOctetString
> 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 bytesthe> build the string.
>
> Also, MAKE SURE that the vendor is calculating the MD5 of the data usingpass> 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" <pva@speakeasy.net> wrote in message
> news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...> > Joe, I'm connecting an online store to the payment system. I need tostring> > this string to this payment gateway, and it will return me anothernumber> to> > back, confirming that the payment was successful.
> >
> > I contacted the techsupport of this gateway. They said that I don't have> > convert my string to Base64. I need to convert every byte to 16-bitwrote> exact> > or something like this. They don't use ASP.Net, so couldn't give me an> > code. They said that it should look approximately like this:
> >
> > StringBuilder sb = new StringBuilder();
> >
> > for (int i=0;i<hash.Length;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)" <joseph.e.kaplan@removethis.accenture.com>looks> > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...> > > What is giving you a "bad CRC" error? Is it the code below? Thatstring> > > like it should just return a base64 encoded MD5 hash of whateverthrowing> the> > was> > > provided.
> > >
> > > It isn't clear to me what you are trying to do or what the input is in> > wrote> > > funtion.
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > Thank you, Joe.
> > > >
> > > > I've tried to change it like this:
> > > >
> > > > Dim hashedBytes As Byte()
> > > > Dim md5 As New MD5CryptoServiceProvider
> > > > Dim encoder As new UTF8Encoding
> > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > Me.crc.Value = sCRC
> > > >
> > > > Yes, the output string has changed:
> > > >
> > > > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> > > >
> > > > But I'm still getting a "bad crc" error.
> > > >
> > > > Peter
> > > >
> > > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> > encode> > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > Why don't you try Convert.ToBase64String instead? Typically, you> > string> > > > > binary data as a string with either Base64 or hex string encoding.
> > > > >
> > > > > Also, be careful about using ASCII encoding to convert the input> > > to
> > > > > binary. If it includes any non-ASCII characters, you'll becompute> > > data
> > > > > away. UTF8 is safer. Whatever you do, make sure you alwaynever> > the> > > > hash
> > > > > the same way if you are going to be using it for a comparison.
> > > > >
> > > > > HTH,
> > > > >
> > > > > Joe K.
> > > > >
> > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > Hello,
> > > > > >
> > > > > > I'm struggling with the string conversion to MD5 which I've"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> like> > user> > > > > > before.
> > > > > >
> > > > > > I have a string that I need to encode which looks approximately> >> > > > this:
> > > > > >
> > > > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > > > >
> > > > >
> > > >
> > >> this> > Convert.ToString(md5.ComputeHash(hashedBytes))> > > > > > BU:shp_Term=2"
> > > > > >
> > > > > > I'm doing it this way:
> > > > > >
> > > > > > Dim hashedBytes As Byte()
> > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > Dim encoder As New ASCIIEncoding
> > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > Dim sNewCRC as String => > > > > >
> > > > > > It doesn't work. When I see the output on the page where I pass> like> > > > > string,
> > > > > > it looks like this:
> > > > > >
> > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > >
> > > > > > I don't know exactly how it should look like, but probably not>> >> > > > > > "System.Byte[]"
> > > > > >
> > > > > > I'm doing something wrong, but I don't know what.
> > > > > >
> > > > > > I would really appreciate your help.
> > > > > >
> > > > > > Thank you,
> > > > > >
> > > > > > Peter Afonin
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
-
Peter Afonin #10 Re: MD5 conversion problem
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.Encoding.Unicode.GetEncoder()
Dim unicodeText() As Byte
unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
0, True)
Dim oMD5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
Dim result() As Byte = oMD5.ComputeHash(unicodeText)
Dim sb As New StringBuilder
Dim i As Integer = 0
For i = 0 To CType(result.Length - 1, Integer)
sb.Append(result(i).ToString("X").PadLeft(2, "0"))
Next
sCRC = sb.ToString
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...puts> 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 itand> in between or using something like my function called ConvertToOctetString
> 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 bytesthe> build the string.
>
> Also, MAKE SURE that the vendor is calculating the MD5 of the data usingpass> 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" <pva@speakeasy.net> wrote in message
> news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...> > Joe, I'm connecting an online store to the payment system. I need tostring> > this string to this payment gateway, and it will return me anothernumber> to> > back, confirming that the payment was successful.
> >
> > I contacted the techsupport of this gateway. They said that I don't have> > convert my string to Base64. I need to convert every byte to 16-bitwrote> exact> > or something like this. They don't use ASP.Net, so couldn't give me an> > code. They said that it should look approximately like this:
> >
> > StringBuilder sb = new StringBuilder();
> >
> > for (int i=0;i<hash.Length;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)" <joseph.e.kaplan@removethis.accenture.com>looks> > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...> > > What is giving you a "bad CRC" error? Is it the code below? Thatstring> > > like it should just return a base64 encoded MD5 hash of whateverthrowing> the> > was> > > provided.
> > >
> > > It isn't clear to me what you are trying to do or what the input is in> > wrote> > > funtion.
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > Thank you, Joe.
> > > >
> > > > I've tried to change it like this:
> > > >
> > > > Dim hashedBytes As Byte()
> > > > Dim md5 As New MD5CryptoServiceProvider
> > > > Dim encoder As new UTF8Encoding
> > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > Me.crc.Value = sCRC
> > > >
> > > > Yes, the output string has changed:
> > > >
> > > > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> > > >
> > > > But I'm still getting a "bad crc" error.
> > > >
> > > > Peter
> > > >
> > > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> > encode> > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > Why don't you try Convert.ToBase64String instead? Typically, you> > string> > > > > binary data as a string with either Base64 or hex string encoding.
> > > > >
> > > > > Also, be careful about using ASCII encoding to convert the input> > > to
> > > > > binary. If it includes any non-ASCII characters, you'll becompute> > > data
> > > > > away. UTF8 is safer. Whatever you do, make sure you alwaynever> > the> > > > hash
> > > > > the same way if you are going to be using it for a comparison.
> > > > >
> > > > > HTH,
> > > > >
> > > > > Joe K.
> > > > >
> > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > Hello,
> > > > > >
> > > > > > I'm struggling with the string conversion to MD5 which I've"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> like> > user> > > > > > before.
> > > > > >
> > > > > > I have a string that I need to encode which looks approximately> >> > > > this:
> > > > > >
> > > > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > > > >
> > > > >
> > > >
> > >> this> > Convert.ToString(md5.ComputeHash(hashedBytes))> > > > > > BU:shp_Term=2"
> > > > > >
> > > > > > I'm doing it this way:
> > > > > >
> > > > > > Dim hashedBytes As Byte()
> > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > Dim encoder As New ASCIIEncoding
> > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > Dim sNewCRC as String => > > > > >
> > > > > > It doesn't work. When I see the output on the page where I pass> like> > > > > string,
> > > > > > it looks like this:
> > > > > >
> > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > >
> > > > > > I don't know exactly how it should look like, but probably not>> >> > > > > > "System.Byte[]"
> > > > > >
> > > > > > I'm doing something wrong, but I don't know what.
> > > > > >
> > > > > > I would really appreciate your help.
> > > > > >
> > > > > > Thank you,
> > > > > >
> > > > > > Peter Afonin
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
-
Joe Kaplan \(MVP - ADSI\) #11 Re: MD5 conversion problem
There are two main things to keep in mind here:
The value of sCRC is what is being used to create the hash.
The hash is being computed based on a Unicode encoding of the same hash.
Thus, for someone else to recreate the MD5 hash of the data from the same
source data, they need to use the exact same sCRC as input and must use
Unicode encoding. UTF8 or any other encoding will produce a different byte
array and thus a different hash.
If the input string and the encoding is the same, the MD5 should be the
same. The only thing that might vary is if they are assuming the bytes are
in the opposite order and you need to reverse the string.
The code you keep showing below is hard to follow because it is using a
variable called sCRC as the input and then also setting that to the output.
We can't tell where the data came from or where it is going.
Can you post a function that calculates the MD5 of an input string using the
proper encoding and returns it as a hex string?
Joe K.
"Peter Afonin" <peter@gudzon.net> wrote in message
news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...anything> 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 seedidn't> wrong with this code? I would appreciate your comments very much. Peter.
>
> Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
>
> Dim unicodeText() As Byte
> unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
>
> enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> 0, True)
>
> Dim oMD5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
> Dim result() As Byte = oMD5.ComputeHash(unicodeText)
>
> Dim sb As New StringBuilder
> Dim i As Integer = 0
> For i = 0 To CType(result.Length - 1, Integer)
> sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> Next
>
> sCRC = sb.ToString
>
>
> "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
> in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...> > Ah, this is the hex encoding thing I mentioned in my first post andConvertToOctetString> puts> > 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> > in between or using something like my function calledhave> and> > 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> the> > build the string.
> >
> > Also, MAKE SURE that the vendor is calculating the MD5 of the data using> pass> > 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" <pva@speakeasy.net> wrote in message
> > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...> > > Joe, I'm connecting an online store to the payment system. I need to> string> > > this string to this payment gateway, and it will return me another> > > back, confirming that the payment was successful.
> > >
> > > I contacted the techsupport of this gateway. They said that I don'tin> number> > to> > > convert my string to Base64. I need to convert every byte to 16-bit> wrote> > exact> > > or something like this. They don't use ASP.Net, so couldn't give me an> > > code. They said that it should look approximately like this:
> > >
> > > StringBuilder sb = new StringBuilder();
> > >
> > > for (int i=0;i<hash.Length;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)" <joseph.e.kaplan@removethis.accenture.com>> looks> > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > What is giving you a "bad CRC" error? Is it the code below? That> string> > > > like it should just return a base64 encoded MD5 hash of whatever> > > was
> > > > provided.
> > > >
> > > > It isn't clear to me what you are trying to do or what the input is<joseph.e.kaplan@removethis.accenture.com>> > the> > > > funtion.
> > > >
> > > > Joe K.
> > > >
> > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > Thank you, Joe.
> > > > >
> > > > > I've tried to change it like this:
> > > > >
> > > > > Dim hashedBytes As Byte()
> > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > Dim encoder As new UTF8Encoding
> > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > > Me.crc.Value = sCRC
> > > > >
> > > > > Yes, the output string has changed:
> > > > >
> > > > > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> > > > >
> > > > > But I'm still getting a "bad crc" error.
> > > > >
> > > > > Peter
> > > > >
> > > > > "Joe Kaplan (MVP - ADSI)"you> > > wrote
> > > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > > Why don't you try Convert.ToBase64String instead? Typically,encoding.> > > encode
> > > > > > binary data as a string with either Base64 or hex stringapproximately> throwing> > > > > >
> > > > > > Also, be careful about using ASCII encoding to convert the input
> > > string
> > > > to
> > > > > > binary. If it includes any non-ASCII characters, you'll be> compute> > > > data
> > > > > > away. UTF8 is safer. Whatever you do, make sure you alway> never> > > the
> > > > > hash
> > > > > > the same way if you are going to be using it for a comparison.
> > > > > >
> > > > > > HTH,
> > > > > >
> > > > > > Joe K.
> > > > > >
> > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > Hello,
> > > > > > >
> > > > > > > I'm struggling with the string conversion to MD5 which I've> > > user
> > > > > > > before.
> > > > > > >
> > > > > > > I have a string that I need to encode which looks=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> "pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > like> > > > > this:
> > > > > > >
> > > > > > >
> > > > >
> > >>> >> > > > > > >
> > > > > >
> > > > >
> > > >
> > >pass> > > > > > > BU:shp_Term=2"
> > > > > > >
> > > > > > > I'm doing it this way:
> > > > > > >
> > > > > > > Dim hashedBytes As Byte()
> > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > Dim sNewCRC as String =
> > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > >
> > > > > > > It doesn't work. When I see the output on the page where I>> > this> > like> > > > > > string,
> > > > > > > it looks like this:
> > > > > > >
> > > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > > >
> > > > > > > I don't know exactly how it should look like, but probably not> >> > > > > > > "System.Byte[]"
> > > > > > >
> > > > > > > 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\) Guest
-
Peter Afonin #12 Re: MD5 conversion problem
Thank you, Joe.
This makes sense. However, I don't know what function is used by the payment
gateway provider. I will contact them with all this information.
Peter
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:e6oCHv5jEHA.3392@TK2MSFTNGP15.phx.gbl...byte> There are two main things to keep in mind here:
>
> The value of sCRC is what is being used to create the hash.
> The hash is being computed based on a Unicode encoding of the same hash.
>
> Thus, for someone else to recreate the MD5 hash of the data from the same
> source data, they need to use the exact same sCRC as input and must use
> Unicode encoding. UTF8 or any other encoding will produce a differentare> array and thus a different hash.
>
> If the input string and the encoding is the same, the MD5 should be the
> same. The only thing that might vary is if they are assuming the bytesoutput.> in the opposite order and you need to reverse the string.
>
> The code you keep showing below is hard to follow because it is using a
> variable called sCRC as the input and then also setting that to thethe> We can't tell where the data came from or where it is going.
>
> Can you post a function that calculates the MD5 of an input string usingthat> proper encoding and returns it as a hex string?
>
> Joe K.
>
> "Peter Afonin" <peter@gudzon.net> wrote in message
> news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...> > 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 chanceSystem.Security.Cryptography.MD5CryptoServiceProvi der> anything> > the code itself is OK, but the data I put in is bad. But do you see> > wrong with this code? I would appreciate your comments very much. Peter.
> >
> > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> >
> > Dim unicodeText() As Byte
> > unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
> >
> > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> > 0, True)
> >
> > Dim oMD5 As Newwrote> > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> >
> > Dim sb As New StringBuilder
> > Dim i As Integer = 0
> > For i = 0 To CType(result.Length - 1, Integer)
> > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > Next
> >
> > sCRC = sb.ToString
> >
> >
> > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>it> didn't> > in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...> > > Ah, this is the hex encoding thing I mentioned in my first post and> > > provide an example for. You can either use the BitConverter class to
> > > convert the byte[] to hex digits and then strip out the - charactersbasically> ConvertToOctetString> > puts> > > in between or using something like my function called> > > that you can do a Google groups search for that does this. Itbytes> > > just uses a StringBuilder and the X2 format code to loop over theusing> > and> > > build the string.
> > >
> > > Also, MAKE SURE that the vendor is calculating the MD5 of the datainput> > the> > > same encoding that you are (UTF8, ACSII, UTF16, etc.) or else youran> have> > pass> > > byte array may be different and thus your hash will be different.
> > >
> > > HTH,
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...
> > > > Joe, I'm connecting an online store to the payment system. I need to> > string> > > > this string to this payment gateway, and it will return me another> > > > back, confirming that the payment was successful.
> > > >
> > > > I contacted the techsupport of this gateway. They said that I don't> > number> > > to
> > > > convert my string to Base64. I need to convert every byte to 16-bit> > > > or something like this. They don't use ASP.Net, so couldn't give meis> > wrote> > > exact
> > > > code. They said that it should look approximately like this:
> > > >
> > > > StringBuilder sb = new StringBuilder();
> > > >
> > > > for (int i=0;i<hash.Length;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)" <joseph.e.kaplan@removethis.accenture.com>> > looks> > > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > > What is giving you a "bad CRC" error? Is it the code below? That> > string> > > > > like it should just return a base64 encoded MD5 hash of whatever> > > > was
> > > > > provided.
> > > > >
> > > > > It isn't clear to me what you are trying to do or what the inputinput> in> <joseph.e.kaplan@removethis.accenture.com>> > > the
> > > > > funtion.
> > > > >
> > > > > Joe K.
> > > > >
> > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > > Thank you, Joe.
> > > > > >
> > > > > > I've tried to change it like this:
> > > > > >
> > > > > > Dim hashedBytes As Byte()
> > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > Dim encoder As new UTF8Encoding
> > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > > > Me.crc.Value = sCRC
> > > > > >
> > > > > > Yes, the output string has changed:
> > > > > >
> > > > > > '<input type=hidden name=crc value="35r0XmeFIOXs5evTQM0q+w==">'+
> > > > > >
> > > > > > But I'm still getting a "bad crc" error.
> > > > > >
> > > > > > Peter
> > > > > >
> > > > > > "Joe Kaplan (MVP - ADSI)"> you> > > > wrote
> > > > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > > > Why don't you try Convert.ToBase64String instead? Typically,> encoding.> > > > encode
> > > > > > > binary data as a string with either Base64 or hex string> > > > > > >
> > > > > > > Also, be careful about using ASCII encoding to convert the"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> approximately> > throwing> > > > string
> > > > > to
> > > > > > > binary. If it includes any non-ASCII characters, you'll be> > compute> > > > > data
> > > > > > > away. UTF8 is safer. Whatever you do, make sure you alway> > never> > > > the
> > > > > > hash
> > > > > > > the same way if you are going to be using it for a comparison.
> > > > > > >
> > > > > > > HTH,
> > > > > > >
> > > > > > > Joe K.
> > > > > > >
> > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > > Hello,
> > > > > > > >
> > > > > > > > I'm struggling with the string conversion to MD5 which I've> > > > user
> > > > > > > > before.
> > > > > > > >
> > > > > > > > I have a string that I need to encode which looks> >> > > like
> > > > > > this:
> > > > > > > >
> > > > > > > >
> > > > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >not> pass> > > > > > > > BU:shp_Term=2"
> > > > > > > >
> > > > > > > > I'm doing it this way:
> > > > > > > >
> > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > Dim sNewCRC as String =
> > > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > > >
> > > > > > > > It doesn't work. When I see the output on the page where I> > > this
> > > > > > > string,
> > > > > > > > it looks like this:
> > > > > > > >
> > > > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > > > >
> > > > > > > > I don't know exactly how it should look like, but probably>> >> > > like
> > > > > > > > "System.Byte[]"
> > > > > > > >
> > > > > > > > I'm doing something wrong, but I don't know what.
> > > > > > > >
> > > > > > > > I would really appreciate your help.
> > > > > > > >
> > > > > > > > Thank you,
> > > > > > > >
> > > > > > > > Peter Afonin
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
-
Joe Kaplan \(MVP - ADSI\) #13 Re: MD5 conversion problem
My idea was that you would have a function that calculates the MD5 so that
we could see more clearly exactly how you are calculating it. After that,
you can verify with the vendor that they are using the same algorithm. The
function would look like:
Public Function GetMD5(ByVal inputData As String) as String
....
End Function
Then, we could see what results you are getting by passing in your input
data.
Joe K.
"Peter Afonin" <pva@speakeasy.net> wrote in message
news:uWjGZ%239jEHA.3476@tk2msftngp13.phx.gbl...payment> Thank you, Joe.
>
> This makes sense. However, I don't know what function is used by thesame> gateway provider. I will contact them with all this information.
>
> Peter
>
> "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
> in message news:e6oCHv5jEHA.3392@TK2MSFTNGP15.phx.gbl...> > There are two main things to keep in mind here:
> >
> > The value of sCRC is what is being used to create the hash.
> > The hash is being computed based on a Unicode encoding of the same hash.
> >
> > Thus, for someone else to recreate the MD5 hash of the data from thePeter.> byte> > source data, they need to use the exact same sCRC as input and must use
> > Unicode encoding. UTF8 or any other encoding will produce a different> are> > array and thus a different hash.
> >
> > If the input string and the encoding is the same, the MD5 should be the
> > same. The only thing that might vary is if they are assuming the bytes> output.> > in the opposite order and you need to reverse the string.
> >
> > The code you keep showing below is hard to follow because it is using a
> > variable called sCRC as the input and then also setting that to the> the> > We can't tell where the data came from or where it is going.
> >
> > Can you post a function that calculates the MD5 of an input string using> that> > proper encoding and returns it as a hex string?
> >
> > Joe K.
> >
> > "Peter Afonin" <peter@gudzon.net> wrote in message
> > news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...> > > 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> > anything> > > the code itself is OK, but the data I put in is bad. But do you see> > > wrong with this code? I would appreciate your comments very much.to> System.Security.Cryptography.MD5CryptoServiceProvi der> > >
> > > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> > >
> > > Dim unicodeText() As Byte
> > > unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
> > >
> > > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> > > 0, True)
> > >
> > > Dim oMD5 As New> wrote> > > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> > >
> > > Dim sb As New StringBuilder
> > > Dim i As Integer = 0
> > > For i = 0 To CType(result.Length - 1, Integer)
> > > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > > Next
> > >
> > > sCRC = sb.ToString
> > >
> > >
> > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> > didn't> > > in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...
> > > > Ah, this is the hex encoding thing I mentioned in my first post and> > > > provide an example for. You can either use the BitConverter classto> it> > > > convert the byte[] to hex digits and then strip out the - characters> basically> > ConvertToOctetString> > > puts
> > > > in between or using something like my function called> > > > that you can do a Google groups search for that does this. It> bytes> > > > just uses a StringBuilder and the X2 format code to loop over the> using> > > and
> > > > build the string.
> > > >
> > > > Also, MAKE SURE that the vendor is calculating the MD5 of the data> input> > > the
> > > > same encoding that you are (UTF8, ACSII, UTF16, etc.) or else your> > > > byte array may be different and thus your hash will be different.
> > > >
> > > > HTH,
> > > >
> > > > Joe K.
> > > >
> > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...
> > > > > Joe, I'm connecting an online store to the payment system. I needdon't> > > 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 I16-bit> > have> > > > to
> > > > > convert my string to Base64. I need to convert every byte tome> > > number
> > > > > or something like this. They don't use ASP.Net, so couldn't givesb.Append(hash[i].ToString("x").PadLeft(2,'0'));> an> > > > exact
> > > > > code. They said that it should look approximately like this:
> > > > >
> > > > > StringBuilder sb = new StringBuilder();
> > > > >
> > > > > for (int i=0;i<hash.Length;i++)
> > > > ><joseph.e.kaplan@removethis.accenture.com>> > > > >
> > > > > return sb.ToString();
> > > > >
> > > > > How it should look in VB.Net?
> > > > >
> > > > > Thank you,
> > > > >
> > > > > Peter
> > > > >
> > > > >
> > > > > "Joe Kaplan (MVP - ADSI)"That> > > wrote
> > > > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > > > What is giving you a "bad CRC" error? Is it the code below?value="35r0XmeFIOXs5evTQM0q+w==">'+> is> > > 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> > in> > > > the
> > > > > > funtion.
> > > > > >
> > > > > > Joe K.
> > > > > >
> > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > > > Thank you, Joe.
> > > > > > >
> > > > > > > I've tried to change it like this:
> > > > > > >
> > > > > > > Dim hashedBytes As Byte()
> > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > Dim encoder As new UTF8Encoding
> > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > > > > Me.crc.Value = sCRC
> > > > > > >
> > > > > > > Yes, the output string has changed:
> > > > > > >
> > > > > > > '<input type=hidden name=crcTypically,> > <joseph.e.kaplan@removethis.accenture.com>> > > > > > >
> > > > > > > But I'm still getting a "bad crc" error.
> > > > > > >
> > > > > > > Peter
> > > > > > >
> > > > > > > "Joe Kaplan (MVP - ADSI)"> > > > > wrote
> > > > > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > > > > Why don't you try Convert.ToBase64String instead?comparison.> input> > you> > encoding.> > > > > encode
> > > > > > > > binary data as a string with either Base64 or hex string> > > > > > > >
> > > > > > > > Also, be careful about using ASCII encoding to convert the> > > > > 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 aI've> > > > > > > >
> > > > > > > > HTH,
> > > > > > > >
> > > > > > > > Joe K.
> > > > > > > >
> > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > > > Hello,
> > > > > > > > >
> > > > > > > > > I'm struggling with the string conversion to MD5 which=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> "pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > approximately> > > never
> > > > > user
> > > > > > > > > before.
> > > > > > > > >
> > > > > > > > > I have a string that I need to encode which looks> > > > like
> > > > > > > this:
> > > > > > > > >
> > > > > > > > >
> > > > > > >
> > > > >
> > >>> >> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >> not> > pass> > > > > > > > > BU:shp_Term=2"
> > > > > > > > >
> > > > > > > > > I'm doing it this way:
> > > > > > > > >
> > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > > Dim sNewCRC as String =
> > > > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > > > >
> > > > > > > > > It doesn't work. When I see the output on the page where I> > > > this
> > > > > > > > string,
> > > > > > > > > it looks like this:
> > > > > > > > >
> > > > > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > > > > >
> > > > > > > > > I don't know exactly how it should look like, but probably>> >> > > > like
> > > > > > > > > "System.Byte[]"
> > > > > > > > >
> > > > > > > > > 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\) Guest
-
Peter Afonin #14 Re: MD5 conversion problem
Thank you, Joe.
I'll put here the whole function, I don't know if it would make sense to
you. I'm actually doing it on the Pag_Load event:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Try
Dim sUser As String
Dim dblSum As Double
Dim sPlan As String
Dim sTerm As String
Dim dblPrice As Double
Dim sCRC As String
If Not IsPostBack Then
sUser = Request.QueryString("user")
dblSum = Request.QueryString("sum")
dblPrice = Request.QueryString("price")
sPlan = Request.QueryString("plan")
sTerm = Request.QueryString("term")
Dim sEmail = Request.QueryString("email")
Dim unicodeString As String
If Request.QueryString("up") = 1 Then
Me.shp_Up.Value = "1"
unicodeString = "Upgrade to" & sPlan
Else
unicodeString = "Extension to " & sPlan & " for " & sTerm & " months"
Me.shp_Up.Value = "0"
End If
If Not IsDBNull(sUser) Then
If Me.shp_Up.Value = "0" Then
inv_desc.Value = "Hosting " & sPlan & " extension for " & sTerm & " months"
Else
inv_desc.Value = "Hosting upgrade to plan " & sPlan
End If
Me.shp_UserID.Value = sUser.ToString
Me.Description.Value = unicodeString
Me.shp_Price.Value = dblPrice.ToString
End If
If Not IsDBNull(dblSum) Then
out_summ.Value = dblSum.ToString("c")
End If
Me.shp_HostPlan.Value = sPlan
inv_id.Value = CLng(Format(Now, "HHmmss"))
Me.shp_PaymentNo.Value = CLng(Format(Now, "yyyyMMddHHmmss"))
If Not IsDBNull(sTerm) Then
Me.shp_Term.Value = sTerm
End If
If Not IsDBNull("email") Then
Me.shp_Email.Value = sEmail
End If
sCRC = "pva:" & dblSum.ToString & ":" & CLng(Format(Now, "HHmmss")) _
& ":pa0567Ztro:inv_desc=" & inv_desc.Value & ":shp_Email=" _
& sEmail & ":lang=ru" & ":shp_PaymentNo=" _
& CLng(Format(Now, "yyyyMMddHHmmss")).ToString & ":shp_UserID=" & sUser _
& ":shp_Price=" & dblPrice.ToString _
& ":shp_HostPlan=" & sPlan & ":shp_Term=" _
& sTerm
Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
Dim unicodeText() As Byte
unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
0, True)
Dim oMD5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
Dim result() As Byte = oMD5.ComputeHash(unicodeText)
Dim sb As New StringBuilder
Dim i As Integer = 0
For i = 0 To CType(result.Length - 1, Integer)
sb.Append(result(i).ToString("X").PadLeft(2, "0"))
Next
sCRC = sb.ToString
sCRC = Convert.ToBase64String(MD5.ComputeHash(hashedBytes ))
Me.crc.Value = sCRC
End If
Catch ex As Exception
lblError.Text = ex.Message
Finally
End Try
End Sub
The hidden textbox crc gets the value of sCRC, that is passed to the Payment
Gateway when the form is submitted.
Thanks,
Peter
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:#jEyZyCkEHA.2668@TK2MSFTNGP10.phx.gbl...The> My idea was that you would have a function that calculates the MD5 so that
> we could see more clearly exactly how you are calculating it. After that,
> you can verify with the vendor that they are using the same algorithm.wrote> function would look like:
>
> Public Function GetMD5(ByVal inputData As String) as String
> ...
> End Function
>
> Then, we could see what results you are getting by passing in your input
> data.
>
> Joe K.
>
> "Peter Afonin" <pva@speakeasy.net> wrote in message
> news:uWjGZ%239jEHA.3476@tk2msftngp13.phx.gbl...> payment> > Thank you, Joe.
> >
> > This makes sense. However, I don't know what function is used by the> > gateway provider. I will contact them with all this information.
> >
> > Peter
> >
> > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>hash.> > in message news:e6oCHv5jEHA.3392@TK2MSFTNGP15.phx.gbl...> > > There are two main things to keep in mind here:
> > >
> > > The value of sCRC is what is being used to create the hash.
> > > The hash is being computed based on a Unicode encoding of the sameuse> same> > >
> > > Thus, for someone else to recreate the MD5 hash of the data from the> > > source data, they need to use the exact same sCRC as input and mustthe> > byte> > > Unicode encoding. UTF8 or any other encoding will produce a different> > > array and thus a different hash.
> > >
> > > If the input string and the encoding is the same, the MD5 should bebytes> > > same. The only thing that might vary is if they are assuming thea> > are> > > in the opposite order and you need to reverse the string.
> > >
> > > The code you keep showing below is hard to follow because it is usingusing> > output.> > > variable called sCRC as the input and then also setting that to the> > > We can't tell where the data came from or where it is going.
> > >
> > > Can you post a function that calculates the MD5 of an input stringmy> > the> > > proper encoding and returns it as a hex string?
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <peter@gudzon.net> wrote in message
> > > news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...
> > > > Hello Joe,
> > > >
> > > > I found a code that should do exactly the same as in the example inpayment> > > > previous message, but still doing something wrong, because theand> Peter.> > that> > > > gateway gives me a message that the string is bad. There is a chance> > > > 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.> > System.Security.Cryptography.MD5CryptoServiceProvi der> > > >
> > > > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> > > >
> > > > Dim unicodeText() As Byte
> > > > unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
> > > >
> > > > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> > > > 0, True)
> > > >
> > > > Dim oMD5 As New> > wrote> > > > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> > > >
> > > > Dim sb As New StringBuilder
> > > > Dim i As Integer = 0
> > > > For i = 0 To CType(result.Length - 1, Integer)
> > > > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > > > Next
> > > >
> > > > sCRC = sb.ToString
> > > >
> > > >
> > > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> > > > in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...
> > > > > Ah, this is the hex encoding thing I mentioned in my first postcharacters> to> > > didn't
> > > > > provide an example for. You can either use the BitConverter class> > > > > convert the byte[] to hex digits and then strip out the -need> > it> > basically> > > > puts
> > > > > in between or using something like my function called
> > > ConvertToOctetString
> > > > > that you can do a Google groups search for that does this. It> > bytes> > > > > just uses a StringBuilder and the X2 format code to loop over the> > using> > > > and
> > > > > build the string.
> > > > >
> > > > > Also, MAKE SURE that the vendor is calculating the MD5 of the data> > input> > > > the
> > > > > same encoding that you are (UTF8, ACSII, UTF16, etc.) or else your> > > > > byte array may be different and thus your hash will be different.
> > > > >
> > > > > HTH,
> > > > >
> > > > > Joe K.
> > > > >
> > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...
> > > > > > Joe, I'm connecting an online store to the payment system. Ianother> to> > > > pass
> > > > > > this string to this payment gateway, and it will return mewhatever> don't> > > > string
> > > > > > back, confirming that the payment was successful.
> > > > > >
> > > > > > I contacted the techsupport of this gateway. They said that I> 16-bit> > > have
> > > > > to
> > > > > > convert my string to Base64. I need to convert every byte to> me> > > > number
> > > > > > or something like this. They don't use ASP.Net, so couldn't give> sb.Append(hash[i].ToString("x").PadLeft(2,'0'));> > an> > > > > exact
> > > > > > code. They said that it should look approximately like this:
> > > > > >
> > > > > > StringBuilder sb = new StringBuilder();
> > > > > >
> > > > > > for (int i=0;i<hash.Length;i++)
> > > > > >> <joseph.e.kaplan@removethis.accenture.com>> > > > > >
> > > > > > return sb.ToString();
> > > > > >
> > > > > > How it should look in VB.Net?
> > > > > >
> > > > > > Thank you,
> > > > > >
> > > > > > Peter
> > > > > >
> > > > > >
> > > > > > "Joe Kaplan (MVP - ADSI)"> That> > > > wrote
> > > > > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > > > > What is giving you a "bad CRC" error? Is it the code below?> > > > looks
> > > > > > > like it should just return a base64 encoded MD5 hash ofinput> > > > string
> > > > > > was
> > > > > > > provided.
> > > > > > >
> > > > > > > It isn't clear to me what you are trying to do or what thebe> value="35r0XmeFIOXs5evTQM0q+w==">'+> > is> > > in
> > > > > the
> > > > > > > funtion.
> > > > > > >
> > > > > > > Joe K.
> > > > > > >
> > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > > > > Thank you, Joe.
> > > > > > > >
> > > > > > > > I've tried to change it like this:
> > > > > > > >
> > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > Dim encoder As new UTF8Encoding
> > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > sCRC = Convert.ToBase64String(md5.ComputeHash(hashedBytes ))
> > > > > > > > Me.crc.Value = sCRC
> > > > > > > >
> > > > > > > > Yes, the output string has changed:
> > > > > > > >
> > > > > > > > '<input type=hidden name=crc> Typically,> > > > > > > >
> > > > > > > > But I'm still getting a "bad crc" error.
> > > > > > > >
> > > > > > > > Peter
> > > > > > > >
> > > > > > > > "Joe Kaplan (MVP - ADSI)"
> > > <joseph.e.kaplan@removethis.accenture.com>
> > > > > > wrote
> > > > > > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > > > > > Why don't you try Convert.ToBase64String instead?> > input> > > you
> > > > > > encode
> > > > > > > > > binary data as a string with either Base64 or hex string
> > > encoding.
> > > > > > > > >
> > > > > > > > > Also, be careful about using ASCII encoding to convert the> > > > > > string
> > > > > > > to
> > > > > > > > > binary. If it includes any non-ASCII characters, you'llalway> > > > throwing
> > > > > > > data
> > > > > > > > > away. UTF8 is safer. Whatever you do, make sure you"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> comparison.> > > > compute
> > > > > > the
> > > > > > > > hash
> > > > > > > > > the same way if you are going to be using it for a> I've> > > > > > > > >
> > > > > > > > > HTH,
> > > > > > > > >
> > > > > > > > > Joe K.
> > > > > > > > >
> > > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > > > > Hello,
> > > > > > > > > >
> > > > > > > > > > I'm struggling with the string conversion to MD5 which> >> > > > never
> > > > > > user
> > > > > > > > > > before.
> > > > > > > > > >
> > > > > > > > > > I have a string that I need to encode which looks
> > > approximately
> > > > > like
> > > > > > > > this:
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > >
> > > > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >I> > > > > > > > > > BU:shp_Term=2"
> > > > > > > > > >
> > > > > > > > > > I'm doing it this way:
> > > > > > > > > >
> > > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > > > Dim sNewCRC as String =
> > > > > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > > > > >
> > > > > > > > > > It doesn't work. When I see the output on the page whereprobably> > > pass
> > > > > this
> > > > > > > > > string,
> > > > > > > > > > it looks like this:
> > > > > > > > > >
> > > > > > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > > > > > >
> > > > > > > > > > I don't know exactly how it should look like, but>> > not> >> > > > > like
> > > > > > > > > > "System.Byte[]"
> > > > > > > > > >
> > > > > > > > > > I'm doing something wrong, but I don't know what.
> > > > > > > > > >
> > > > > > > > > > I would really appreciate your help.
> > > > > > > > > >
> > > > > > > > > > Thank you,
> > > > > > > > > >
> > > > > > > > > > Peter Afonin
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
-
Joe Kaplan \(MVP - ADSI\) #15 Re: MD5 conversion problem
Ok, I was thinking of a function kind of like this:
Private Function ComputeMD5Hash(ByVal input As String, ByVal
targetEncoding As Encoding) As String
Dim textData() As Byte
Dim hexString As String
textData = targetEncoding.GetBytes(input)
Dim hashProvider As New
System.Security.Cryptography.MD5CryptoServiceProvi der
Dim md5Hash() As Byte = hashProvider.ComputeHash(textData)
Dim sb As New StringBuilder
Dim i As Integer = 0
For i = 0 To md5Hash.Length - 1
sb.Append(md5Hash(i).ToString("X2"))
Next
hexString = sb.ToString
Return hexString
End Function
You would call it in your code with:
hashText = ComputeMD5Hash(sCRC, Encoding.Unicode)
That would then leave three possibilities as to why you aren't getting the
same results as the vendor:
- The string you are passing in to sCRC is different from what they are
passing in
- You are using a different encoding to get the byte array than they are
- The output format you are getting is different (due to the bytes being
reversed or case sensitive or something)
My suspicion is that it is the encoding piece. You could also try
Encoding.ASCII and Encoding.UTF8 to see if those give you the result you are
looking for. Unicode will produce a totally different byte array than ASCII
and UTF8, so the hash will be different as a result.
Hopefully that will help you resolve it.
Joe K.
"Peter Afonin" <peter@gudzon.net> wrote in message
news:e$aYQfEkEHA.3016@tk2msftngp13.phx.gbl...months"> Thank you, Joe.
>
> I'll put here the whole function, I don't know if it would make sense to
> you. I'm actually doing it on the Pag_Load event:
>
> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> Try
> Dim sUser As String
> Dim dblSum As Double
> Dim sPlan As String
> Dim sTerm As String
> Dim dblPrice As Double
> Dim sCRC As String
> If Not IsPostBack Then
> sUser = Request.QueryString("user")
> dblSum = Request.QueryString("sum")
> dblPrice = Request.QueryString("price")
> sPlan = Request.QueryString("plan")
> sTerm = Request.QueryString("term")
> Dim sEmail = Request.QueryString("email")
> Dim unicodeString As String
> If Request.QueryString("up") = 1 Then
> Me.shp_Up.Value = "1"
> unicodeString = "Upgrade to" & sPlan
> Else
> unicodeString = "Extension to " & sPlan & " for " & sTerm & " months"
> Me.shp_Up.Value = "0"
> End If
> If Not IsDBNull(sUser) Then
> If Me.shp_Up.Value = "0" Then
> inv_desc.Value = "Hosting " & sPlan & " extension for " & sTerm & "Payment> Else
> inv_desc.Value = "Hosting upgrade to plan " & sPlan
> End If
> Me.shp_UserID.Value = sUser.ToString
> Me.Description.Value = unicodeString
> Me.shp_Price.Value = dblPrice.ToString
> End If
> If Not IsDBNull(dblSum) Then
> out_summ.Value = dblSum.ToString("c")
> End If
> Me.shp_HostPlan.Value = sPlan
> inv_id.Value = CLng(Format(Now, "HHmmss"))
> Me.shp_PaymentNo.Value = CLng(Format(Now, "yyyyMMddHHmmss"))
> If Not IsDBNull(sTerm) Then
> Me.shp_Term.Value = sTerm
> End If
> If Not IsDBNull("email") Then
> Me.shp_Email.Value = sEmail
> End If
> sCRC = "pva:" & dblSum.ToString & ":" & CLng(Format(Now, "HHmmss")) _
> & ":pa0567Ztro:inv_desc=" & inv_desc.Value & ":shp_Email=" _
> & sEmail & ":lang=ru" & ":shp_PaymentNo=" _
> & CLng(Format(Now, "yyyyMMddHHmmss")).ToString & ":shp_UserID=" & sUser _
> & ":shp_Price=" & dblPrice.ToString _
> & ":shp_HostPlan=" & sPlan & ":shp_Term=" _
> & sTerm
> Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> Dim unicodeText() As Byte
> unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
> enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> 0, True)
> Dim oMD5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
> Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> Dim sb As New StringBuilder
> Dim i As Integer = 0
> For i = 0 To CType(result.Length - 1, Integer)
> sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> Next
> sCRC = sb.ToString
>
> sCRC = Convert.ToBase64String(MD5.ComputeHash(hashedBytes ))
> Me.crc.Value = sCRC
> End If
> Catch ex As Exception
> lblError.Text = ex.Message
> Finally
> End Try
> End Sub
>
> The hidden textbox crc gets the value of sCRC, that is passed to thethat> Gateway when the form is submitted.
>
> Thanks,
>
> Peter
>
> "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
> in message news:#jEyZyCkEHA.2668@TK2MSFTNGP10.phx.gbl...> > My idea was that you would have a function that calculates the MD5 sothat,> > we could see more clearly exactly how you are calculating it. Afterdifferent> The> > you can verify with the vendor that they are using the same algorithm.> wrote> > function would look like:
> >
> > Public Function GetMD5(ByVal inputData As String) as String
> > ...
> > End Function
> >
> > Then, we could see what results you are getting by passing in your input
> > data.
> >
> > Joe K.
> >
> > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > news:uWjGZ%239jEHA.3476@tk2msftngp13.phx.gbl...> > payment> > > Thank you, Joe.
> > >
> > > This makes sense. However, I don't know what function is used by the> > > gateway provider. I will contact them with all this information.
> > >
> > > Peter
> > >
> > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> hash.> > > in message news:e6oCHv5jEHA.3392@TK2MSFTNGP15.phx.gbl...
> > > > There are two main things to keep in mind here:
> > > >
> > > > The value of sCRC is what is being used to create the hash.
> > > > The hash is being computed based on a Unicode encoding of the same> use> > same> > > >
> > > > Thus, for someone else to recreate the MD5 hash of the data from the> > > > source data, they need to use the exact same sCRC as input and must> > > > Unicode encoding. UTF8 or any other encoding will produce ausing> the> > > byte
> > > > array and thus a different hash.
> > > >
> > > > If the input string and the encoding is the same, the MD5 should be> bytes> > > > same. The only thing that might vary is if they are assuming the> > > are
> > > > in the opposite order and you need to reverse the string.
> > > >
> > > > The code you keep showing below is hard to follow because it isin> a> using> > > > variable called sCRC as the input and then also setting that to the
> > > output.
> > > > We can't tell where the data came from or where it is going.
> > > >
> > > > Can you post a function that calculates the MD5 of an input string> > > the
> > > > proper encoding and returns it as a hex string?
> > > >
> > > > Joe K.
> > > >
> > > > "Peter Afonin" <peter@gudzon.net> wrote in message
> > > > news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...
> > > > > Hello Joe,
> > > > >
> > > > > I found a code that should do exactly the same as in the examplechance> my> payment> > > > > previous message, but still doing something wrong, because the> > > > > gateway gives me a message that the string is bad. There is asee> > > that
> > > > > the code itself is OK, but the data I put in is bad. But do youSystem.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)> > Peter.> > > > anything
> > > > > wrong with this code? I would appreciate your comments very much.> > > > >
> > > > > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> > > > >
> > > > > Dim unicodeText() As Byte
> > > > > unicodeText =_> > > > >
> > > > > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText,<joseph.e.kaplan@removethis.accenture.com>> > > > > 0, True)
> > > > >
> > > > > Dim oMD5 As New
> > > System.Security.Cryptography.MD5CryptoServiceProvi der
> > > > > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> > > > >
> > > > > Dim sb As New StringBuilder
> > > > > Dim i As Integer = 0
> > > > > For i = 0 To CType(result.Length - 1, Integer)
> > > > > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > > > > Next
> > > > >
> > > > > sCRC = sb.ToString
> > > > >
> > > > >
> > > > > "Joe Kaplan (MVP - ADSI)"class> and> > > wrote
> > > > > in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...
> > > > > > Ah, this is the hex encoding thing I mentioned in my first post> > > > didn't
> > > > > > provide an example for. You can either use the BitConverterthe> characters> > to> > > > > > convert the byte[] to hex digits and then strip out the -> > > it
> > > > > puts
> > > > > > in between or using something like my function called
> > > > ConvertToOctetString
> > > > > > 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 overdata> > > bytes
> > > > > and
> > > > > > build the string.
> > > > > >
> > > > > > Also, MAKE SURE that the vendor is calculating the MD5 of theyour> > > using
> > > > > the
> > > > > > same encoding that you are (UTF8, ACSII, UTF16, etc.) or elsedifferent.> > > input
> > > > > > byte array may be different and thus your hash will begive> need> > > > > >
> > > > > > HTH,
> > > > > >
> > > > > > Joe K.
> > > > > >
> > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...
> > > > > > > Joe, I'm connecting an online store to the payment system. I> another> > to> > > > > pass
> > > > > > > this string to this payment gateway, and it will return me> > don't> > > > > string
> > > > > > > back, confirming that the payment was successful.
> > > > > > >
> > > > > > > I contacted the techsupport of this gateway. They said that I> > 16-bit> > > > have
> > > > > > to
> > > > > > > convert my string to Base64. I need to convert every byte to> > > > > number
> > > > > > > or something like this. They don't use ASP.Net, so couldn'tConvert.ToBase64String(md5.ComputeHash(hashedBytes ))> whatever> > me> > sb.Append(hash[i].ToString("x").PadLeft(2,'0'));> > > an
> > > > > > exact
> > > > > > > code. They said that it should look approximately like this:
> > > > > > >
> > > > > > > StringBuilder sb = new StringBuilder();
> > > > > > >
> > > > > > > for (int i=0;i<hash.Length;i++)
> > > > > > >> > <joseph.e.kaplan@removethis.accenture.com>> > > > > > >
> > > > > > > return sb.ToString();
> > > > > > >
> > > > > > > How it should look in VB.Net?
> > > > > > >
> > > > > > > Thank you,
> > > > > > >
> > > > > > > Peter
> > > > > > >
> > > > > > >
> > > > > > > "Joe Kaplan (MVP - ADSI)"> > That> > > > > wrote
> > > > > > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > > > > > What is giving you a "bad CRC" error? Is it the code below?> > > > > looks
> > > > > > > > like it should just return a base64 encoded MD5 hash of> input> > > > > string
> > > > > > > was
> > > > > > > > provided.
> > > > > > > >
> > > > > > > > It isn't clear to me what you are trying to do or what the> > > is
> > > > in
> > > > > > the
> > > > > > > > funtion.
> > > > > > > >
> > > > > > > > Joe K.
> > > > > > > >
> > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > > > > > Thank you, Joe.
> > > > > > > > >
> > > > > > > > > I've tried to change it like this:
> > > > > > > > >
> > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > Dim encoder As new UTF8Encoding
> > > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > > sCRC =the> > value="35r0XmeFIOXs5evTQM0q+w==">'+> > > > > > > > > Me.crc.Value = sCRC
> > > > > > > > >
> > > > > > > > > Yes, the output string has changed:
> > > > > > > > >
> > > > > > > > > '<input type=hidden name=crc> > Typically,> > > > > > > > >
> > > > > > > > > But I'm still getting a "bad crc" error.
> > > > > > > > >
> > > > > > > > > Peter
> > > > > > > > >
> > > > > > > > > "Joe Kaplan (MVP - ADSI)"
> > > > <joseph.e.kaplan@removethis.accenture.com>
> > > > > > > wrote
> > > > > > > > > in message news:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...
> > > > > > > > > > Why don't you try Convert.ToBase64String instead?> > > > you
> > > > > > > encode
> > > > > > > > > > binary data as a string with either Base64 or hex string
> > > > encoding.
> > > > > > > > > >
> > > > > > > > > > Also, be careful about using ASCII encoding to convert=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=> be> > > input
> > > > > > > string
> > > > > > > > to
> > > > > > > > > > binary. If it includes any non-ASCII characters, you'll> alway> > > > > throwing
> > > > > > > > data
> > > > > > > > > > away. UTF8 is safer. Whatever you do, make sure you> "pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> > comparison.> > > > > compute
> > > > > > > the
> > > > > > > > > hash
> > > > > > > > > > the same way if you are going to be using it for a> > I've> > > > > > > > > >
> > > > > > > > > > HTH,
> > > > > > > > > >
> > > > > > > > > > Joe K.
> > > > > > > > > >
> > > > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > > > > > Hello,
> > > > > > > > > > >
> > > > > > > > > > > I'm struggling with the string conversion to MD5 which> > > > > never
> > > > > > > user
> > > > > > > > > > > before.
> > > > > > > > > > >
> > > > > > > > > > > I have a string that I need to encode which looks
> > > > approximately
> > > > > > like
> > > > > > > > > this:
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > >
> > > > > > >
> > > > >
> > >>> >> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >where> > > > > > > > > > > BU:shp_Term=2"
> > > > > > > > > > >
> > > > > > > > > > > I'm doing it this way:
> > > > > > > > > > >
> > > > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > > > > Dim sNewCRC as String =
> > > > > > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > > > > > >
> > > > > > > > > > > It doesn't work. When I see the output on the page> I> probably> > > > pass
> > > > > > this
> > > > > > > > > > string,
> > > > > > > > > > > it looks like this:
> > > > > > > > > > >
> > > > > > > > > > > '<input type=hidden name=crc value="System.Byte[]">'+
> > > > > > > > > > >
> > > > > > > > > > > I don't know exactly how it should look like, but>> >> > > not
> > > > > > like
> > > > > > > > > > > "System.Byte[]"
> > > > > > > > > > >
> > > > > > > > > > > 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\) Guest
-
Peter Afonin #16 Re: MD5 conversion problem
Thank you very much, Joe. I'll keep trying.
Peter
"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com> wrote
in message news:OGOEDmFkEHA.3912@TK2MSFTNGP12.phx.gbl...are> Ok, I was thinking of a function kind of like this:
>
> Private Function ComputeMD5Hash(ByVal input As String, ByVal
> targetEncoding As Encoding) As String
>
> Dim textData() As Byte
> Dim hexString As String
> textData = targetEncoding.GetBytes(input)
>
> Dim hashProvider As New
> System.Security.Cryptography.MD5CryptoServiceProvi der
> Dim md5Hash() As Byte = hashProvider.ComputeHash(textData)
>
> Dim sb As New StringBuilder
> Dim i As Integer = 0
> For i = 0 To md5Hash.Length - 1
> sb.Append(md5Hash(i).ToString("X2"))
> Next
> hexString = sb.ToString
>
> Return hexString
>
> End Function
>
> You would call it in your code with:
>
> hashText = ComputeMD5Hash(sCRC, Encoding.Unicode)
>
> That would then leave three possibilities as to why you aren't getting the
> same results as the vendor:
> - The string you are passing in to sCRC is different from what they are
> passing in
> - You are using a different encoding to get the byte array than they are
> - The output format you are getting is different (due to the bytes being
> reversed or case sensitive or something)
>
> My suspicion is that it is the encoding piece. You could also try
> Encoding.ASCII and Encoding.UTF8 to see if those give you the result youASCII> looking for. Unicode will produce a totally different byte array than_> and UTF8, so the hash will be different as a result.
>
> Hopefully that will help you resolve it.
>
> Joe K.
>
> "Peter Afonin" <peter@gudzon.net> wrote in message
> news:e$aYQfEkEHA.3016@tk2msftngp13.phx.gbl...> months"> > Thank you, Joe.
> >
> > I'll put here the whole function, I don't know if it would make sense to
> > you. I'm actually doing it on the Pag_Load event:
> >
> > Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
> > System.EventArgs) Handles MyBase.Load
> > Try
> > Dim sUser As String
> > Dim dblSum As Double
> > Dim sPlan As String
> > Dim sTerm As String
> > Dim dblPrice As Double
> > Dim sCRC As String
> > If Not IsPostBack Then
> > sUser = Request.QueryString("user")
> > dblSum = Request.QueryString("sum")
> > dblPrice = Request.QueryString("price")
> > sPlan = Request.QueryString("plan")
> > sTerm = Request.QueryString("term")
> > Dim sEmail = Request.QueryString("email")
> > Dim unicodeString As String
> > If Request.QueryString("up") = 1 Then
> > Me.shp_Up.Value = "1"
> > unicodeString = "Upgrade to" & sPlan
> > Else
> > unicodeString = "Extension to " & sPlan & " for " & sTerm & " months"
> > Me.shp_Up.Value = "0"
> > End If
> > If Not IsDBNull(sUser) Then
> > If Me.shp_Up.Value = "0" Then
> > inv_desc.Value = "Hosting " & sPlan & " extension for " & sTerm & "> > Else
> > inv_desc.Value = "Hosting upgrade to plan " & sPlan
> > End If
> > Me.shp_UserID.Value = sUser.ToString
> > Me.Description.Value = unicodeString
> > Me.shp_Price.Value = dblPrice.ToString
> > End If
> > If Not IsDBNull(dblSum) Then
> > out_summ.Value = dblSum.ToString("c")
> > End If
> > Me.shp_HostPlan.Value = sPlan
> > inv_id.Value = CLng(Format(Now, "HHmmss"))
> > Me.shp_PaymentNo.Value = CLng(Format(Now, "yyyyMMddHHmmss"))
> > If Not IsDBNull(sTerm) Then
> > Me.shp_Term.Value = sTerm
> > End If
> > If Not IsDBNull("email") Then
> > Me.shp_Email.Value = sEmail
> > End If
> > sCRC = "pva:" & dblSum.ToString & ":" & CLng(Format(Now, "HHmmss")) _
> > & ":pa0567Ztro:inv_desc=" & inv_desc.Value & ":shp_Email=" _
> > & sEmail & ":lang=ru" & ":shp_PaymentNo=" _
> > & CLng(Format(Now, "yyyyMMddHHmmss")).ToString & ":shp_UserID=" & sUserwrote> Payment> > & ":shp_Price=" & dblPrice.ToString _
> > & ":shp_HostPlan=" & sPlan & ":shp_Term=" _
> > & sTerm
> > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> > Dim unicodeText() As Byte
> > unicodeText = System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)
> > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length, unicodeText, _
> > 0, True)
> > Dim oMD5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
> > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> > Dim sb As New StringBuilder
> > Dim i As Integer = 0
> > For i = 0 To CType(result.Length - 1, Integer)
> > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > Next
> > sCRC = sb.ToString
> >
> > sCRC = Convert.ToBase64String(MD5.ComputeHash(hashedBytes ))
> > Me.crc.Value = sCRC
> > End If
> > Catch ex As Exception
> > lblError.Text = ex.Message
> > Finally
> > End Try
> > End Sub
> >
> > The hidden textbox crc gets the value of sCRC, that is passed to the> > Gateway when the form is submitted.
> >
> > Thanks,
> >
> > Peter
> >
> > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>input> that> > in message news:#jEyZyCkEHA.2668@TK2MSFTNGP10.phx.gbl...> > > My idea was that you would have a function that calculates the MD5 so> that,> > > we could see more clearly exactly how you are calculating it. After> > The> > > you can verify with the vendor that they are using the same algorithm.> > > function would look like:
> > >
> > > Public Function GetMD5(ByVal inputData As String) as String
> > > ...
> > > End Function
> > >
> > > Then, we could see what results you are getting by passing in yourthe> > wrote> > > data.
> > >
> > > Joe K.
> > >
> > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > news:uWjGZ%239jEHA.3476@tk2msftngp13.phx.gbl...
> > > > Thank you, Joe.
> > > >
> > > > This makes sense. However, I don't know what function is used by the
> > > payment
> > > > gateway provider. I will contact them with all this information.
> > > >
> > > > Peter
> > > >
> > > > "Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@removethis.accenture.com>> > hash.> > > > in message news:e6oCHv5jEHA.3392@TK2MSFTNGP15.phx.gbl...
> > > > > There are two main things to keep in mind here:
> > > > >
> > > > > The value of sCRC is what is being used to create the hash.
> > > > > The hash is being computed based on a Unicode encoding of the same> > > > >
> > > > > Thus, for someone else to recreate the MD5 hash of the data frommust> > > same
> > > > > source data, they need to use the exact same sCRC as input andbe> different> > use> > > > > Unicode encoding. UTF8 or any other encoding will produce a> > > > byte
> > > > > array and thus a different hash.
> > > > >
> > > > > If the input string and the encoding is the same, the MD5 shouldthe> using> > the> > bytes> > > > > same. The only thing that might vary is if they are assuming the> > > > are
> > > > > in the opposite order and you need to reverse the string.
> > > > >
> > > > > The code you keep showing below is hard to follow because it is> > a> > > > > variable called sCRC as the input and then also setting that tomuch.> in> > using> > > > output.
> > > > > We can't tell where the data came from or where it is going.
> > > > >
> > > > > Can you post a function that calculates the MD5 of an input string> > > > the
> > > > > proper encoding and returns it as a hex string?
> > > > >
> > > > > Joe K.
> > > > >
> > > > > "Peter Afonin" <peter@gudzon.net> wrote in message
> > > > > news:uJ1fcM5jEHA.3724@TK2MSFTNGP11.phx.gbl...
> > > > > > Hello Joe,
> > > > > >
> > > > > > I found a code that should do exactly the same as in the example> chance> > my> > payment> > > > > > previous message, but still doing something wrong, because the> > > > > > gateway gives me a message that the string is bad. There is a> see> > > > that
> > > > > > the code itself is OK, but the data I put in is bad. But do you> > > > > anything
> > > > > > wrong with this code? I would appreciate your comments veryunicodeText,> System.Text.UnicodeEncoding.Unicode.GetBytes(sCRC)> > > Peter.
> > > > > >
> > > > > > Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()
> > > > > >
> > > > > > Dim unicodeText() As Byte
> > > > > > unicodeText => > > > > >
> > > > > > enc.GetBytes(sCRC.ToCharArray(), 0, sCRC.Length,post> _> <joseph.e.kaplan@removethis.accenture.com>> > > > > > 0, True)
> > > > > >
> > > > > > Dim oMD5 As New
> > > > System.Security.Cryptography.MD5CryptoServiceProvi der
> > > > > > Dim result() As Byte = oMD5.ComputeHash(unicodeText)
> > > > > >
> > > > > > Dim sb As New StringBuilder
> > > > > > Dim i As Integer = 0
> > > > > > For i = 0 To CType(result.Length - 1, Integer)
> > > > > > sb.Append(result(i).ToString("X").PadLeft(2, "0"))
> > > > > > Next
> > > > > >
> > > > > > sCRC = sb.ToString
> > > > > >
> > > > > >
> > > > > > "Joe Kaplan (MVP - ADSI)"> > > > wrote
> > > > > > in message news:eB8IzPFjEHA.2696@TK2MSFTNGP11.phx.gbl...
> > > > > > > Ah, this is the hex encoding thing I mentioned in my firstI> class> > and> > > > > didn't
> > > > > > > provide an example for. You can either use the BitConverter> the> > characters> > > to
> > > > > > > convert the byte[] to hex digits and then strip out the -> > > > it
> > > > > > puts
> > > > > > > in between or using something like my function called
> > > > > ConvertToOctetString
> > > > > > > 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> data> > > > bytes
> > > > > > and
> > > > > > > build the string.
> > > > > > >
> > > > > > > Also, MAKE SURE that the vendor is calculating the MD5 of the> your> > > > using
> > > > > > the
> > > > > > > same encoding that you are (UTF8, ACSII, UTF16, etc.) or else> different.> > > > input
> > > > > > > byte array may be different and thus your hash will be> > need> > > > > > >
> > > > > > > HTH,
> > > > > > >
> > > > > > > Joe K.
> > > > > > >
> > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > news:utMGDDAjEHA.2544@TK2MSFTNGP10.phx.gbl...
> > > > > > > > Joe, I'm connecting an online store to the payment system. I> > another> > > to
> > > > > > pass
> > > > > > > > this string to this payment gateway, and it will return me> > > > > > string
> > > > > > > > back, confirming that the payment was successful.
> > > > > > > >
> > > > > > > > I contacted the techsupport of this gateway. They said thatbelow?> give> > > 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> > > me
> > > > an
> > > > > > > exact
> > > > > > > > code. They said that it should look approximately like this:
> > > > > > > >
> > > > > > > > StringBuilder sb = new StringBuilder();
> > > > > > > >
> > > > > > > > for (int i=0;i<hash.Length;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)"
> > > <joseph.e.kaplan@removethis.accenture.com>
> > > > > > wrote
> > > > > > > > in message news:OJQ8p$%23iEHA.3988@tk2msftngp13.phx.gbl...
> > > > > > > > > What is giving you a "bad CRC" error? Is it the codenews:uoBsCL%23iEHA.4024@TK2MSFTNGP09.phx.gbl...> Convert.ToBase64String(md5.ComputeHash(hashedBytes ))> > whatever> > > That
> > > > > > looks
> > > > > > > > > like it should just return a base64 encoded MD5 hash of> > input> > > > > > string
> > > > > > > > was
> > > > > > > > > provided.
> > > > > > > > >
> > > > > > > > > It isn't clear to me what you are trying to do or what the> > > > is
> > > > > in
> > > > > > > the
> > > > > > > > > funtion.
> > > > > > > > >
> > > > > > > > > Joe K.
> > > > > > > > >
> > > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > > news:eQeJri%23iEHA.3612@TK2MSFTNGP12.phx.gbl...
> > > > > > > > > > Thank you, Joe.
> > > > > > > > > >
> > > > > > > > > > I've tried to change it like this:
> > > > > > > > > >
> > > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > > Dim encoder As new UTF8Encoding
> > > > > > > > > > hashedBytes = md5.ComputeHash(encoder.GetBytes(sCRC))
> > > > > > > > > > sCRC => > > > > > > > > > Me.crc.Value = sCRC
> > > > > > > > > >
> > > > > > > > > > Yes, the output string has changed:
> > > > > > > > > >
> > > > > > > > > > '<input type=hidden name=crc
> > > value="35r0XmeFIOXs5evTQM0q+w==">'+
> > > > > > > > > >
> > > > > > > > > > But I'm still getting a "bad crc" error.
> > > > > > > > > >
> > > > > > > > > > Peter
> > > > > > > > > >
> > > > > > > > > > "Joe Kaplan (MVP - ADSI)"
> > > > > <joseph.e.kaplan@removethis.accenture.com>
> > > > > > > > wrote
> > > > > > > > > > in messagestring> > > > > > > > > > > Why don't you try Convert.ToBase64String instead?
> > > Typically,
> > > > > you
> > > > > > > > encode
> > > > > > > > > > > binary data as a string with either Base64 or hexyou'll> the> > > > > encoding.
> > > > > > > > > > >
> > > > > > > > > > > Also, be careful about using ASCII encoding to convert> > > > input
> > > > > > > > string
> > > > > > > > > to
> > > > > > > > > > > binary. If it includes any non-ASCII characters,which> > be> > alway> > > > > > throwing
> > > > > > > > > data
> > > > > > > > > > > away. UTF8 is safer. Whatever you do, make sure you> > > > > > compute
> > > > > > > > the
> > > > > > > > > > hash
> > > > > > > > > > > the same way if you are going to be using it for a
> > > comparison.
> > > > > > > > > > >
> > > > > > > > > > > HTH,
> > > > > > > > > > >
> > > > > > > > > > > Joe K.
> > > > > > > > > > >
> > > > > > > > > > > "Peter Afonin" <pva@speakeasy.net> wrote in message
> > > > > > > > > > > news:eJWO769iEHA.3928@TK2MSFTNGP11.phx.gbl...
> > > > > > > > > > > > Hello,
> > > > > > > > > > > >
> > > > > > > > > > > > I'm struggling with the string conversion to MD5"pva:0.05:101214:pa7735tH:inv_desc=205308:shp_Emai l=petera_gudzon.net:lang> >> > > I've
> > > > > > never
> > > > > > > > user
> > > > > > > > > > > > before.
> > > > > > > > > > > >
> > > > > > > > > > > > I have a string that I need to encode which looks
> > > > > approximately
> > > > > > > like
> > > > > > > > > > this:
> > > > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > >
> > > > > >
> > > >=ru:shp_PaymentNo=20040825205308:shp_UserID=pva:sh p_Price=2.95:shp_HostPlan=>> >> > > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >md5.ComputeHash(encoder.GetBytes(sCRC))> > > > > > > > > > > > BU:shp_Term=2"
> > > > > > > > > > > >
> > > > > > > > > > > > I'm doing it this way:
> > > > > > > > > > > >
> > > > > > > > > > > > Dim hashedBytes As Byte()
> > > > > > > > > > > > Dim md5 As New MD5CryptoServiceProvider
> > > > > > > > > > > > Dim encoder As New ASCIIEncoding
> > > > > > > > > > > > hashedBytes =value="System.Byte[]">'+> where> > > > > > > > > > > > Dim sNewCRC as String =
> > > > > > > > Convert.ToString(md5.ComputeHash(hashedBytes))
> > > > > > > > > > > >
> > > > > > > > > > > > It doesn't work. When I see the output on the page> > I> > > > > pass
> > > > > > > this
> > > > > > > > > > > string,
> > > > > > > > > > > > it looks like this:
> > > > > > > > > > > >
> > > > > > > > > > > > '<input type=hidden name=crc>> > probably> > > > > > > > > > > >
> > > > > > > > > > > > I don't know exactly how it should look like, but> >> > > > not
> > > > > > > like
> > > > > > > > > > > > "System.Byte[]"
> > > > > > > > > > > >
> > > > > > > > > > > > I'm doing something wrong, but I don't know what.
> > > > > > > > > > > >
> > > > > > > > > > > > I would really appreciate your help.
> > > > > > > > > > > >
> > > > > > > > > > > > Thank you,
> > > > > > > > > > > >
> > > > > > > > > > > > Peter Afonin
> > > > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
Peter Afonin Guest
Reply With QuoteSimilar Questions and Discussions
Posting Permissions
- You may not post new threads
- You may post replies
- You may not post attachments
- You may not edit your posts
