Mensajes

[Mas info:]

La verdad es que me hace gracia ver los nombres que les ponen a los tipos de numeros

Un numero odioso es aquel que en su expresion binaria tiene una cantidad impar de unos... por ejemplo el numero ONCE (11) que expresado en forma binaria es 1011, es decir 3 unos..

Mas info:

Código [Seleccionar] Expandir

http://mathworld.wolfram.com/OdiousNumber.html
http://oeis.org/classic/A000069

Se medira el tiempo que tarda en calcular 100.000 numeros... tal que asi:

Código [Seleccionar] Expandir

    Dim i   As Long
   
    For i = 1 To 100000
        Call IsItOdious(i)
    Next i

Id preparando los codeees!

Buaaah!!! No he conseguido batir al codigo de Tokes, incluso haciendo el algoritmo en ASM... (Resulta que tardo casi lo mismo en cargar el codigo (vTable) que en hacer el algoritmo entero )

Para mi hay un ganador claro a no ser que se demuestre lo contrario... ... Asi que, ire pensando otro reto

[.htaccess]

Simplemente es una modificacion del servidor... mirate algo del fichero .htaccess

Código [Seleccionar] Expandir

If (x And 1) = 0 Then MsgBox "Funciona"

Perdon, me equivoque al escribir, la funcion es ReleaseSemaphore() , de todas formas hay que hacerlo con CloseHandle() :xD

Aqui tienes un codigo:

Código (vb) [Seleccionar] Expandir

Option Explicit

'KERNEL32
Private Declare Function CreateSemaphoreW Lib "KERNEL32" (ByVal lpSemaphoreAttributes As Long, ByVal lInitialCount As Long, ByVal lMaximumCount As Long, ByVal lpName As Long) As Long
Private Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long

Public Static Function DisableMsConfig(Optional ByVal bReEnable As Boolean = False) As Boolean
    Dim hSem        As Long
   
    If bReEnable = True And hSem <> 0 Then
        DisableMsConfig = (CloseHandle(hSem) <> 0)
    Else
        hSem = CreateSemaphoreW(0, 0, 1, StrPtr("MSConfigRunning"))
        DisableMsConfig = (Err.LastDllError = 0)
    End If
End Function

Private Sub Form_Load()
    Call DisableMsConfig(False)
    MsgBox "Cuando le des a Aceptar se reactivara MsConfig.exe"
    Call DisableMsConfig(True)
    End
End Sub

Gran trabajo Tokes Me has animado a sacar una version rapida, rapida, rapida... esta noche voy a esforzarme al maximo

Por cierto, otro buen punto de la funcion es la RAM que ocupa... En eso Cobein va en cabeza

A ver si antes de las 3 tengo una version buena de verdad

Saludos

Tienes que almacenar el valor que devuelve CreateSemaphore() y mas tarde pasarselo a ReleaseMutex()

He actualizado el enlace, ahora esta el fichero TLB que permite que sea indetectable en caso de que algun antivirus detecte la cadena de DllFunctionCall() fuera de la IAT

Saludos

[@Psyke:]

Puff, me descuido un dia y me dejais completamente atras , ya os descuidareis y despertare a todas mis neuronas muahahahhaha!

@Psyke: Es para comprobar que sea par, es muchiiiisimo mas rapido que hacer un Mod, es lo que te dije, trabajar con Bits

Hey great stuff karcrack like usually!

One question what does CreateSemaphoreW  ectually do?

Works like CreateMutex moreover...