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

实验二 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