Creare un finto Virus in pochi Minuti

Molti mi chiedono "sei in grado di creare dei virus?" e la mia risposta è sempre la stessa "No, perchè non mi è mai interessato saperlo fare".

Creare un programma maligno a scopo di provocare dei danni a terzi non è mai stata una fonte di ispirazione per me, anzi, io ho sempre cercato di venire incontro al prossimo per aiutarlo nei suoi problemi di natura informatica.

Oggi per far contenti tutti quelli che volevano un virus per divertirsi ne propongo uno finto ma ugualmente divertente.




1. Prima di tutto apriamo il blocco note di Windows e copiate:

--------------------------------------------------------------------
L_Welcome_MsgBox_Message_Text = "Errore 204598: Il sistema ha rilevato un coglione davanti allo schermo si dovrà procedere alla formattazione di del disco rigido C:"
L_Welcome_MsgBox_Title_Text = "Formatting... C drive"
Call Welcome()

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If

End Sub

L_Welcome_MsgBox_Message_Text = "Vuoi annullare la formattazione?"
L_Welcome_MsgBox_Title_Text = "formatting... C drive"
Call Welcome()


Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If

End Sub

L_Welcome_MsgBox_Message_Text = "Vuoi anche una fetta di culo?"
L_Welcome_MsgBox_Title_Text = "formatting... C drive"
Call Welcome()

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If

End Sub

L_Welcome_MsgBox_Message_Text = "Al prossimo riavvio il disco rigido C: verrà formattato."
L_Welcome_MsgBox_Title_Text = "formatting... C drive"
Call Welcome()

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If

End Sub

L_Welcome_MsgBox_Message_Text = "Addio amico mio è stato bello un saluto da JumpMan"
L_Welcome_MsgBox_Title_Text = "configurazione DOS completata"
Call Welcome()

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If

End Sub
-----------------------------------------------------------------------------------

Per capire meglio questa stringa creerà un file che se cliccato produrrà una finestrella che dirà ciò che noi che abbiamo impostato.



Questo è solo un esempio potrete modificare i parametri cioè:

--------------------------------------------------------------------
L_Welcome_MsgBox_Message_Text = "Errore 204598: Il sistema ha rilevato un coglione davanti allo schermo si dovrà procedere alla formattazione di del disco rigido C:"
L_Welcome_MsgBox_Title_Text = "Formatting... C drive"
Call Welcome()

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
End If
----------------------------------------------------------------------
Nero: parte da lasciare intatta
Rosso: parte modificabile che andrà nel riquadro 1
Blu: parte modificabile che andrà nel riquadro 2
----------------------------------------------------------------------
Qualsiasi tasto cliccasse la vittima "ok", "annulla" o "x" passerà alla schermata successiva.

Nel esempio c'è ne sono 4 ma noi possiamo aggiungerle o toglierle


2.Creato e modificato a vostro piacimento andate su salva mettendo "tutti i file" al posto di txt, mettete il nome che volete al vostro file ad esempio "segretissimissimo" seguito dall estesione ".VBS" ottenendo segretissimissimo.VBS e salvate.



Ora cliccateci sopra e provatelo ;)  . 

Se funziona non dovrete fare altro che inviarlo a chi vi sta antipatico.