运行时错误System.Security.Cryptography.CryptographicException：'错误数据。在vb.net中尝试导入RSA参数时 [英] RunTime Error System.Security.Cryptography.CryptographicException: 'Bad Data. ' in vb.net when trying to import RSA parameters
本文介绍了运行时错误System.Security.Cryptography.CryptographicException：'错误数据。在vb.net中尝试导入RSA参数时的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
这是我不确定是否存在任何隐藏错误的代码，但在运行时尝试导入rsa参数时，它会弹出该错误
Here's the code I am not sure if there's any hidden error but on runtime when trying to import the rsa parameters it pops up that error
Function ModInverse(ByVal a As BigInteger, ByVal b As BigInteger) As BigInteger
Dim b0 As BigInteger = b
Dim t As BigInteger
Dim q As BigInteger
Dim x0 As BigInteger = 0
Dim x1 As BigInteger = 1
If b = 1 Then Return 1
While a > 1
q = BigInteger.Divide(a, b)
t = b
b = BigInteger.Remainder(a, b)
a = t
t = x0
x0 = BigInteger.Subtract(x1, BigInteger.Multiply(q, x0))
x1 = t
End While
If x1 < 0 Then x1 += b0
Return x1
End Function
Private Sub GenerateBTN_Click(sender As Object, e As EventArgs) Handles GenerateBTN.Click
End Sub
Private Sub TestBTN_Click(sender As Object, e As EventArgs) Handles TestBTN.Click
Dim MyRSACryptoServiceProvider As New RSACryptoServiceProvider(384)
Dim MyRSAParams As RSAParameters
Dim P As BigInteger
Dim Q As BigInteger
Dim Modulus As BigInteger
Dim Modulus1 As BigInteger
Dim Exponent As BigInteger
Dim D As BigInteger
Dim DP As BigInteger
Dim DQ As BigInteger
Dim InverseQ As BigInteger
Dim PrimeList, PrimeList2 As New List(Of BigInteger)
Dim x As Integer = 1
Dim RandomNumber1, RandomNumber2 As Integer
Dim Random As New Random
Using StreamReader As New StreamReader("G:\PrimeList384P1.txt")
Dim line As String
While x <= 1000
line = StreamReader.ReadLine
If x >= 501 And x <= 1000 Then
PrimeList2.Add(BigInteger.Parse(line))
Else
PrimeList.Add(BigInteger.Parse(line))
End If
x += 1
End While
End Using
MessageBox.Show("PrimeList1 Count" & PrimeList.Count & vbNewLine & "PrimeList2 Count" & PrimeList2.Count)
RandomNumber1 = Random.Next(0, (PrimeList.Count - 1))
RandomNumber2 = RandomNumber1
Q = PrimeList(RandomNumber1)
P = PrimeList2(RandomNumber2)
Modulus = (P - 1) * (Q - 1)
Modulus1 = Modulus + 1
D = BigInteger.Divide(Modulus1, 65537)
x = 0
If BigInteger.GreatestCommonDivisor(P, Q) = 1 And BigInteger.GreatestCommonDivisor(Modulus, 65537) = 1 And BigInteger.GreatestCommonDivisor(D, Modulus) = 1 Then
Else
While x < 500
Q = PrimeList(x)
P = PrimeList2(x)
Modulus = (P - 1) * (Q - 1)
Modulus1 = Modulus + 1
If BigInteger.Remainder(Modulus1, 65537) = 0 Then
D = BigInteger.Divide(Modulus1, 65537)
End If
If BigInteger.GreatestCommonDivisor(P, Q) = 1 And BigInteger.GreatestCommonDivisor(Modulus, 65537) = 1 And BigInteger.GreatestCommonDivisor(D, Modulus) = 1 Then
Exit While
End If
x += 1
End While
End If
Exponent = 65537
ExponentTextBox.Text = Exponent.ToString
DTextBox.Text = D.ToString
PTextBox.Text = P.ToString
QTextBox.Text = Q.ToString
ModulusTextBox.Text = Modulus.ToString
DP = BigInteger.Remainder(D, (P - 1))
DQ = BigInteger.Remainder(D, (Q - 1))
DPTextBox.Text = DP.ToString
DQTextBox.Text = DQ.ToString
MyRSAParams.P = P.ToByteArray
MyRSAParams.Q = Q.ToByteArray
MyRSAParams.Modulus = Modulus.ToByteArray
MyRSAParams.Exponent = Exponent.ToByteArray
MyRSAParams.D = D.ToByteArray
MyRSAParams.DP = DP.ToByteArray
MyRSAParams.DQ = DQ.ToByteArray
InverseQ = ModInverse(Q, P)
MyRSAParams.InverseQ = InverseQ.ToByteArray
InverseQTextBox.Text = InverseQ.ToString
MyRSACryptoServiceProvider.ImportParameters(MyRSAParams)
End Sub
Function RandomNumberGenerator(ByVal List As List(Of BigInteger)) As Integer
Dim Random As New Random
Dim RandomInteger As Integer
RandomInteger = Random.Next(0, List.Count)
Return RandomInteger
End Function
以下是一些已通过（也许）的RSA密码术（CRT）数据：
Here's some passed(maybe) RSA Cryptography (CRT) data:
P=153914086704665934422965000391185991426092731525255651046673021110334850669910978950836977558144201721900890764527
Q=153914086704665934422965000391185991426092731525255651046673021110334850669910978950836977558144201721900890636321
Modulus=23689546086131422960647270026588478931532074235789438036179382904450240366918592625898413220651954314430049636574759400990197139024354395962962505626040856607248107788273729363773001668779017561229086034747388110074639423184320
Exponent=65537
D=361468271146549627853689824474548406724935139475249676307725146168580196940943171428329237234721673473458498810973334162231977951757852754367189612372260808508905012256797371923844571292232136979554847410583153181784937107
DP=114907738137020230395758602608296812312065934785963783731504609257159521698848045807811642857696865920764862342291
DQ=108172220785463370912946395441018459268593789982044879796294602321467617099594117681241911993654301101831866315347
InverseQ=70202908196408513230673481177755980380197687014666822974402900452935518326945574435736969694613344805169792281463
我正在使用这些网站的引用
I was using reference from these websites
https://www.di-mgt.com.au/crt_rsa。 html＃PKCS1
https://www.c-sharpcorner.com/forums/modular-inverse-code
以下是错误列表：
System.Security.Cryptography.CryptographicException
HResult=0x80090005
Message=Bad Data.
Source=mscorlib
StackTrace:
at System.Security.Cryptography.CryptographicException.ThrowCryptographicException(Int32 hr)
at System.Security.Cryptography.Utils._ImportKey(SafeProvHandle hCSP, Int32 keyNumber, CspProviderFlags flags, Object cspObject, SafeKeyHandle& hKey)
at System.Security.Cryptography.RSACryptoServiceProvider.ImportParameters(RSAParameters parameters)
at RSATesting.Form1.TestBTN_Click(Object sender, EventArgs e) in C:\Users\chew\source\repos\RSATesting\Form1.vb:line 106
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at RSATesting.My.MyApplication.Main(String[] Args) in :line 81
推荐答案
MyRSAParams.P = P.ToByteArray
BigInteger的ToByteArray产生一个带符号的，低端序的值。数字65532（0xFFFC）产生字节数组 new byte [] {0xFC，0xFF，0x00} 。
BigInteger's ToByteArray produces a signed, little-endian value. The number 65532 (0xFFFC) produces the byte array new byte[] { 0xFC, 0xFF, 0x00 }.
RSAParameters值是 un 带符号的，大 -endian值。因此，将同一字节数组（我们打算为0xFFFC）解释为0xFCFF00（16,580,352）。
RSAParameters values are unsigned, big-endian values. So that same byte array (which we intended to be 0xFFFC) is interpreted as 0xFCFF00 (16,580,352).
要将带符号的Little-Endian转换为无符号的Big-Endian，您需要删除最后一个字节（如果为零），然后反转。
To turn signed little-endian into unsigned big-endian you need to remove the last byte (if it's zero), then reverse things.
我不能可靠地编写VB，所以这里有一些C＃：
I can't write VB reliably, so here's some C#:
private static byte[] ExportUnsignedBigEndian(BigInteger val)
{
byte[] export = val.ToByteArray();
if (export[export.Length - 1] == 0)
{
Array.Resize(ref export, export.Length - 1);
}
Array.Reverse(export);
return export;
}
或者，如果您要构建netcoreapp2.1或更高版本，或者netstandard2 .1或更高版本：
Or, if you're building for netcoreapp2.1 or higher, or netstandard2.1 or higher:
val.ToByteArray(isUnsigned: true, isBigEndian: true);
这篇关于运行时错误System.Security.Cryptography.CryptographicException：'错误数据。在vb.net中尝试导入RSA参数时的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
