ImmediatelySeeMyStringVeryBallGermanTesties

VisualBasic |

2.94 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Option Explicit ' http://www.eileenslounge.com/viewtopic.php?f=30&t=31260
' **This code must be run from the VB Editor**
Sub ImmediatelySeeImmediate()
 Application.SendKeys Keys:="^g" ' Or manually, **when in the VB Editor**, Hit  Ctrl+g
 DoEvents: DoEvents
Dim StrVeryErhBall As String
 
' Correct strings...
 Debug.Print "Correct strings..."
 Let StrVeryErhBall = "=IF(AND(A15="""",B15=""""),"""",""" & "testie" & """)"
 Debug.Print StrVeryErhBall
 Let StrVeryErhBall = "=IF(AND(A15="""",B15=""""),"""",""testie"")"
 Debug.Print StrVeryErhBall
Dim RngHey15 As Range
 Set RngHey15 = Range("A15")
 Let StrVeryErhBall = "=IF(AND(" & RngHey15.Address(rowabsolute:=False, columnabsolute:=False) & "="""",B15=""""),"""",""" & "testie" & """)"
 Debug.Print StrVeryErhBall
Debug.Print:
' Range values   .Value    .Formula      .Formulalocal
Debug.Print "Range  ""values"""
 Let Range("C15").Value = StrVeryErhBall ' The default displayed, "seen" and "written" property is value, so this canbe used to "put in" a formula, just as if you wrote it manually
 
 Let RngHey15.Value = "Somefink": Range("B15").Value = "Somefink Else"
 MsgBox prompt:="Formula in cell is " & vbCrLf & Range("C15").Formula & vbCrLf & vbCrLf & "If you put that in a cell or inside Evaluate("" "") , then you get" & vbCrLf & Application.Evaluate(StrVeryErhBall) & vbCrLf & vbCrLf & "Note also, the formula in the local language is" & vbCrLf & Range("C15").FormulaLocal
 DoEvents: DoEvents
 Debug.Print "Range(""C15"").Value   is       " & Range("C15").Value
 Debug.Print "Range(""C15"").Formula  is      " & Range("C15").Formula & vbCrLf & "Range(""C15"").Formulalocal is   " & Range("C15").FormulaLocal
 Debug.Print
 
' Bad strings...
Debug.Print "Bad strings..."
 Let StrVeryErhBall = "=IF(AND(" & "RngHey15.Address(rowabsolute:=False, columnabsolute:=False)" & "="""",B15=""""),"""",""" & "testie" & """)"
 Debug.Print StrVeryErhBall
 Let StrVeryErhBall = "=IF(AND(" & RngHey15.Address(rowabsolute:=False, columnabsolute:=False) & "="",B15=""""),"""",""" & "testie" & """)"
 Debug.Print StrVeryErhBall
 
'_-----------------------------------------------------------
 On Error GoTo Bed
Application.Wait (Now + TimeValue("0:00:10"))
Application.OnTime earliesttime:=Now, procedure:="ClearImmediateWindow"
Application.OnTime earliesttime:=Now + TimeValue("0:00:01"), procedure:="TraSh_it"
Exit Sub
Bed:
 MsgBox prompt:="Good night"
End Sub
Public Sub ClearImmediateWindow()
 Application.SendKeys "^g ^a {DEL}"
End Sub
Public Sub TraSh_it()
 On Error Resume Next
 Application.VBE.Windows("Immediate").Close ' English Excel
 Application.VBE.Windows("Direktbereich").Close ' German Excel
'Application.VBE.Windows("§$?*?#$§%").Close ' HindDuWolly Excel
' On Error GoTo 0
End Sub
'
'
'
'
' https://www.excelcampus.com/vba/vba-immediate-window-excel/
' https://social.msdn.microsoft.com/Forums/office/en-US/da87e63f-676b-4505-adeb-564257a56cfe/vba-to-clear-the-immediate-window?forum=exceldev

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

ImmediatelySeeMyStringVeryBallGermanTesties

Comments