Funcion para generar texto aleatorio ASP clásico

Código ASP clásico

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%>

tags: email marketing, email masivo, ofuscar email