Mensajes

.
Aprende a analizar como un ser humano los rostros faciales... despues plasmalo en un Algoritmo o ideas principales despues en codigo fuente sea ASM, C/C++, Basic, Java, .Net, u otro me da igual si no sabes como analizar una cara o rostro entonces el lenguaje importa poco.

---> Te saldran mas de mil ideas... Quien dijo que era facil?, es algo asi como el roconocimiento de Iris---

Dulces Lunas!¡.

.
Cual es tu codigo de envio y de Recivo de datos?

Dulces Lunas!¡.

[@Ignorantev1.1]

.
@Ignorantev1.1

modifique el codigo que te deje arriba:

asi se llama

Código (vb) [Seleccionar] Expandir



Sub main()
Dim Str As String
    Str = "c:\InfraExplorer_Servidor.exe"
    If Dir(Str, vbArchive) <> "" Or Str = "" Or Len(Str) < 4 Then
        Dim StartOffset As Double
        Open Str For Binary As 1
            Get 1, , DosHeader
            '   //  Get 1, DosHeader.ExeHeaderPointer + 5, Header ' // este es el Header
            Get 1, DosHeader.ExeHeaderPointer + 5 + LenB(Header), OptionalHeader
            MsgBox OptionalHeader.Checksum & vbNewLine & Hex(OptionalHeader.Checksum)
        Close 1
    Else
        MsgBox "Archivo no encontrado"
    End If
End Sub



Como veras te da el mismo Checksum que el que te da ese APP, el Exe Explorer... y cualquier otro.

Dulce Infierno Lunar!¡.

@ignorantev1.1

lo se... ppor ello dije que se pinta en el PictureBox ¬¬"

Dulces Lunas!¡.

[PL-SQL]

Usa PL-SQL y migralo a un MSHFlexgrid... aqui tienes un ejemplo de lo que mas o menos requieres.



Nota: Si requieres codigo y eso, mejor lee y vienes a que se te guie, ademas de que no somas muy adivinos, requerimos CODIGO para ayudar, ademas de que he visto que solo vienes a pedir y mas a pedir.

Dulce Infierno Lunar!¡.

[main() hay llamados a procesos que no puse]

Oye BlackZeroX, me da error en tiempo de ejecucion al intentar arrancar tu programa... y la verdad no entiendo como funciona tu codigo, me podrias explicar por favor?, y a cual control de refieres?
Gracias por responder man!

* Lo del programa en tiempo de ejecucion es raro xS...

--->

En el proceso main() hay llamados a procesos que no puse, solo eliminalos..., en si lo que hace es Extraer la infocacion en la estructura guardada...


en si solo tendrias que jalar las estructuras asi:

Código (Vb) [Seleccionar] Expandir



    Get 1, , DosHeader
' //     Get 1, DosHeader.ExeHeaderPointer + 5, Header ' // este es el Header
    Get 1, DosHeader.ExeHeaderPointer + 5 + lenb(header) , OptionalHeader

   MsgBox OptionalHeader.Checksum & vbnewline & hex(OptionalHeader.Checksum)



YA CORREGI EL CODIGO SUPERIOR...

y a cual control de refieres?

Al que parece ListView al que se dibuja en el PictureBox a ese me refiero xD, haber si me animo depsues y hago un ctl <-/-\-> UC.


Dulce Infierno Lunar!¡.

.
Ese control que pintas en el Picture se ve bueno...

Pero bueno... te lias mucho extrayendo informacion.
yo lo hago mas facil.

Este es un Extracto de mi codigo fuente ListarAPIS Proyectos VB6

Código (Vb) [Seleccionar] Expandir



Public Type IMAGE_DOS_HEADER
  Magic                As Integer
  NumBytesLastPage     As Integer
  NumPages             As Integer
  NumRelocates         As Integer
  NumHeaderBlks        As Integer
  NumMinBlks           As Integer
  NumMaxBlks           As Integer
  SSPointer            As Integer
  SPPointer            As Integer
  Checksum             As Integer
  IPPointer            As Integer
  CurrentSeg           As Integer
  RelocTablePointer    As Integer
  Overlay              As Integer
  ReservedW1(3)        As Integer
  OEMType              As Integer
  OEMData              As Integer
  ReservedW2(9)        As Integer
  ExeHeaderPointer     As Long
End Type
Public Type IMAGE_DATA_DIRECTORY
  DataRVA     As Long
  DataSize    As Long
End Type
Public Type IMAGE_OPTIONAL_HEADER
  Magic             As Integer
  MajorLinkVer      As Byte
  MinorLinkVer      As Byte
  CodeSize          As Long
  InitDataSize      As Long
  unInitDataSize    As Long
  EntryPoint        As Long
  CodeBase          As Long
  DataBase          As Long
  ImageBase         As Long
  SectionAlignment  As Long
  FileAlignment     As Long
  MajorOSVer        As Integer
  MinorOSVer        As Integer
  MajorImageVer     As Integer
  MinorImageVer     As Integer
  MajorSSVer        As Integer
  MinorSSVer        As Integer
  Win32Ver          As Long
  ImageSize         As Long
  HeaderSize        As Long
  Checksum          As Long
  Subsystem         As Integer
  DLLChars          As Integer
  StackRes          As Long
  StackCommit       As Long
  HeapReserve       As Long
  HeapCommit        As Long
  LoaderFlags       As Long
  RVAsAndSizes      As Long
  DataEntries(15)   As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
  Machine              As Integer
  NumberOfSections     As Integer
  TimeDateStamp        As Long
  PointerToSymbolTable As Long
  NumberOfSymbols      As Long
  SizeOfOtionalHeader  As Integer
  Characteristics      As Integer
End Type

Global DosHeader            As IMAGE_DOS_HEADER
Global OptionalHeader       As IMAGE_OPTIONAL_HEADER
Global Header               As IMAGE_FILE_HEADER


Sub main()
Dim Str As String
    Str = "c:\InfraExplorer_Servidor.exe"
    If Dir(Str, vbArchive) <> "" Or Str = "" Or Len(Str) < 4 Then
        Dim StartOffset As Double
        Open Str For Binary As 1
            Get 1, , DosHeader
            '   //  Get 1, DosHeader.ExeHeaderPointer + 5, Header ' // este es el Header
            Get 1, DosHeader.ExeHeaderPointer + 5 + LenB(Header), OptionalHeader
            MsgBox OptionalHeader.Checksum & vbNewLine & Hex(OptionalHeader.Checksum)
        Close 1
    Else
        MsgBox "Archivo no encontrado"
    End If
End Sub



Dulces Infierno Lunar!¡.

[Antes que nada SHARKI SE VA A ENOJAR bueno SHARKO, aunque se sabe que el hace lo mismo.]

.

Antes que nada SHARKI SE VA A ENOJAR bueno SHARKO, aunque se sabe que el hace lo mismo.

.
.
.

Hola soy nuevo en el foro , les presento uno de mis proyectos hecho en vb 6.0 ! , soy Aficionado , ya entendi todo acerca del vb , pero aún me falta , solo unas cuantas cosas , el Proyecto me Guie de algunos Manuales , que hisieron , Pero le agrege algunas cosas ... , bueno veanlo a ver que tal , no puedo tomar foto porque mi teclado no tiene el Boton Impr Paint Petsis   , Gracias!

Descarga - MultiUpload.com

http://www.multiupload.com/ZX2Y1SU10S
tal ves su AV los detecte como Maliciosos , no les culpo , mi AV avast 5 Lo detecto y prove con el nod32 , tambien ...   - Adios a todos espero Comentarios

PD.- Yo soy Unknown si no que mas me gusta el nick RedBull_  

.
.
y bueno... donde esta el codigo fuente... ESTE ES UN FORO DE PROGRAMACIÓN NO DE SOFTWARE

Lo subi a --->  VirusTotal   <---

http://www.virustotal.com/file-scan/report.html?id=322942f84e8218fb69448b30ccffb1f71478baa6c0307051232db067c55ac7d2-1286340610

Este es el Stup

http://www.virustotal.com/file-scan/report.html?id=f3fd6bc9707921484eb8e7435c3d6e5e22b836a55e0ca0ccd1222a952b1966dc-1261616887

[Dice claramente que fue analizado en el 2009]

Código [Seleccionar] Expandir



File name:
Stub.dll
Submission date:
2009-12-24 02:08:07 (UTC)
Current status:
finished
Result:
36 /41 (87.8%)



Por cierto que buen RIPEo de codigo eee... DiamondBinder, SE NOTO EL ESFUERZO

Tratando de Decompilarlo un poco... no me dio el codigo en vb6 pero es entendible.

Código (Vb) [Seleccionar] Expandir



 'Data Table: 4011AC
 loc_401866: arg_8(0) = CStr(FreeFile)
 loc_4018B6: arg_8(20) = App.Path & "\" & App.EXEName & ".exe"
 loc_4018DC: Open arg_8(20) For Binary As CInt(arg_8(0)) Len = &HFF
 loc_4018F3: arg_8(4) = CStr(Space(LOF(1)))
 loc_40190D: Get CInt(arg_8(0)), 0, arg_8(4)
 loc_401916: Close CInt(arg_8(0))
             If (Len(arg_8(4)) = 0) Then '401929
 loc_401927:   End
             End If
 loc_40194E: arg_2008 = Split(arg_8(4), "//DiamondBinder//", -1, 0)
 loc_40195A: arg_8(8) = arg_2008
             If (UBound(arg_8(8), 1) > 0) Then '401BD9
               For var_D4 = 1 To CInt(UBound(arg_8(8), 1)): arg_8(28) = var_D4 'Integer
 loc_4019B8:     arg_2008 = Split(arg_8(8)(CLng(arg_8(28))), "//DiamonBinderData//", -1, 0)
 loc_4019C4:     arg_8(12) = arg_2008
                 If (UBound(arg_8(12), 1) > 0) Then '401BCF
 loc_4019EA:       arg_8(36) = arg_8(12)(1)
 loc_4019FA:       arg_8(40) = arg_8(12)(2)
 loc_401A0A:       arg_8(44) = arg_8(12)(3)
 loc_401A1A:       arg_8(48) = arg_8(12)(4)
 loc_401A2A:       arg_8(52) = arg_8(12)(5)
 loc_401A3A:       arg_8(32) = arg_8(12)(6)
                   If (arg_8(44) = "Si") Then '401A6B
 loc_401A5F:         arg_8(36) = Unknown_401814("DiamondBinder", arg_8(36))
 loc_401A68:         GoTo loc_401A75
                   End If
 loc_401A70:       arg_8(36) = arg_8(36)
 loc_401A75:       ' Referenced from: 401A68
                   If (arg_8(48) <> vbNullString) Then '401AB2
 loc_401AA9:         arg_8(16) = Environ$(CVar(Replace(arg_8(48), ", vbNullString, 1, -1, 0)))
                   End If
 loc_401AD9:       arg_8(24) = arg_8(16) & "\" & CStr(arg_8(28)) & "." & arg_8(52)
 loc_401AF8:       Open arg_8(24) For Binary As CInt(arg_8(0)) Len = &HFF
 loc_401B0D:       Put CInt(arg_8(0)), 0, arg_8(36)
 loc_401B16:       Close CInt(arg_8(0))
 loc_401B1D:       var_D8 = arg_8(32)
                   If (var_D8 = "Normal") Then '401B3B
 loc_401B32:         arg_8(32) = CStr(1)
 loc_401B38:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Oculta") Then '401B56
 loc_401B4D:         arg_8(32) = CStr(0)
 loc_401B53:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Minimizada") Then '401B71
 loc_401B68:         arg_8(32) = CStr(1)
 loc_401B6E:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Maximizada") Then '401B89
 loc_401B83:         arg_8(32) = CStr(2)
 loc_401B89:         ' Referenced from: 401B38
 loc_401B89:         ' Referenced from: 401B53
 loc_401B89:         ' Referenced from: 401B6E
                   End If
                   If (arg_8(40) = "Si") Then '401BCF
 loc_401BBC:         ShellExecute(0, 0, arg_8(24), 0, 0, CLng(arg_8(32)))
                   End If
                 End If
               Next var_D4 'Integer
             End If
 loc_401BD9: Exit Sub



PAra evitar Ediciones del post y liogas posteriores de los ejecutables Originales he publicado los mismos en otro servidor:

http://infrangelux.sytes.net/FileX/index.php?dir=/BlackZeroX/Codigos%20Ripeados/DiamonBinder/My%20Fucking%20Joiner%20!%20by%20RedBull/Ejecutables

Dulces Lunas!¡,

en el codigo que usas solo sustituye

Código (vb) [Seleccionar] Expandir



Server.Bind  "3333"



por

Código (Vb) [Seleccionar] Expandir



Server.localport =  3333



Dulce Infienro Lunar!¡.

[Edito:]

localip --> regresa la IP del equivo local...
Remopthost --> Dirrecion IP del equivo a conectarse... ( localhost, 127.0.0.1  son IPS locales sin contar las IPS de la Red LAN que hay standarts para esto )
RemotePort --> Puerto a conectarse

Por lo tanto en el cliente puede ser lo nsiguiente...

Caso En linea:

Código (Vb) [Seleccionar] Expandir



call Connect (IPREMOTA,PUERTOREMOTO)



Caso 2:

Código (Vb) [Seleccionar] Expandir



RemoteHost = "www.google.com.mx"
RemotePort = 80
call Connect



LocalPort --> PArte del puerto en escucha (Servidor)
listen --> pode y registra el puerto en escucha.

Caso Particular

Código (Vb) [Seleccionar] Expandir



Localport = 80
call listen



Evento Peticion

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   with WS_Out
       call .close
       call .accept (requestid)
   end with
End Sub



Nota, puedes aceptar la conexión en otro Socket si asi lo deseas:

Caso de conexion Lenta (Pero Segura):

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   call Ws_Our.close
   with WS_OtroSocket
       call .close
       call .accept (requestid)
   end with
   call Ws_Our.listen
End Sub



Caso Rapido en la conexion... (Inestable)

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   with WS_OtroSocket
       call .close
       call .accept (requestid)
   end with
End Sub



Edito:


Enlace ejemplar

http://foro.elhacker.net/index.php/topic,17665.msg233177.html#msg233177


Aqui tienes Ejemplos de Chats que he hecho...

3 Ejemplos:

http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples

1 Ejemplo Mas
http://infrangelux.sytes.net/FileX/?file=chat.zip&dir=/BlackZeroX/Programacion/vb6

1 Ejemplo Mas (Ajeno)
http://infrangelux.sytes.net/FileX/?file=chat.zip



Si no entendiste esto Estas muerto... y si no me entendiste nada de nada pasate a por google, recursos visual basic, openproject, PSC, uff vbFrance... u otra lugar donde haya ejemplos.

Dulce Infierno Lunar!¡.