rsa公钥和私钥产生加密解密.doc

实验二 RSA算法 公钥和私钥的产生 1．界面—如图1-1 所示 图1-1 2．代码如下 p,q 为两个素数，n为pq的乘积,t为P-1和q-1的乘积，e是得到任意一个比 t小的质数,d 是满足d* e Mod t = 1的数 Private Sub Command1_Click() Dim i As Integer, j As Integer, f As Integer, X As Integer, e1 As String, d1 As String, n1 As String, n As Integer, p As Integer, q As Integer, e As Integer, d As Integer, t As Integer p = Val(C1.Text) q = Val(C2.Text) n = p * q t = (p - 1) * (q - 1) f = 1 For i = 3 To t - 1 f = 1 For j = 2 To i - 1 If (i Mod j = 0) Then f = 0 End If Next j If (f = 1 And t Mod i 0) Then e = i Exit For End If Next i For X = 1 To t If (X * e Mod t = 1) Then d = X Exit For End If Next X n1 = n e1 = e d1 = d Text3.Text = e1 + , + n1 Text4.Text = d1 + , + n1 n1 = n End Sub Rsa对单个字母加密 1．界面—如图1-2 所示 图1-2 2．代码如下 e,n 是一组公钥对其加密 mw 是c3的text，c由mw ^ e Mod n得到 Private Sub Command2_Click() Dim mw As Long, c As Long, e As Long, n As Long e = Val(Text1.Text) n = Val(Text5.Text) mw = Asc(c3.Text) - 64 c = mw ^ e Mod n Text2.Text = c End Sub Rsa对单个字母解密 1．界面—如图1-3 所示 图1-3 2．代码如下 d,n 是一组私钥对其解密，c是密文 得到明文chr(（c ^ d Mod n）+64) Private Sub Command3_Click() Dim jm As Long, c As Long, d As Long, n As Long d = Val(Text7.Text) n = Val(Text8.Text) c = Val(Text6.Text) jm = c ^ d Mod n Text9.Text = Chr(jm + 64) End Sub 名称C2 名称C1 名称text3 名称text4 名称Command1 名称C3 名称text1 名称text5 名称text2 名称 text6 名称 text7 名称 text8 名称 text9