差定理的重要应用

ysr

这么重要的文章没有人浏览，知识点也不高，容易明白，也不看，可见当今社会对科学知识尤其基础理论何等不重视？这已经是普遍现象，尤其中科院，不具有科学精神，不配科学二字！
民科弄出来的许多基本定理，是非常重要的，不仅在理论上重要，实际中也是有重要用途的，可惜没有人重视，根本不予以关注，更别说评审承认和推广普及！
其实差定理比和定理(就是哥德巴赫猜想)重要得多，有用的多。
差定理：任意两个奇素数的差(包括自身相减)可以表示全体偶数。且差为2，4，6，……，2n的素数对都有无穷多。
差定理的证明：
比如如下数列：
2n+1：3，5，7，……
2n+2m+1：3+2m，5+2m，7+2m，……
对应项差为2m，可以严格证明（我可以用多种方法证明，比如用欧几里得反证法）这两个数列中含有无穷多对素数对，而2m为全体偶数，m可以等于0，这就是差定理。2m就是所有，就是全体偶数。
从而由差定理推导和证明和定理（就是哥德巴赫猜想）：任意两个素数的和可以表示大于等于4的全体偶数。
证明：设p3>=p2>=p1>=3，由差定理知p2-p1=0，2，4，……，则有p2=p1+0，2，4，……（等式含义不解释）。由于p1，p2，p3各自集合无区别，则有p2+p3=2p1+0，2，4，……，又因为2p1>=6，4=2+2.故，命题成立。

证毕！
这样，这个定理就把小素数和巨大的素数建立了关连性，小的素数非常容易找到，而大素数很难找，如何快速得到呢？而且，我实际用到的大素数是具有密码学特征的，就是其中的数字排列不规则，且其中用到的数字字码比较全，这样的素数才是具有密码学特征的。
由于差为2，4，6，……，2n的素数对都有无穷多，n为任意值，就是该偶数没有任何限制条件，这样就方便了，通过小素数与巨大素数的差值的关连性找到需要的大素数。
任意位的具有密码学特征的偶数容易找到，一个小素数加上该偶数就是巨大的具有密码学特征的大素数。这样，找到大素数的概率就增加了，对密码的方便性和加强保密性都有重要作用。

ysr

400与800之间的素数打头有2组2生素数对:
/739/618970019642690137449562853
/787/618970019642690137449562901
这里产生了两个大素数，是具有密码学特征的素数。一组素数的差为618970019642690137449562114，是梅森素数加3变成的，梅森素数2^89-1=618970019642690137449562111,是27位的素数，除以6余数为1.
下面发一下代码：（仅发主程序）

ysr

代码如下：
Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
Q = Val(Text2)
m = Sqr(Q)
t = Trim(Text4)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
a2 = a
Do While a2 <= m
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2
b2 = MPC1(Trim(B1), Trim(t))

c1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Trim(b2))

If InStr(c1, "*") = 0 And InStr(C2, "*") = 0 Then
s = s + 1
Print B1, b2
Text3 = Text3 & "/" & B1 & "/" & b2 & vbCrLf
Else
s = s
End If
a2 = a2 + 2

Loop
a2 = a2
s1 = s
Do While a2 <= Q
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2
b2 = MPC1(Trim(B1), Trim(t))

c1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Trim(b2))

If InStr(c1, "*") = 0 And InStr(C2, "*") = 0 Then
s1 = s1 + 1
Print B1, b2
Text3 = Text3 & "/" & B1 & "/" & b2 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & Q & "之间有" & s1 & "组2生素数对:" & vbCrLf & Text3

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Form1.Cls
End Sub

ysr

有了这些知识，有了这些定理，我们几乎随便划拉一下就可以得到我们需要的有密码学特征的，任意位数的巨大素数，则使我们的加密体制保密性更强！

ysr

差定理的一个重要应用就是方便快速的找到具有密码学特征的大素数，这样就可以使目前密码体制更安全些。
比如2#楼的两个素数就是具有密码特征的，就是通过前面的程序计算的，很快就得到了结果。
这个容易明白吧。

wangyangke

不懂装懂、乱弹琴、语无伦次、胡闹，，，不过，这——不懂装懂、乱弹琴、语无伦次、胡闹，，，——也不好怪你。在论坛上，涉及哥德巴赫问题论证，都是胡闹；你，差就差在，不说论证，连述说都是胡闹哟，，，

ysr

拒绝瞎扯淡！你认为我胡说八道，你可以反驳，前面的素数就是事实和证据！这样的素数是无穷多的，你的眼瞎了？是谁胡说八道了？

wangyangke

那好；你不是不懂装懂、乱弹琴、语无伦次、胡闹，，，如何？

ysr

拒绝瞎扯淡！啥是不懂装懂？这是正常的讨论吗？不许放屁！

wangyangke

不懂装懂、乱弹琴、语无伦次、胡闹，，，显而易见啊