23/02/2005, 14:00
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
De manera aleatoria:
Código:
<%
Function MayMinAleatorias(Txt)
For i = 0 To Len(Txt)
Randomize
MayMin = int(rnd*2)
Letra = Mid(Txt, i + 1, 1)
If MayMin = 0 Then Letra = LCase(Letra)
If MayMin = 1 Then Letra = UCase(Letra)
MayMinAleatorias = MayMinAleatorias & Letra
Next
End Function
Response.Write MayMinAleatorias("hola, veamos como sale esto.. no le veo el sentido, pero en fin jajaja")
%>
El resultado es más o menos lo que se ve en un sitio cuando es "jaqueado" por algún lammer 
__________________
...___... |