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
