En serio nadie sabe como solucionar el problema???
Nadie??
Nadie??
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarLo que si tienes que hacer es cifrar las cadenas.
CitarFor j = 1 To iTotalCarac
sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
Next j
dim R as integer
randomize timer
R = int(rnd*2)
For j = 1 To iTotalCarac
if R = 1 then
sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
elseif R = 0 then
sPalabra = sPalabra + Int((122 - 97 + 1) * Rnd + 97)
end if
Next j
CitarsPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd +97))