|
Mostrar Mensajes
|
Páginas: [1] 2
|
1
|
Seguridad Informática / Hacking / Duda Metasploit
|
en: 29 Diciembre 2009, 01:55 am
|
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!
|
|
|
6
|
Programación / Programación Visual Basic / Re: [AYUDA]PRograma .exe Que Mande Paketes
|
en: 7 Junio 2009, 21:00 pm
|
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. 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.
|
|
|
9
|
Programación / Programación Visual Basic / Re: Server no conecta, ayuda
|
en: 3 Junio 2009, 01:29 am
|
En el cliente estas usando un Winsock?. 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 .
|
|
|
10
|
Programación / Programación Visual Basic / Re: Otra duda con registros...
|
en: 3 Junio 2009, 01:15 am
|
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. 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!
|
|
|
|
|
|
|