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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Temas
Páginas: 1 2 3 4 [5] 6 7 8 9 10
41  Programación / Programación Visual Basic / |WINSOCK|Sistema de login (cliente / servidor). en: 16 Agosto 2013, 22:40 pm
hola a tOdos un buen saludo.

estoy en la Creacion de Un juego de Cartas macas estilo Ani Dimencion pero mas compacto y beta, ahora bien he progresado bastante en la creacion de este!.

me Vino a la mete Crear un sistema de inicio de sesion mediante winsocK la cual sea multipuerto, hasta ahora se como Hacerlo pero no tengo ni idea de como mandar los datos al servidor --> que este lo verifique en una bd De acces o mysql , me da Igual, y pues que me mande un valor 1 si es correcto o 0 si es incorrecto --> el cliente podra iniciar o no la sesion.

si alguien sabe como hacer algo parecido. o que por lo Menos use winsock se lo agradeceria mucho!.

saludos y gracias por leer.
42  Programación / Programación Visual Basic / Wisnock - Enviar y Recibir varios datos al mismo tiempo en: 16 Agosto 2013, 19:29 pm
Hola a todos , pues lo que necesito es saber como puedo enviar X's datos al servidor y que este verfique algunas cosas y pues envie datos para atras.

Digamos que es un inicio de sesion con el control winsock , pues el cliente envia los datos al servidor -> el servidor busca en una carpeta los datos que este ah ingresado, si los datos existen y son correctos -> el servidor envia todos los datos.

pero que pasa , cada dato es para un cosas diferentes como por ejemplo ,


Nombre.text = Dato1
ID.text = Dato2
Numero.text = Dato3



Por ahora lo que tengo es esto que me lo recomendaron hace tiempo pero no logro que me funcione:

Código
  1. ENVIAR:
  2.  
  3. Dim Mensaje as String
  4. Mensaje = Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.Text
  5. Winsock1.SendData Mensaje
  6.  
  7.  
  8.  

Código
  1. RECIBIR:
  2.  
  3.     Dim Compuesto As String
  4.     Dim Separado() as string
  5.  
  6.     Winsock1.GetData Compuesto
  7.     Separado()=Split(Compuesto,"||")
  8.     Colortxt.Text = Separado(3)
  9.     Activacion.Caption = Separado(4)
  10.     De.Caption = Separado(1)
  11.     MsgRecibido.Text = Separado(0)
  12.  
  13.  

Y quiero implementarlo a un winsock multipuertos que segun recuerdo se hace

WINSOCK1(0)

Ayuda como ago para que el socket que envie los datos al cliente que lo solicito.

Grcaias y un Saludo
43  Programación / Programación Visual Basic / Enviar Imagenes por Winsock en: 13 Agosto 2013, 19:38 pm
Hola a todos  aqui les vengo con una duda y es como envio imagenes a un winsock
de Cliente a Cliente.

Que haga la siiguiente funcion Cliente <-> Servido <-> Cliente

Tengo este codigo que encontre de una web pero solo envia una imagen pero quiero que envie porlomenos 5 o 6 imagenes de cliente a cliente.

Código:

     'Función Api Sleep Para generar una espera o retardo de tiempo  
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  
    'Array de bytes para el gráfico  
    Dim imagen() As Byte  
    'Estas dos variables son 2 flags  
    Dim flag As Boolean  
    Dim progreso As Boolean  
      
    'Este Command es para conectarse al servidor  
    '*********************************************************************  
    Private Sub Command1_Click()  
    'Conectamos a la Ip y puerto  
    Winsock1.Connect Text1, CInt(Text2)  
    'Mostramos la Ip de conexión en el caption del Formulario  
    Me.Caption = "Estado de la conexion: Conectado a la IP: " + Text1  
    'Esto deshabilita y habilita controles  
    Command3.Enabled = True: Command1.Enabled = False: Command2.Enabled = True  
    End Sub  
      
    'Este Command es para desconectarse del servidor  
    '*********************************************************************  
    Private Sub Command2_Click()  
    'habilitamos y deshabilitamos los command  
    Command2.Enabled = False: Command1.Enabled = True  
     'cerramos la conexión  
    Winsock1.Close  
    End Sub  
      
    'Este Command es el que abre el cuadro de diálogo para seleccionar la imágen  
    '*********************************************************************  
      
    Private Sub Command3_Click()  
    On Error GoTo mensaje  
    With CommonDialog1  
    .DialogTitle = "Seleccionà el archivo de imagen"  
    .ShowOpen  
    If .FileName = "" Or .CancelError = True Then Exit Sub 'salimos si cancelamos  
    If MsgBox("¿Seleccionaste el archivo correcto??", vbInformation + vbYesNo, _  
    "Enviar archivo de imagen") = vbNo Then Exit Sub  
      
    Winsock1.SendData .FileName 'enviamos la ruta  
    Picture1 = LoadPicture(.FileName) 'Cargamos la imagen en el Picture1  
    End With  
      
    Command4.Enabled = True  
    Command3.Enabled = False  
    Exit Sub  
    mensaje:  
    If Err.Number = 40006 Then MsgBox Err.Description, vbInformation, _  
    "Error en la conexion": Command2_Click: Me.Cls  
    End Sub  
      
      
    'Este Command es el que envía la imágen al servidor  
    '*********************************************************************  
      
    Private Sub Command4_Click()  
    Dim tamaño As Long  
    progreso = True  
    'abrimos el archivo en modo binario de lectura  
    Open CommonDialog1.FileName For Binary Access Read As #1  
    tamaño = LOF(1) 'Tamaño en bytes de la imagen  
    'Redimensionamos el Array  
    ReDim imagen(tamaño - 1)  
    'Leemos todo el archivo y lo almacenamos en el array imagen  
    Get #1, , imagen  
    Close  
      
    flag = True  
    'Enviamos el array al servidor  
    Winsock1.SendData imagen  
    'Para el progreso del envio  
    ProgressBar1.Max = tamaño + 1  
    End Sub  
      
    Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _  
    ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _  
    HelpContext As Long, CancelDisplay As Boolean)  
      
    MsgBox "Error: " + Description  
      
    End Sub  
      
      
    'Este evento se dispara cuando se terminó de enviar completamente _  
    todos los datos  
    '*****************************************************************  
    Private Sub Winsock1_SendComplete()  
    'Hacemos una pausa  
    Sleep 1500  
      
    If flag Then Command4.Enabled = True  
    If flag Then Winsock1.SendData 1: flag = False  
    Command4.Enabled = False  
    Command3.Enabled = True  
    If progreso Then  
    ProgressBar1.Value = 0  
    progreso = False  
    End If  
      
    End Sub  
      
    'Muestra mediante el evento SendProgress en la barra de progreso  
    '*****************************************************************  
    Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal _  
    bytesRemaining As Long)  
      
    If progreso Then  
    ProgressBar1 = ProgressBar1 + bytesSent ' bytesSent son los bytes enviados  
    End If  
    End Sub  
      
      
      
    Private Sub Form_Load()  
    Dim ancho As Integer  
    Me.ScaleMode = vbPixels: Me.ForeColor = vbBlue  
    Text1 = "127.0.0.1": Text2 = 1000  
    Command1.Caption = "conectar": Command2.Caption = "desconectar": _  
    Command3.Caption = "-->> Buscar archivo de imagen para enviar al servidor": _  
    Command4.Caption = "Enviar"  
      
    ancho = TextWidth(Command3.Caption)  
    Command3.Width = ancho + ancho / 10  
    Command2.Enabled = False: Command4.Enabled = False: Command3.Enabled = False  
    Label1.Caption = "Direccion ip"  
    Label2.Caption = "Puerto"  
    Label1.AutoSize = True: Label2.AutoSize = True  
    Me.Caption = "No conectado"  
    End Sub  
      
    Private Sub Form_Resize()  
    On Error Resume Next  
    Label1.Left = 10: Text1.Left = Label1.Width + 20: Label2.Left = Text1.Left + _  
    Text1.Width + 20: Text2.Left = Label2.Left + Label2.Width + 10  
      
    Label1.Top = 20: Label2.Top = 20: Text1.Top = 20: Text2.Top = 20  
    Command3.Left = 20: Command3.Top = Text1.Top + Text1.Height + 20  
    Command1.Left = Me.ScaleWidth - Command1.Width - 20  
    Command2.Left = Me.ScaleWidth - Command2.Width - 20  
    Command4.Left = Me.ScaleWidth - Command4.Width - 20  
    Command1.Top = 20: Command2.Top = 20 + Command1.Height: Command4.Top = 50 + _  
    Command2.Top  
    ProgressBar1.Left = 20: ProgressBar1.Width = Me.ScaleWidth - 40  
    ProgressBar1.Top = Me.ScaleHeight - ProgressBar1.Height - 10  
    Picture1.Left = 20: Picture1.Top = Command3.Top + 30: Picture1.Height = _  
    Me.ScaleHeight - ProgressBar1.Height - Command3.Height - Text1.Height - 60  
    Picture1.Width = Me.ScaleWidth - Command2.Width - 50  
    End Sub 



Código:

    Dim flag As Boolean, nombre As String  
      
    Private Sub Command1_Click()  
        'Ponemos a la escucha el Winsock  
        Winsock1.Listen  
        Command1.Enabled = False  
        Command2.Enabled = True  
    End Sub  
      
    Private Sub Command2_Click()  
        'Desconectamos el Winsock  
        Winsock1.Close  
        Command1.Enabled = True  
        Command2.Enabled = False  
    End Sub  
      
    Private Sub Command3_Click()  
        End  
    End Sub  
      
    'Esto le asigna los caption y demás a los controles  
    Private Sub Form_Load()  
        Me.ScaleMode = vbPixels  
        Winsock1.LocalPort = 1000 'Le establecemos el puerto  
        Command1.Caption = "poner a la escucha"  
        Command2.Caption = "Desconectar"  
        Command3.Caption = "salir"  
        Check1.Caption = "Eliminar las imagenes temporales del directorio"  
        Me.Caption = "puerto determinado de comunicacon: 1000"  
    End Sub  
      
    'Redimensionar controles  
    Private Sub Form_Resize()  
        On Error Resume Next  
        Command1.Top = Me.ScaleHeight - Command1.Height  
        Command2.Top = Me.ScaleHeight - Command2.Height  
        Command3.Top = Me.ScaleHeight - Command3.Height  
        Command1.Left = 10: Command2.Left = Command1.Width + 10: _  
        Command3.Left = Me.ScaleWidth - Command3.Width - 10  
        Picture1.Width = Me.ScaleWidth - 20  
        Picture1.Left = 10  
        Me.Height = Screen.Height / 2  
        Check1.Left = 10  
        Check1.Top = Me.ScaleHeight - Command1.Height - Check1.Height  
    End Sub  
      
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)  
        Winsock1.Close  
        Winsock1.Accept requestID  
    End Sub  
      
    'Procedimiento que recibe los datos del cliente  
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
      
    'Array dinámico para almacenar el archivo  
    Dim imagen() As Byte  
      
        Select Case flag  
            Case False  
                'Esto se encarga de obtener el nombre del fichero  
                Winsock1.GetData nombre  
                nombre = Right(nombre, Len(nombre) - InStrRev(nombre, "\"))  
                Open App.Path + "\" & nombre For Binary As #1  
                flag = True  
            Case True  
                'Esto escribe en el disco el archivo de imagen  
                Winsock1.GetData imagen  
                If UBound(imagen) = 1 Then  
                    Close  
                    Picture1 = LoadPicture(App.Path + "\" + nombre)  
                    'Si está chequeado el chek eliminamos el archivo cuando finaliza  
                    If Check1 Then Kill App.Path + "\" + nombre  
                        flag = False  
                    Exit Sub  
                End If  
                'Escribimos en disco la imagen con Put pasandole el Array  
                Put #1, , imagen  
      
        End Select  
    End Sub 



Si alguien puede ayudarme! :D
44  Programación / Programación Visual Basic / Wisock - Hacer que no se quede con un solo cliente en: 12 Agosto 2013, 07:33 am
Hola a todos amigos pues aqui me vengo a explicar.

Tengo tiempo con una idea en la mente realmente simple, es crear un juego winsock especialmente de batallas con cartas , algo simple lo que me inspiro fue Ani dimension lo mejor que visto en mi vida de verdad que si!.

Bien volviendo al tema, quiero saber como crear un servidor que escuche en el mismo puerto pero que se use de Sala .

Me explico:

Quiero que el servidor actue como una room donde estan todos los usuarios y de hay los usuarios elijen con quienes quieren batallar .

Esto es todo espero que me puedan ayudar hasta la proxima.
Haa y acepto comententarios y/o ayudas con el tema del juego.
 :D :D
45  Programación / Programación Visual Basic / Como crear un formato o extensión propia. en: 11 Agosto 2013, 17:54 pm
Hola a todos ,

aqui con otra duda para el mejor foro de la internet....

mi duda es simple solo quiero saber como creo una extensión propia para un programa la cual cuando el archivo se crea , se guarda con el icono del programa con un nombre y con un nombre espefifico?

Obtube este codigo en la internet pero aun no se como se llama , porque intente como decia en un ejemplo pero no me funciono, aver si ustedes pueden ayudarme con esto:

Código
  1.  
  2.  
  3. 'LLamada a las Api de Windows (advapi32)
  4. Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  5. Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  6. Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  7. 'Constantes
  8. Const HKEY_CLASSES_ROOT = &H80000000
  9. Const REG_SZ = 1 'Valor de cadena
  10. Public Res As Long
  11.  
  12. 'IconFile -Dirección del icono que va a tener la extensión.
  13. 'ExeFile -Dirección del programa con que se va abrir la extensión.
  14. 'ProgramName -Nombre con que se idectifica el programa.
  15. 'Extension - Extension que se va a registrar Ejemp Jpg (sin el pto)
  16. 'ExtensionDescripcion -La descripción del extension que se mostrara
  17. 'en el explorador Ejem "Winrar Archive" (Este es el caso de *.rar extesion del Winrar)
  18. Public Sub registrarExtension(ByVal IconFile As String, ByVal ExeFile As String, ByVal ProgramName As String, ByVal Extension As String, ByVal ExtensionDescripcion As String)
  19. On Error GoTo Fin
  20. Dim SubKey As String, I As String, E As String
  21. SubKey = Extension
  22. 'Crea la primera clave en el registro,por ejemplo .jpg con valor jpgPaint
  23. I = IconFile
  24. RegCreateKey HKEY_CLASSES_ROOT, "." & SubKey, Res
  25. RegOpenKey HKEY_CLASSES_ROOT, "." & SubKey, Res
  26. RegSetValueEx Res, "", 0, REG_SZ, ByVal SubKey & ProgramName, Len(SubKey & ProgramName)
  27.  
  28. 'Crea la segunda clave en el registro,por ejemplo jpgPaint con valor jpgPaint
  29. RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName, Res
  30. RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName, Res
  31. RegSetValueEx Res, "", 0, REG_SZ, ByVal ExtensionDescripcion, Len(ExtensionDescripcion)
  32.  
  33. 'Crea la primera subclave en el registro llamada DefaultIcon,con la ruta del icono seleccionado D:\RegExt\Cube 2.ico O C:\AS.EXE,1
  34. RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\DefaultIcon", Res
  35. RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\DefaultIcon", Res
  36. RegSetValueEx Res, "", 0, REG_SZ, ByVal I, Len(I)
  37.  
  38. 'Crea la segunda y tercera subclaves en el registro llamadas open\command,con la ruta del programa seleccionado. Ejem: C:\AS.EXE,1
  39. E = ExeFile & " %1"
  40. RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\shell\open\command", Res
  41. RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\shell\open\command", Res
  42. RegSetValueEx Res, "", 0, REG_SZ, ByVal E, Len(E)
  43. Fin:
  44. End Sub
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
[/sup]
46  Programación / Programación Visual Basic / ¿Como acer un Updater? en: 9 Agosto 2013, 04:19 am
Hola a todos , tengo un juego en VB6 y pues lo quiero mantener actualizado , como ago para que cuando se suba una nueva version del juego este descargue los archivos y los reemplase por los otros?

O si no que solo me descargue la nueva version????

Espero su ayuda , gracias y un buen saludo!
47  Programación / Programación Visual Basic / Como crear un Updater para un proyecto de VB6 en: 8 Agosto 2013, 18:14 pm
Hola a todos yo aqui con una nueva pregunta , y bueno creo que en el titulo lo dice todo , pero lo que quiero hacer con mas precion es acer un update que me descague los archivos nuevos y me los guarde en la carpeta del proyecto , si se puede que sea por FTP o como sea pero que haga lo que ya les mencione..

Porfavor espero que me puedan ayudar , un millon de gracias! :D
48  Programación / PHP / Mostrar nombre de un usuario logeado en una caja de texto html en: 26 Julio 2013, 08:18 am
Hola a todos bueno esto es rapido y corto ademas creo que el titulo lo dice todo , pues bien...

Amm tengo un problema y es que no se me muestra una variable en el valor de una caja de texto.

Este es mi code:

Código
  1. <input type="text" name="tu_id" value= "<?php echo $user ?>">
  2.  

y le asigno a la variable:

Código
  1. $user = $_SESSION['user'];
  2.  

pero no me muestra el usuario no se porque¿¿??

y ademas probe con otra variable para ver si la anterior estaba fallando pero no¿?

Código
  1. $g = '"Hola como estas¿?"'
  2.  

y el code haci:

Código
  1. <input type="text" name="tu_id" value= "<?php echo $g ?>">
  2.  

Necesito ayuda plis!! :( :(

Saludos!
49  Programación / PHP / Link que pide info de una bd en: 25 Julio 2013, 00:57 am
hola a todos bueno este es otro post del anterior porque no queria hacer 2ble post , bueno ya la forma de hacer lo Que pedia y era:
que se me generara un link el cual me llevara a un php que este pedia los datos con el id del usurio de la bd

para que entiendan mejor estos son los codigos:

Código
  1.  echo'<a href="http://quelok.netne.net/info.php?id='.$_SESSION['id_puntos'].'"> Ver Puntos 1 </a>';

esto lo que hace es buscar la id del usuario ponerla despues de http://quelok.netne.net/info.php?id= para que cuando valla a info me salga un texto como por ejemplo

y cuando le das clic en Ver Puntos despues del http://quelok.netne.net/info.php?id= no se ve la id pero se supone que se deve de ver.

Tus puntos son  : ***

*** son los puntos que tiene el usuario en la bd

el codigo de info.php es :

Código
  1.  <?php
  3. require_once('funciones.php');
  4. conectar('******', '********', '****', '*****');
  5.  
  6. if($_SESSION['logged'] == 'yes')
  7. {
  8. echo'<a href="http://quelok.netne.net/info.php?id='.$_SESSION['id_puntos'].'"> Ver Puntos </a>';
  9. echo' <-|-> ';
  10. echo'<a href="http://quelok.netne.net/salir.php"> Salir </a>';
  11.  
  12. }else{
  13. echo 'No estas logeado, largate de aqui.';
  14. }
  15. ?>

y pues no se porque a la hora de mostrar los ***** no lo hace se queda en Tus Puntos Son : ? no aparece.
y ademas si se que en la bd deve de tener un valor y lo tiene se supone claro tambien en el link pongo la id que es 1 y no pasa nada pues como ya les dije el link no me genera lo que es la id.

http://quelok.netne.net/

inicien sección para que vean

Usuario :  hola
Contraseña : hola
la id es : 1 ay que este es el unico y primer usuario..




##########################################
modificado por alf... pusiste tus contraseñas!
50  Programación / PHP / Crear link con dato de un registro de una bd en: 24 Julio 2013, 22:53 pm
Hola a todos bueno sere breve ya estoy desde un movil y pues cansa escribir, bien mi problem es que no se como hacer para que un codigo php me haga un link la cual me lleve a una pagina con el dato de un registro de una bd?

ejemplo:

Click para ver tus puntos

cuando clicke se haga un link ejemplo:

http://miweb.com/ver_mis_puntos?id=1

este seria un ejemplo basico de lo que quiero
al poner este link en el buscador al entrar me mande a una pag html con los puntos del Id 1..

espero que me puedan ayudar , gracias y un buen saludo!
Páginas: 1 2 3 4 [5] 6 7 8 9 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines