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

Codigo para extraer todos los link's de una pagina

Hola como están aquí les dejare el código para extraer todos los link's de una pagina...Espero que a alguien le sirva, como dije en el vídeo yo me lo encontré navegando por internet y como me pareció interesante aquí se los comparto.

este es el código que me encontré

var nodos = document.getElementsByTagName("a"); var links = ""; for(i=0;i<nodos.length;i++) {links += nodos[i].href + "<br>"}; document.getElementsByTagName("body")[0].innerHTML = links;

y por acá les dejo el código que diseñe yo

option explicit
dim l,ie,x,web,fso,f
redim imagen(0),urls(0)

set ie = createObject("InternetExplorer.Application")

web = inputbox("ingrese la direccion web")

ie.visible=true
navegar(web)
x=0

do 
   l = urls(x)
   if instr(l,web)<>0 then
     navegar(l)
   end if
   x=x+1
loop while x<=ubound(urls)

set fso = createObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("enlaces.html")

f.WriteLine("<center><h1>Los links de esta pagina son</h1>")

for x=0 to ubound(urls)
   f.WriteLine("<a href='" + urls(x) + "'>" + urls(x) + "</a><br>")
next

f.WriteLine("<h1>Las imagenes de esta pagina son</h1>") 

for x=0 to ubound(imagen)
   f.WriteLine("<a href='" + imagen(x) + "'>" + imagen(x) + "</a><br>")
next
 
f.Close 
ie.quit
msgbox "Todos Los Link's Han Sido Extraidos Con Exito",,"Terminamos" 
''======================================================================================== 
function buscar(l,op)
  dim x
  
  if op = 1 then
     for x = 0 to ubound(urls)
     if l = urls(x) or l = (urls(x) & "#") then
     buscar = false
     exit function
  end if
  next
  end if  
  
  if op = 2 then
     for x = 0 to ubound(imagen)
     if l = imagen(x) then
     buscar = false
     exit function
  end if
  next
  end if  
  buscar = true
end function
''============================================================================================
function navegar(url)
 on error resume next
   dim objlink,i,l,img
   
   ie.Navigate(url)

   while ie.busy
   wend
   
     set objlink = ie.document.getElementsByTagName("a") 
 
   for i = 0 to objlink.length   
  l = objlink(i)
     if buscar(l,1) and l <> "" then
  redim Preserve urls(ubound(urls)+1)
  urls(ubound(urls)) = l
  end if
   next

   set img = ie.document.getElementsByTagName("img")

   for i = 0 to img.length
     if img(i) <> "" then
        l = img(i).src
        if buscar(l,2) then
     redim Preserve imagen(ubound(imagen)+1)
     imagen(ubound(imagen))=l
     end if 
  end if 
   next
end function

.....:::::ACTUALIZADO:::::.....

En este nuevo código no es necesario el internet explorer

option explicit
dim web,html,url,shell,fso,op

set shell = createobject("wscript.shell")
set html  = createobject("htmlfile")
Set web   = CreateObject("MSXML2.ServerXMLHTTP")
set fso   = createobject("scripting.filesystemobject")
 
url = inputbox("Ingrese Una Direccion Web","Url Valida")
op  = inputbox("1- Presione 1 Para Extraer Solo Link's" & vbCrlf & vbCrlf & "2- Presione 2 Para Extraer Solo Imagenes")

web.open"GET",url,False 
web.send
 
html.write web.responsetext

if op = 1 then
   enlaces
elseif op = 2 then
   imagenes
else
   msgbox "Solo Presione 1 o 2",48,"Opcion no Definida"
end if

'================================================================================================='
function enlaces 
on error resume next
   dim objlink,i,log,l,f,p,u
   
   set objlink = html.getElementsByTagName("a") 
   wscript.sleep 2000
   
   if objlink.length=0 then
      msgbox "Cero Enlaces Encontrados Ya Que La Pagina No Tiene o Esta Protegida",,"Aviso"
   else
      for i = 0 to objlink.length   
         l = objlink(i)
         if instr(log,l) = 0 then
            log = log & l &  vbcrlf 
         end if
      next
   
      p = instrrev(url,"/")
      if p = len(url) then
         p = p - 1
         p = instrrev(url,"/",p)
      end if
      u = mid(url,1,p)
      log = replace(log,"about:",u)
   
      set f=fso.createtextfile("index.txt")
        f.write(log)
        f.close
  
      shell.run "index.txt"  
 end if   
end function
'================================================================================================='

function imagenes
on error resume next
   dim img,i,log,l,f,p,u
   
   set img = html.getElementsByTagName("img")
   wscript.sleep 2000

   if img.length=0 then
      msgbox "Cero Imagenes Encontradas Ya Que La Pagina No Tiene o Esta Protegida",,"Aviso"
   else
      for i = 0 to img.length
         l = img(i).src
         if instr(log,l) = 0 then
            log = log & l & vbcrlf 
         end if 
      next
   
      p = instrrev(url,"/")
      if p = len(url) then
         p = p - 1
         p = instrrev(url,"/",p)
      end if
      u = mid(url,1,p)
      log = replace(log,"about:",u)
   
      set f=fso.createtextfile("index.txt")
        f.write(log)
        f.close
  
      shell.run "index.txt"
  end if
end function

Bueno saludos Flamer y a ver a quien le sirve de algo

Descargar Todas las Imágenes De Una Pagina Web Con JavaScript

 Hace ya casi 2 años escribí como extraer los link de una pagina web basándome de un código que encontré en internet y yo acabe escribiendo 2 códigos en vbscript para extraer los links y las imágenes.

https://elblogdeflamer.blogspot.com/2019/04/codigo-para-extraer-todos-los-links-de.html

Bueno pues ahora les traigo 3 código en JavaScript el primero es el original el de extraer solo los link o URL que usa la pagina, el segundo ya hecho por mi extrae las URL de las imágenes y el ultimo descarga todas las imágenes de la pagina que queremos probar.

Para probar estos códigos será en la pagina principal de Ricardo Narvaja solo los copearemos los script y los pegaremos en la barra de direcciones del navegador, así que probaremos el primero

http://ricardonarvaja.info/

VER TODOS LOS LINK (REMPLAZAR _ POR :)

=======================================================================================================================

javascript_var nodos = document.getElementsByTagName("a");var links = "";for(i=0;i<nodos.length;i++){links += nodos[i].href + "<br><br>";}document.getElementsByTagName("body")[0].innerHTML = links;

lo copeamos y lo pegamos así

el resultado es el siguiente

ahora refrescamos la pagina de Ricardo y probaremos el siguiente código, creo que no tiene caso poner 2 imágenes una cuando lo pongo en la barra de direcciones y otra con el resultado, así que mostrare esta ultima

VER LINK DE TODAS LA IMAGENES(REMPLAZAR _ POR :)

=========================================================================

javascript_var nodos = document.getElementsByTagName("img");var links = "";for(i=0;i<nodos.length;i++){links += nodos[i].src + "<br><br>";}document.getElementsByTagName("body")[0].innerHTML = links;

y el resultado es el siguiente

Y ahora probaremos el tercer código el cual me gusta mas y creo que a ustedes también

DESCARGAR TODAS LAS IMAGENES(REMPLAZAR _ POR :)  

=========================================================================

javascript_var nodo_link = document.getElementsByTagName("a");var nodo_img  = document.getElementsByTagName("img");var url = "";var largo=0;for(i=0;i<nodo_img.length;i++){url = nodo_img[i].src;nodo_link[0].href = url;largo = url.lastIndexOf("/");nodo_link[0].download=url.substr(largo-1);nodo_link[0].click();}

al ejecutarlo aparecerá la siguiente imagen 

así que damos clic en permitir ya que nos pide permiso de descargar varios archivos de la misma pagina, las cuales son las imágenes no se asusten y el resultado será el siguiente

por ultimo les dejo los 3 códigos ya entendibles

CODIGO 1

var nodos = document.getElementsByTagName("a");

var links = "";

for(i=0;i<nodos.length;i++)

{

links += nodos[i].href + "<br><br>";

}

document.getElementsByTagName("body")[0].innerHTML = links;

CODIGO 2

var nodos = document.getElementsByTagName("img");

var links = "";

for(i=0;i<nodos.length;i++)

{

links += nodos[i].src + "<br><br>";

}

document.getElementsByTagName("body")[0].innerHTML = links;

CODIGO 3

var nodo_link = document.getElementsByTagName("a");

var nodo_img  = document.getElementsByTagName("img");

var url = "";

var largo=0;

for(i=0;i<nodo_img.length;i++)

{

url = nodo_img[i].src;

nodo_link[0].href = url;

largo = url.lastIndexOf("/");

nodo_link[0].download=url.substr(largo-1);

nodo_link[0].click();

}

Bueno creo que eso es todo espero se diviertan con estos códigos simples ya que esto lo hago por diversión jajajaja  saludos Flamer

Convertir a base64 en javascript

 Hoy veremos como convertir texto a base64 pero diran que es la base64, pues la base64 es un sistema de numeracion posicional que usa 64 digitos como base, la codificacion es muy simple no es como un hash y no se recomienda para codificar cosas de alto valor, esta usa 64 caracteres ascii y son los siguientes:

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/

El símbolo '=' se usa como un sufijo especial

bueno como dije usaremos javascript ya que nos proporciona 2 comandos para realizar esta accion que son los comandos  btoa y atob  

btoa este comando convierte una cadena de texto a base64, asi que no iremos a la consola de google chrome y tecleamos lo siguiente

t="flamer es un crack"

c=btoa(t)

alert(c)

el resultado sera un mensaje de texto con el siguiente codigo: 

ahora para revertirlo usaremos el comando atob tecleamos lo siguiente en nuestra consola

c="ZmxhbWVyIGVzIHVuIGNyYWNr"

t=atob(c)

alert(t)

y obtenemos el siguiente resultado

como ven es muy sensillo, esta codificacion se puede usar para codificar archivos e imagenes o url por si lo deseas pero como vieron es muy facil de revertir no es como un hash de seguro.

bueno saludos Flamer

Codigo Metodo de la burbuja en javascript y html

 Hoy veremos el metodo de la burbuja escrito en html y javascript lo esplicare lo mas sensillo posible, el metodo de la burbuja consiste en intercambiar los valores de 2 variables, asi que primero creamos el siguiente formulario en html

el codigo para crear el formulario es el siguiente

<html>

<head><title>Metodo de la Burbuja</title>

</head>

<body>

<center>

<br><br><br><br>

Numero 1:<input type="text" id="num1" value="5"><br><br>

Numero 1:<input type="text" id="num2" value="4"><br><br>

<input type="button" value="Cambiar 1" onclick="burbuja1()"><input type="button" value="Cambiar 2" onclick="burbuja2()">

<br>

</center>

</body>

</html>

 

yo para el ejemplo al cuadro de texto1 y texto2 les asigne valores el 5 y 4, asi que la mision aqui es hacer que el cuadro de texto1 sea igual al cuadro de texto 2 y el 2 al cuadro de texto 1, hay 2 formas de hacerlo la mas facil es usando una variable axiliar y la otra la mas dificil es sin usar la variable, asi que para cada diferente metodo usaremos una funcion para eso agregamos la etiqueta <script> y agregamos la primera funcion

function burbuja1()//metodo con variable

{

   var nv;

   var n1 = document.getElementById("num1").value;

   var n2 = document.getElementById("num2").value;

   

   nv=n1;

   n1=n2;

   n2=nv;

   

   document.getElementById("num1").value=n1;

   document.getElementById("num2").value=n2;

   

}

si se fijan uso una variable nv para intercambiar los valores, a nv le paso el valor de n1 y linea siguiente digo que n1 sea igual a n2 despues de esto n2 sera igual a nv que es la variable auxiliar.

ahora veremos la funcion sin variable axiliar

function burbuja2()//metodo sin variable

{

   var n1 = parseInt(document.getElementById("num1").value);

   var n2 = parseInt(document.getElementById("num2").value);

   

   n1=n1-n2

   n2=n1+n2

   n1=n2-n1

   

   document.getElementById("num1").value=n1;

   document.getElementById("num2").value=n2;

}

como ven tomo los valores de n1 y n2 y realiso las siguientes operaciones aritmeticas de suma y resta y obtenemos el mismo resultado.

Ahora les dejo el codigo completo

<html>

<head><title>Metodo de la Burbuja</title>

</head>

<body>

<center>

<br><br><br><br>

Numero 1:<input type="text" id="num1" value="5"><br><br>

Numero 1:<input type="text" id="num2" value="4"><br><br>

<input type="button" value="Cambiar 1" onclick="burbuja1()"><input type="button" value="Cambiar 2" onclick="burbuja2()">

<br>

</center>

<script>

function burbuja1()//metodo con variable

{

   var nv;

   var n1 = document.getElementById("num1").value;

   var n2 = document.getElementById("num2").value;

   

   nv=n1;

   n1=n2;

   n2=nv;

   

   document.getElementById("num1").value=n1;

   document.getElementById("num2").value=n2;

   

}

function burbuja2()//metodo sin variable

{

   var n1 = parseInt(document.getElementById("num1").value);

   var n2 = parseInt(document.getElementById("num2").value);

   

   n1=n1-n2

   n2=n1+n2

   n1=n2-n1

   

   document.getElementById("num1").value=n1;

   document.getElementById("num2").value=n2;

}

</script>

</body>

</html>

bueno creo que eso es todo espero sea de utilidad para alguien saludos Flamer

Comprimir Archivos En Formato Zip Con Javascript y Html

Este tema es similar al que escribí tiempo atrás este

https://elblogdeflamer.blogspot.com/2019/08/codigo-crear-un-archivo-zip-usando.html

pero ahora será un poco mas grafico para eso solo ocuparemos en el bloc de notas y el siguiente código

<html>

<head><title>Compresor de archivos Zip</title>

</head>

<body>

<marquee>Compresor de archivos Zip</marquee>

<center>

<br><br><br><br><br>

Archivo a Comprimir:<input type="file" size="70" id="ruta1"><br><br>

Nombre Del archivo Comprimido:<input type="text" id="ruta2" style="text-align:center;"><br><br>

<input type="button" value="COMPRIMIR" onclick="compress()">

<script>

function compress()

{

   var fso = new ActiveXObject("Scripting.filesystemobject");

   var app = new ActiveXObject("shell.application");

   var path1 = document.getElementById("ruta1").value;

   var path2 = document.getElementById("ruta2").value;

   

   if(path1=="" || path2=="")

   {

      alert("Se Encontraron campos vacios");

   }

   else

   {

       path2+=".zip";

       var bin = "PK" + String.fromCharCode(5) + String.fromCharCode(6) + Array(19).join(String.fromCharCode(0)); 

       var file = fso.createtextfile(path2);

       file.write(bin);

       file.close();

       app.namespace(path2).copyhere(path1);

       alert("Listo Archivo Comprimido Con Exito");

   }

}

</script>

</center>

</body>

</html>

después le ponemos cualquier nombre y lo aguardamos con la extensión .hta

nos quedara un formulario como este

bueno saludos Flamer

 

Creando Archivo Que Cambia De Nombre En Jscript

Ahora crearemos un pequeño programa en Jscript el cual cambiara de nombre al ejecutarlo, bueno empecemos  declarando las siguientes variables

var fso,nom="",x;

Después pasaremos a crear un objeto "Scripting.FileSystemObject"

fso = new ActiveXObject("Scripting.FileSystemObject");

En la siguiente línea pasaremos a leer el nombre de nuestro archivo JS con el comando GetFile y usaremos el objeto global  Wscript con la canción ScriptFullName para obtener el nombre de nuestro script y será referenciado con la variable f

También inicializaremos la variable nom

f=fso.GetFile(WScript.ScriptFullName);

nom="";

En la siguiente línea  usaremos el comando Math.random() para obtener un numero aleatorio del 5 al 50 y pasarlo a entero con el comando parseInt y aguardarlo en la variable l

l = parseInt((50-5)*Math.random()+5);

Después pasaremos a crear un ciclo el for el cual usaremos para crear el nombre aleatorio

for(x=0;x<l;x++)

{

Dentro de este ciclo se encuentra la primera línea, donde obtendremos  un numero aleatoria del 1 al 3, donde será aguardado en la variable ran1 

ran1=parseInt((3-1)*Math.random()+1);

Donde la variable ran1 pasara por una función switch para elegir si el nuevo nombre llevara números, mayúsculas o minúsculas

switch (ran1)

 {

En el primer case de la función switch preguntara si ran1 es igual a 1 y si es así  generara un numero aleatorio del 97 al 122 donde después será convertido a carácter con la función String.fromCharCode  la cual arrojara un letra minúscula donde será almacenada en la variable nom.

case 1:

nom= nom + String.fromCharCode(parseInt((122-97)*Math.random() + 97));

break;

Después las siguientes líneas que es el case 2 haremos lo mismo pero esta ves obtendremos letras mayúsculas y case 3 dígitos numéricos.

case 2:

   nom= nom + String.fromCharCode(parseInt((90-65)*Math.random() + 65));

   break;

case 3:

   nom= nom + String.fromCharCode(parseInt((57-48)*Math.random() + 48));

   break;

  }

}

En la ultima línea renombraremos el archivo con el método name

f.name=nom + ".js";

Ahora el código completo

var fso,nom,x,l,ran1;

fso = new ActiveXObject("Scripting.FileSystemObject");

f=fso.GetFile(WScript.ScriptFullName);

nom="";

l = parseInt((50-5)*Math.random()+5);

for(x=0;x<l;x++)

{

ran1=parseInt((3-1)*Math.random()+1);

switch (ran1)

    {

case 1:

   nom= nom + String.fromCharCode(parseInt((122-97)*Math.random() + 97));

   break;

case 2:

   nom= nom + String.fromCharCode(parseInt((90-65)*Math.random() + 65));

   break;

case 3:

nom= nom + String.fromCharCode(parseInt((57-48)*Math.random() + 48));

break;

}

}

f.name=nom + ".js";

Lo pueden copiar y pegar en el bloc de nostas y guardarlo con la extencion .js por si lo quieren probar

Saludos Flamer