Exemple.vba

VBScript |

3.16 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Sub Formula_Example()
    Range("b4").Formula = "=b2+b3"
 
End Sub
 
Sub Effacer_B4()
    If MsgBox("Etes-vous certain de vouloir supprimer le contenu de B4 ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("B4").ClearContents
        MsgBox "Le contenu de B4 a été effacé !"
    End If
End Sub
 
Sub GetCell()
    Dim userName As String
    
    'userName = InputBox("Enter username")
    userName = Range("a15").Value
    MsgBox "user : " & userName
End Sub
 
Sub GetUser()
    Dim userName As String
    Dim objConnection, objCommand, objRecordSet
    Dim strFName, strLName
    
    userName = Range("a15").Value
    Set RootDSE = GetObject("LDAP://RootDSE")
    searchRoot = RootDSE.Get("defaultNamingContext")
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    Set objRecordSet = CreateObject("ADODB.Recordset")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
    strQueryText = "<LDAP://" & searchRoot & ">;(&(objectCategory=Person)(samAccountName=" & userName & "));" & "givenName,sn,displayName"
    objCommand.CommandText = strQueryText
    objCommand.Properties("Page Size") = 15
    objCommand.Properties("Timeout") = 25
    objCommand.Properties("Cache Results") = False
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    
    strFName = objRecordSet.Fields("givenName").Value
    strLName = objRecordSet.Fields("sn").Value
    MsgBox strFName & " " & strLName
End Sub
 
Sub SendMail()
    With CreateObject("CDO.Message")
        .From = "[email protected]"
        .To = "[email protected]"
        .Subject = "test"
        .TextBody = "test"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dbs.fr"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Configuration.Fields.Update
        On Error Resume Next
        .Send
    End With
End Sub
 
Option Explicit
Private Sub ListOnMsxBox()
 
    Dim I As Long
    Dim Lastrow As Long
    Dim intCounter As Integer
    Dim strMyList As String
    
    Lastrow = Sheets("Blad1").Cells(Rows.Count, "A").End(xlUp).Row
    
    For I = Lastrow To 1 Step -1
        If Sheets("Blad1").Cells(I, 2).Value = TextBox1.Value And Sheets("Blad1").Cells(I, 4) > "" Then
            intCounter = intCounter + 1
            If intCounter <= 10 Then
                If strMyList = "" Then
                    strMyList = Sheets("Blad1").Cells(I, 1).Value & ", " & Sheets("Blad1").Cells(I, 3).Value
                Else
                    strMyList = strMyList & vbNewLine & Sheets("Blad1").Cells(I, 1).Value & ", " & Sheets("Blad1").Cells(I, 3).Value
                End If
            Else
                Exit For
            End If
        End If
    Next I
    
    MsgBox "Last " & intCounter & " item(s) used by " & TextBox1.Value & vbNewLine & "is: " & strMyList
 
End Sub

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
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

Exemple.vba

Comments