CrackMe® Practices for Newbies ~ Moderated

Update of Excel bruteforce script.
Friday, 22-Jan-99 20:09:49
    195.147.133.229 writes:

    Hi,
    I notice that the script I wrote is testing for values less than 72 most of the time, thus waste of time. So, edited a bit and here is the newer version. Run it if you want. You will have to use Excel and insert this as a macro...

    ==========================
    Sub bruteforce()
    For a = 1 To 91
    a1 = 123 - a
    a2 = a1 * 2
    x = 72 / 3 * 6780496716# * 10 / 122 / 122 / 122 / 122 / 122
    If a2 < x Then
    GoTo aend
    End If
    Worksheets("Sheet1").Cells(1, 10).Value = a1
    For b = 1 To 91
    b1 = 123 - b
    b2 = b1 * a2
    c = 1
    d = 1
    e = 1
    f = 1
    x = 72 / 3 * 6780496716# * 10 / 122 / 122 / 122 / 122
    If b2 < x Then
    GoTo acon
    End If
    Worksheets("Sheet1").Cells(2, 10).Value = b1
    For c = 1 To 91
    c1 = 123 - c
    c2 = c1 * b2
    d = 1
    e = 1
    f = 1
    x = 72 / 3 * 6780496716# * 10 / 122 / 122 / 122
    If c2 < x Then
    GoTo bcon
    End If
    Worksheets("Sheet1").Cells(3, 10).Value = c1
    For d = 1 To 91
    d1 = 123 - d
    d2 = d1 * c2
    e = 1
    f = 1
    x = 72 / 3 * 6780496716# * 10 / 122 / 122
    If d2 < x Then
    GoTo ccon
    End If
    Worksheets("Sheet1").Cells(4, 10).Value = d1
    For e = 1 To 91
    e1 = 123 - e
    e2 = e1 * d2
    f = 1
    x = 72 / 3 * 6780496716# * 10 / 122
    If e2 < x Then
    GoTo dcon
    End If
    Worksheets("Sheet1").Cells(5, 10).Value = e1
    For f = 1 To 91
    f1 = 123 - f
    Worksheets("Sheet1").Cells(6, 10).Value = f1
    result = ((((e2 * f1) / 10) / 6780496716#) * 3)
    If result < 72 Then
    GoTo econ
    End If
    If result = 72 Then
    GoSub pirn
    End If
    Next
    econ:
    Next
    dcon:
    Next
    ccon:
    Next
    bcon:
    Next
    acon:
    Next
    aend:
    Exit Sub
    pirn:
    i = i + 1
    Worksheets("Sheet1").Cells(i, 1).Value = a1
    Worksheets("Sheet1").Cells(i, 2).Value = b1
    Worksheets("Sheet1").Cells(i, 3).Value = c1
    Worksheets("Sheet1").Cells(i, 4).Value = d1
    Worksheets("Sheet1").Cells(i, 5).Value = e1
    Worksheets("Sheet1").Cells(i, 6).Value = f1
    Return
    End Sub
    ===================================

    EB


Message thread:

Princess' Tread... (Princess) (20-Jan-99 22:35:29)

Back to main board


Message subject:

Name: (optional)

Email address: (optional)

Type your message here:




Back to main board

Copyright © ProSoft 1997-1998
All rights reserved.