Foro de elhacker.net

Private Sub Command1_Click()
Dim Bit() As String, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer
Dim Total As String, Div11 As Long, SumaDig As Long
 
Bit = Split(StrConv("2010", vbUnicode), Chr(0))
For A = 0 To 1
For B = 0 To 1
For C = 2 To 3
For D = 2 To 3
    Total = Bit(A) & Bit(B) & Bit(C) & Bit(D)
    Div11 = Total / 11
    SumaDig = 0
    For E = 1 To Len(Div11)
        SumaDig = SumaDig + Val(Mid(Val(Div11), E, 1))
    Next
    ' Suma de digitos igual a 2
    If SumaDig = 2 Then
        List1.AddItem "Gen:> " & Total & " -Div11>" & Div11 & " -Suma>" & SumaDig
    End If
    DoEvents
Next: Next: Next: Next
MsgBox List1.ListCount
End Sub

For A = 0 To 3
For B = 0 To 3
For C = 0 To 3
For D = 0 To 3

 
Option Explicit
 
Private Sub Form_Load()
Dim ThisNumberNow       As Integer
Dim StrNumber           As String * 4
Dim IndexString         As Byte
Dim Suma                As Byte
 
    For ThisNumberNow = 1 To 9999
        If ThisNumberNow Mod 11 = 0 Then
            StrNumber = Format(ThisNumberNow, "0000")
            Suma = 0
            For IndexString = 1 To Len(StrNumber)
                Suma = Suma + Val(Mid(StrNumber, IndexString, 1))
            Next
            If Suma = 2 Then MsgBox StrNumber
        End If
    Next
 
End Sub
 
 

Private Sub Form_Load()
    Dim Div As Integer
    Dim Num As String
    Dim Suma As String
    Dim Bucle1 As Integer
    Dim Bucle2 As Integer
 
    Suma = ""
    Div = 2010 \ 11     'cant. de num divisibles por 11
    For Bucle1 = 1 To Div
        Num = 11 * Bucle1
        If Num > 999 Then   'preguntamos si es de 4 cifras
            For Bucle2 = 1 To Len(Num)
                Suma = Val(Suma) + Val(Mid(Num, Bucle2, 1)) 'suma de sus digitos
                If Suma = 2 Then
                    MsgBox Num
                End If
            Next
        End If
    Next
End Sub

 
For PASS = 1000 To 2222
If PASS Mod 11 = 0 Then 'SE FIJA QUE DIVISIONES DE PASS/11 DAN RESTO 0
If Val(Mid(PASS, 1, 1)) + Val(Mid(PASS, 2, 1)) + Val(Mid(PASS, 3, 1)) + Val(Mid(PASS, 1, 1)) = 2 Then ' SE FIJA SI LA SUMA DE LAS CIFRAS DA 2
MsgBox "LA CONTRASEÑA ES " & PASS ' DEVUELVE LA CONTRASEÑA
End If
End If
Next
 

• 4 cifras (Quitando los ceros a la izquierda)
• Sus cifras suman 2
• Formado con 2,1,0
• Multiple de 11

1001 
1100

Private Sub Form_Load()
    Dim i       As Long
 
    For i = 0 To 111
        If SumDigits(1001 + i * 11) = 2 Then Debug.Print 1001 + i * 11
    Next i
End Sub
 
Public Function SumDigits(ByVal lNumb As Long) As Long
    Dim bvTmp() As Byte
    Dim i       As Long
 
    bvTmp = StrConv(Trim$(Str$(lNumb)), vbFromUnicode)
 
    For i = LBound(bvTmp) To UBound(bvTmp)
        SumDigits = SumDigits + (bvTmp(i) - vbKey0)
    Next i
End Function