GTOTM.vba

VBScript |

1.78 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Sub GTOTM()
    Call GetLogs
    Dim Team As String
    Dim Team1D() As Variant
    Dim TeamRep() As Variant
    Dim size As Integer
    
    For j = LBound(samLogs) To TotalRows - 1
        If InStr(samLogs(1, j), "2021") Then
            Team = samLogs(7, j)
            If IsArrayAllocated(Team1D) Then
                If IsInArray(Team, Team1D) Then
                    For h = LBound(Team1D) To UBound(Team1D)
                        If Team1D(h) = Team Then
                            TeamRep(h) = TeamRep(h) + 1
                        End If
                    Next h
                Else
                    size = size + 1
                    ReDim Preserve Team1D(size)
                    ReDim Preserve TeamRep(size)
                    Team1D(size - 1) = Team
                    TeamRep(size - 1) = 1
                End If
            Else
                size = 1
                ReDim Team1D(size)
                ReDim TeamRep(size)
                Team1D(0) = Team
                TeamRep(0) = 1
            End If
        End If
    Next j
    
    For i = LBound(Team1D) To UBound(Team1D)
        'Debug.Print Team1D(i) & "  " & TeamRep(i)
        If TeamRep(i) = WorksheetFunction.Max(TeamRep) Then
            Debug.Print Team1D(i)
        End If
    Next i
End Sub
            
Function IsArrayAllocated(Arr As Variant) As Boolean
    On Error Resume Next
    IsArrayAllocated = IsArray(Arr) And Not IsError(LBound(Arr, 1)) And LBound(Arr, 1) <= UBound(Arr, 1)
End Function
 
Function IsInArray(stringToBeFound As String, Arr As Variant) As Boolean
    For i = LBound(Arr) To UBound(Arr)
        If Arr(i) = stringToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False
End Function

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

✅ Leaked Exploit Documentation:
 
https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
 
This made me $13,000 in 2 days.
 
Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
 
Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

GTOTM.vba

Comments