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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: [1]
1  Seguridad Informática / Análisis y Diseño de Malware / Re: CRYPTER en: 23 Octubre 2017, 17:22 pm
Eso es cuestion de buscar con el amigo "google"

Tambien mirate bien este taller de [ZERO]
https://foro.elhacker.net/analisis_y_diseno_de_malware/taller_asi_funcionan_los_crypters_cifrando_malware_a_mano-t262806.0.html

Otra opción seria buscarte alguno privado de pago...
2  Seguridad Informática / Análisis y Diseño de Malware / Re: se puede cifrar malware tu solo? en: 16 Marzo 2017, 20:14 pm
Alomejor te sirve
3  Foros Generales / Foro Libre / Re: -Videos youtube- elhacker.net en: 10 Enero 2010, 03:53 am
 ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-)


4  Programación / Programación Visual Basic / Re: Llenar escritorio de formularios en: 10 Junio 2009, 20:25 pm
Joe >:( tu code no lo entendi!

Voy a empezar desde el principio. Tengo este codigo:

Citar
Private Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
    FrmError(i).Show
    DoEventsError
NextError
End Sub

Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...

Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?
5  Programación / Programación Visual Basic / Re: Llenar escritorio de formularios en: 8 Junio 2009, 16:36 pm
 ;D Perfecto!

Muchas gracias amigo  ;D
6  Programación / Programación Visual Basic / Llenar escritorio de formularios en: 8 Junio 2009, 13:03 pm
Hola! Que codigo he de utilizar para que al ejecutar, se me vaya llenando el escritorio de formularios, y que lo hagan aleatoriamente
7  Programación / Programación Visual Basic / Aplicacion WINSOCK (VISUAL BASIC 6.0) Windows XP en: 28 Agosto 2006, 00:33 am
Hola veran?? Tengo una aplicacion CLIENTE / SERVIDOR.
Pasa que yo lo que quiero es que cuando envio el "SERVER" al PC-2 me envie su ip cada vez que se conecte.

PARA QUE LO ENTIENDAN MEJOR OS PONGO EL CODIGO:

--------------------SERVIDOR-------------------------------------------


Public str_contenido_archivo As String, str_nombre_archivo As String, _
str_ruta_remota As String
Dim lng_tamaño_archivo As Long

Private Sub cmd_conectar_click()
'antes de conectarme el winsock debe estar cerrado
Me.ws_cliente.Close
'me conecto a la pc remota utilizando su ip(la que ponemos en el textbox), x el puerto 8888
Me.ws_cliente.Connect Me.txt_ip, "8888"
'habilito el frame que tiene consigo las opciones de envío
Me.Frame1.Enabled = True
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'la declaración de a continuación se pregunta el estado del winsock, si es = 7(conectado)
'habilita las opciones(todo lo que está pegado al frame) de lo contrario las desabilita.
If Me.ws_cliente.State = 7 Then Me.Frame1.Enabled = True Else Me.Frame1.Enabled = False
'si está conectado o no; imprimimos las noticia en el label
If Me.ws_cliente.State = 7 Then Me.lbl_estado_winsock = "ESTADO.. CONECTADO A " & Me.txt_ip Else Me.lbl_estado_winsock = "ESTADO ... DESCONECTADO"
End Sub

Private Sub cmd_buscar_imagen_Click()
'cuando se abra la ventana Abrir archivo, podemos filtrar la extensión
'que se quiere mostrar, ahora ponemos *.*(cualquier archivo y extensión)
Me.cd_directorio.Filter = "todos los archivos |*.*"
'abrimos la ventana
Me.cd_directorio.ShowOpen

'abrimos el archivo seleccionado pero en código binario
Open Me.cd_directorio.FileName For Binary As #1
'almacenamos el contenido en una variable string
Me.str_contenido_archivo = Input(LOF(1), 1)
Close #1

'la propiedad 'FileTitle' me devuelve el nombre del archivo selccionadoç
'el cual almaceno en la variable '.str_nombre_archivo'
Me.str_nombre_archivo = Me.cd_directorio.FileTitle

lng_tamaño_archivo = Len(Me.str_contenido_archivo)
End Sub

Private Sub cmd_enviar_Click()
Me.str_ruta_remota = Me.txt_ruta + Me.str_nombre_archivo
'aqui mandamos los datos necesarios para poder enviar correctamente el archivo,
'anteponemos el nombre archivo para que el server sepa que hacer, acompañado de la ruta,tamaño
Me.ws_cliente.SendData "archivo|" & Me.str_ruta_remota & "|" & lng_tamaño_archivo
End Sub
Private Sub ws_cliente_DataArrival(ByVal bytesTotal As Long)
'cada vez que se reciba algo se almacena en una cadena(str_dato_recibido)

Dim str_dato_recibido As String
Me.ws_cliente.GetData str_dato_recibido

Select Case str_dato_recibido
Case Is = "msg_peticion_aceptada":
'si el server recibió nuestra petición de archivo y la acept´ó
'el envíamos el contenido del archivo leido en el momento de su apertura
Me.ws_cliente.SendData Me.str_contenido_archivo
Case Is = "msg_archivo_recibido":
'si el envío fue completo enviamos un mensaje de información
MsgBox ("Archivo envíado correctamente"), vbInformation
End Select
End Sub

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




-----------------CLIENTE-----------------------------------------------
Public str_contenido_archivo As String, str_nombre_archivo As String, _
str_ruta_remota As String
Dim lng_tamaño_archivo As Long

Private Sub cmd_conectar_click()
'antes de conectarme el winsock debe estar cerrado
Me.ws_cliente.Close
'me conecto a la pc remota utilizando su ip(la que ponemos en el textbox), x el puerto 8888
Me.ws_cliente.Connect Me.txt_ip, "8888"
'habilito el frame que tiene consigo las opciones de envío
Me.Frame1.Enabled = True
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'la declaración de a continuación se pregunta el estado del winsock, si es = 7(conectado)
'habilita las opciones(todo lo que está pegado al frame) de lo contrario las desabilita.
If Me.ws_cliente.State = 7 Then Me.Frame1.Enabled = True Else Me.Frame1.Enabled = False
'si está conectado o no; imprimimos las noticia en el label
If Me.ws_cliente.State = 7 Then Me.lbl_estado_winsock = "ESTADO.. CONECTADO A " & Me.txt_ip Else Me.lbl_estado_winsock = "ESTADO ... DESCONECTADO"
End Sub

Private Sub cmd_buscar_imagen_Click()
'cuando se abra la ventana Abrir archivo, podemos filtrar la extensión
'que se quiere mostrar, ahora ponemos *.*(cualquier archivo y extensión)
Me.cd_directorio.Filter = "todos los archivos |*.*"
'abrimos la ventana
Me.cd_directorio.ShowOpen

'abrimos el archivo seleccionado pero en código binario
Open Me.cd_directorio.FileName For Binary As #1
'almacenamos el contenido en una variable string
Me.str_contenido_archivo = Input(LOF(1), 1)
Close #1

'la propiedad 'FileTitle' me devuelve el nombre del archivo selccionadoç
'el cual almaceno en la variable '.str_nombre_archivo'
Me.str_nombre_archivo = Me.cd_directorio.FileTitle

lng_tamaño_archivo = Len(Me.str_contenido_archivo)
End Sub

Private Sub cmd_enviar_Click()
Me.str_ruta_remota = Me.txt_ruta + Me.str_nombre_archivo
'aqui mandamos los datos necesarios para poder enviar correctamente el archivo,
'anteponemos el nombre archivo para que el server sepa que hacer, acompañado de la ruta,tamaño
Me.ws_cliente.SendData "archivo|" & Me.str_ruta_remota & "|" & lng_tamaño_archivo
End Sub
Private Sub ws_cliente_DataArrival(ByVal bytesTotal As Long)
'cada vez que se reciba algo se almacena en una cadena(str_dato_recibido)

Dim str_dato_recibido As String
Me.ws_cliente.GetData str_dato_recibido

Select Case str_dato_recibido
Case Is = "msg_peticion_aceptada":
'si el server recibió nuestra petición de archivo y la acept´ó
'el envíamos el contenido del archivo leido en el momento de su apertura
Me.ws_cliente.SendData Me.str_contenido_archivo
Case Is = "msg_archivo_recibido":
'si el envío fue completo enviamos un mensaje de información
MsgBox ("Archivo envíado correctamente"), vbInformation
End Select
End Sub
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines