怎么随机生成56位包括大写字母和数字的串？ - ASP技术论坛

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 怎么随机生成56位包括大写字母和数字的串？

标题：怎么随机生成56位包括大写字母和数字的串？

只看楼主

suyongtao

等　级：版主
威　望：33
帖　子：8674
专家分：127
注　册：2004-11-6

第 11 楼

得分:0

牛..

面朝大海，春暖花开！

2005-04-22 14:05

belin2000

等　级：论坛游侠
威　望：5
帖　子：975
专家分：194
注　册：2004-6-2

第 12 楼

得分:0

有什么意见可以说啊。。大家交流一下。。。

59ita点com(我就爱TA)

2005-04-22 14:10

hxfly

等　级：贵宾
威　望：17
帖　子：5807
专家分：108
注　册：2005-4-7

第 13 楼

得分:0

Z-a应该是一个集合
可是怎么把数字也加进去呢?
想不出来

2005-04-24 13:16

belin2000

等　级：论坛游侠
威　望：5
帖　子：975
专家分：194
注　册：2004-6-2

第 14 楼

得分:0

期待最简单的方法

59ita点com(我就爱TA)

2005-04-24 18:15

regedit

等　级：贵宾
威　望：19
帖　子：950
专家分：0
注　册：2004-6-8

第 15 楼

得分:0

我的想法是用MD5

<%
randomize timer
dim rnd1,rnd2,rndnum
rnd1=clng(999999999*Rnd)
rnd2=clng(999999999*Rnd)
rndnum=left(md5(rnd1,32),28)&left(md5(rnd2,32),28) '各取前28位
response.write "随机数为:"&rnd1&"|"&rnd2&" "
response.write "MD5加密后:"&md5(rnd1,32)&"|"&md5(rnd2,32)&" "
response.write "得到所要的56位随机码:"&rndnum&" "
%>

呵呵,还算是简单的吧~~

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

2005-04-25 13:39

regedit

等　级：贵宾
威　望：19
帖　子：950
专家分：0
注　册：2004-6-8

第 16 楼

得分:0

还有一种就是和大家想得差不多的:
dim arr,arrstr,rndnum,rndstr
arrstr="0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z" '共36个
arr=split(arrstr,"|")
randomize timer
Do While len(rndstr)<56 '直到字符为56位
 rndnum=Cstr(Cint(35*Rnd)) '随机抽取数组中的一位符号
 rndstr=rndstr&arr(rndnum)
loop
response.write rndstr&" "
response.write "长度为:"&len(rndstr)

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

2005-04-25 13:48

belin2000

等　级：论坛游侠
威　望：5
帖　子：975
专家分：194
注　册：2004-6-2

第 17 楼

得分:0

以下是引用regedit在2005-4-25 13:48:23的发言： 还有一种就是和大家想得差不多的: dim arr,arrstr,rndnum,rndstr arrstr="0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z" '共36个 arr=split(arrstr,"|") randomize timer Do While len(rndstr)<56 '直到字符为56位 rndnum=Cstr(Cint(35*Rnd)) '随机抽取数组中的一位符号 rndstr=rndstr&arr(rndnum) loop response.write rndstr&" " response.write "长度为:"&len(rndstr)

不是和我的一样吗？？

59ita点com(我就爱TA)

2005-04-28 09:34

surnfu

等　级：新手上路
帖　子：102
专家分：0
注　册：2005-3-21

第 18 楼

得分:0

Randomize Const cAmount = 87 ' 文字数量 Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”：。，？！·#￥%……—*（）——+*；‘〈〉/、=" ' 随机产生字符 Dim vCode(), vCodes redim vCode(int(forrndnb)) For i = 0 To int(forrndnb) vCode(i) = Int(Rnd * cAmount) vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1) Next 另外推荐好东东 http://030313.org/books/Article/2005/04/1209.html

http://

2005-04-28 21:04

luckinlin

等　级：新手上路
帖　子：14
专家分：0
注　册：2007-4-16

第 19 楼

得分:0

我是想可不可以把字母用ACII码,不知道这想法对不对

学编程不是一朝一夕的事,要有恒心!

2007-06-10 21:56

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-16256-1-1.html