[((///!!%8--0--8%!!\\\))]

]++¤\ LA FIN DES SCRIPT VB /¤++[

^¨%*§§§!!!\\:8://!!!§§§*%¨^

µ\!8!!---!!8--!/µ

Il est pas super mon titre??Je vais vous expliquer comment faire : vous appuyez sur shift ou alt que vous maintenez appuyer et pis vous appuyez sur toute les touches e votre clavier!!! ensuite ce qui est creer d'un cote vous faite son symetrique de l'autres et zou!!! bon fini les ptit trucs ! :-) (NDC : il as du avoir du mal à le trouvé ça !!!!!! boufon ! (c; )

Alors la pour ceux qui sont interresser par les script vb y vont etre gater!!!Cet article va faire beaucou de pages et va expliquer tout sur les objectVBS et aussi une intro sur comment faire des virus en VBS!!!Eh ouuai comme ca vous pourrez infecter des ordi à distance!!!C pas cool!!!!!Cet articles va etre assez gros donc j'espere que ca va pas vous barbez sinon vous me le dites et comme ca je ne ferai jamais + d'articles aussi gros!!!Sauf si ca plait!!!!Bon voila pour la super intro ; et now on commence!!

Ce que l'on va voir :

-Les objectVBS :
Creer des cles dans la base de registre
creer des fichier txt et bat.
etc.....

-Controler son imprimante ...etc......grace au VBS.
ETC.....

-Et à la fin une intro sur comment faire un virus en VBS et dans l'issue n°6 un article complet sur les virus VBS et des codes sources de virus pas trop mechant(quoi que certain!) mais qui ne sont pas crypter car je ne suis pas un pro en virus!!:(

Voila c apeu pres tout mais ca va etre long comme articles!!!!!!!! Alors voila le vrai sommaire :

LES OBJECTS VBS ;

-l'Object filesystemobject ,

-L'object textstream ,

-L'object file ,

- Autres ,

INTRO AU VIRUS ;

-Quoi qui faut mettre dans un virus VBS ,

-Ce qui vous attend la fois prochaine ,

CONCLUSION .

 

LES OBJECTS VBS :

Alors la c la partie la plus importante des scripts VBS car c grace au object VBS que vous pourrez creer de fichier TXT ou BATCH avec votre scripts!! Mais aussi creer une cle dans la base des registres , lire un fichier TXT detruitre un fichier etc.....

Donc vous voyez c tres important mais aussi assez lourd mais simple quand mêm !! ouf bah oui c du VB pas de l'ASM!!!;)

Donc c parti pour les objects VB , je vais faire tres peu de théorie et beaucoup d'exemples car je crois que tout le monde prefere (enfin je crois!!(: ) .ALLEZ LET'S GO :

L'object filesystemobject :

cet object est assez important car il permet d'acceder au systeme des fichier!! donc pour avoir accer au systeme de fichier de systeme de votre ordi vous devez creer une nouvelle variable filesystemobject grace a la fonction createobject() .exemple :

dim fsys
Set Fsys = createobject("scripting.filesystemobject")

donc la vous une variable fsys qui represente le systeme de fichier de votre ordi grace a la ligne apres. Donc voila pour faire un script qui contient des object VBS vous devrez toujours mettre ses 2lignes de codes au debut! apres vous pouvez mettre plusieurs methode dont voici une liste avec leur syntaxe et des petit exemple pour chacun !!!

CREATETEXTFILE()

cette methode crer un fichier TXT ou BATCH et retourne un object textstream que nous voyons juste apres!! voici la syntaxe de cette methode :

set tstream = fsys.createtextfile(nomdufichieracreer , ecraser,unicode)

voila c tout bon y-a que nomdufichier qui est obligatoir les autres sont pas obligatoir(bah oui si y-en un qu'un d'obligatoir les autres ne le sont pas!!!) donc je ne m'ettent pas dessus. Bon voila un petit exemple qui creer un fichier txt appeller BigOOd.txt a la racine de c mais si vous voulez changer vous n'avez qu'a ecrire le chemin ou vous voulez qui soit crer !

dim fsys,tstream
Set Fsys = createobject("scripting.filesystemobject")
set tstream = fsys.createtextfile(" c:\BigOOd.txt ")

OPENTEXTFILE

COPYFILE

COPYFOLDER

DELETEFILE

DELETEFOLDER

MOVEFILE

MOVEFOLDER

FILEEXISTS,FOLDEREXISTS

GETFILE, GETFOLDER

GETFILENAME

pas d'expliquation hein??? c pas trop dur !! now un autre object

L'object textstream :

Vous savez comment integrer un object textstream on l'a vu au dessus donc on passe tout de suite aux methodes qui sont beaucoup nombreuses!!

READ()

READALL()

READLINE

SKIP()

SKIPLINE

WRITE()

WRITELINE()

WRITEBLANKLINES()

L'object file :

ZOU!!;)

une bonne partie est deja passer now un autre object!!que je vais juste survoler!!!

 

AUTRES :

 

INTRO AU VIRUS VBS

 

Qué qui fau mettre dans un virus VBS

Je vaiq faire un piti bout seulement sur les virus car je me reserve pour la prochaine fois !!! Donc que mettre dans un virus VBS :

- Modifier l'autoexec.bat : ca sert bien ca !!! (NDC : faut rajouté "autoexec.bat" à la fin de l'autoexec.bat et paf l'ordinateur y fait une boucle infini ! (arrété avec ctrl + c !))
- Ajouter une cle dans la base de registre qui affiche a chaque demarrage un ptit msg : ca c bien marrant aussi !!
- Creer des petit virus bat !! : bien ca !!
- lancer des tas de programmes !!! : pour faire planter zindoz rien de mieux!!
- imprimer un msg comme quoi l'utilisateur de cet ordi est une patate ou une autre connerie !!! (NDC : ou un bouffon !)
- etc.... voyez vous même !!!

Ce qui vous attend la fois prochaine

Bon voila vous savez à peu pres ce qui faut mettre dans un virus en VB mais seulement a peu pres!! c pourquoi j'ecrit pour l'issue n°6 un article spécial virus VBS!!! Ou y-aura des tas de codes sources de virus et ou tout sera expliquer !!! Et aussi comment s'en servir de ces virus !!! donc voila tout ca c pour la prochaine fois !!!

 

CONCLUSION

 

Voila c enfin fini!! c'ete bien non? donc vous pouvez maintenant faire des script de bonne qualiter !! et commencer à faire de petit virus !!! donc envoyer moi tout vos programmes et prevenez moi si c des virus !! Donc si vous avez des questions , des remarque et patati et patata ..... mailez moi !!! Je ne suis pas un pro pour les blabla alors voila c fini @+ et j'espere que cet article vous aura plu !!

BigOOd

------------------------------------------------------------------------------------------------------------------

dim fsys,tstream
Set Fsys = createobject("scripting.filesystemobject")
set tstream = fsys.createtextfile("c:\bob0.txt")

------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------

'Ce script cree un fichier txt appeller bob.txt a la racine de votre disque dur
Set FileObj = CreateObject("Scripting.FileSystemObject")
file = "c:\Bob.txt"
Set OutStream= FileObj.CreateTextFile (file, True, False) 'on cree le fichier txt
OutStream.WriteLine "ce petit fichier txt a ete creer" ' la on ecrit une phrase
OutStream.WriteBlankLines(1) 'on passe une ligne
OutStream.WriteLine "Grace à un scriptVB de BigOOd" 'on reecrit une phrase

------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------

' ce script teste la presence du fichier bob.txt creer avec le script precedent
dim fsys
Set Fsys = createobject("scripting.filesystemobject")
if fsys.fileexists("c:\bob.txt") then
msgbox"c bon"
else
msgbox"c pas bon"
end if

------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------

' ce script creer un fichier txt(bob2.txt) et le lit ensuite
Set FileObj = CreateObject("Scripting.FileSystemObject")
File = "c:\bob2.txt"
Set OutStream= FileObj.CreateTextFile (File, True, False)
OutStream.WriteLine "Ceci est la seconde ligne du fichier"
OutStream.WriteBlankLines(1)
OutStream.WriteLine "Ceci est la quatrième ligne du fichier"
Set OutStream = Nothing
Set InStream= FileObj.OpenTextFile (file, 1, False, False)
While InStream.AtEndOfStream = False
TLine = Instream.ReadLine
txt = txt & TLine & vbCrLf
Wend
MsgBox vbcrlf & txt
Set Instream=Nothing

------------------------------------------------------------------------------------------------------------------