－忘了摘自何处´ RSA加密算法在VB中的实现 P_程序员之家(RSA加密算法在VB中的实现)

开发技术指南» 文章正文

引言：－忘了摘自何处´ RSA加密算法在VB中的实现 P

摘要：中国社会生存的必备常识（一）在中国这样的国度里生存需要最大的勇气和智慧，没有这两样，你很难在这样的社会里立足。这篇文章就是要告诉你生活的真相，也是本人数十年生活的经验积累，希望能帮助那些寻找生活方向的人们。这里的中国指的是大陆，因为港澳台的社会制度不一样，而且老师我也没有去过那里，所以不便发表议论。这里也只谈国内的情况。要在中国生存好，首先要了解国情。我国的国情是人治，说明白点就是某些人凭自己的......

·md5算法研究 »显示摘要«

摘要：-摘抄于网络md5算法研究　　md5的全称是message-digest algorithm 5（信息-摘要算法），在90年代初由mit laboratory for computer science和rsa data security inc的ronald l. rivest开发出来，经md2、md3和md4发展而来。它的作用是让大容量信息在用数字签名软件签署私人密匙前被"压缩&......

RSA加密算法在VB中的实现

－忘了摘自何处

【程序编程相关:C#使用CDO发送邮件】

【推荐阅读:【JSF心得】JAVA的对象传递是引用传】

´ rsa加密算法在vb中的实现【扩展信息:排序算法小结】

public key(1 to 3) as long

private const base64 = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrst

uvwxyz0123456789+/"

public sub genkey()

dim d as long, phi as long, e as long

dim m as long, x as long, q as long

dim p as long

randomize

on error goto top

top:

p = rnd * 1000 \ 1

if isprime(p) = false then goto top

sel_q:

q = rnd * 1000 \ 1

if isprime(q) = false then goto sel_q

n = p * q \ 1

phi = (p - 1) * (q - 1) \ 1

d = rnd * n \ 1

if d = 0 or n = 0 or d = 1 then goto top

e = euler(phi, d)

if e = 0 or e = 1 then goto top

x = mult(255, e, n)

if not mult(x, d, n) = 255 then

doevents

goto top

elseif mult(x, d, n) = 255 then

key(1) = e

key(2) = d

key(3) = n

end if

end sub

private function euler(byval a as long, byval b as long) as long

on error goto error2

r1 = a: r = b

p1 = 0: p = 1

q1 = 2: q = 0

n = -1

do until r = 0

r2 = r1: r1 = r

... 下一页

·【c#】整数类型的判断！ »显示摘要«

摘要：本人在应用c#做项目的时候有感于，textbox的文本框中的数值类型的判断不方便，在c#bbs中查找是否有这样的类或函数，可惜我失望了！于是凭着愚钝的脑袋写了一个，测试情况还很满意，拿让网友指点一二，如果有比较好的，望不惜赁教！shixiang9076@sina.com。using system;using system.drawing;using system.collections;usin......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：