Funcion para generar texto aleatorio ASP clásico

Funcion para generar texto aleatorio ASP clásico

Código ASP clásico

Por ASP clásico / 07/08/2012 @ 13:39:52 / 1421 visitas

La siguiente función permite generar texto aleatorio:

 <%
'***P13 Random Text v1.2 by Ferruh Mavituna
'//NFO//
'	Generate random texts by select lenght and pattern
'//ARGUMENTS//
'	lenght : Lenght of string will be generate
'	rp_chars : Adds Special pattern for generate
'	lcases : Include Lowercase Characters (1=active/0=deactive)
'	ucases : Include Uppercase Characters (1=active/0=deactive)
'	exchars : Include Extra Characters (1=active/0=deactive)
'	numbers : Include Numbers(1=active/0=deactive)
'//SAMPLES// 
'	Response.Write P13_RandomPass(7,"p13studio",0,0,0,0)
'		This will generate some random texts just from p,1,3,s,t,d,i,o and this texts lenght is 7
'	Response.Write P13_RandomPass(10,"*+-",1,1,0,0)
'		This will generate some random texts just from lowercases, uppercases, and *,+,-  also this texts lenght is 10

Function P13_RandomPass(lenght,rp_chars,lcases,ucases,exchars,numbers)
Dim rp_lchars, rp_uchars, rp_,rp_ranval, rp_RndInt, rp_exchars, rp_numbers
If lenght = 0 Then lenght = 7

	rp_lchars = "abcdefghijklmnopqrstuvwxyz"
	rp_uchars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	rp_exchars = "`~!@#$%^&*()-_=+[{]}\\|;:"""'\,<.>/? "
	rp_numbers = "0123456789"

	If lcases = 1 Then rp_chars = rp_chars & rp_lchars
	If ucases = 1 Then rp_chars = rp_chars & rp_uchars
	If exchars = 1 Then rp_chars = rp_chars & rp_exchars
	If numbers = 1 Then rp_chars = rp_chars & rp_numbers
	
	If rp_chars = "" Then rp_chars = "p13studio"

	For i = 1 to lenght
		Randomize Timer
		rp_RndInt = Int(Rnd*Len(rp_chars)+1)
		rp_ranval = rp_ranval & Mid(rp_chars,rp_RndInt,1)
	Next

	P13_RandomPass = rp_ranval
End Function

Special Variable Writer%>   

Descubre más sobre cómo simplificar y optimizar tu trabajo empresarial en el Blog de CoreASP.

email marketing, email masivo, ofuscar email