2022-12-28-useful-vba-code

VisualBasic |

1.73 KB

Source Code

0 👍

0 👎

Raw Download Clone Embed Print View

REM : This subroutine creates counting from a given cell location.
Sub ginti()
Dim Source As Range
Set Source = Selection
q = Source.Text
'Source.Value = 3
'Source.Value = 4
    With Source
        .Value = 1
        .AutoFill .Resize(q, 1), xlFillSeries
    End With
End Sub
 
Sub mdInsulationCheck()
    Dim Source As Range
    Dim errFlag As Boolean
    Dim errCount As Integer
   ' Dim iCol As Long
    Dim nCol As Long
    Dim iRow As Long
    Dim nRow As Long
    Dim total As Double
    
    ' By default, there is no error.
    errFlag = False
    errCount = 0
    
    Set Source = Selection
    nCol = Source.Columns.Count
    nRow = Source.Rows.Count
    
    For iRow = 1 To nRow
        x = Source.Rows(iRow).Columns(1).Address
        x2 = Source.Rows(iRow).Columns(nCol).Address
        sumx = Source.Rows(iRow).Columns(1 - 4).Address
        sumx2 = Source.Rows(iRow).Columns(0).Address
        Range(sumx & ":" & sumx2).Select
        tempSum = WorksheetFunction.Product(Selection)
        
        For tempcol = 1 To nCol
            If (Source.Rows(iRow).Columns(tempcol).Value = tempSum Or Source.Rows(iRow).Columns(tempcol).Value = "") Then
            Else
            errFlag = True
            errCount = errCount + 1
             Range(Source.Rows(iRow).Columns(tempcol).Address).Select
             Selection.Interior.Color = RGB(255, 100, 100)
             MsgBox "ERROR in " & Source.Rows(iRow).Columns(tempcol).Address
           '  Exit Sub
            End If
        Next tempcol
    Next iRow
    
    If errFlag = False Then
        MsgBox "Calculation is OK"
        Else
        MsgBox CStr(errCount) + " Errors found", vbCritical, "Mar Gaye - Errors found."
        End If
End Sub

Comments

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

2022-12-28-useful-vba-code

Comments