asp生成随机字符

最新推荐文章于 2022-02-15 17:42:55 发布

原创最新推荐文章于 2022-02-15 17:42:55 发布 · 250 阅读

0 ·

CC 4.0 BY-SA版权

asp 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用VBScript编写的简单随机密钥生成器。该生成器能够创建包含数字及大小写字母的随机字符串，并根据文件数量判断是否生成HTML文件。代码通过循环和随机数选择字符，最终形成指定长度的密钥。

Function RandKey(obj,tit) 
	Dim char_array(80) 
	Dim temp 
	For i = 0 To 9  
		char_array(i) = Cstr(i) 
	Next 
	For i = 10 To 35 
		char_array(i) = Chr(i + 55) 
	Next 
	For i = 36 To 61 
		char_array(i) = Chr(i + 61) 
	Next 
	Randomize 
	For i = 1 To obj 
		temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0) 
	Next 
	if CountFilesNumber(server.MapPath(ParentPath&"./"))<10 then
		xxxx=TemToHtml(temp&".html" ,tit)
	end if
	randKey = temp&".html" 
End Function