4 caracteres, mostrar 2 en forma aleatoria

[AlZuwaga]

Mmm.. se me ocurrió algo así, pero seguramente hay una manera menos rebuscada de hacerlo

Código:

<%
randomize
aleat1 = int(rnd*4)+1
aleat2 = 0
for i = 1 to 2
	tmp = int(rnd*4)+1
	if tmp = aleat1 then
		i = 1
	else
		aleat2 = tmp
		i = 2
	end if
next

cadena = "ABCD"
for j = 1 to 4
	if j = aleat1 or j = aleat2 then
		response.write "*"
	else
		response.write mid(cadena, j, 1)
	end if
next
%>