Visual Basic .NET

Iniciado por Gevaudan, 6 Abril 2009, 17:39 PM

0 Miembros y 1 Visitante están viendo este tema.

Gevaudan

Hola amigos, queria haceros una consulta rapida jejeje, he estado mirando para poder ir trasteando con una aplicacion hecha en Visual Basic .NET, casi todo lo que he encontrado esta orientado solo a visual basic, para aplicaicones .NET no he visto casi nada, un post en el foro nada mas, y necesitaria algo de ayuda ya que solo puedo ir examinandolo con Reflector, pero no me esta sirviendo de mucho, al cargar la aplicacion en ollydgb se pone a correr directamente, alguien me puede guiar un poco? Gracias de antemano
Cuantas veces con el semblante de la devocion y la apariencia de acciones piadosas engañamos al diablo mismo.

tena

El ollydbg no sirve para los net.

Para debuguear usa el PEBrownse

http://www.smidgeonsoft.prohosting.com/pebrowse-pro-interactive-debugger.html

o para ver entre sus entrañas el Reflector que ya lo tienes.

slds

tena

o tambien tienes el Calimero del amigo stzwei para depurar .net

http://stzwei.comze.com/utilidades.html

slds

Amerikano|Cls

Y tambien hay muchos tutes sobre ello  ;), mira yo solo he sacado un .NET, use reflector y calimero para debuggear,  a ver si te puede guiar en algo:

http://www.mediafire.com/?zyztty3jhmw

salu2

AmeRiK@nO




Mi blog:
http://amerikanocls.blogspot.com

Gevaudan

Muchas gracias por los enlaces y esos aportes, siempre es bueno poder contar con vosotros ante la duda  :D, os ire contando que tal se da, de nuevo gracias
Cuantas veces con el semblante de la devocion y la apariencia de acciones piadosas engañamos al diablo mismo.

Amerikano|Cls

Tambien en http://ricardonarvaja.info encontrarás mas  ;), usa el buscador de teorias para tal caso.

salu2

AmeRiK@nO




Mi blog:
http://amerikanocls.blogspot.com

Gevaudan

Lo cierto es que el .NET me tiene descolocado, acostumbrado a ver los saltos, llamadas etc, aqui solo veo partes de codigo y no se muy bien por donde empezar a tirar del hilo, ando leyendo los tutos que me habeis puesto, aunque no se parece mucho a lo que tengo delante jejeje, de todos modos seguire investigando a ver
Cuantas veces con el semblante de la devocion y la apariencia de acciones piadosas engañamos al diablo mismo.

Amerikano|Cls

Pon algunas imagenes de lo que no entiendas  ;), igual lo que vez es el codigo fuente y para cada programa no creo que sea el mismo  ;D.

salu2




Mi blog:
http://amerikanocls.blogspot.com

DarkItachi

Te dejo una clase que hice hace tiempo en forma de modulo.

Imports classlibrary1.Fracciones
Module module1
    Sub main()
        Console.WriteLine((Fracciones.Lectura.tografico(Fracciones.Operaciones.FraccionIrreductible(Fracciones.Lectura.tofraccion(1024, 512)))))

        Console.ReadLine()
    End Sub

End Module

Namespace Fracciones
    Public Class Operaciones
        Shared Function SumaFracciones(ByVal n1 As Integer, ByVal d1 As Integer, ByVal n2 As Integer, ByVal d2 As Integer) As String
            Dim nn As Integer = (n1 * d2) + (n2 * d1), dn As Integer = d1 * d2
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function RestaFracciones(ByVal n11 As Integer, ByVal d11 As Integer, ByVal n22 As Integer, ByVal d22 As Integer) As String
            Dim nn As Integer = (n11 * d22) - (n22 * d11), dn As Integer = d11 * d22
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function MultiplicarFracciones(ByVal n111 As Integer, ByVal d111 As Integer, ByVal n222 As Integer, ByVal d222 As Integer) As String
            Dim nn As Integer = (n111 * n222), dn As Integer = (d111 * d222)
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function DividirFracciones(ByVal n1111 As Integer, ByVal d1111 As Integer, ByVal n2222 As Integer, ByVal d2222 As Integer) As String
            Dim nn As Integer = (n1111 * d2222), dn As Integer = (n1111 * n2222)
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function Fraccion2Decimal(ByVal numerador As Integer, ByVal denominador As Integer)
            Return numerador / denominador
        End Function
        Shared Function FraccionIrreductible(ByVal fraccion As Integer()) As Integer()
            Dim n As Integer = 2
            While n <= Math.Max(fraccion(0), fraccion(1))
                If fraccion(0) Mod n = 0 And fraccion(1) Mod n = 0 Then
                    fraccion(0) /= n
                    fraccion(1) /= n
                End If
                n += 1
            End While
            n = 2
            n += 1
            While n <= Math.Max(fraccion(0), fraccion(1))
                If fraccion(0) Mod n = 0 And fraccion(1) Mod n = 0 Then
                    fraccion(0) /= n
                    fraccion(1) /= n
                End If
                n += 1
            End While
            Return fraccion
        End Function
    End Class
    Public Class Lectura
        Shared Function tofraccion(ByVal x As Integer, ByVal y As Integer) As Integer()
            Dim newarray() As Integer = {Int(x), Int(y)}
            Return newarray
        End Function
        Shared Function tografico(ByVal fraccion As Integer()) As String
            Return fraccion(0) & "/" & fraccion(1)
        End Function
    End Class
End Namespace


Puede resultar liante, pero es lo primero que he encontrado en mi lista de archivos.
Come to me when you have these eyes...

By more that you try it, a feather never will achieve to fly.

Amerikano|Cls

Cita de: Dudasamonton en  7 Abril 2009, 18:46 PM
Te dejo una clase que hice hace tiempo en forma de modulo.

Imports classlibrary1.Fracciones
Module module1
    Sub main()
        Console.WriteLine((Fracciones.Lectura.tografico(Fracciones.Operaciones.FraccionIrreductible(Fracciones.Lectura.tofraccion(1024, 512)))))

        Console.ReadLine()
    End Sub

End Module

Namespace Fracciones
    Public Class Operaciones
        Shared Function SumaFracciones(ByVal n1 As Integer, ByVal d1 As Integer, ByVal n2 As Integer, ByVal d2 As Integer) As String
            Dim nn As Integer = (n1 * d2) + (n2 * d1), dn As Integer = d1 * d2
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function RestaFracciones(ByVal n11 As Integer, ByVal d11 As Integer, ByVal n22 As Integer, ByVal d22 As Integer) As String
            Dim nn As Integer = (n11 * d22) - (n22 * d11), dn As Integer = d11 * d22
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function MultiplicarFracciones(ByVal n111 As Integer, ByVal d111 As Integer, ByVal n222 As Integer, ByVal d222 As Integer) As String
            Dim nn As Integer = (n111 * n222), dn As Integer = (d111 * d222)
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function DividirFracciones(ByVal n1111 As Integer, ByVal d1111 As Integer, ByVal n2222 As Integer, ByVal d2222 As Integer) As String
            Dim nn As Integer = (n1111 * d2222), dn As Integer = (n1111 * n2222)
            Return Str(nn) + "/" + Str(dn)
        End Function
        Shared Function Fraccion2Decimal(ByVal numerador As Integer, ByVal denominador As Integer)
            Return numerador / denominador
        End Function
        Shared Function FraccionIrreductible(ByVal fraccion As Integer()) As Integer()
            Dim n As Integer = 2
            While n <= Math.Max(fraccion(0), fraccion(1))
                If fraccion(0) Mod n = 0 And fraccion(1) Mod n = 0 Then
                    fraccion(0) /= n
                    fraccion(1) /= n
                End If
                n += 1
            End While
            n = 2
            n += 1
            While n <= Math.Max(fraccion(0), fraccion(1))
                If fraccion(0) Mod n = 0 And fraccion(1) Mod n = 0 Then
                    fraccion(0) /= n
                    fraccion(1) /= n
                End If
                n += 1
            End While
            Return fraccion
        End Function
    End Class
    Public Class Lectura
        Shared Function tofraccion(ByVal x As Integer, ByVal y As Integer) As Integer()
            Dim newarray() As Integer = {Int(x), Int(y)}
            Return newarray
        End Function
        Shared Function tografico(ByVal fraccion As Integer()) As String
            Return fraccion(0) & "/" & fraccion(1)
        End Function
    End Class
End Namespace


Puede resultar liante, pero es lo primero que he encontrado en mi lista de archivos.

Que tiene que ver este code con crackeo de programas en .NET :huh: :huh:




Mi blog:
http://amerikanocls.blogspot.com