Randomize File Lines 100%

VB.NET |

2.21 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

    Private Shared ReadOnly Rnd As New Random(Now.Millisecond)
 
    Public Shared Sub RandomizeLines(targetFile As String, Optional randomizeRate As Integer = 10, Optional keepFile As Boolean = False)
        randomizeRate = Math.Max(randomizeRate, 2)
 
        Dim currPath As String = Path.GetDirectoryName(targetFile)
        Dim currFile As String = Path.Combine(currPath, Path.GetFileNameWithoutExtension(targetFile) & " (Randomized)" & Path.GetExtension(targetFile))
        Dim currWriter As String
 
        Dim writers() As StreamWriter = {}
        Array.Resize(writers, randomizeRate)
        For i As Integer = 0 To randomizeRate - 1
            writers(i) = New StreamWriter(Path.Combine(currPath, "temp" & i.ToString & ".txt")) 'With {.AutoFlush = True}
        Next
 
        Dim o As Integer
        Dim lastIndex As Integer
        Using fs As FileStream = File.OpenRead(targetFile)
            Using sr As New StreamReader(fs)
                While Not sr.EndOfStream
                    o = Rnd.Next(randomizeRate)
                    While o = lastIndex
                        o = Rnd.Next(randomizeRate)
                        If o = lastIndex Then
                            o = Math.Min(o + 1, randomizeRate - 1)
                        End If
                    End While
                    lastIndex = o
 
                    writers(o).WriteLine(sr.ReadLine())
                End While
            End Using
        End Using
 
        Using sw As New StreamWriter(currFile) 'With {.AutoFlush = True}
            For i As Integer = 0 To randomizeRate - 1
                writers(i).Dispose()
                currWriter = Path.Combine(currPath, "temp" & i.ToString & ".txt")
                Using reader As New StreamReader(currWriter)
                    While Not reader.EndOfStream
                        sw.WriteLine(reader.ReadLine)
                    End While
                End Using
                File.Delete(currWriter)
            Next
        End Using
 
        If keepFile Then
            Try
                File.Delete(targetFile)
                Rename(currFile, targetFile)
            Catch ex As Exception
 
            End Try
        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

Randomize File Lines 100%

Comments