| <!-- saved from url=(0016)http://localhost --> | |
| <html> | |
| <head> | |
| <meta http-equiv="x-ua-compatible" content="IE=10"> | |
| </head> | |
| <body> | |
| <script type="text/vbscript"> | |
| Dim doinit | |
| Dim depth | |
| Dim maxdepth | |
| depth = 0 | |
| maxdepth = 4 | |
| Dim runcountf1 | |
| Dim runcounts1 | |
| Dim runcountf2 | |
| Dim runcounts2 | |
| runcountf1 = 0 | |
| runcounts1 = 0 | |
| runcountf2 = 0 | |
| runcounts2 = 0 | |
| Dim runcount11 | |
| Dim runcount12 | |
| Dim runcount13 | |
| Dim runcount14 | |
| Dim runcount21 | |
| Dim runcount22 | |
| Dim runcount23 | |
| Dim runcount24 | |
| Dim runcount31 | |
| Dim runcount32 | |
| Dim runcount33 | |
| Dim runcount34 | |
| Dim runcount41 | |
| Dim runcount42 | |
| Dim runcount43 | |
| Dim runcount44 | |
| Dim runcount51 | |
| Dim runcount52 | |
| Dim runcount53 | |
| Dim runcount54 | |
| runcount11 = 0 | |
| runcount12 = 0 | |
| runcount13 = 0 | |
| runcount14 = 0 | |
| runcount21 = 0 | |
| runcount22 = 0 | |
| runcount23 = 0 | |
| runcount24 = 0 | |
| runcount31 = 0 | |
| runcount32 = 0 | |
| runcount33 = 0 | |
| runcount34 = 0 | |
| runcount41 = 0 | |
| runcount42 = 0 | |
| runcount43 = 0 | |
| runcount44 = 0 | |
| runcount51 = 0 | |
| runcount52 = 0 | |
| runcount53 = 0 | |
| runcount54 = 0 | |
| doinit = 0 | |
| Dim var11 | |
| Dim var12 | |
| Dim var13 | |
| Dim var14 | |
| Dim var15 | |
| Dim var16 | |
| Dim var17 | |
| Dim var18 | |
| Dim var19 | |
| Dim var20 | |
| Dim var21 | |
| Dim var22 | |
| Dim var23 | |
| Dim var24 | |
| Dim var25 | |
| Dim var26 | |
| Dim var27 | |
| Dim var28 | |
| Dim var29 | |
| Dim var30 | |
| Dim var31 | |
| Dim var32 | |
| Dim var33 | |
| Dim var34 | |
| Dim var35 | |
| Dim var36 | |
| Dim var37 | |
| Dim var38 | |
| Dim var39 | |
| Dim var40 | |
| Dim var41 | |
| Dim var42 | |
| Dim var43 | |
| Dim var44 | |
| Dim var45 | |
| Dim var46 | |
| Dim var47 | |
| Dim var48 | |
| Dim var49 | |
| Dim var50 | |
| Dim var51 | |
| Dim var52 | |
| Dim var53 | |
| Dim var54 | |
| Dim var55 | |
| Dim var56 | |
| Dim var57 | |
| Dim var58 | |
| Dim var59 | |
| Dim var60 | |
| Dim var61 | |
| Dim var62 | |
| Dim var63 | |
| Dim var64 | |
| Dim var65 | |
| Dim var66 | |
| Dim var67 | |
| Dim var68 | |
| Dim var69 | |
| Dim var70 | |
| Dim var71 | |
| Dim var72 | |
| Dim var73 | |
| Dim var74 | |
| Dim var75 | |
| Dim var76 | |
| Dim var77 | |
| Dim var78 | |
| Dim var79 | |
| Dim var80 | |
| Dim property1 | |
| Dim property2 | |
| Dim property3 | |
| Dim property4 | |
| Dim property5 | |
| On Error Resume Next | |
| Sub main() | |
| On Error Resume Next | |
| ' msgbox("in main") | |
| <vbfuzzer> | |
| ' msgbox("done") | |
| End Sub | |
| Function function1(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcountf1>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| runcountf1 = runcountf1 + 1 | |
| depth = depth + 1 | |
| ' msgbox("in f1") | |
| <vbfuzzer> | |
| ' msgbox("end f1") | |
| depth = depth - 1 | |
| End Function | |
| Function function2(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcountf2>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcountf2 = runcountf2 + 1 | |
| ' msgbox("in f2") | |
| <vbfuzzer> | |
| ' msgbox("end f2") | |
| depth = depth - 1 | |
| End Function | |
| Sub sub1(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcounts1>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcounts1 = runcounts1 + 1 | |
| ' msgbox("in s1") | |
| <vbfuzzer> | |
| ' msgbox("end s1") | |
| depth = depth - 1 | |
| End sub | |
| Sub sub2(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcounts2>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcounts2 = runcounts2 + 1 | |
| ' msgbox("in s2") | |
| <vbfuzzer> | |
| ' msgbox("end s2") | |
| depth = depth - 1 | |
| End sub | |
| Class class1 | |
| Public property1, property2, property3, property4, property5 | |
| Public Function f(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcount11>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcount11 = runcount11 + 1 | |
| ' msgbox "in member function" | |
| <vbfuzzer> | |
| ' msgbox "end member function" | |
| depth = depth - 1 | |
| End Function | |
| Public Default Property Get x | |
| On Error Resume Next | |
| If runcount12>2 Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| if depth > maxdepth Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| depth = depth + 1 | |
| runcount12 = runcount12 + 1 | |
| ' msgbox "default" | |
| <vbfuzzer> | |
| ' msgbox "end default" | |
| depth = depth - 1 | |
| End Property | |
| Private Sub Class_Initialize() | |
| On Error Resume Next | |
| If doinit=0 Then | |
| Exit Sub | |
| End If | |
| If runcount13>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount13 = runcount13 + 1 | |
| ' msgbox "init" | |
| <vbfuzzer> | |
| ' msgbox "end init" | |
| depth = depth - 1 | |
| End Sub | |
| Private Sub Class_Terminate() | |
| On Error Resume Next | |
| If runcount14>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount14 = runcount14 + 1 | |
| ' msgbox "terminate" | |
| <vbfuzzer> | |
| ' msgbox "end terminate" | |
| depth = depth - 1 | |
| End Sub | |
| End Class | |
| Class class2 | |
| Public property1, property2, property3, property4, property5 | |
| Public Function f(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcount21>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcount21 = runcount21 + 1 | |
| ' msgbox "in member function" | |
| <vbfuzzer> | |
| ' msgbox "end member function" | |
| depth = depth - 1 | |
| End Function | |
| Public Default Property Get x | |
| On Error Resume Next | |
| If runcount22>2 Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| if depth > maxdepth Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| depth = depth + 1 | |
| runcount22 = runcount22 + 1 | |
| ' msgbox "default" | |
| <vbfuzzer> | |
| ' msgbox "end default" | |
| depth = depth - 1 | |
| End Property | |
| Private Sub Class_Initialize() | |
| On Error Resume Next | |
| If doinit=0 Then | |
| Exit Sub | |
| End If | |
| If runcount23>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount23 = runcount23 + 1 | |
| ' msgbox "init" | |
| <vbfuzzer> | |
| ' msgbox "end init" | |
| depth = depth - 1 | |
| End Sub | |
| Private Sub Class_Terminate() | |
| On Error Resume Next | |
| If runcount24>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount24 = runcount24 + 1 | |
| ' msgbox "terminate" | |
| <vbfuzzer> | |
| ' msgbox "end terminate" | |
| depth = depth - 1 | |
| End Sub | |
| End Class | |
| Class class3 | |
| Public property1, property2, property3, property4, property5 | |
| Public Function f(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcount31>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcount31 = runcount31 + 1 | |
| ' msgbox "in member function" | |
| <vbfuzzer> | |
| ' msgbox "end member function" | |
| depth = depth - 1 | |
| End Function | |
| Public Default Property Get x | |
| On Error Resume Next | |
| If runcount32>2 Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| if depth > maxdepth Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| depth = depth + 1 | |
| runcount32 = runcount32 + 1 | |
| ' msgbox "default" | |
| <vbfuzzer> | |
| ' msgbox "end default" | |
| depth = depth - 1 | |
| End Property | |
| Private Sub Class_Initialize() | |
| On Error Resume Next | |
| If doinit=0 Then | |
| Exit Sub | |
| End If | |
| If runcount33>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount33 = runcount33 + 1 | |
| ' msgbox "init" | |
| <vbfuzzer> | |
| ' msgbox "end init" | |
| depth = depth - 1 | |
| End Sub | |
| Private Sub Class_Terminate() | |
| On Error Resume Next | |
| If runcount34>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount34 = runcount34 + 1 | |
| ' msgbox "terminate" | |
| <vbfuzzer> | |
| ' msgbox "end terminate" | |
| depth = depth - 1 | |
| End Sub | |
| End Class | |
| Class class4 | |
| Public property1, property2, property3, property4, property5 | |
| Public Function f(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcount41>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcount41 = runcount41 + 1 | |
| ' msgbox "in member function" | |
| <vbfuzzer> | |
| ' msgbox "end member function" | |
| depth = depth - 1 | |
| End Function | |
| Public Default Property Get x | |
| On Error Resume Next | |
| If runcount42>2 Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| if depth > maxdepth Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| depth = depth + 1 | |
| runcount42 = runcount42 + 1 | |
| ' msgbox "default" | |
| <vbfuzzer> | |
| ' msgbox "end default" | |
| depth = depth - 1 | |
| End Property | |
| Private Sub Class_Initialize() | |
| On Error Resume Next | |
| If doinit=0 Then | |
| Exit Sub | |
| End If | |
| If runcount43>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount43 = runcount43 + 1 | |
| ' msgbox "init" | |
| <vbfuzzer> | |
| ' msgbox "end init" | |
| depth = depth - 1 | |
| End Sub | |
| Private Sub Class_Terminate() | |
| On Error Resume Next | |
| If runcount44>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount44 = runcount44 + 1 | |
| ' msgbox "terminate" | |
| <vbfuzzer> | |
| ' msgbox "end terminate" | |
| depth = depth - 1 | |
| End Sub | |
| End Class | |
| Class class5 | |
| Public property1, property2, property3, property4, property5 | |
| Public Function f(arg1, arg2, arg3, arg4, arg5) | |
| On Error Resume Next | |
| If runcount51>2 Then | |
| Exit Function | |
| End If | |
| if depth > maxdepth Then | |
| Exit Function | |
| End If | |
| depth = depth + 1 | |
| runcount51 = runcount51 + 1 | |
| ' msgbox "in member function" | |
| <vbfuzzer> | |
| ' msgbox "end member function" | |
| depth = depth - 1 | |
| End Function | |
| Public Default Property Get x | |
| On Error Resume Next | |
| If runcount52>2 Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| if depth > maxdepth Then | |
| x = 1 | |
| Exit Property | |
| End If | |
| depth = depth + 1 | |
| runcount52 = runcount52 + 1 | |
| ' msgbox "default" | |
| <vbfuzzer> | |
| ' msgbox "end default" | |
| depth = depth - 1 | |
| End Property | |
| Private Sub Class_Initialize() | |
| On Error Resume Next | |
| If doinit=0 Then | |
| Exit Sub | |
| End If | |
| If runcount53>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount53 = runcount53 + 1 | |
| ' msgbox "init" | |
| <vbfuzzer> | |
| ' msgbox "end init" | |
| depth = depth - 1 | |
| End Sub | |
| Private Sub Class_Terminate() | |
| On Error Resume Next | |
| If runcount54>2 Then | |
| Exit Sub | |
| End If | |
| if depth > maxdepth Then | |
| Exit Sub | |
| End If | |
| depth = depth + 1 | |
| runcount54 = runcount54 + 1 | |
| ' msgbox "terminate" | |
| <vbfuzzer> | |
| ' msgbox "end terminate" | |
| depth = depth - 1 | |
| End Sub | |
| End Class | |
| Dim var1(10) | |
| Dim var2(10) | |
| Dim var3(10) | |
| Dim var4(10) | |
| Dim var5(10) | |
| Dim var6(10, 10) | |
| Dim var7(10, 10) | |
| Dim var8(10, 10) | |
| Dim var9(10, 10) | |
| Dim var10(10, 10) | |
| var11 = Array(10) | |
| var12 = Array(10) | |
| var13 = Array(10) | |
| var14 = Array(10) | |
| var15 = Array(10) | |
| var16 = "aaaaaaaaaa" | |
| var17 = "aaaaaaaaaa" | |
| var18 = "aaaaaaaaaa" | |
| var19 = "aaaaaaaaaa" | |
| var20 = "aaaaaaaaaa" | |
| var21 = "aaaaaaaaaa" | |
| var22 = "aaaaaaaaaa" | |
| var23 = "aaaaaaaaaa" | |
| var24 = "aaaaaaaaaa" | |
| var25 = "aaaaaaaaaa" | |
| set var26 = new class1 | |
| set var27 = new class2 | |
| set var28 = new class3 | |
| set var29 = new class4 | |
| set var30 = new class5 | |
| var31 = "aaaaaaaaaa" | |
| var32 = "aaaaaaaaaa" | |
| var33 = "aaaaaaaaaa" | |
| var34 = "aaaaaaaaaa" | |
| var35 = "aaaaaaaaaa" | |
| var36 = Array(10) | |
| var37 = Array(10) | |
| var38 = Array(10) | |
| var39 = Array(10) | |
| var40 = Array(10) | |
| set var41 = CreateObject("Scripting.Dictionary") | |
| set var42 = CreateObject("Scripting.Dictionary") | |
| set var43 = CreateObject("Scripting.Dictionary") | |
| set var44 = CreateObject("Scripting.Dictionary") | |
| set var45 = CreateObject("Scripting.Dictionary") | |
| set var46 = CreateObject("Scripting.Dictionary") | |
| set var47 = CreateObject("Scripting.Dictionary") | |
| set var48 = CreateObject("Scripting.Dictionary") | |
| set var49 = CreateObject("Scripting.Dictionary") | |
| set var50 = CreateObject("Scripting.Dictionary") | |
| set var51 = CreateObject("Scripting.Dictionary") | |
| set var52 = CreateObject("Scripting.Dictionary") | |
| set var53 = CreateObject("Scripting.Dictionary") | |
| set var54 = CreateObject("Scripting.Dictionary") | |
| set var55 = CreateObject("Scripting.Dictionary") | |
| set var56 = CreateObject("Scripting.Dictionary") | |
| set var57 = CreateObject("Scripting.Dictionary") | |
| set var58 = CreateObject("Scripting.Dictionary") | |
| set var59 = CreateObject("Scripting.Dictionary") | |
| set var60 = CreateObject("Scripting.Dictionary") | |
| var61 = "aaaaaaaaaa" | |
| var62 = "aaaaaaaaaa" | |
| var63 = "aaaaaaaaaa" | |
| var64 = "aaaaaaaaaa" | |
| var65 = "aaaaaaaaaa" | |
| var66 = "aaaaaaaaaa" | |
| var67 = "aaaaaaaaaa" | |
| var68 = "aaaaaaaaaa" | |
| var69 = "aaaaaaaaaa" | |
| var70 = "aaaaaaaaaa" | |
| var71 = Array(1, 2, 3) | |
| var72 = Array(1, 2, 3) | |
| var73 = Array(1, 2, 3) | |
| var74 = Array(1, 2, 3) | |
| var75 = Array(1, 2, 3) | |
| var76 = Array(1, 2, 3) | |
| var77 = Array(1, 2, 3) | |
| var78 = Array(1, 2, 3) | |
| var79 = Array(1, 2, 3) | |
| var80 = Array(1, 2, 3) | |
| doinit = 1 | |
| main() | |
| </script> | |
| </body> | |
| </html> |