View - Pasted

VBScript |

2.17 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Function esercizio1() As Double
    esercizio1 = -1
    
    
    
End Function
 
Function esercizio2() As String
    esercizio2 = ""
    Dim cell As Range
    esercizio2 = ""
    
    
    For Each cell In Range("B2 : B10")
    esercizio2 = esercizio2 & cell
    Next cell
    
    
    
End Function
 
Function esercizio3(ByVal parametro1 As Integer, ByVal parametro2) As Double
    esercizio3 = -1
    Dim i As Integer
    
    If (parametro1 <= 0 And parametro2 >= 0) Or parametro1 > parametro2 Then
    esercizio3 = 0
    Else
    For i = parametro1 To parametro2
    esercizio3 = esercizio3 + i * i
    Next i
    End If
    
    
    
End Function
 
Function esercizio4() As Integer
    esercizio4 = -1
    Dim cell As Range, media As Double
 
    esercizio 4 = 0
    media = 0
    
    For Each cell In Range("C4  : C 30 ")
    media = media + cell
    Next cell
    media = media / Range(" c4 :C 30 ").Count
    
      esercizio3 (Range("C2"))
      esercizio3 (Range("C3"))
      
      
      
     
     
     
     For Each cell In Range("c4:c30")
     If cell > media Then
     esercizio4 = esercizio4 + 1
     End If
     Next cell
     
     
     
     
     
     
     
     
    
    
End Function
 
 
Private Sub runEsercizio1_Click()
    Dim i As Integer
 
    Range("A2") = Rnd > 0.5
    For i = 3 To 20
        Cells(i, 1) = Rnd * 100
    Next i
    
    Range("J2") = esercizio1()
End Sub
 
Private Sub runEsercizio2_Click()
    Dim i As Integer
 
    For i = 2 To 10
        Cells(i, 2) = Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65))
    Next i
    
    Range("J5") = esercizio2()
End Sub
 
Private Sub runEsercizio3_Click()
    Dim parametro1 As Integer, parametro2 As Integer
    
    parametro1 = CInt(Rnd * 110 - 100)
    parametro2 = CInt(Rnd * 20) + parametro1
    
    Range("C2") = parametro1
    Range("C3") = parametro2
    
    Range("J8") = esercizio3(parametro1, parametro2)
End Sub
 
Private Sub runEsercizio4_Click()
Dim i As Integer
    For i = 2 To 30
        Cells(i, 4) = Rnd * 100
    Next i
    
    Range("J11") = esercizio4()
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

23 January 2019 - Group 1 - Franco Barbieri (40519)

Comments