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



sábado, 14 de diciembre de 2019

Descargar Video de Facebook Usando Powershell + Codigo en Vbscript

Hola amigos hace rato que no escribo en mi blog así que como estoy de vuelta me dio por escribir algo, bueno esta ves como dice el titulo veremos como descargar un vídeo de la pagina de facebook usando powershell y no faltaba mi versión en vbscript la cual les dejare el código al final del escrito.

bueno así que presionamos la tecla window + R y escribimos lo siguiente


o si quieren ir a la ruta donde se encuentra este archivo que es en la dirección


C:\WINDOWS\System32\WindowsPowerShell\v1.0\powershell_ise.exe


ya que tenemos el powershell abierto nos iremos a facebook y buscaremos un vídeo yo elegiré uno al azar y copiamos la dirección web o url como le quieran llamar




acto seguido teclearemos lo siguiente


$url="direccion web del video facebook"

en esta linea lo que estamos asiendo es darle a la variable $url la direccion web del vídeo o sea el valor de la variable $url sera el la dirección del vídeo

la siguiente linea sera esta


$res=Invoke-WebRequest $url


esta linea lo que hace es extraer el código html de la dirección web del vídeo, después tecleamos


$ddr=$res.ParsedHtml.getElementsByName('twitter:url')[0].content


aquí lo que estamos asiendo es pasar le el valor de la propiedad content del elemento twitter:url a la variable $ddr y si se preguntan por que twitter:url pues le digo que así se llama la etiqueta meta que contiene la dirección del vídeo y dicha dirección la tiene en la propiedad content como se muestra en la siguiente imagen





invoke-webrequest -uri $ddr -outfile "C:\Users\Flamer\Desktop\top.mp4"


aquí lo que estamos asiendo es descargar el archivo de la dirección de $ddr y aguardarlo en el escritorio, pueden poner otra ruta yo puse la mía para el ejemplo......y ya con eso descargarían un vídeo de facebook


bueno pero como ami me gustan vbscript les dejo mi versión en vbscript




option explicit
randomize
dim web,fso,file,bites,tap,url

set fso = createobject("scripting.filesystemobject")
Set web = createobject("Microsoft.XMLHTTP")

url = inputbox("Ingresa la url del video de facebook a descargar","direccion url")

web.open "GET", url,false  
web.send
bites = web.responsetext


tap   = instr(bites,"twitter:player") + 25
bites = mid(bites,tap)
tap   = instr(bites,"twitter:player") - 17 

url = replace(mid(bites,1,tap),"amp;","")

web.open "GET", url,false  
web.send
bites = web.responsebody

Set file = CreateObject("ADODB.Stream")
 
file.type = 1
file.open
file.write bites
  
file.savetofile "video_facebook.mp4", 2
 
msgbox "Video Descargado Con Exito",,"Terminamos"



Saludos Flamer y espero les halla gustado bye


Nota: si algún enlace no funciona me avisan para repara lo