Find Good Multiplier

Sub FindGoodMultiplier( _
  ByVal Modulus As Long, _
  Optional ByVal OverflowAt As Long = 32767)

  Dim Multiplier As Long
  Dim Hit() As Boolean
  Dim m As Long
  Dim x As Long
  Dim i As Long

  Do While Modulus > 1
    ReDim Hit(1 To Modulus - 1) As Boolean
    m = OverflowAt \ Modulus
    If m >= Int(Modulus ^ (2 / 3)) Then m = Int(Modulus ^ (2 / 3))
    For Multiplier = m To 2 Step -1
      For i = 1 To Modulus - 1: Hit(i) = False: Next i
      x = 1
      For i = 2 To Modulus - 1
        If x = 0 Then Exit For
        If Hit(x) Then Exit For
        Hit(x) = True
        x = (x * Multiplier) Mod Modulus
      Next i
      If i > Modulus - 1 Then
        Debug.Print Multiplier & " is a good multiplier for modulus " & Modulus
        Exit Sub
      End If
    Next Multiplier
    Modulus = Modulus - 1
    DoEvents
  Loop

  Debug.Print "No good multiplier was found"

End Sub

' 1020 is a good multiplier for modulus 32749
' 63 is a good multiplier for modulus 509
' 21 is a good multiplier for modulus 97
' 23 is a good multiplier for modulus 127
✅ 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).