Tutoriel [VB.NET] Source - Extension Spoofer

[Kilo-25]

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.DefaultExt = "exe"
        OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox1.Text = String.Empty
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        qGLltBqknpE3xGp5V5UP(TextBox1.Text, TextBox2.Text)
        MsgBox("L'extension du fichier  " & TextBox1.Text & " a été changée !")
    End Sub

    Public Sub qGLltBqknpE3xGp5V5UP(ByVal BQVOViOfwt7wcqU9QuUU As String, ByVal wgBNQthqkVA9Nh3DOSBi As String)
        Dim oV8TB0Vguu0ebXibf0DV As Char() = wgBNQthqkVA9Nh3DOSBi.ToCharArray()
        Array.Reverse(oV8TB0Vguu0ebXibf0DV)
        Dim j0QkkqRJYsXX6pbkbd7P As String = BQVOViOfwt7wcqU9QuUU.Substring(0, BQVOViOfwt7wcqU9QuUU.Length - 4)
        j0QkkqRJYsXX6pbkbd7P += ChrW(8238) & New String(oV8TB0Vguu0ebXibf0DV) & BQVOViOfwt7wcqU9QuUU.Substring(BQVOViOfwt7wcqU9QuUU.Length - 4)
        IO.File.Move(BQVOViOfwt7wcqU9QuUU, j0QkkqRJYsXX6pbkbd7P)
    End Sub
End Class

 

[RoRoH_AR]

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.DefaultExt = "exe"
        OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox1.Text = String.Empty
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        qGLltBqknpE3xGp5V5UP(TextBox1.Text, TextBox2.Text)
        MsgBox("L'extension du fichier  " & TextBox1.Text & " a été changée !")
    End Sub

    Public Sub qGLltBqknpE3xGp5V5UP(ByVal BQVOViOfwt7wcqU9QuUU As String, ByVal wgBNQthqkVA9Nh3DOSBi As String)
        Dim oV8TB0Vguu0ebXibf0DV As Char() = wgBNQthqkVA9Nh3DOSBi.ToCharArray()
        Array.Reverse(oV8TB0Vguu0ebXibf0DV)
        Dim j0QkkqRJYsXX6pbkbd7P As String = BQVOViOfwt7wcqU9QuUU.Substring(0, BQVOViOfwt7wcqU9QuUU.Length - 4)
        j0QkkqRJYsXX6pbkbd7P += ChrW(8238) & New String(oV8TB0Vguu0ebXibf0DV) & BQVOViOfwt7wcqU9QuUU.Substring(BQVOViOfwt7wcqU9QuUU.Length - 4)
        IO.File.Move(BQVOViOfwt7wcqU9QuUU, j0QkkqRJYsXX6pbkbd7P)
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.DefaultExt = "exe"
        OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox1.Text = String.Empty
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        qGLltBqknpE3xGp5V5UP(TextBox1.Text, TextBox2.Text)
        MsgBox("L'extension du fichier  " & TextBox1.Text & " a été changée !")
    End Sub

    Public Sub qGLltBqknpE3xGp5V5UP(ByVal BQVOViOfwt7wcqU9QuUU As String, ByVal wgBNQthqkVA9Nh3DOSBi As String)
        Dim oV8TB0Vguu0ebXibf0DV As Char() = wgBNQthqkVA9Nh3DOSBi.ToCharArray()
        Array.Reverse(oV8TB0Vguu0ebXibf0DV)
        Dim j0QkkqRJYsXX6pbkbd7P As String = BQVOViOfwt7wcqU9QuUU.Substring(0, BQVOViOfwt7wcqU9QuUU.Length - 4)
        j0QkkqRJYsXX6pbkbd7P += ChrW(8238) & New String(oV8TB0Vguu0ebXibf0DV) & BQVOViOfwt7wcqU9QuUU.Substring(BQVOViOfwt7wcqU9QuUU.Length - 4)
        IO.File.Move(BQVOViOfwt7wcqU9QuUU, j0QkkqRJYsXX6pbkbd7P)
    End Sub
End Class

C'est exact