Funcion para generar texto aleatorio ASP clásico

Funcion para generar texto aleatorio ASP clásico

Código ASP clásico

• Por Programador ASP clásico /
• 07/08/2012 @ 13:39:52  /
• 1416 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%>   

tags: email marketing, email masivo, ofuscar email

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por CoreASP. Estos recursos se comparten de buena fe con el único objetivo de servir como base de conocimiento en el desarrollo de aplicaciones en ASP Clásico. CoreASP no garantiza la precisión, vigencia ni funcionamiento de los artículos o fragmentos de código publicados, y no se hace responsable por el uso que se les dé. Se recomienda siempre revisar, adaptar y probar el código antes de implementarlo en entornos de producción.