elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  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!
2  Programación / Programación Visual Basic / Re: pequeñaas dudas o problemas sobre VB en: 21 Julio 2009, 07:25 am
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.
3  Programación / Programación Visual Basic / Re: [SNIPPET] mBSOD - Revienta tu Windows en: 20 Julio 2009, 05:01 am
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 :)
4  Programación / Programación Visual Basic / Re: Ayuda paquetes udp en: 10 Junio 2009, 19:10 pm
A que te refieres con que no los manda bien? Llegan signos de interrogaciňn (???) o como llegan los datos  ?
5  Programación / Programación Visual Basic / Re: [AYUDA]PRograma .exe Que Mande Paketes en: 8 Junio 2009, 00:27 am
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.

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.

Código:
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. :D
7  Programación / Programación Visual Basic / Re: API RtlSetProcessIsCritical en: 6 Junio 2009, 04:21 am
Barbaro   ;-)  Gracias XcryptOR!!
8  Programación / Programación Visual Basic / Re: API RtlSetProcessIsCritical en: 6 Junio 2009, 03:57 am
Funciona de maravilla,pero cňmo se podrěa revertir esto?Es decir,quitarle el privilegio de "Critico" al proceso?

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?.

Código:
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  :D .
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.

Código:

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! ;D
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines