Página 2 de 2 Primer 12
Resultados 11 al 16 de 16
  1. #11
    Recien Nacido

    Fecha de ingreso
    24 oct, 10
    Mensajes
    3
    Gracias
    0
    Agradecido 0 veces en 0 Mensajes

    Predeterminado

    Servicios de Seguridad Informática

    Pues en estas ando este es el codigo fuente del ejecutable y creo que la respuesta es

    a6c24bf5-36904982887e-11e1b159b249


    Imports System
    Imports System.Collections
    Imports System.Collections.Specialized
    Imports System.IO
    Imports System.Reflection
    Imports System.Resources
    Imports System.Windows.Forms
    Imports ICSharpCode.SharpZipLib.Zip.Compression.Streams

    Namespace netz

    Public Class NetzStarter

    Private Shared ReadOnly Culture As String
    Private Shared ReadOnly Name As String
    Private Shared ReadOnly NetzSuffix As String

    Private Shared cache As HybridDictionary
    Private Shared inResourceResolveFlag As Boolean
    Private Shared rm As ResourceManager
    Private Shared xrRm As ArrayList

    Public Sub New()
    End Sub

    Shared Sub New()
    NetzStarter.Name = "Name�"
    NetzStarter.Culture = "Culture�"
    NetzStarter.NetzSuffix = "z.dll�"
    NetzStarter.cache = Nothing
    NetzStarter.rm = Nothing
    NetzStarter.xrRm = Nothing
    NetzStarter.inResourceResolveFlag = False
    End Sub

    Private Shared Function GetAssembly(ByVal data As Byte()) As Assembly
    Dim memoryStream1 As MemoryStream = Nothing
    Dim assembly1 As Assembly = Nothing
    Try
    memoryStream1 = NetzStarter.UnZip(data)
    memoryStream1.Seek(CLng(0), SeekOrigin.Begin)
    assembly1 = Assembly.Load(memoryStream1.ToArray())
    Finally
    If Not (memoryStream1) Is Nothing Then
    memoryStream1.Close()
    End If
    memoryStream1 = Nothing
    End Try
    Return assembly1
    End Function

    Private Shared Function GetAssemblyByName(ByVal name As String) As Assembly
    If (name) Is Nothing Then
    Return Nothing
    End If
    If (NetzStarter.cache) Is Nothing Then
    NetzStarter.cache = New HybridDictionary
    End If
    name = name.Trim()
    Dim s1 As String = name.ToLower()
    If Not (NetzStarter.cache(s1)) Is Nothing Then
    Return CType(NetzStarter.cache(s1), Assembly)
    End If
    Dim stringDictionary1 As StringDictionary = NetzStarter.ParseAssName(name)
    Dim s2 As String = stringDictionary1(NetzStarter.Name)
    If (s2) Is Nothing Then
    Return Nothing
    End If
    Dim bArr1 As Byte() = Nothing
    bArr1 = NetzStarter.GetResource(name)
    If (bArr1) Is Nothing Then
    bArr1 = NetzStarter.GetResource(name.ToLower())
    End If
    If (bArr1) Is Nothing Then
    bArr1 = NetzStarter.GetResource(s2)
    End If
    If (bArr1) Is Nothing Then
    bArr1 = NetzStarter.GetResource(s2.ToLower())
    End If
    If (bArr1) Is Nothing Then
    bArr1 = NetzStarter.GetResource(Path.GetFileNameWithoutExt ension(s2).ToLower())
    End If
    If (bArr1) Is Nothing Then
    Try
    bArr1 = NetzStarter.ResolveDLL(stringDictionary1)
    Catch
    bArr1 = Nothing
    End Try
    End If
    If (bArr1) Is Nothing Then
    Return Nothing
    End If
    Dim assembly1 As Assembly = NetzStarter.GetAssembly(bArr1)
    bArr1 = Nothing
    NetzStarter.cache(s1) = assembly1
    Return assembly1
    End Function

    Private Shared Function GetResource(ByVal id As String) As Byte()
    Dim bArr1 As Byte() = Nothing
    If (NetzStarter.rm) Is Nothing Then
    NetzStarter.rm = New ResourceManager("app�", Assembly.GetExecutingAssembly())
    End If
    Try
    NetzStarter.inResourceResolveFlag = True
    Dim s1 As String = NetzStarter.MangleDllName(id)
    If ((bArr1) Is Nothing) AndAlso (Not (NetzStarter.xrRm) Is Nothing) Then
    Dim i1 As Integer = 0
    While i1 < NetzStarter.xrRm.Count
    Try
    Dim resourceManager1 As ResourceManager = CType(NetzStarter.xrRm(i1), ResourceManager)
    If Not (resourceManager1) Is Nothing Then
    bArr1 = CType(resourceManager1.GetObject(s1), Byte[])
    End If
    Catch
    End Try
    If (bArr1) Is Nothing Then
    i1 = i1 + 1
    End If
    End While
    End If
    If (bArr1) Is Nothing Then
    bArr1 = CType(NetzStarter.rm.GetObject(s1), Byte[])
    End If
    Finally
    NetzStarter.inResourceResolveFlag = False
    End Try
    Return bArr1
    End Function

    Private Shared Sub InitXR()
    Try
    Dim s1 As String = "file:\�"
    Dim s2 As String = "-netz.resources�"
    Dim s3 As String = Path.GetDirectoryName(Assembly.GetEntryAssembly(). Location)
    If s3.StartsWith(s1) Then
    s3 = s3.Substring(s1.Length, s3.Length - s1.Length)
    End If
    Dim sArr1 As String() = Directory.GetFiles(s3, "*�" + s2)
    If (Not (sArr1) Is Nothing) AndAlso (sArr1.Length > 0) Then
    NetzStarter.xrRm = New ArrayList
    Dim i1 As Integer = 0
    While i1 < sArr1.Length
    Dim s4 As String = Path.GetFileName(sArr1(i1))
    s4 = s4.Substring(0, s4.Length - s2.Length)
    Dim resourceManager1 As ResourceManager = ResourceManager.CreateFileBasedResourceManager(s4 + "-netz�", s3, Nothing)
    If Not (resourceManager1) Is Nothing Then
    NetzStarter.xrRm.Add(resourceManager1)
    End If
    i1 = i1 + 1
    End While
    End If
    Catch
    End Try
    End Sub

    Private Shared Function InvokeApp(ByVal assembly As Assembly, ByVal args As String()) As Integer
    Dim methodInfo1 As MethodInfo = assembly.EntryPoint
    Dim parameterInfoArr1 As ParameterInfo() = methodInfo1.GetParameters()
    Dim objArr1 As Object() = Nothing
    If (Not (parameterInfoArr1) Is Nothing) AndAlso (parameterInfoArr1.Length > 0) Then
    Dim objArr2 As Object() = New object() { args }
    objArr1 = objArr2
    End If
    Dim obj1 As Object = methodInfo1.Invoke(Nothing, objArr1)
    If (obj1) Is Nothing Then
    Return 0
    End If
    If TryCast(obj1, int) Then
    Return DirectCast(obj1, int)
    End If
    Return 0
    End Function

    Private Shared Sub Log(ByVal s As String)
    MessageBox.Show(Nothing, s, "Error�")
    End Sub

    <STAThread> _
    Public Shared Function Main(ByVal args As String()) As Integer
    Dim i1 As Integer

    Try
    NetzStarter.InitXR()
    Dim appDomain1 As AppDomain = AppDomain.CurrentDomain
    AddHandler appDomain1.AssemblyResolve, AddressOf NetzStarter.NetzResolveEventHandler
    i1 = NetzStarter.StartApp(args)
    Catch e As Exception
    Dim s1 As String = " .NET Runtime: �"
    NetzStarter.Log("#Error: �" + e.GetType().ToString() + Environment.NewLine + e.Message + Environment.NewLine + e.StackTrace + Environment.NewLine + e.InnerException + Environment.NewLine + "Using�" + s1 + Environment.Version.ToString() + Environment.NewLine + "Created with�" + s1 + "2.0.50727.4927�")
    i1 = -1
    End Try
    Return i1
    End Function

    Private Shared Function MangleDllName(ByVal dll As String) As String
    Dim s1 As String = dll
    s1 = s1.Replace(" �", "!1�")
    s1 = s1.Replace(",�", "!2�")
    s1 = s1.Replace(".Resources�", "!3�")
    s1 = s1.Replace(".resources�", "!3�")
    Return s1.Replace("Culture�", "!4�")
    End Function

    Private Shared Function NetzResolveEventHandler(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
    If NetzStarter.inResourceResolveFlag Then
    Return Nothing
    End If
    Return NetzStarter.GetAssemblyByName(args.Name)
    End Function

    Private Shared Function ParseAssName(ByVal fullAssName As String) As StringDictionary
    Dim stringDictionary1 As StringDictionary = New StringDictionary
    Dim chArr1 As Char() = New char() { ","C }
    Dim sArr1 As String() = fullAssName.Split(chArr1)
    Dim i1 As Integer = 0
    While i1 < sArr1.Length
    Dim chArr2 As Char() = New char() { " "C, ","C }
    Dim chArr3 As Char() = New char() { "="C }
    Dim sArr2 As String() = sArr1(i1).Trim(chArr2).Split(chArr3)
    If sArr2.Length < 2 Then
    stringDictionary1.Add(NetzStarter.Name, sArr2(0))
    Else
    Dim chArr4 As Char() = New char() { " "C, "="C }
    Dim chArr5 As Char() = New char() { " "C, "="C }
    stringDictionary1.Add(sArr2(0).Trim(chArr4), sArr2(1).Trim(chArr5))
    End If
    i1 = i1 + 1
    End While
    Return stringDictionary1
    End Function

    Private Shared Function ProbeDirs(ByVal probePaths As StringCollection, ByVal assName As String) As Byte()
    Dim i1 As Integer = 0
    While i1 < probePaths.Count
    Dim s1 As String = Path.Combine(probePaths(i1), assName + NetzStarter.NetzSuffix)
    If File.Exists(s1) Then
    Return NetzStarter.ReadFile(s1)
    End If
    i1 = i1 + 1
    End While
    Return Nothing
    End Function

    Private Shared Function ReadFile(ByVal file As String) As Byte()
    Dim fileStream1 As FileStream = Nothing
    Dim bArr1 As Byte() = Nothing
    Try
    fileStream1 = File.OpenRead(file)
    bArr1 = New byte(fileStream1.Length) {}
    fileStream1.Read(bArr1, 0, bArr1.Length)
    fileStream1.Flush()
    Finally
    If Not (fileStream1) Is Nothing Then
    fileStream1.Close()
    End If
    fileStream1 = Nothing
    End Try
    Return bArr1
    End Function

    Private Shared Function ResolveDLL(ByVal assName As StringDictionary) As Byte()
    Dim s1 As String = Nothing
    Dim bArr1 As Byte() = Nothing
    Dim s2 As String = assName(NetzStarter.Culture)
    Dim s3 As String = assName(NetzStarter.Name)
    Dim flag1 As Boolean = ((s2) Is Nothing) OrElse s2.ToLower().Equals("neutral�")
    Dim appDomain1 As AppDomain = AppDomain.CurrentDomain
    Dim stringCollection1 As StringCollection = New StringCollection
    s1 = appDomain1.SetupInformation.ApplicationBase
    If Not flag1 Then
    s1 = Path.Combine(s1, s2)
    End If
    stringCollection1.Add(s1)
    stringCollection1.Add(Path.Combine(s1, s3))
    bArr1 = NetzStarter.ProbeDirs(stringCollection1, s3)
    If Not (bArr1) Is Nothing Then
    Return bArr1
    End If
    stringCollection1 = New StringCollection
    s1 = appDomain1.SetupInformation.PrivateBinPath
    If ((s1) Is Nothing) OrElse (s1.Trim().Length <= 0) Then
    Return Nothing
    End If
    Dim chArr1 As Char() = New char() { Path.PathSeparator }
    Dim sArr1 As String() = s1.Split(chArr1)
    Dim i1 As Integer = 0
    While i1 < sArr1.Length
    Dim chArr2 As Char() = New char() { " "C, " "C, Path.PathSeparator }
    s1 = sArr1(i1).Trim(chArr2)
    If Not Path.IsPathRooted(s1) Then
    s1 = Path.Combine(appDomain1.SetupInformation.Applicati onBase, s1)
    End If
    If Not flag1 Then
    s1 = Path.Combine(s1, s2)
    End If
    stringCollection1.Add(s1)
    stringCollection1.Add(Path.Combine(s1, s3))
    i1 = i1 + 1
    End While
    Return NetzStarter.ProbeDirs(stringCollection1, s3)
    End Function

    Public Shared Function StartApp(ByVal args As String()) As Integer
    Dim bArr1 As Byte() = NetzStarter.GetResource("A6C24BF5-3690-4982-887E-11E1B159B249�")
    If (bArr1) Is Nothing Then
    Throw New Exception("application data cannot be found�")
    End If
    Dim assembly1 As Assembly = NetzStarter.GetAssembly(bArr1)
    Dim i1 As Integer = NetzStarter.InvokeApp(assembly1, args)
    bArr1 = Nothing
    Return i1
    End Function

    Private Shared Function UnZip(ByVal data As Byte()) As MemoryStream
    If (data) Is Nothing Then
    Return Nothing
    End If
    Dim memoryStream1 As MemoryStream = Nothing
    Dim memoryStream2 As MemoryStream = Nothing
    Dim inflaterInputStream1 As InflaterInputStream = Nothing
    Try
    memoryStream1 = New MemoryStream(data)
    memoryStream2 = New MemoryStream
    inflaterInputStream1 = New InflaterInputStream(memoryStream1)
    Dim bArr1 As Byte() = New byte(data.Length) {}
    While True
    Dim i1 As Integer = inflaterInputStream1.Read(bArr1, 0, bArr1.Length)
    If i1 > 0 Then
    memoryStream2.Write(bArr1, 0, i1)
    End If
    End While
    memoryStream2.Flush()
    memoryStream2.Seek(CLng(0), SeekOrigin.Begin)
    Finally
    If Not (memoryStream1) Is Nothing Then
    memoryStream1.Close()
    End If
    If Not (inflaterInputStream1) Is Nothing Then
    inflaterInputStream1.Close()
    End If
    memoryStream1 = Nothing
    inflaterInputStream1 = Nothing
    End Try
    Return memoryStream2
    End Function

    End Class ' class NetzStarter

    End Namespace

  2. #12
    Recien Nacido

    Fecha de ingreso
    25 ene, 10
    Mensajes
    22
    Gracias
    1
    Agradecido 6 veces en 4 Mensajes

    Predeterminado

    Nop :'(, la respuesta no es esa ....
    Tip: La respuesta empieza por 1F .... y termina en F8.

    Bueno, este reto ya lleva un tiempito por aka, esta es la base teorica del pequeño reto:

    https://www.owasp.org/images/5/5f/Xpath_Injection.ppt

    Saludos.
    Última edición por x4v1g; 22/12/2011 a las 15:38
    k4i1t

  3. #13
    Recien Nacido

    Fecha de ingreso
    24 oct, 10
    Mensajes
    3
    Gracias
    0
    Agradecido 0 veces en 0 Mensajes

    Red face gracias

    Estudiando para resolverlo muchas gracias

  4. #14
    Recien Nacido

    Fecha de ingreso
    24 oct, 10
    Mensajes
    3
    Gracias
    0
    Agradecido 0 veces en 0 Mensajes

    Predeterminado

    Un buen tutorial de la revista hacking9 http://lab.nitcom.com/filebrowser/download/1381122

  5. #15
    Recien Nacido

    Fecha de ingreso
    20 abr, 12
    Ubicación
    Cartagena
    Mensajes
    1
    Gracias
    0
    Agradecido 0 veces en 0 Mensajes

    Predeterminado

    tome este ejemplo pero todavia nolo e podido resolver ...

  6. #16
    Recien Nacido

    Fecha de ingreso
    05 ago, 12
    Mensajes
    2
    Gracias
    0
    Agradecido 0 veces en 0 Mensajes

    Predeterminado

    esto es para windows'? porque en linux no abre!

Página 2 de 2 Primer 12

Información de tema

Usuarios viendo este tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Visitantes encuentran esta página buscando por:

retos hacking para principiantes

retos hacking principiantes

reto al conocimiento principiantes

initxr que es

RETO

Etiquetas para este tema

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  

Iniciar sesión

Iniciar sesión