asp 下产生任意位数随机密码的代码

<%
'******************************
'函数：MakePassword(byval maxlen)
'参数：maxlen，要生成的密码位数长度
'作者：阿里西西
'日期：2007/7/12
'描述：产生任意位数随机密码
'示例：<%=MakePassword(8)%> 
'******************************
function MakePassword(byval maxlen) 
dim strnewpass 
dim whatsnext, upper, lower, intcounter 
randomize 
for intcounter = 1 to maxlen 
whatsnext = int((1 - 0 + 1) * rnd + 0) 
if whatsnext = 0 then 
'character 
upper = 90 
lower = 65 
else 
upper = 57 
lower = 48 
end if 
strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower)) 
next 
makepassword = strnewpass 
end function 
%>

赞 (0)

相关推荐

  • asp 下产生任意位数随机密码的代码

    <% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

  • asp下使用数组存放数据的代码

    asp用客户端数组存放数据,这种应用我已经见过很多.但最近在研究几套流量交换联盟系统时,这种技术才引起了我的注意. 下面我讲讲如何运用,先给出个没有结合ASP,就单纯适用javascript的例子. 1.js 复制代码 代码如下: var a = new Array();  var temp = "<table>";  a[0] = new Array(1,"阿会楠","男");   a[1] = new Array(2,"

  • asp下用replace非正则实现代码运行功能的代码

    今天更新了一下博客的代码运行功能,因为原来的写得不够完善,如果想在博客里插入多个可运行的代码,那就会--呃屁.关于replace函数,js中只是替换从起始位置的第一个指定字串,而vbs则是替换所有的指定字串,因此如果想要用vbs一个一个替换,那就得绕个弯子了,写个函数就行了,顺便,把写完的这个函数上传了,这下可以在一个日志里放多个代码运行演示了! 感冒了,写完函数就乖乖去睡觉,今天过得真是辛苦,有种快要死掉的感觉...鼻子里塞着纸团,因为鼻涕止不住地流,呜 替换函数的代码如下: function

  • ASP下检测图片木马的函数代码

    木马原理:入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件(即将对网站有害的 ASP代码插在图片编码之后,虽然图片仍然可以正常显示,但是文件内容和尺寸已被改变),然后通过网站提供的文件上传功能上传这一张"合 '法的"图片,进而实现了上传ASP木马的目的. ' 防范方法:因为这种木马是图片与木马的二合一,所以需要在上传图片前检查文件内容,若文件内容不合法(即包含有恶意代码在里面), '则禁止上传,从而堵住了木马攻击的源头,这是木马攻击的第

  • asp下实现 重新排序数字数组的代码

    <% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubou

  • asp下根据标题生成关键字的代码

    'Function CreateKeyWords(KeyWords) '关键字生成系统 Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| | |,|.|.|!|?|:|"|"|［|］|-|-|(|)|-", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," &am

  • asp下实现UrlEncoding转换编码的代码

    '================================================== '函数名:UrlEncoding '作  用:转换编码 '================================================== Function UrlEncoding(DataStr)     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8     StrReturn = ""     For Si = 

  • 详解Linux Shell 实现一个获取任意位数的随机密码的脚本

    Shell 命令行,实现一个获取任意位数的随机密码的脚本 每次我们想要获得一个密码的时候都很头疼,于是我之前自己用nodejs写了一个 Shell 脚本.这两天在学习 bash Shell 所以,想用同样的逻辑实现一个获取任意位数随机密码的脚本. 我成功了 :) 分析问题 我们假设我们需要的密码是大小写字母以及数字的组合,并且剔除掉 1,l,0,O,o 这些不便于认知的字符. 然后随机的读取其中的字符,组合成一个我们需要的密码,最后输出. 理顺了逻辑之后,我想到有下面的知识点是我之前不是很熟悉的

  • 详解Linux  Shell 实现一个获取任意位数的随机密码的脚本

    Shell 命令行,实现一个获取任意位数的随机密码的脚本 每次我们想要获得一个密码的时候都很头疼,于是我之前自己用nodejs写了一个 Shell 脚本.这两天在学习 bash Shell 所以,想用同样的逻辑实现一个获取任意位数随机密码的脚本. 我成功了 :) 分析问题 我们假设我们需要的密码是大小写字母以及数字的组合,并且剔除掉 1,l,0,O,o 这些不便于认知的字符. 然后随机的读取其中的字符,组合成一个我们需要的密码,最后输出. 理顺了逻辑之后,我想到有下面的知识点是我之前不是很熟悉的

  • asp下实现替换远程文件为本地文件并保存远程文件的代码

    1.将下面的文本文件下载,并将.TXT改为remote.asp,里面有具体设置方法 复制代码 代码如下: <%  '添加资源时是否保存远程图片 Const sSaveFileSelect=True '远程图片保存目录,结尾请不要加"/" Const sSaveFilePath="/images/News" '远程图片保存类型 Const sFileExt="jpg|gif|bmp|png" '////////////////////////

随机推荐