Foro de elhacker.net

http://projecteuler.net/problem=2
http://es.wikipedia.org/wiki/Sucesi%C3%B3n_de_Fibonacci

4613732

Private Function NOMBREFUNCION(Optional lLimit As Long = 4000000) As Long

Private Function Fibonacci() As Long
Dim a As Long, b As Long, c As Long, x As Long: x = &H4
a = 0
b = 0
c = 0
a = (a * x) + 2: Fibonacci = Fibonacci + a: b = a: a = (a * x): Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a:
end Function
 

Dim a, b, c As Long

Dim a As Long, b As Long, c As Long

Dim a, b, c As Long

Dim a As Long, b As Long, c As Long

Private Sub Form_Load()
Dim x, y As Long
x = 4613732
MsgBox (VarType(y) = vbLong)
End Sub
 

Private Sub Form_Load()
    Dim x, y As Long
    x = 4613732
    y = 4613732
    MsgBox LenB(x) & " bytes"
    MsgBox LenB(y) & " bytes"
End Sub

Function robEuler2() As Long
    Dim f1 As Long, f2 As Long, contador As Long, resultado As Long, suma As Long
    f1 = 0
    f2 = 1
    resultado = f1 + f2
    Do While suma < 4000000
        f1 = f2 + resultado
        resultado = f2
        f2 = f1
        contador = contador + 1
        If f2 Mod 2 = 0 Then
            suma = suma + f2
        End If
    Loop
    robEuler2 = suma
End Function 

Private Static Function Psk1_PE2(Optional lLimit As Long = &H3D0900) As Long
Dim Q1 As Long
Dim Q2 As Long
Dim Q3 As Long
 
    If lLimit And &H80000000 Then Exit Function
 
    Q1 = &H1
    Q2 = &H1
    Q3 = &H2
 
    Do While Q3 < lLimit
        Psk1_PE2 = Psk1_PE2 + Q3
 
        Q1 = Q2 + Q3
        Q2 = Q1 + Q3
        Q3 = Q2 + Q1
    Loop
End Function

Private Function Fibbo7913(Optional Limit As Long = 4000000) As Long
Dim aux  As Long
Dim act  As Long
Dim ant  As Long
Dim suma As Long
    ant = 1
    act = 1
    suma = 1
    Do
        If act And 1 Then suma = suma + act 'operacion binaria que me dice si es par o no
        aux = act
        act = act + ant
        ant = aux
    Loop While act < Limit
    Fibbo7913 = suma
End Function
 

Private Sub Form_Load()
    Debug.Print Fibbo7913
End Sub

524288 '// debería de ser: 4613732

Private Function fb(Optional lLimit As Long = 4000000) As Long
Dim fn As Long, f1 As Long, f2 As Long
If lLimit And &H80000000 Then Exit Function
f1 = 1
f2 = f1
Do While f2 < lLimit
fn = f1 + f2
f1 = f2
f2 = fn
 If fn Mod 2 = 0 Then
fb = fb + fn
End If
Loop
End Function

Option Explicit
 
'by psyke1
'creditos a karcrack
'25/01/13
 
Private Static Function Psk_v2(Optional ByVal lLimit As Long = &H3D0900) As Long
Dim q As Long
Dim r As Long
Dim tg As Long
Dim w As Long
Dim Q2 As Long
Dim matriz() As Long
 
    tg = &HDF98
    r = &HA
    For q = 0 To &HF
        r = r + &HA
    Next q
 
    tg = tg Xor r
    r = tg Xor r
    tg = tg Xor r
 
    lLimit = lLimit + &H345
 
    Do While w: w = w - Val(w): Loop
 
    If Not r And &H1 Then
        Psk_v2 = ChrW(&H34) & ChrW(54)
 
        If w = 0 Then
            lLimit = lLimit - &H345
            lLimit = lLimit \ 5
            Psk_v2 = Psk_v2 & CStr(&H35A4)
 
            If ((lLimit * &H5) <> &H3D0900) And Not (&H1 + &H3 = &H5) Then
                Psk_v2 = Psk_v2 - &H29 + &H93
                Do: Beep: DoEvents: DoEvents: Loop
            End If
        Else
            Psk_v2 = (((w And &HFF000000) \ &H1000000) And &HFF&) Or _
                ((w And &HFF0000) \ &H100&) Or _
                ((w And &HFF00&) * &H100&) Or _
                (Val(w And &H7F&) * &H1000000) Xor tg
        End If
    Else
        Q2 = Q2 ^ 5 * Val(Str(9873)) And tg
    End If
End Function
 

Private Sub Form_Load()
    Debug.Print Psk_v2
End Sub

4613732