Mensajes

Hola,antes que nada feliz navidad!!
Bueno,la cuestion es esta:
No tengo mucha experiencia en esto,recien empiezo.
He podido entrar a algunos sistemas usando el exploit smb ms08_067_netapi,con bind_tcp.
Hasta ahi bien,PERO hay sistemas en los que me detecta bien el fingerprint,la mayoria XP SP2-3 y se queda en el paso "Triggering vulnerability...",de ahi se salta a "Exploit completed,but no session was created."
Cual es la razon de esto? Firewall??

Otra duda,en algunos no detecta bien el Service Pack,o el idioma del s.o y no deja continuar,asi es siempre o hay alguna forma de bypassear esto??

De antemano muchas gracias!

Y no quieres que te las anote en tu cuaderno para que el maestro te ponga un 10 tambien? :S

Las librerìas de vb.net son muchas,demasiadas,porque no solo es vb,es todo el .net framework que funciona conjuntamente con todos los lenguajes que ofrece VS .net.

Perdòn si te ofende,pero eso lo podrìas encontrar si usas www.google.com un poco.

Jeje.. vi un code parecido de xcryptor,pero este ademàs de darle privilegio de Semi-Dios al proceso,tambien intenta terminarlo y produce una bonita pantalla azul,muy bueno

A que te refieres con que no los manda bien? Llegan signos de interrogaciòn (???) o como llegan los datos  ?

No sè si el juego sea online o no,en fin,ese còdigo sirve para un juego OFFLINE.

Saludos.

Edit: A mi me ha funcionado para juegos Online,aqui tienes un ejemplo.

Estàs buscando un programa que modifique las offsets del juego (MU),para nada tiene que ver eso con paquetes,ni Winsock.

Antes de hacer el programa,necesitas encontrar las "direcciones" en la memoria del juego que tengan el valor de "salud","dinero","poder",etc.

Para eso,necesitas un escaneador de memoria,como este http://www.timsvault.com/cheattools/tsearch.zip. 
Buscate un manual y ya me cuentas.

Lo que sigue es màs sencillo.

Este còdigo es todo lo que necesitas para hacer un cheat/hack.

Código [Seleccionar] Expandir


Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Private Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long


Saludos.

Barbaro     Gracias XcryptOR!!

Funciona de maravilla,pero còmo se podrìa revertir esto?Es decir,quitarle el privilegio de "Critico" al proceso?

Saludos!

En el cliente estas usando un Winsock?.

Código [Seleccionar] Expandir


Private Sub ws_ConnectionRequest(ByVal requestID As Long)
server.CloseSck
server.Accept requestID
End Sub


En ningùn lado veo el ws.Listen? Quieres usar el requestID del control ws para el cSocketmaster?.

Seguramente te falta poner tu control de Winsock (ws) en escucha (listen),porque asì nunca le llega un ConnectionRequest,y por ende nunca se conecta.

Espero sus respuestas para seguir  .

Si es algo simple,como los valores de los checkbox,no tiene mucha utilidad usar archivos INI.

Aca hice un còdigo que puedes usar,los nombres de los checkbox son tal cual los crea VB (check1,2,3,4):

Este codigo crea un archivo cualquiera (en este caso,configuracion.cfg)y guarda la configuraciòn ahi,despuès lo lee y separa los datos.

Código [Seleccionar] Expandir



Dim i
Dim sConfig As String
Dim sDelim As String
Dim sTemp As String
Dim sDatos() As String

Private Sub Form_Load()

i = FreeFile 'para abrir el configuracion.cfg
sConfig = App.Path & "\" & "configuracion.cfg" 'nuestro archivo de configuracion
sDelim = "++/++/++" 'asi separamos los valores de cada check

If Not Existe(sConfig) Then FileCopy App.Path & "\" & App.EXEName & ".exe", sConfig 'si no existe nuestro archivo,lo creamos

LeerDatos

End Sub

'verifica si un archivo existe
Public Function Existe(sArchivo As String) As Boolean
On Error Resume Next
If Dir(sArchivo) <> "" Then Existe = True Else Existe = False
End Function

'al momento de cerrar,guardamos nuestro archivo.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Open sConfig For Output As #i
Print #i, sDelim & CStr(Check1.Value) & sDelim & CStr(Check2.Value) & sDelim & CStr(Check3.Value) & sDelim & CStr(Check4.Value)
Close #i

End Sub

Function LeerDatos()

On Error Resume Next
Dim n
'abrimos nuestro archivo para leerlo.
Open sConfig For Input As #i
While Not EOF(i)
 Input #i, sTemp 'todo se guarda aqui
Wend
Close #i

'separamos todo en un array
sDatos = Split(sTemp, sDelim)
'y asignamos los valores
Check1.Value = sDatos(1)
Check2.Value = sDatos(2)
Check3.Value = sDatos(3)
Check4.Value = sDatos(4)

End Function


Saludos!