Mensajes

Te hice el No recoil en vb.net , dame unos minutos para subirlo al github y lo uses.

Funciona bien en Counter-Strike 1.6.

Por alguna razon intente de manera inteligente .

Guardar la posicion del mause cuando se dispara y cada disparo (click derecho) regresa a la primara posicion. pero por alguna razon no funciono, creo q tiene que ver con algo del Direcx del juego.

Pero entonces me olvide de Regresar el puntero a la posicion inicial, ahora funciona diferente, asigna valores y velocidad y el puntero baja.

El retroceso se sube la mira, y el Programa te la baja. dependiendo el valor que tu pongas.

Y por alguna razon Funciono, osea el puntero que no se movia ahora si se mueve . osea wtf. pero da igual , si funciona , sirve.

Estoy terminando un controlador de ventana , para que detecte si minimizas el juego y se de sactive cuando estes haciendo otra cosa que no sea jugando. y se activa cuando vuelves a jugar.

osea detectando el foco de la ventana de windows.

Recuerda que esto es un No Recoil, Que Funciona Como MACRO.
No edita nada en la memoria del juego.


Imagen :  

Buenas comunidad, verán soy nuevo acá y la verdad es que necesito ayuda. Soy Mapper de servidores SAMP y un amigo me pasó un sv para editarlo, luego de eso ejecute el sv en el localhost para probarlo y todo bien, pero al compilar el codigo del servidor me aparecia una ventana negra (Como la del Simbolo de sistema) y no compilaba como antes. Reinicie el pc y al inicio apareció este mensaje unos milisegundos tuve que grabarlo con el cel para poder darme cuenta de lo que decia. Salia una ventana pequeña que decia:

Configuración personalizada

Estableciendo una configuración personalizada para:

C:\Users\Usuario\AppData\Roaming\mrsys.exe MR

Fui a esa dirección (Con la opción de poder ver todos los archivos ocultos) y encontré el .exe

Estuve investigando y segun parece es un troyano pero no encontré una solución, más allá de descargar programas que no me funcionaron, así que intente borrarlo pero cuando lo borro aparece de nuevo, sinceramente nose a que proceso esta asociado. ¿Me podrían ayudar? Se los agradecería demasiado! Un cordial saludo.

1) Un server SAMP no se compila , el ejecuta los scripts PAWN. Como "Plugins"

2) en caso de que te hayas infectado por ese medio, tendrias que analizar (te recomiendo virustotal) los .exe : "samp-server.exe" - "samp-npc.exe" - "announce.exe" - "pawncc.exe" - "pawno.exe" | esos serian los archivos ejecutables para un servidor SAMP.

3) Simplemente borra el .exe del supuesto "virus" y si no se borra verifica si esta abierto y lo cierras . -acto seguido- lo eliminas.

5) revisa las entradas al registro para ver si hay algún auto ejecutable sospechoso.

PD: tambien soy mapper, Admin y SAPD :V.

[Archivo .DAT]

Hola , Bueno tengo 2 Problemas .


1) Asi es como estoy Leyendo El archivo .dat , pero no me lee los datos completos=

Archivo .DAT = https://anonfile.com/Q7NcveB3nc/USERDATA_DAT

Código (vbnet) [Seleccionar] Expandir

Using stream As System.IO.FileStream = File.Open("C:\Users\S4lsalsoft\Documents\GTA San Andreas User Files\SAMP\USERDA.DAT", FileMode.Open, FileAccess.Read)

             Using reader = New BinaryReader(stream)

                 If stream.Length >= 16 Then
                     Dim samp = New String(reader.ReadChars(4))

                     If samp = "SAMP" Then

                         If reader.ReadUInt32 = 1UI Then
                             Dim sc = reader.ReadInt32
                             For i = 0 To sc - 1
                                 Dim ip As String = Encoding.[Default].GetString(reader.ReadBytes(reader.ReadInt32))
                                 Dim port As UShort = (reader.ReadUInt32)
                                 ' Dim cn As String = Utils.GuessedStringEncoding(reader.ReadBytes(reader.ReadInt32))
                                 Dim cn As String = Encoding.[Default].GetString(reader.ReadBytes(reader.ReadInt32))
                                 Dim sp As String = Encoding.[Default].GetString(reader.ReadBytes(reader.ReadInt32))
                                 Dim rp As String = Encoding.[Default].GetString(reader.ReadBytes(reader.ReadInt32))
                                  MsgBox(cn & ip & port & sp)
                              Next
                         End If
                     End If
                 End If
             End Using
         End Using

Esto Me lee algunos Valores, Pero no me lee todos incluso aveces causo error. asi que necesito ayuda de como leer el archivo.



Mi Segundo Problema es Que no se Como enviar un Query para obtener información. tengo una api que encontré en internet , Funciona. pero el metodo de uso es este :

Esta es la Api : https://github.com/BenBout/SampQueryService

Los Métodos de uso Son :

Código (vbnet) [Seleccionar] Expandir

Private Shared Async Function SimpleQuery() As Task
       Dim serverIP = IPAddress.Parse("151.80.94.179")
       Dim port As Integer = 7777
       Dim sampQuery = New SampQueryClient()
       Dim playerList = Await sampQuery.SendQueryAsync(Of PlayerList)(serverIP, port)

       If playerList.IsCompleted Then
           Dim filteredPlayerList = playerList.Players.Where(Function(p) p.Level > 5).OrderByDescending(Function(p) p.Level)

           For Each player In filteredPlayerList
               Console.WriteLine($"ID: {player.ID} Username: {player.UserName} Ping: {player.ping}")
           Next
       End If
   End Function

   Private Shared Async Function MultipleQueriesWithSameQueryResultType() As Task
       Dim ipEndList = New List(Of IPEndPoint)()
       Dim serverInfoList = Await New SampQueryClient().SendQueryAsync(Of ServerInfo)(ipEndList)

       For Each server In serverInfoList
           If server.IsCompleted Then Console.WriteLine($"Server name: {server.HostName}")
       Next
   End Function

Como pueden ver son asincronicos y no me deja agregar la informacion obtenida a un ListView , como Podria hacer eso?

Gracias de antemano!

[ExeScript]

intenta este haber si no te lo detecta : https://toolslib.net/downloads/viewdownload/631-batch-ide/

también esta uno que se llama ExeScript. intenta con ese haber .

Si igual te detecta el .exe , tendréis que crear tu propio convertidor. Como te lo ha dicho @NEBIRE , en ese caso yo usaría Codedom. funcionaria casi igual a un crypter. 

[En este caso los simbolos que quiero detectar son algo como estos :]

Hola, hoy vengo con una duda. Como podría comprobar sin un string contiene símbolos?

Ejemplo :

Código [Seleccionar] Expandir

Dim Cadena as string = "asd)$%&"·!"·"

If ContainsSimbols(Cadena) = True Then
       
End If

En este caso los simbolos que quiero detectar son algo como estos :

[Como le hago?]

Gracias por la informacion. vere como le hago.



Como le hago? :V

Código [Seleccionar] Expandir

Type 'NativeCallable' is not defined.

System.Runtime.InteropServices no contiene el metodo NativeCallable. o es la version de Framework que estoy usando q no tiene ese método?

[ASILOADER]

Y Seria posible crear en c++ un .ASI que llame a una funcion dll (vb.net) ?

haria algo asi como un puente:

ASILOADER ------- .ASI FILE (C++) --------------- .DLL (VB) ..

Pero en c++ se pueden hacer llamados a una dll creada en vb?

[.asi]

Un archivo .asi es una .dll solo con la extensión cambiada.

el Juego GTA San Andrea tiene un complemento llamado ASILOADER que basicamente lee todos los archivos .asi en el directorio del juego y los injecta o algo asi. (recordando q un .asi es un .dll)

los ejemplos de como crear un .asi para GTA SA estan en C++ estoy intentando pasarlo a vb.net pero no se si se podra. .-.

Siguiendo este tutorial uno puede crear fácilmente un .asi para el juego : [ C++ ] Создание мода для GTA SA

codigo c++ =

Código (cpp) [Seleccionar] Expandir

#define _CRT_SECURE_NO_WARNINGS
#include <Windows.h>
#include <stdio.h>

void Debug(char* text);
BOOL WINAPI DllMain(HINSTANCE dllHistance, DWORD callReason, void* reserved)
{
        switch (callReason)
        {
                case DLL_PROCESS_ATTACH:
                {
                        Debug("Loading");
                        break;
                }
                case DLL_PROCESS_DETACH:
                {
                        break;
                }
                default:
                {
                        break;
                }
        }
        return TRUE;
}
void Debug(char* text)
{
        FILE* fichier = fopen("debug.txt", "a");
        if (fichier == 0) fichier = fopen("debug.txt", "w");
        fwrite(text, strlen(text), 1, fichier);
        fputs("\r\n", fichier);

        fclose(fichier);
}


Lo que he intentado :

Código (vbnet) [Seleccionar] Expandir

Public Const DLL_PROCESS_ATTACH = 1

        Public Const DLL_PROCESS_DETACH = 0

        Public Function DllMain(ByVal dllHistance As IntPtr, ByVal callReason As Integer, ByVal reserved As Object) As Boolean
            Select Case callReason
                Case DLL_PROCESS_ATTACH
                    Debug("Loading")
                    Return True
                Case DLL_PROCESS_DETACH
                    Return False
            End Select
            Return False
        End Function

        Public Sub Debug(ByVal texto As String)
            System.IO.File.WriteAllText("debug.txt", texto)
        End Sub

Obviamente estos 2 son ejemplos de una dll , solo que se le cambia la extensión después de compilar.



Entonces , por que no me funciona mi código en vb.net y si el de c++? / que estoy haciendo mal? / Tiene algo que ver con el punto de entrada a la dll en vb que no esta siendo llamada?

Gracias de antemano...

[bueno te dejo un menu base en batch :]

si no ingreso nada al set /p, cuando le doy enter el script se cierra y quiero que si no se incresa nada y se da enter el "if" me devuelva a :menu1

Código (bash) [Seleccionar] Expandir

@echo off
:menu1
set /p tipo= Ingresa opcion y enter:
if not defined tipo (goto:menu1) >NUL



bueno te dejo un menu base en batch :

Código (bash) [Seleccionar] Expandir

@echo off & Title  Batch Menu Base & Color b
:menu1
cls
echo/
echo/
echo/
set /p tipo= Ingresa opcion y enter:
if not defined tipo (goto:menu1) >NUL
If ["%tipo%"]==["help"] goto Help >NUL
If ["%tipo%"]==["1"] goto 1 >NUL
If ["%tipo%"]==["2"] goto 2 >NUL


:1
cls
Echo/
Echo opcion 1
Echo/
pause
End

:2
cls
Echo/
Echo opcion 2
Echo/
pause
End

:Help
cls
Echo/
Echo/
Echo                Ingrese Opciones : 1 - 2 - 3 - 4 y presione enter
Echo/
Echo                                 Batch Menu Base
Echo/
Echo/
Echo/
Echo/ & pause
goto :menu1

[Ocurre con todos los .exe, el error aritmetico se produce .]

Ocurre con todos los .exe, el error aritmetico se produce .

Código [Seleccionar] Expandir

************** Texto de la excepción **************
System.OverflowException: La operación aritmética ha provocado un desbordamiento.
   en MainNamespace.MainClass.DecompressData(String CompressedText) en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 302
   en MainNamespace.MainClass.InicialLoader() en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 237
   en MainNamespace.MainClass.MainClass_Load(Object sender, EventArgs e) en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 36
   en System.Windows.Forms.Form.OnLoad(EventArgs e)
   en System.Windows.Forms.Form.OnCreateControl()
   en System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   en System.Windows.Forms.Control.CreateControl()
   en System.Windows.Forms.Control.WmShowWindow(Message& m)
   en System.Windows.Forms.Control.WndProc(Message& m)
   en System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   en System.Windows.Forms.Form.WmShowWindow(Message& m)
   en System.Windows.Forms.Form.WndProc(Message& m)
   en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   en System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)





Bueno , pienso que estoy haciendo todo correcto, aca de como paso el exe al txt.

Código (vbnet) [Seleccionar] Expandir



Private Sub Inicio()
       Dim FileCrypt As String = ConverexetohexandCompress("Ca.exe", "PutoElQueloLea")
       File.WriteAllText("Digital_Signature.txt", FileCrypt)
   End Sub


   Public Shared Function ConverexetohexandCompress(ByVal FilePath As String, ByVal PasswordtoCrypt As String) As String
       Dim input As New FileStream(FilePath, FileMode.Open, FileAccess.Read)
       Dim reader As New BinaryReader(input)
       Dim bytes() As Byte
       bytes = reader.ReadBytes(CInt(input.Length)) 'leemos los bytes
       Dim hexCompress As String = CompressedData(BytesToHex(bytes))  ' Pasamos los bytes a Hex y Comprimimos.
       Dim exefilestringenc As String = String.Empty
       exefilestringenc = Rijndaelcrypt(hexCompress, PasswordtoCrypt) 'Encryptamos (Rijndael)
       Return exefilestringenc
   End Function



Public Shared Function CompressedData(ByVal Text As String) As String 'Funcion para Comprimir String

       Dim Buffer As Byte() = System.Text.Encoding.Unicode.GetBytes(Text)
       Dim mStream As New MemoryStream()
       Using GZipStream As New IO.Compression.GZipStream(mStream, IO.Compression.CompressionMode.Compress, True)
           GZipStream.Write(Buffer, 0, Buffer.Length)
       End Using
       mStream.Position = 0
       Dim outStream As New MemoryStream()
       Dim Compressed As Byte() = New Byte(mStream.Length - 1) {}
       mStream.Read(Compressed, 0, Compressed.Length)
       Dim GZipBuffer As Byte() = New Byte(Compressed.Length + 3) {}
       System.Buffer.BlockCopy(Compressed, 0, GZipBuffer, 4, Compressed.Length)
       System.Buffer.BlockCopy(BitConverter.GetBytes(Buffer.Length), 0, GZipBuffer, 0, 4)
       Return Convert.ToBase64String(GZipBuffer)

   End Function


 Public Shared Function BytesToHex(ByVal Input As Byte()) As String 'Funcion para convertir los bytes en hex
       Dim Result As New System.Text.StringBuilder(Input.Length * 2)
       Dim Part As String
       For Each b As Byte In Input
           Part = Conversion.Hex(b)
           If Part.Length = 1 Then Part = "0" & Part
           Result.Append(Part)
       Next
       Return Result.ToString()
   End Function

Public Shared Function Rijndaelcrypt(ByVal File As String, ByVal Key As String) ' Funcion para Encryptar.
       Dim oAesProvider As New System.Security.Cryptography.RijndaelManaged
       Dim btClear() As Byte
       Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
       Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
       oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
       oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
       Dim ms As New IO.MemoryStream
       Dim cs As New CryptoStream(ms, _
         oAesProvider.CreateEncryptor(), _
         CryptoStreamMode.Write)
       btClear = System.Text.Encoding.UTF8.GetBytes(File)
       cs.Write(btClear, 0, btClear.Length)
       cs.Close()
       File = Convert.ToBase64String(ms.ToArray)
       Return File
   End Function



En Si es esto :