View - Pasted

VB.NET |

800 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

    '------------------
    'Creator: aeonhack
    'Site: elitevs.net
    'Created: 9/20/2012
    'Changed: 9/20/2012
    'Version: 1.0.0
    '------------------
    Public Function RXOR(data As Byte(), key As Byte()) As Byte()
        Dim N1 As Integer = 11
        Dim N2 As Integer = 13
        Dim NS As Integer = 257
 
        For I As Integer = 0 To key.Length - 1
            NS += NS Mod (key(I) + 1)
        Next
 
        Dim T(data.Length - 1) As Byte
        For I As Integer = 0 To data.Length - 1
            NS = key(I Mod key.Length) + NS
            N1 = (NS + 5) * (N1 And 255) + (N1 >> 8)
            N2 = (NS + 7) * (N2 And 255) + (N2 >> 8)
            NS = ((N1 << 8) + N2) And 255
 
            T(I) = data(I) Xor CByte(NS)
        Next
 
        Return T
    End Function

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

RXOR - VB.NET

Comments