Codigo De El Reto 4 y 5 De JavaScript De La Pagina Rogerfm.net

Hola amigos aquí están los códigos del reto 4 y 5 de javascript de la pagina http://rogerfm.net/ , están en vbscript



CÓDIGO RETO 4

option explicit
randomize
dim res,cont,pass,digi,x,shell

Set shell  = CreateObject("wscript.shell")

cont= 2
while not(res=2936)
   x=cint((3 - 1 + 1)*rnd + 1)
   select case x
      case 1
      digi=cint((90-65+1)*rnd+65)
      case 2
         digi=cint((57-48+1)*rnd+48)
   case 3
        digi=cint((122-97+1)*rnd+97)
   end select
   
   res = res + (digi * cont)
   pass = pass & chr(digi)
   cont=cont + 1 
   if res>2936 then
      res=0
   cont=2
   pass=""
   end if
wend
shell.run "cmd /c echo listo la clave es  =        " & pass & "&echo.&echo.&pause"

CÓDIGO DEL RETO 5

option explicit
dim suma,pass,digi,shell,cadena,x,s

Set shell  = CreateObject("wscript.shell")

cadena = "abcdefghijklmnopqrstuvwxyz"
suma= 6030912063
s=""

while suma > 1
   for x=1 to len(cadena)
      digi=mid(cadena,x,1)
      s=cstr((suma - x) / 26)
  
      if instr(s,".")=0 then
      pass=digi & pass
      suma=(suma - x) / 26
         exit for   
      end if
   next
wend  

shell.run "cmd /c echo listo la clave es  =        " & pass  & "&echo.&echo.&pause"

Link del vídeo: https://www.youtube.com/watch?v=KGqQ69EBFuA&t=323s

Saludos Flamer y hasta la próxima