Mensajes

[DLL]

Hola,  hoy les presento NetLoader.

Todos saben que crear una DLL en C++ es una tarea sumamente sencilla. pero en el caso de .Net No es tan Simple.

Todo Empezo con este Post : Crear Archivo .asi (.dll) para GTA:SA | ASILOADER

He Intentado Muchas cosas, Entre ellas CLR Hosting desde la DLL en c++ para cargar codigo .NET , Lamentablemente es muy Inestable. Muchos Crash y aveces era que funcionaba Torcidamente.

Bueno una Solucion vaga a este asunto fue la creacion de NetLoader.

Basicamente Injectas la DLL nativa en el proceso del juego que quieras y A su vez esta se encarga de abrir el loader con Linea de comandos .

El loader Ejecuta Tu Codigo [DLL] y listo . ya tienes una DLL Inyectable :v . bueno básicamente cumple el Objetivo. Y Se diría que Funciona Externamente.

NetLoader


Cargue sus DLL de .NET inyectándolas en el proceso como en c ++.

Instrucciones

• Descargar NetLoader.
• Cree su .Net Dll en función del ejemplo que deje en el proyecto.
• Coloque su DLL compilada dentro de la carpeta [NetPlugins].
• Inyecte la DLL nativa [ASIExNet.dll] en el proceso que desea que cargue su DLL. o Tambien Pudes Cargar [NetLoader] usando el [CustomLoader] que viene junto a los archivos.
• ¡Hecho! El Loader se encargara de ejecutar el código de su DLL.

Ya He dejado un Plugin [DLL] de Ejemplo en el Proyecto. Deberia servir tanto para C# como VB

Plugins

Hasta Ahora solo Hice 1 Plugin , Este mismo es para SAMP , San Andreas Multiplayer

Nota: Los Plugins Deberían Funcionar Correctamente en Todos los Juegos . [Con su correspondiente Bypass en caso de que Posean Anticheat.]




SAMP Injector

Inyector para SAMP [San Andreas Multi-Player] - Mas Informacion en GitHub. | Plugin para NetLoader.

Gracias al Compañero @BloodSharp Por su ayuda en C++.  

Cualquier duda, Acerca de; como usar, errores y mas... Pofavor Comentar en este Post.

[Nada nuevo esta THEYNC.COM o la Caida, Goringa..... no es nada nuevo para mi .]

Busquen en google, best gore.

Nada nuevo esta THEYNC.COM o la Caida, Goringa..... no es nada nuevo para mi .

El post de un User Ebrio . a la madre, una joya del foro. esto no se ve seguido.  

[No estaras pidiendo que te hagamos todo el trabajo ? no ?]

Espero que alguien pueda ayudarme, un saludo.

No estaras pidiendo que te hagamos todo el trabajo ? no ?  

[Tendrias que rellenar con 0 y al final igual te dara error/ bug por las siguientes razones:]

necesito su ayuda para un proyecto donde debo usar un inputbox para colocar un  numero que va a ir decreciendo  y usar un Msgbox para que muestre ese decrecimiento en forma de triangulo, ademas de estar bien centrado  así:


15
14  15
13  14  15
12  13  14   15 
11  12  13   14   15
10  11  12   13   14  15
9   10  11   12   13  14  15
8    9   10   11   12  13  14  15
7    8    9    10   11  12  13  14   15
6    7    8     9    10  11  12  13  14   15
5    6    7     8     9   10  11  12  13   14  15
4    5    6     7     8    9   10  11  12   13  14  15
3    4    5     6     7    8    9   10  11   12  13  14  15 
2    3    4     5     6    7    8    9   10   11  12  13  14  15
1    2    3     4     5    6    7    8    9    10  11  12  13  14  15

El codigo que use es este, me hace la forma pero, los números no me salen bien centrados ¿Qué puedo hacer?, ¿Como seria la condicion?

    Dim nume  As Integer
        Dim tri, spe, nose As String
        tri = " "
        nume = InputBox("ingrese el numero", "entrada de datos")
        While (nume < 0)
            MsgBox("ingrese  solo valores positivos")
            nume = InputBox("Ingrese solo números mayores a 0")
        End While
        Next
        For n As Integer = 0 To nume
            For i As Integer = n To 1 Step -1
                If nume < 10 Then
                    tri = tri & n - i + 1 & "  "
                Else
                    tri = tri & nume - i + 1 & "  "
                End If
            Next
            tri += vbNewLine
        Next
        MsgBox(tri)
    End Sub

Siempre se te va a ver mal si usas eso ya que el Espacio (" ") no tiene el mismo tamaño que cualquier numero.

Tendrias que rellenar con 0 y al final igual te dara error/ bug por las siguientes razones:

1= Que pasaria si meto Letras en el InputBox?
2= Se veria super mal si colocas numeros de mas del 100 en adelante.



Bueno te reestructure el codigo . Solucionando todos esos problemas

Código (vbnet) [Seleccionar] Expandir

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Max As String = String.Empty

        Dim Min As String = 1

        Dim Input As String = InputBox("Text:")

        If Input <> "" Then
            Max = Input
            If Regex.IsMatch(Max, "^[0-9 ]+$") Then
                Dim Filling As Integer = Max.Length
                Dim Result As New StringBuilder
                Dim Progress As String = Max
                For i As Integer = Min To Max
                    Progress -= 1
                    Result.Append(GetProgresive(Progress, Max, Filling) & vbNewLine)
                Next

                MsgBox(Result.ToString) 'Resultado Final
            Else
                MsgBox("Porfavor Use Solo Numeros")
            End If
        End If
    End Sub

    Private Shared Function GetProgresive(ByVal Min As Integer, ByVal Max As Integer, ByVal FillingCount As Integer, _
                                          Optional ByVal FillingString As String = "0") As String
        Dim s As String = String.Empty
        Dim sb As New StringBuilder
        For i As Integer = Min To Max
            Dim CalculateSpace As Integer = FillingCount - i.ToString.Length
            sb.Append(GenerateSpaces(CalculateSpace, FillingString) & i & " ")
        Next
        Return sb.ToString()
    End Function

    Private Shared Function GenerateSpaces(ByVal len As Integer, ByVal FillingStr As String) As String
        Dim sb As New StringBuilder
        For i As Integer = 1 To len
            sb.Append(FillingStr)
        Next
        Return sb.ToString()
    End Function

Se vería así :

Comenta Cualquier cosa si necesitas ayuda

l3.additem (l1.item(k) & l2.item(k))

le entendí mal , pregunto algo muy básico , igual ya le respondiste .  

[Hay muchas maneras de hacerlo, pero la mas simple seria esta :]

Hay muchas maneras de hacerlo, pero la mas simple seria esta :

Código (vbnet) [Seleccionar] Expandir

Dim ItemsListbox1() = (From item As Object In Me.ListBox1.Items.Cast(Of Object)().ToList() Select item).ToArray() 'Obtenemos items del listbox1
       Dim ItemsListbox2() = (From item As Object In Me.ListBox2.Items.Cast(Of Object)().ToList() Select item).ToArray() 'Obtenemos items del listbox2

       ListBox3.Items.AddRange(ItemsListbox1) ' Se agregan los items del listbox1
       ListBox3.Items.AddRange(ItemsListbox2) ' Se agregan los items del listbox2





Tambien Podirans usar For Loop o For Each
Para recorrer los listbox y al mismo tiempo dentro del for agregarlos al Listbox3

[Falcon Anticheat]

Hola, Hoy Libero la Fuente de mi Anticheat Hecho en VB.NET.

Cuenta con muchas caracteristicas, Usa Todos los complementos de mi Destroyer Protection y tambien cuenta con Partes Minimas del Motor de Escaneo de mi Anti-Malware Portable Strely Cleaner .

Falcon Anticheat

Caracteristicas :

• Anti-debugging attacks
• Anti-Dumping
• Anti-Virtualization / Full-System Emulation
• Anti-Analysis
• Additional features
• Detection of Malicious Programs
• Real-time Process Scanner

             + [MD5 scanner | PE Scanner | Assembly Scanner for Programs Made in .NET (Detect all kinds of hacks done in .NET)]

• Host Scan (Verify that your domain or connections are not blocked on the Windows host)
• Real-time Module Scan.

Notas :

• La Biblioteca UnmanagedExports se usa en la clase FalconWrapper.vb para usar en C++ y Delphi.

Descarga :

Falcon Anticheat

Puede Descargar un Juego basico de PacMan con el Anticheat para Testear : Preview Game/Anticheat.rar

Algunas Imagenes :

[adfly]

Si, ya que la plataforma adfly no posee Capchats, es facil de hacerle bot, en cambio otras paginas nel. alguna forma debe haber de bypassear los capchat pero no he investigado.

tambien tenia un bot para PreSearh , es como una extensión de tu navegador que si usas su buscador te genera varios PRE (su moneda electronica) , valorada en unos cuantos de centavos ni idea. perdi el bot hace tiempo , tal vez lo vuelva a hacer.

Gracias por Comentar