Post by gadapchetvoi on Feb 23, 2014 13:21:50 GMT -5
Can you please give me with an example of signing data with RSA & VBCorlib ?
I'll appreciate that much cause I've tried to do it for 4 days.
I'm stucking with the error : "Keyset does not exist" while I load public & private key from xmlString.
OK, you can see what I've tried & at least show me what I did wrong, ok?
Dim orgData() As Byte, signedData() As Byte: orgData = String2Byte("01234567890123456789")
Dim Provider As RSACryptoServiceProvider: Set Provider = Cor.NewRSACryptoServiceProvider()
Dim pubKey: pubKey = "<RSAKeyValue><Modulus>yTaQV6phwvHXEgFUv8gTW87KnHdEBhnjoraFLhG1cycviyAyYtRR2Kt+hoO5VYFExeVi04T2PVv1iKB+J5+5IcbAAfpo8KlaFjS5TBSz4Xn+bcYr3PJamIsxKXcYkNUJuSqXXEhqJVQQnlInyhX3WsCjPBhZc4YBlGDSwg+Fcd5o3puKQ6WJDyq+ygDFZhErs7/g57IhNhBk8y+wxHZiyB/v+JiNODVHPgz+3HUzoECL2fZlOC0pT4id0VAo27t8r+EUZwlYtABa0WuQsacioEXaeRkZqIsZxn6K0SJGLWQdkU+YeQoyaMTq+PzzG+GrgQPyJJ0SaMCvilvmlFqBGw==</Modulus><Exponent>AQAB</Exponent></RSAKeyValue>"
Dim privateKey: privateKey = "<RSAKeyValue><Modulus>yTaQV6phwvHXEgFUv8gTW87KnHdEBhnjoraFLhG1cycviyAyYtRR2Kt+hoO5VYFExeVi04T2PVv1iKB+J5+5IcbAAfpo8KlaFjS5TBSz4Xn+bcYr3PJamIsxKXcYkNUJuSqXXEhqJVQQnlInyhX3WsCjPBhZc4YBlGDSwg+Fcd5o3puKQ6WJDyq+ygDFZhErs7/g57IhNhBk8y+wxHZiyB/v+JiNODVHPgz+3HUzoECL2fZlOC0pT4id0VAo27t8r+EUZwlYtABa0WuQsacioEXaeRkZqIsZxn6K0SJGLWQdkU+YeQoyaMTq+PzzG+GrgQPyJJ0SaMCvilvmlFqBGw==</Modulus><Exponent>AQAB</Exponent><P>5q670YOty1/cvTR72Y4oMRGiRzKqHHIr8lR1WQqfSqwY2yoWzm7VHEG7PTIcURJxoLTXJR0OYcQHfu5NzBC8WUlYFJfP3xY5fOeFe0bE/TikK5qwRwGW2E7Ak5ZYdoxQGJ5kKzMbKT6ywdSj9N6o7Pfyo5JocOQFdpoNgJKPtJE=</P><Q>30vbOVLrA1fhNRM6Ci4B1HXU06+UAY6X3UK4G1q6iPT86hmXbJQmlHcJUSpZSuFdxMPsxfIPfs+aKafhJvIqKXxl3XYzYPQpKgb33naBV7rdA8SKzeZvmba9juQ9YvLnQB5L/Z47YRlBkIf5OdxCDZDVIjkOmaobk5SRjThTwOs=</Q><DP>IgM7gC3ZLzZoNqGJbU9vj6SY98R5no4a+rUHRGSzjfAIDjCLgk6HL45ljCVaVX3RsS9Y1YkOOM4NiOKcJ+2Dx+pviUHFDZCaU1dTsBSEMQ3r7t31BdMvKZ+a92fgjUItASRBgrkbVR6AfuHadt1prN72MLYCn" & _
"jqQr6cRPJbfh3E=</DP><DQ>lCQISeyX2/z2fTbHP6+sKR8PVm1avPm0COfVqtgzft9B17GowzE6sy6R8NYurT387qipMd3Yp+HlPhORjTwF+sX78sQTbBQwJyC+W0m1n9VqAbDoAZgKnCkfc2g6zaWnA+PVuGm8rTuLQu7iyp809zkKHY1LAWlYqD1dnxoqfoc=</DQ><InverseQ>LzzvIxbvrpbk17L+pb0B+kb5i75fCG8r6Sob+uUtdqx3yvnho6IYsiPTkiTrohguU+2OiQYW2wGn472ZDS74Oho7opHH0BJvxeP1z8MzXltd722DpQE/iqfYpna7sLvepRJFqlX1ZtMQ8e/un8YtTUMOYyH2z9D8wCDZxES3fEE=</InverseQ><D>Pc22tFavRJPH/c3O3EF2QMLZ1QmFKWKWWwo5CheCZmZo4hD3qQeSRD0Y1fRr3umf2DFHE7VJdTtjxZ2WYlFbKhbEL1ddGF7MPvne2JGbVuyDy/AM1QbT8PsAFL5yGzp0jB2a9EuB3wldOWP+uMHaglOdT/4iq6tDnPHIirb9xCWDGwqOoU5Bhkzy3Cpn+in3va50tIQX4C0vy10cchJxngovZ/Z5XcPcif/gHlDBo8P1h/FbOHVrX9vnA0yGH537TYGRMUsAFElOUavd0V5SjniyHXXme8PDSzL22W60iyNRKgX248n5G4EW/yEjTq03WmgRLyjRTMOwpObyp58bQQ==</D></RSAKeyValue>"
Provider.FromXmlString privateKey: Provider.FromXmlString pubKey
signedData = Provider.SignHash(orgData, "SHA1") '-- the line that cause error
Func fact : I can do this with real .Net RSACryptoServiceProvider without error !