[原创]RSA公钥密码的破解

ysr

Private Sub Command1_Click()

Dim n, i, s
n = Trim(Text1)
s = Trim(Text2)
i = MbC(Trim(s), 3)

Do While MBJC(Trim(s), zhengchuqyushu(MCC1(Trim(n), Trim(i)))) < 0 And MBJC(zzxc(Trim(n), Trim(i)), 1) = 0

r = zhengchuqyushu(MCC1(Trim(n), Trim(i)))
i = r
Loop
If MBJC(zzxc(Trim(n), Trim(i)), 1) = 0 Then

Text3 = "wu  jie"
Else
p = zzxc(Trim(n), Trim(i))
Text3 = p
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

ysr

6958000001674999998647=71000000041*97999999967

ysr

解四次方程的代码如下：


Private Sub Command1_Click()
Dim a, b, c, d, f, g
Dim ja, jb, jc
k = DeleteSpace(Text1.Text)
ja = DeleteSpace(Text2.Text)
jb = DeleteSpace(Text3.Text)
jc = DeleteSpace(Text4.Text)
jd = DeleteSpace(Text5.Text)
sd1 = DeleteSpace(Text15.Text)
If Abs(Val(sd1)) <= 10 Then
sd = 10 + 2
Else
If Len(sd1) > 3 And Abs(Val(sd1)) > 300 Then
sd = 300 + 2
Else
sd = Int(Abs(Val(sd1))) + 2
End If
End If

a2 = zhengliys2(Trim(ja), Val(sd))
b2 = zhengliys2(Trim(jb), Val(sd))

c2 = zhengliys2(Trim(jc), Val(sd))
D2 = zhengliys2(Trim(jd), Val(sd))
k2 = zhengliys2(Trim(k), Val(sd))
If MBJC(Trim(k2), 0) = 0 Then
Text4.Text = "a 不能为 0"
   Text5.Text = "a 为 0可能已不是1元4次方程"
  Else
   
a3 = mcc2(Trim(a2), Trim(k2), Val(sd))
b3 = mcc2(Trim(b2), Trim(k2), Val(sd))
c3 = mcc2(Trim(c2), Trim(k2), Val(sd))
d3 = mcc2(Trim(D2), Trim(k2), Val(sd))
jk = 8 & String(sd, "0")
ja1 = mbc2("-4" & String(sd, "0"), Trim(b3), Val(sd))
jb1 = mpc2(mbc2(2 & String(sd, "0"), mbc2(Trim(a3), Trim(c3), Val(sd)), Val(sd)), mbc2(8 & String(sd, "0"), Trim(d3), Val(sd)))
jc1 = mpc2(mbc2(Trim(d3), mpc2(mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), Val(sd)), mbc2(Trim(c3), Trim(c3), Val(sd)))
y = jie3cifc(Trim(ja1), Trim(jb1), Trim(jc1), Trim(jk), Val(sd))
Y1 = zhengliys2(Trim(y), Val(sd))
End If
Text6 = zhengliys2(Trim(y), Val(sd))
Text8 = y
za = 1 & String(sd, "0")
z2 = mpc2(mpc3(mbc2(8 & String(sd, "0"), Trim(Y1), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)))
z2 = mbbc2(qdfh(Trim(z2)), Val(sd))

zb1 = mcc2(mpc3(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zb2 = mcc2(mpc2(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zc1 = mpc3(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
zc2 = mpc2(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
y3 = jie2cifc(Trim(za), Trim(zb1), Trim(zc1), Val(sd))
y4 = jie2cifc(Trim(za), Trim(zb2), Trim(zc2), Val(sd))
Text9 = y3
Text10 = y4

Text15.Text = Text15.Text & "  输入" & ":  " & "a=" & k & ",  b=" & ja & ",  c=" & jb & ",  d=" & jc _
  & "，e=" & jd & ";  输出结果" & ":    " & "x1,2=" & Text9.Text & ",  x3,4=" & Text10.Text
End Sub

ysr

Private Sub Command1_Click()
Dim M, P, B, c, d
M = DeleteSpace(Trim(Text1.Text))
P = DeleteSpace(Trim(Text2.Text))
jd = zhengchuqy(MCC1(Trim(M), 4))
sd = 22
a2 = zhengliys2(Trim(M), Val(sd))
b2 = zhengliys2(Trim(P), Val(sd))
q = mcc2(Trim(a2), Trim(b2), Val(sd))
q1 = zhengliys2(1, Val(sd))
q2 = MPC(Trim(q), Trim(q1))
p2 = MPC(Trim(b2), Trim(q1))
a = mcc2(Trim(q2), Trim(p2), Val(sd))
n = MCC1(MPC(Trim(P), 1), 2)
n1 = MPC1(MbC(Trim(n), 2), 1)
n2 = MPC1(MbC(Trim(n), 4), 1)
n = zhengliys2(Trim(n), Val(sd))
n1 = zhengliys2(Trim(n1), Val(sd))
n2 = zhengliys2(Trim(n2), Val(sd))
B = MPC1(mbc2(mbc2(Trim(n), Trim(a), Val(sd)), 2 & String(Val(sd), "0"), Val(sd)), mbc2(Trim(n2), Trim(a), Val(sd)))
c = MPC1(mbc2(mbc2(Trim(n), 2 & String(Val(sd), "0"), Val(sd)), mbc2(Trim(n2), Trim(a), Val(sd)), Val(sd)), mbc2(mbc2(Trim(n), Trim(n1), Val(sd)), Trim(a), Val(sd)))
c = mpc2(Trim(c), mbc2(mbc2(Trim(n), Trim(n), Val(sd)), Trim(a), Val(sd)))
n3 = mbc2(Trim(n), Trim(n), Val(sd))
n4 = mbc2(Trim(n3), Trim(n), Val(sd))
d = mpc2(mbc2(mbc2(Trim(n3), 2 & String(Val(sd), "0"), Val(sd)), mbc2(Trim(n1), Trim(a), Val(sd)), Val(sd)), mbc2(mbc2(Trim(n3), Trim(n2), Val(sd)), Trim(a), Val(sd)))
e = mpc2(mbc2(mbc2(Trim(jd), Trim(n3), Val(sd)), 2 & String(Val(sd), "0"), Val(sd)), mbc2(mbc2(Trim(n1), Trim(a), Val(sd)), Trim(n4), Val(sd)))
a1 = shuchujg(Trim(a), Val(sd))
B1 = shuchujg(Trim(B), Val(sd))
C1 = shuchujg(Trim(c), Val(sd))
D1 = shuchujg(Trim(d), Val(sd))
e1 = shuchujg(Trim(e), Val(sd))

Text3 = a1
Text4 = B1
Text5 = C1
Text6 = D1
Text7 = e1
Text15 = "输入M=" & M & " p=" & P & " 输出：" & " a=" & a1 & " b=" & B1 & " c=" & C1 & " d=" & D1 & " e=" & e1

End Sub