![]() | |
Update of Excel bruteforce script. Friday, 22-Jan-99 20:09:49
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 |
Princess' Tread... (Princess) (20-Jan-99 22:35:29) |
|
Copyright © ProSoft 1997-1998
All rights reserved.