Mensajes

[@Danyfirex]

@Danyfirex

Código [Seleccionar] Expandir

http://code.google.com/p/projecteuler-solutions/wiki/ProjectEulerSolutions

Ahí está el resultado de todas las soluciones.

DoEvents!

[SIEMPRE]

¡Jajajaja! ¡Menudo lío se ha montado! Y eso que estamos con el reto 1.

Creo que lo idóneo sería que le pudieramos pasar el número por parámetro, es más genérico.
Y la función debe funcionar SIEMPRE.

Aquí dejo unos ejemplos de llamadas que deben de devolver resultado correcto:

Código (vb) [Seleccionar] Expandir


Debug.Print Euler1(1000) '-> 233168
Debug.Print Euler1(0)    '-> 0
Debug.Print Euler1(-983) '-> 0



Aquí dejo mi forma de hacerlo:

Código (vb) [Seleccionar] Expandir


Public Static Function PE_1(ByVal lNum As Long) As Long
Dim Q                           As Long
   
   If lNum And &H80000000 Then Exit Function
   
   lNum = lNum - 1
   
   For Q = 3 To lNum Step 3
       PE_1 = PE_1 + Q
   Next Q
   
   For Q = 5 To lNum Step 5
       If Q Mod 3 Then
           PE_1 = PE_1 + Q
       End If
   Next Q
End Function

La próxima vez pondré el reto traducido, y el resultado que debe retornar para evitar confusiones.

DoEvents!

[Proyect Euler]

¿Qué os parece si hacemos todos los retos de Proyect Euler ?
Después se podría poner una chincheta con todos los ejercicios guardados.

¿Empezamos por el 1?

Código [Seleccionar] Expandir

http://projecteuler.net/problem=1

DoEvents!

¡Genial!
¡Muchas gracias a todos!

DoEvents!

Me temo que impact es bastante diferente a esa...

DoEvents!

¿Alguien me podría decir qué fuente es la de esta web?

Código [Seleccionar] Expandir

http://thegeekdesigner.com/

O si no lo sabéis con exactitud, agradecería que me recomendaseis alguna similar.
Gracias 

DoEvents!

Un oneliner que he tenido que crear para un proyecto en curso.
Devuelve la diferencia entre dos colores con un número del 0 al 100 según el porcentaje.

Código (vb) [Seleccionar] Expandir


Public Function ColorDiff(ByVal lC1 As Long, ByVal lC2 As Long) As Single
   ColorDiff = &H64 - &H64 * (Abs((lC1 And &HFF) - (lC2 And &HFF)) + Abs(((lC1 \ &H100) And &HFF) - ((lC2 \ &H100) And &HFF)) + Abs(((lC1 \ &H10000) And &HFF) - ((lC2 \ &H10000) And &HFF))) / &H2FD
End Function

DoEvents!

Eso tampoco funciona, fue lo primero que probé.

DoEvents!

Supongamos que compilo esto y lo llamo "process.exe"

Código [Seleccionar] Expandir

http://allapi.mentalis.org/apilist/3F67FD0ABC04BEB6623FB5C547B77976.html

¿Podría hacer desde mi programa que el nombre de todos los procesos que va listando "process.exe" siempre devolviera "elhackernet.exe"?
Algo así como hacer un hook al ejecutable, ver cuando utiliza los apis GetModuleFileNameExA(), EnumProcesses()... y cambiar su valor de retorno.

Vi algo parecido aquí:

Código [Seleccionar] Expandir

http://memoryhacking.com/forums/viewtopic.php?f=37&t=5988

¿Es posible?, ¿alguna idea?, ¿y si utiliza invokeapis se podría hacer también?
Gracias.

DoEvents!

[SandBoxie]

Tengo un programa que sólo te deja ejecutarse una vez al mismo tiempo.

Para ello, al abrirse comprueba que no haya otro corriendo que tenga el mismo nombre. Eso es lo único que hace. Lo sé porque estuve haciendo pruebas, y si renombro y ejecuto un exe cualquiera con el nombre del programa y después intento abrir el exe del programa que hablo, detectará que ya hay uno abierto y se cerrará.
Si le cambiamos el nombre original tampoco se abrirá.

He probado a correrlo desde SandBoxie sin resultados. También probé a ejecutarlo como otro usuario y nada, tampoco le puedo engañar.

Lo siguiente que se me ocurre es utilizar ingeniería inversa, aunque he de admitir que estoy un poco verde en el tema.

¿Alguna idea, chicos?
Muchas gracias.

DoEvents!