Mensajes

[.Lee mi firma ¬¬"...]

.
.Lee mi firma ¬¬"...

No habra tanto rollo... solo hay que hacerle un hook a esa api y denegar TODO lo que pase por hay, cuando ejecute algun EXE...

Infierno Lunar!¡.

strreverse devuelve un string yo a ese string le sumo 0 para pasarlo a numero, igual como le hago en C...

aqui lo dejo corregido

Version 2.

Código (Vb) [Seleccionar] Expandir


Public Function IsLychrelNumberBlackZeroX02(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1 'Or IsLychrelNumberBlackZeroX = True
        InVal = StrReverse(OutValEnd) + 0
        If InVal - OutValEnd = 0 Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX02 = True
End Function



Version 3.

Código (Vb) [Seleccionar] Expandir



Public Function IsLychrelNumberBlackZeroX03(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
Dim tmp             As Double
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1
        tmp = OutValEnd: InVal = 0
        Do
            InVal = (InVal * 10) + (tmp Mod 10)
            tmp = tmp \ 10
        Loop While tmp > 0
        If InVal - OutValEnd = 0 Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX03 = True
End Function



Dulces Lunas!¡.

.
tontos!¡

RunPE
Eclipse MMORPG
...

no pues si es para tontos!¡.

Dulces Lunas!¡.

Despues de que se me trabo la inche PC reice mi codigo aqui esta!¡.

Código (Vb) [Seleccionar] Expandir



Public Function IsLychrelNumberBlackZeroX(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1 'Or IsLychrelNumberBlackZeroX = True
        InVal = StrReverse(OutValEnd) + 0
        IsLychrelNumberBlackZeroX = InVal - OutValEnd = 0
        If IsLychrelNumberBlackZeroX Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX = True
End Function



Ducles Lunas!¡.

.
Si tienes el source del cliente si que se puede ¬¬", es como internet "linux" a sido modificado miles de veces y que paso se siguen comunidando entre si y no hay problema con las conexiones via web... por que hay un protocolo!¡.

Dulces Lunas!¡.

[YO]

la respuesta esta en esto, por lo menos YO lo entiendo en estas secciones...

Código [Seleccionar] Expandir



**  ***  ****  *****  ******  *******
   ***  ****  *****  ******  *******
        ****  *****  ******  *******
              *****  ******  *******
                     ******  *******
                             *******

The value of the Möbius function μ(x) for any pronic number x = n (n + 1), in addition to being computable in the usual way, can also be calculated as

   μ(x) = μ(n) μ(n + 1).



a por cierto lo de

n = Sqr(nval)

es solo que nosotros tomamos el valor entero de la raiz, aun que lo "Algebra" esta bien, pero si sabemos que long no va a aceptar los decimales pero si el entero... pues mejor no matamos unas neuronas xP.

al fin y al cabo no hay errores

Código (Vb) [Seleccionar] Expandir


Option Explicit

Dim cT      As New CTiming



Private Sub Form_Load()
Dim i   As Long
Dim n(1)   As Long
Const lim& = 20000
Dim aaa As New Class1


       cT.Reset
       For i = 0 To lim&
           Call IsOblongoAlgebra(i, 0)
       Next i
       InputBox "", "", "Karcrack -> " & cT.sElapsed & vbCrLf
       MsgBox "Comprovando Coherencias!¡."
       For i = 0 To lim&
           If IsOblongoAlgebra(i, n(0)) And IsOblongoTokes03(i, n(1)) And True Then
               If n(0) <> n(1) Then MsgBox "Error n=" & n(1) & " el real era n=" & n(0) & " del numero " & i & vbCrLf
           End If
       Next i

   MsgBox "Fin"
   End
End Sub

Private Function IsOblongoAlgebra(ByVal nval As Long, ByRef n As Long) As Boolean
   If (nval And 1) Or (nval And &H80000000) Then Exit Function

   n = (Sqr(1 + nval * 4) - 1) / 2
   
   IsOblongoAlgebra = (n * n + n = nval)
End Function

'  Tokes 03
Private Function IsOblongoTokes03(ByVal nval As Long, ByRef n As Long) As Boolean
   If (nval And 1) Or (nval And &H80000000) Then Exit Function
   n = Sqr(nval)
   IsOblongoTokes03 = n * n + n = nval
End Function


Dulces Lunas!¡.

lastima que te salgas del hilo de vb6... las operaciones las realizas en ASM asi que para mi solo el vb6 es tu plataforma de arranque.

P.D.: tardo  Karcrack -> 1,267 msec, aun es lenta!¡.

Ducles Lunas!¡.

en PSC (PlanetSourceCode.com) hay ejemplos de Sniffers!¡.

Busca por SockRaw

Dulces Lunas!¡.

este programa sera independiente a tu cliente/servidor?

o esta integrado en el mismo?

Dulces Lunas!¡.