sábado, 1 de mayo de 2021

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

 

viernes, 16 de abril de 2021

Resolviendo El Crackme 1 De skirby[ PARTE1 - Pescando el Serial ]

Hola amigos hoy veremos como resolver el crackme 1 de Skirby el cual lo podremos encontrar en la pagina de https://crackmes.one/  y nos dice que es nivel 4, yo nunca he resuelto un nivel 4 y al parecer tiene 1 solución 

ACLARO : No soy de los que buscan solución así que no me leí esta solución para resolver este crackme, otra cosa aquí en este tutorial solo veremos como pescar un serial para nuestro Nick, el keygen quedara pendiente.






También podremos encontrarlo en la pagina de  Beatrix2004 así que yo decido descargarlo de esta   pagina lo descargamos desde aquí





ya descargado lo analizaremos con el PEiD v0.95 y nos dice que es un ejecutable de 32 bits hecho en C++ y no esta protegido



después de eso lo abriremos con el x64dbg y vemos que se detiene en la librería "ntdll.dll" ya que es un ejecutable de 32 bits



así que presionamos el botón F9 para posicionarnos en el main del programa, de nuevo presionamos F9 hasta ejecutar el crackme y vemos que se cierra, eso es normal ya que tiene protección antidebug, para eso bajaremos el plugins ScyllaHide lo podrán descargar de

 https://github.com/x64dbg/ScyllaHide/releases


una ves descargado e instalado al ejecutar el crackme nos mostrara el siguiente formulario





Así que ingresamos como nombre "Flamer" y como serial "5555555555555555555555555" y damos clic al botón valídate y al darle no nos muestra nada,



 así que revisaremos las string del crackme dando clic en el siguiente botón




después de eso en la siguiente ventana observamos las siguiente string o cadena de texto donde una de ellas me llamo la atención



así que daremos doble clic en esa cadena y nos dirige a la siguiente zona que es la dirección  0040148D 



así que vemos que la primera parte del serial contiene 10 dígitos así que pondremos un guion " - " para ver si funciona y al parecer si funciona separa el serial en partes y revisamos de nuevo y nos muestra lo siguiente




Ahora lo que hare es copiar ese serial 1035649161 y escribirlo en el crackme ya que al parecer hay algunos caracteres que cambian, solo es cuestión de escribirlo y corregir lo que cambian por fuerza bruta, si fuerza bruta escribiré A luego B y así sucesivamente hasta que me de el serial  1035649161




ingrese el serial 1035649161 en la primera parte y me dio como resultado    ?03;64716?   como vemos la primera parte del serial es de 10 caracteres y cambian los caracteres 1,4,7,10 así que esos caracteres los hallaremos por fuerza bruta ya que son pocos así que ingresaremos los siguientes seriales


SERIALES RESULTADO
A035649161 ?03;64716?
B035649161 >03;64716?
C035649161 =03;64716?
D035649161 <03;64716?
E035649161    ;03;64716?
F035649161 :03;64716?
G035649161 903;64716?
H035649161 803;64716?
I035649161 703;64716?
J035649161 603;64716?
K035649161 503;64716?
L035649161 403;64716?
M035649161 303;64716?
N035649161 203;64716?
O035649161 103;64716?

y como vemos la letra O en  el primer carácter el resultado nos da 1, y así sucesiva mente ir cambiando carácter por carácter por fuerza bruta hasta encontrar la primera parte del serial correcto.

La primera parte del serial se compara con 1035649161 así que con esta tabla fue mas fácil sacar los valores siguientes y meda como serial  O03K64G16O

Las comparaciones del serial las hace en las direcciones

  1. Dirección 0040148D  
  2. Dirección 00401687
  3. Dirección 00401812



así que nos dirigimos a dichas direcciones y hacemos lo mismo por fuerza bruta, ingresamos carácter por carácter hasta que coincidan las 2 cadenas y encontrar las partes del serial

PARTES DEL SERIAL

  1. Dirección 0040148D  --------  Compara con 1035649161  Resultado  O03K64G16O
  2. Dirección 0040148D  --------  Compara con 1989481499  Resultado  CME4CECCMD
  3. Dirección 0040148D  --------  Compara con 1368974802  Resultado  H3R8I7N8F2

El serial estaría quedando así para  Flamer  

O03K64G16O-CME4CECCMD-H3R8I7N8F2-5555555555

Yo usare este serial y le agregare 5555555555 al final para poder seguir


Faltaría la ultima parte del serial la cual es una constante donde tendremos que tracear un poco para analizar el código para eso el crackme deberá de estar en ejecución y poner y quitar un breackpoint entre las direcciones siguientes 00401417 y 0040141A  hasta que el crackme se detenga





A mi se me detuvo en la dirección 00401417 así que modificaremos los siguientes saldos para pasar por la zona donde compara los seriales, solo usaremos la bandera  o flags ZF para ello




después de a ver pasado los saltos pondremos un breakpoint en la dirección 00401B22 y presionamos F9, estando aquí vemos que toma 8 dígitos de la ultima parte del serial que es 55555555 y líneas mas abajo intenta hacer XOR con 44950FB1 y nos da como resultado 

55555555  XOR  44950FB1 = 11C05AE4

vemos que al cruzar la línea del xor no nos muestra nada del resultado, eso es por que el valor o el resultado quedo almacenado en la dirección  02A9FDB0 que contiene el registro EAX asi que haremos lo siguiente para verlo  



y el dump nos muestra lo siguiente




así que nos iremos traceando con F8 hasta la línea 00401BD6 y vemos que toma el resultado anterior y una línea mas abajo hará otra operación lógica pero ahora será la AND con el valor  3E0000

11C05AE4 AND 3E0000 =  0 

00401BDC |  and eax,3E0000                               
00401BE1  |  mov dword ptr ss:[ebp-1CC],eax               
00401BE7  |  cmp dword ptr ss:[ebp-1CC],320000            
00401BF1  |  jne crkgenme.401CEA                          

mejor copie este pedazo para poderlo explicar mejor, como el resultado de la operación lógica AND dio 0 este resultado es movido o almacenado en una dirección de memoria en la línea 00401BE1 después en la línea  00401BE7   esa dirección de memoria que con tiene el valor 0 es comparada con 320000 donde tendrá que ser igual para poder seguir, pero nosotros moveremos la bandera ZF a 1 para que no salte y poder seguir




líneas mas abajo hace toma el valor 11C05AE4 y realiza una operación  AND  con el valor FC00000 donde la operación tiene que dar F400000 para poder seguir nosotros aremos lo mismo moveremos la bandera ZF a 1 para que no salte y poder seguir


00401C46 | mov eax,dword ptr ss:[ebp-1D0]                |
00401C4C | and eax,FC00000                               |
00401C51 |  mov dword ptr ss:[ebp-1CC],eax                |
00401C57 |  cmp dword ptr ss:[ebp-1CC],F400000            |
00401C61 |  jne crkgenme.401CEA                           |







en la línea 00401C6D toma el valor 11C05AE4  y realiza una operación AND con el valor 1FFE0 donde el resultado es comparado en la línea 00401CD8 con 700 para que muestre el mensaje correcto





bueno para sacar la ultima parte del serial aremos xor a los siguientes valores asi

44950FB1 XOR 320000 XOR F400000 XOR 700 4BE70FB1

nuestro serial para Flamer  seria   O03K64G16O-CME4CECCMD-H3R8I7N8F2-4BE708B1


bueno eso es todo espero les sea de su agrado y como dije el keygen queda pendiente Saludos Flamer

En mi nuevo canal esperen el video: https://www.youtube.com/channel/UCOLQnEO66dlZAOd3yBo_VNg


jueves, 18 de marzo de 2021

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


viernes, 12 de marzo de 2021

Creando Archivo Que Cambia De Nombre En Jscript[Mutante Parte 1----Continuara]

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

domingo, 7 de junio de 2020

Codigo Fuente Del Keygen Del Crackme 8 De rogerfm.Net En Html By Flamer

Hola amigos aquí les dejare el código fuente del crackme 8 de la pagina


Esta hecho en html y javascript......En el vídeo no lo mostré ya que como dije lo había borrado por error así que tuve que hacerlo de nuevo, aquí les dejo una foto del keygen





Aquí el código




<html>
<head><title>Keygen Crackme 8 Rogerfm.Net</title>
</head>
<body bgcolor="black">
<center>
<table border="1" width="1200" style="font-size:30px;color:white;">
<tr><td>
<marquee>Keygen Crackme 8 Rogerfm.Net    .....:::::By Hacked Flamer:::::.....</marquee>
</td></tr>
</table>

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

<table border="1" width="600" height="180" style="font-size:20px;text-align:center;color:white;">
<tr><td>
                 Serial: <input type="text" id="s1" style="background-color:#4D524A;color:white;font-size:15;text-align:center;" disabled> <input type="button" value="Copy" onclick="copy(1)"><br><br>
Archivo abc.xyz: <input type="text" id="s2" style="background-color:#4D524A;color:white;font-size:15;text-align:center;" disabled> <input type="button" value="Copy" onclick="copy(2)">
</td></tr>
</table>

<br><br>

<input type="button" value="Generar" onclick="generar()">    <input type="button" value="Detener" onclick="stop()">

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

<div style="color:white;font-size:23px">Debes Cambiar La Fecha De Tu Sistema Operativo a 20/05/1992 Para Que El Crackme Pueda Ser Registrado Y Crear El Archivo abc.xyz Con El Serial Indicado</div>
</center>
<script>
var tiempo;

function copy(op)
{  
   if(op==1)
   {
      document.getElementById("s1").disabled=false;
      document.getElementById("s1").select();
      document.execCommand("copy");   
  document.getElementById("s1").disabled=true;
   }
   else if(op==2)
   {
      document.getElementById("s2").disabled=false;
      document.getElementById("s2").select();
      document.execCommand("copy");   
  document.getElementById("s2").disabled=true;
   }
}
//===============================================================
function stop()
{
   clearTimeout(tiempo);
}
//===============================================================
function generar()
  tiempo=setTimeout(function(){gen()},10);
}
//================================================================
function gen()
{
   var digi   = new Array(8),posicion,sr,a,b,x,y;
   var cadena = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
   var largo  = cadena.length - 1;
   
  posicion = Math.floor(Math.random() * ((largo+1) - 0) + 0);
  digi[1]  = cadena.substr(posicion,1);
  
  posicion = Math.floor(Math.random() * ((largo+1) - 0) + 0);
  digi[7]  = cadena.substr(posicion,1);
  
  sr = Math.floor(Math.random()*((9+1)-1)+1);
  a  = digi[1].charCodeAt(0);
  b  = digi[7].charCodeAt(0);
  do
  {
     x = String.fromCharCode(a + sr);
y = String.fromCharCode(b - sr);
sr--;
  }
  while((cadena.indexOf(x) == -1) || (cadena.indexOf(y) == -1))
  
  digi[3] = x; 
  digi[8] = y;  
 
 
 
  posicion = Math.floor(Math.random() * ((largo+1) - 0) + 0);
  digi[2]  = cadena.substr(posicion,1);
  
  posicion = Math.floor(Math.random() * ((largo+1) - 0) + 0);
  digi[4]  = cadena.substr(posicion,1);
  
  sr = Math.floor(Math.random()*((9+1)-1)+1);
  a  = digi[2].charCodeAt(0);
  b  = digi[4].charCodeAt(0);
  do
  {
     x = String.fromCharCode(a + sr);
y = String.fromCharCode(b - sr);
sr--;
  }
  while((cadena.indexOf(x) == -1) || (cadena.indexOf(y) == -1))
  
  digi[5] = x; 
  digi[6] = y;  
 
 tiempo=setTimeout(function(){gen()},10);
 
 document.getElementById("s1").value=digi[1] + digi[2] + digi[3] + digi[4] + digi[5] + digi[6] + digi[7] + digi[8];
 document.getElementById("s2").value=digi[6] + digi[4] + digi[8] + digi[1];
}

</script>
</body>
</html>


Si lo quieren probar solo copean y pegan en el bloc de notas y a guardan como keygen.html


bueno saludos Flamer y hasta la próxima






sábado, 16 de mayo de 2020

Como Enviar Mensajes Vacíos Por Whatsapp y Facebook Desde El Celular Sin Aplicaciones

Hola amigo como están soy Flamer de nuevo y como tengo rato que no escribía algo y no hacia vídeos ya que tengo otros pasatiempos, se me ocurrió hacer algo y aquí me tienen......bueno he aquí con otro tema haber si hago vídeo de esto bueno a lo que te truje chencha así que empecemos.

Hace tiempo ya como 2 años mas o menos me enviaron un mensaje vació y hoy me acorde de eso y me di a la tarea de investigar y me encontré que lo hacían con una aplicación pues bueno dije yo lo puedo hacer y sin aplicación.

Así que si estamos en el celular nos dirigimos a nuestro navegador en el móvil y escribimos lo siguiente

javascript:document.write(String.fromCodePoint(4447))





ahora solo presionamos enter y nos quedara algo así



después de eso seleccionamos el carácter invisible por decirlo así y nos dirigimos a facebook o whatsapp donde lo quieran enviar



y estando en la aplicación de facebook o whatsapp nada mas lo pegan y lo envían.......


Esto también funciona en las computadoras solo se tienen que ir al navegador y teclear lo mismo y quedara así





bueno el resto creo que ya se la saben......bueno amigos creo que eso es todo saludos Flamer y hasta la próxima










 

martes, 31 de diciembre de 2019

Codigo De Fuerza Bruta Para El Crackme 7 De RogerFm.Net

Hola amigos como están, espero que bien....aquí les dejare el código que realice para resolver el crackme 7 de la pagina http://rogerfm.net/challenge/sp/index.htm

lo dejo por si alguien lo quiere probar, solo abran el bloc de notas, peguen el código y lo aguardan con la extensión .hta






......::::::Codigo::::::......



<head><title>Brute Force</title>
</head>
<body>
<br><br><br>
<center>
Solo Letras de (e) Hasta (t)<br><br>
<input type="text" id="clave"  value="" maxlength="8" style="width:150;height:40;font-size:25;text-align:center;"><br><br>
<input type="button" value="Calcular" onclick="calcular()">
<br><br>
<div id="eti1" style="background:#FA0404;width:500;">Valor a encontrar es 4684666 ----></div><br>
<div id="eti2" style="background:#FA0404;width:500;"></div><br>
<div id="eti3" style="background:#FA0404;width:500;"></div><br>
<div id="eti4" style="background:#FA0404;width:500;"></div><br>
<div id="eti5" style="background:#FA0404;width:500;"></div><br>
<div id="eti6" style="background:#FA0404;width:500;"></div><br>
<div id="eti7" style="background:#FA0404;width:500;"></div><br>
<div id="eti8" style="background:#FA0404;width:500;"></div><br>
</center>
<script language="vbscript">
sub calcular()
   dim pass,x,d1,d2,s

   pass=document.getElementById("clave").value
   
   if len(pass)=8 then
      suma=0
      for x=8 to 1 step -1
         sum = (sum + asc(Mid(pass,x,1))) * x
      Next
      
      document.getElementById("eti1").innerHTML="Valor a encontrar es 4684666 ----> " & sum
        if sum=4684666 then   
           document.getElementById("eti1").style.background="#2FF807" 'verde  
      else
         document.getElementById("eti1").style.background="#FA0404" 'rojo
        end if
      
      d1 = mid(pass,5,1)
      d2 = mid(pass,4,1)
      s  = asc(d1) - asc(d2) - 1
      document.getElementById("eti2").innerHTML= "digitos 5 y 4_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 1 = " & s & "  igual a cero"   
        if s = 0 then
         document.getElementById("eti2").style.background="#2FF807"  
      else
         document.getElementById("eti2").style.background="#FA0404"
      end if
      
    d1 = mid(pass,4,1)
      d2 = mid(pass,2,1)
      s  = asc(d1) - asc(d2) - 1
      document.getElementById("eti3").innerHTML= "digitos 4 y 2_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 1 = " & s & "  igual a cero"  
        if s = 0 then
         document.getElementById("eti3").style.background="#2FF807"  
      else
         document.getElementById("eti3").style.background="#FA0404"
      end if
      
      
      
    d1 = mid(pass,2,1)
      d2 = mid(pass,1,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti4").innerHTML= "digitos 2 y 1_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
        if s = 0 then
         document.getElementById("eti4").style.background="#2FF807"  
      else
         document.getElementById("eti4").style.background="#FA0404"
      end if
      
      
     d1 = mid(pass,1,1)
      d2 = mid(pass,6,1)
      s  = asc(d1) - asc(d2) - 7
      document.getElementById("eti5").innerHTML= "digitos 1 y 6_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 7 = " & s & "  igual a cero" 
      if  s = 0 then
         document.getElementById("eti5").style.background="#2FF807"  
      else
         document.getElementById("eti5").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,6,1)
      d2 = mid(pass,7,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti6").innerHTML= "digitos 6 y 7_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
      if  s = 0 then
         document.getElementById("eti6").style.background="#2FF807"  
      else
         document.getElementById("eti6").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,7,1)
      d2 = mid(pass,8,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti7").innerHTML= "digitos 7 y 8________" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
      if s = 0 then
         document.getElementById("eti7").style.background="#2FF807"  
      else
         document.getElementById("eti7").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,8,1)
      d2 = mid(pass,3,1)
      s  = asc(d1) - asc(d2)
      document.getElementById("eti8").innerHTML= "digitos 8 y 3________" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " = " & s & "  igual a cero"  
      if  s = 0 then
         document.getElementById("eti8").style.background="#2FF807"  
      else
         document.getElementById("eti8").style.background="#FA0404"
      end if
   end if
end sub
</script>
</body>
</html>





Link del vídeo donde explico como resolverlo: https://www.youtube.com/watch?v=RHOyAilOIoo

Bueno creo que eso es todo saludos Flamer y Feliz año nuevo 2020