Mensajes

La verdad es que no juego mucho a ese tipo de juegos... pero si no me equivoco esa informacion se guarda en el servidor... porque no sniffas el trafico del juego para ver como le pide la info al servidor..

PD: Te muevo el tema a Programacion General

[COLLECTIONS!!]

La cosa es hacerlo mas rapido posible y hacerlo con COLLECTIONS!! que es la mejor forma de trabajar mas tarde que lo que retorna la funcion...

Tu codigo en mi procesador en el mejor de los casos tarda: 21,551 msec

[v0.1]

v0.1:
Mi funcion tarda: 17,462 msec (Probado compilado, en un procesador de ***** )

Código [Seleccionar] Expandir

Public Function iFactorize(ByVal n As Long) As Collection
   Dim cTmp    As New Collection
   Dim i       As Long
   Dim lSqrt   As Long
   
   If Not n > 0 Then GoTo Ret
   
   lSqrt = Sqr(n)

   For i = 2 To lSqrt
       If n Mod i = 0 Then
           Set cTmp = iFactorize(n / i)
           cTmp.Add i
           GoTo Ret
       End If
   Next i
   
   cTmp.Add n
   
Ret: Set iFactorize = cTmp
End Function


v0.2:

Código (vb) [Seleccionar] Expandir

Public Function iFactorize(ByVal n As Long) As Collection
    Dim cTmp    As New Collection
    Dim i       As Long

    If n = 0 Then GoTo Ret
    If n = 1 Then cTmp.Add 1: GoTo Ret
   
    While (n And 1) = 0
        cTmp.Add 2
        n = n / 2
    Wend
   
    i = 3
    While (i <= (n ^ 0.5))
        If (n Mod i) = 0 Then
            cTmp.Add i
            n = n / i
        End If
        i = i + 2
    Wend
   
    If n > 1 Then cTmp.Add n
   
Ret: Set iFactorize = cTmp
End Function

[La funcion ha de devolver un Collection con todos los numeros primos que componen ese numero]

Otro reto; A ver quien hace la funcion de factorizacion mas rapida

Se trata de crear una funcion que factorice cualquier numero entero positivo...

La funcion ha de devolver un Collection con todos los numeros primos que componen ese numero

Para medir el tiempo necesario se utilizará este codigo:

Código [Seleccionar] Expandir

Private tmr     As CTiming

Private Sub Form_Load()
    Dim x       As Long
    Dim vItem   As Variant
   
    Set tmr = New CTiming
    tmr.Reset
   
    For x = 0 To 4096
        'Debug.Print x, ;
        'For Each vItem In iFactorize(x)
        '    Debug.Print vItem;
        'Next vItem
        'Debug.Print
        Call iFactorize(x)
    Next x
   
    MsgBox tmr.sElapsed
End Sub

cTiming.cls

+Info

Código [Seleccionar] Expandir

http://en.wikipedia.org/wiki/Integer_factorization
http://es.wikipedia.org/wiki/Factorizaci%C3%B3n_de_enteros

Suerte, espero que participeis muchos

[Cambia el mutex...]

Solucion mas simple: Cambia el mutex...

Tambien puedes mirar con el netstat en que puerto esta, conectarte con el Cliente del Bif y desinstalarlo...

Puede parecer una tonteria ( ) Has probado a ejecutar el EXE compilado como administrador?

DLLs estandar en VB6?

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/solucionado_iquestque_es_vbadvance-t220089.0.html;msg1043501
http://foro.elhacker.net/programacion_visual_basic/inyeccion_dll-t218465.0.html

[LSet]

Interesante funcion LSet... aun asi trabajar con bits es mas rapido

Buen trabajo Cobein

[H0]

Con hacer LoadLibrary a la DLL seria suficiente
Pero si no quieres dejarlas en el disco duro (las DLLs) tendrias que jugar con la Relocation Table como nos enseño nuestro querido amigo H0

[Mod:]

Muy completo
Ahora falta ver como ejecuta plugins
Mod:
He estado mirando por encima el codigo... y la verdad lo de los plugins no me gusta nada Eso de que para almacenar el resultado tenga que crear un fichero y que se carguen con un RunPe ... mucho mejor por ejemplo que los plugins fueran .DLL y que metieran la info en un Pipe o devolviesen el puntero al llamar al Main...

Saludos